URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [opt21_pkg.adb] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log


package body Opt21_Pkg is
 
   function Get_Object (Object : not null access R) return System.Address is
   begin
      return Object.Ptr;
   end;
 
   function Convert (W : Obj) return System.Address is
   begin
      if W = null then
         return System.Null_Address;
      else
         return Get_Object (W);
      end if;
   end;
 
end Opt21_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package body Opt21_Pkg is`
2
3			`function Get_Object (Object : not null access R) return System.Address is`
4			`begin`
5			`return Object.Ptr;`
6			`end;`
7
8			`function Convert (W : Obj) return System.Address is`
9			`begin`
10			`if W = null then`
11			`return System.Null_Address;`
12			`else`
13			`return Get_Object (W);`
14			`end if;`
15			`end;`
16
17			`end Opt21_Pkg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [opt21_pkg.adb] - Blame information for rev 715