Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gnat.dg
/
thin_pointer.adb
blob: 1e3943f7a5b0f747bf8c534f3119b2423d70317b [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O"
}
package
body
Thin_Pointer
is
procedure
Set_Buffer
(
AD
:
Buf_Ptr
;
Buffer
:
Stream_ptr
)
is
begin
AD
.
B
.
A
:=
Buffer
(
Buffer
'First)'
Address
;
end
Set_Buffer
;
end
Thin_Pointer
;