diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:55:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:55:03 +0200 |
| commit | 6128aad4587fea11e2e351490fe97a8d7051556b (patch) | |
| tree | 102d8f3e3c05ed3d1d16b845d7f4da4383a6e438 /gcc/ada/g-memdum.ads | |
| parent | 623267dc190af4ed37d179d8ee7c0b62c5c5d3d0 (diff) | |
| download | gcc-6128aad4587fea11e2e351490fe97a8d7051556b.zip gcc-6128aad4587fea11e2e351490fe97a8d7051556b.tar.gz gcc-6128aad4587fea11e2e351490fe97a8d7051556b.tar.bz2 | |
[multiple changes]
2014-07-18 Thomas Quinot <quinot@adacore.com>
* g-memdum.adb, g-memdum.ads (Dump): New parameter Prefix, defaulted
to Absolute_Address.
2014-07-18 Eric Botcazou <ebotcazou@adacore.com>
* opt.ads (Suppress_Back_Annotation): Remove as unused.
* fe.h (Back_Annotate_Rep_Info): Likewise.
(Global_Discard_Names): Likewise.
From-SVN: r212799
Diffstat (limited to 'gcc/ada/g-memdum.ads')
| -rw-r--r-- | gcc/ada/g-memdum.ads | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/g-memdum.ads b/gcc/ada/g-memdum.ads index 2cfd1c3..919663c 100644 --- a/gcc/ada/g-memdum.ads +++ b/gcc/ada/g-memdum.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2003-2010, AdaCore -- +-- Copyright (C) 2003-2014, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,7 +38,12 @@ with System; package GNAT.Memory_Dump is pragma Preelaborate; - procedure Dump (Addr : System.Address; Count : Natural); + type Prefix_Type is (Absolute_Address, Offset, None); + + procedure Dump + (Addr : System.Address; + Count : Natural; + Prefix : Prefix_Type := Absolute_Address); -- Dumps indicated number (Count) of bytes, starting at the address given -- by Addr. The coding of this routine in its current form assumes the -- case of a byte addressable machine (and is therefore inapplicable to |