diff options
Diffstat (limited to 'c/src/ada-tests/support/address_io.adb')
-rw-r--r-- | c/src/ada-tests/support/address_io.adb | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/c/src/ada-tests/support/address_io.adb b/c/src/ada-tests/support/address_io.adb deleted file mode 100644 index 9e87ef3ed9..0000000000 --- a/c/src/ada-tests/support/address_io.adb +++ /dev/null @@ -1,47 +0,0 @@ --- --- 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; - |