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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [thin_pointer1.ads] - Rev 700

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

with System;
 
package Thin_Pointer1 is
 
   type Stream is array (Integer range <>) of Character;
 
   type Stream_Ptr is access Stream;
   for Stream_Ptr'Size use Standard'Address_Size;
 
   type Buf is record
      A : System.Address;
   end record;
 
   type Buf_Wrapper is record
      B : Buf;
   end record;
 
   type Buf_Ptr is access Buf_Wrapper;
 
   procedure Set_Buffer (AD : Buf_Ptr; Buffer : Stream_ptr);
 
end Thin_Pointer1;
 

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.