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
/
opt21_pkg.ads
blob
251bf847748961ffe760378bc25baf4e73bc9fa3
1
with
System
;
2
3
package
Opt21_Pkg
is
4
5
type
R
is record
6
Ptr
:
System
.
Address
:=
System
.
Null_Address
;
7
end record
;
8
9
type
Obj
is access all
R
;
10
11
function
Get_Object
(
Object
:
not null access
R
)
return
System
.
Address
;
12
13
function
Convert
(
W
:
Obj
)
return
System
.
Address
;
14
15
end
Opt21_Pkg
;