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
runtime: allow preemption in fast syscall return
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt58_pkg.ads
blob
9cb7f3a2540f65ee7ed024aca367bc61662f2d55
1
with
System
;
use
System
;
2
3
package
Opt58_Pkg
is
4
5
pragma
Pure
(
Opt58_Pkg
);
6
7
type
Small_Int
is range
0
..
255
;
8
9
type
Rec
is record
10
D1
,
D2
,
D3
,
D4
:
Small_Int
;
11
end record
;
12
pragma
Pack
(
Rec
);
13
for
Rec
'Size
use
32
;
14
15
function
F1
(
R
:
Rec
)
return
Small_Int
;
16
17
function
F2
(
A
:
Address
;
B
:
Boolean
)
return
Boolean
;
18
19
end
Opt58_Pkg
;