3 package Thin_Pointer1 is
5 type Stream is array (Integer range <>) of Character;
7 type Stream_Ptr is access Stream;
8 for Stream_Ptr'Size use Standard'Address_Size;
14 type Buf_Wrapper is record
18 type Buf_Ptr is access Buf_Wrapper;
20 procedure Set_Buffer (AD : Buf_Ptr; Buffer : Stream_ptr);