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
RISC-V: Add support for riscv-*-*.
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
assign_from_packed_pixels.ads
blob
66ade8a84c40b957756a914069fff8b1be03c703
1
2
package
Assign_From_Packed_Pixels
is
3
4
type
U16
is mod
2
**
16
;
5
6
type
Position
is record
7
X
,
Y
,
Z
:
U16
;
8
end record
;
9
for
Position
'Size
use
48
;
10
11
type
Pixel
is record
12
Pos
:
Position
;
13
end record
;
14
pragma
Pack
(
Pixel
);
15
16
Minus_One
:
Integer
:= -
1
;
17
Pix
:
Pixel
:= (
Pos
=> (
X
=>
0
,
Y
=>
0
,
Z
=>
0
));
18
end
;