repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
middle-end: Fix ifcvt predicate generation for masked function calls
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
lto10_pkg.ads
blob
9be6a78c9c616586554c52c94a4e22387473f5cd
1
package
Lto10_Pkg
is
2
3
type
U16
is mod
2
**
16
;
4
5
type
Position
is record
6
X
,
Y
,
Z
:
U16
;
7
end record
;
8
for
Position
'Size
use
48
;
9
10
type
Pixel
is record
11
Pos
:
Position
;
12
end record
;
13
pragma
Pack
(
Pixel
);
14
15
Minus_One
:
Integer
:= -
1
;
16
Pix
:
Pixel
:= (
Pos
=> (
X
=>
0
,
Y
=>
0
,
Z
=>
0
));
17
18
end
Lto10_Pkg
;