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
gcc/
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
specs
/
lto3_pkg1.adb
blob
34caa3c6c2879364aaf9d98a29ed4a38b750978f
1
package body
Lto3_Pkg1
is
2
3
function
Is_Fixed
return
Boolean
is
4
begin
5
return
True
;
6
end
Is_Fixed
;
7
8
function
Do_Item
(
I
:
Natural
)
return
Variable_Data_Fixed_T
is
9
It
:
Variable_Data_Fixed_T
;
10
begin
11
return
It
;
12
end
Do_Item
;
13
14
My_Db
:
Db
.
T
;
15
16
procedure
Run
is
17
Kitem
:
Variable_Data_Fixed_T
;
18
I
:
Natural
;
19
begin
20
Kitem
:=
Db
.
Get
(
My_Db
);
21
Kitem
:=
Do_Item
(
I
);
22
end
Run
;
23
24
end
Lto3_Pkg1
;