Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/sso/dump.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } with Text_IO; use Text_IO; procedure Dump (A : System.Address; Len : Storage_Offset) is Arr : Storage_Array (1 .. Len); for Arr'Address use A; pragma Import (Ada, Arr); H : constant array (Storage_Element range 0 .. 15) of Character := "0123456789abcdef"; begin for J in Arr'Range loop Put (' ' & H (Arr (J) / 16) & H (Arr (J) mod 16)); end loop; end;