URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 304 |
Rev 384 |
with System;
|
with System;
|
|
|
package Thin_Pointer1 is
|
package Thin_Pointer1 is
|
|
|
type Stream is array (Integer range <>) of Character;
|
type Stream is array (Integer range <>) of Character;
|
|
|
type Stream_Ptr is access Stream;
|
type Stream_Ptr is access Stream;
|
for Stream_Ptr'Size use Standard'Address_Size;
|
for Stream_Ptr'Size use Standard'Address_Size;
|
|
|
type Buf is record
|
type Buf is record
|
A : System.Address;
|
A : System.Address;
|
end record;
|
end record;
|
|
|
type Buf_Wrapper is record
|
type Buf_Wrapper is record
|
B : Buf;
|
B : Buf;
|
end record;
|
end record;
|
|
|
type Buf_Ptr is access Buf_Wrapper;
|
type Buf_Ptr is access Buf_Wrapper;
|
|
|
procedure Set_Buffer (AD : Buf_Ptr; Buffer : Stream_ptr);
|
procedure Set_Buffer (AD : Buf_Ptr; Buffer : Stream_ptr);
|
|
|
end Thin_Pointer1;
|
end Thin_Pointer1;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
