diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 10:03:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 10:03:34 +0000 |
| commit | 936b012978c96f7f4c3f79896bf6e06ab42b3ee7 (patch) | |
| tree | 897427a8e9e1147dde238a1afabe6e184bc10186 /gcc/ada/g-memdum.adb | |
| parent | fb668360a1b1fa0cc85b2aa7361099960dcf6ea8 (diff) | |
| download | gcc-936b012978c96f7f4c3f79896bf6e06ab42b3ee7.tar.gz | |
2014-07-18 Thomas Quinot <quinot@adacore.com>
* g-memdum.adb, g-memdum.ads: Code clean ups.
2014-07-18 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Check_Dependency_Clause):
Update the comment on usage. Reimplement the mechanism which
attempts to match a single clause of Depends against one or
more clauses of Refined_Depends.
(Input_Match): Removed.
(Inputs_Match): Removed.
(Is_Self_Referential): Removed.
(Normalize_Clause): Update the call to Split_Multiple_Outputs.
(Normalize_Outputs): Rename variable Split to New_Claue and update
all its occurrences.
(Report_Extra_Clauses): Update the comment on usage.
(Split_Multiple_Outputs): Renamed to Normalize_Outputs.
2014-07-18 Gary Dismukes <dismukes@adacore.com>
* i-cstrea.ads: Minor reformatting.
2014-07-18 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Wrap_Statements_In_Block): Propagate both
secondary stack-related flags to the generated block.
* sem_ch5.adb (Analyze_Loop_Statement): Update the scope chain
once the loop is relocated in a block.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212803 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-memdum.adb')
| -rw-r--r-- | gcc/ada/g-memdum.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/g-memdum.adb b/gcc/ada/g-memdum.adb index 9d7b25c785f..8aa24a72c79 100644 --- a/gcc/ada/g-memdum.adb +++ b/gcc/ada/g-memdum.adb @@ -46,8 +46,16 @@ package body GNAT.Memory_Dump is procedure Dump (Addr : Address; + Count : Natural) + is + begin + Dump (Addr, Count, Prefix => Absolute_Address); + end Dump; + + procedure Dump + (Addr : Address; Count : Natural; - Prefix : Prefix_Type := Absolute_Address) + Prefix : Prefix_Type) is Ctr : Natural := Count; -- Count of bytes left to output |