diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 18:07:51 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 18:07:51 +0000 |
| commit | 93bd5185c9add87e4a1d0b02164db44d4005dcb9 (patch) | |
| tree | 1bab3d44892fd00846df6ee285e81576d0ced0a5 /c | |
| parent | Added True and False constants for RTEMS.Boolean types. This necessitated (diff) | |
| download | rtems-93bd5185c9add87e4a1d0b02164db44d4005dcb9.tar.bz2 | |
new files
Diffstat (limited to 'c')
| -rw-r--r-- | c/src/ada-tests/support/address_io.adb | 47 | ||||
| -rw-r--r-- | c/src/ada-tests/support/address_io.ads | 35 |
2 files changed, 82 insertions, 0 deletions
diff --git a/c/src/ada-tests/support/address_io.adb b/c/src/ada-tests/support/address_io.adb new file mode 100644 index 0000000000..9e87ef3ed9 --- /dev/null +++ b/c/src/ada-tests/support/address_io.adb @@ -0,0 +1,47 @@ +-- +-- Address_IO / Specification +-- +-- DESCRIPTION: +-- +-- This package instantiates the IO routines necessary to +-- perform IO on data of the type System.Address. +-- +-- DEPENDENCIES: +-- +-- +-- +-- COPYRIGHT (c) 1989-1997. +-- On-Line Applications Research Corporation (OAR). +-- Copyright assigned to U.S. Government, 1994. +-- +-- The license and distribution terms for this file may in +-- the file LICENSE in this distribution or at +-- http://www.OARcorp.com/rtems/license.html. +-- +-- $Id$ +-- + +with System; +with System.Storage_Elements; +with Text_IO; + +package body Address_IO is + + procedure Put ( + Item : in System.Address; + Width : in Natural := 8; + Base : in Natural := 16 + ) is + package Integer_IO is new TEXT_IO.Integer_IO( Integer ); + begin + + Integer_IO.Put( + Integer( System.Storage_Elements.To_Integer( Item ) ), + Width, + Base + ); + + end Put; + +end Address_IO; + diff --git a/c/src/ada-tests/support/address_io.ads b/c/src/ada-tests/support/address_io.ads new file mode 100644 index 0000000000..3f832b70e0 --- /dev/null +++ b/c/src/ada-tests/support/address_io.ads @@ -0,0 +1,35 @@ +-- +-- ADDRESS_IO / SPECIFICATION +-- +-- DESCRIPTION: +-- +-- This package instantiates the IO routines necessary to +-- perform IO on data of the type System.Address. +-- +-- DEPENDENCIES: +-- +-- +-- +-- COPYRIGHT (c) 1989-1997. +-- On-Line Applications Research Corporation (OAR). +-- Copyright assigned to U.S. Government, 1994. +-- +-- The license and distribution terms for this file may in +-- the file LICENSE in this distribution or at +-- http://www.OARcorp.com/rtems/license.html. +-- +-- $Id$ +-- + +with System; + +package Address_IO is + + procedure Put ( + Item : in System.Address; + Width : in Natural := 8; + Base : in Natural := 16 + ); + +end Address_IO; + |