Subversion Repositories openrisc

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;