2 -- { dg-options "-gnatws" }
4 with System
; use System
;
6 procedure Trampoline2
is
10 type FuncPtr
is access function (I
: Integer) return Integer;
12 function F
(I
: Integer) return Integer is
17 P
: FuncPtr
:= F
'Access;
18 CA
: System
.Address
:= F
'Code_Address;
22 if CA
= System
.Null_Address
then