diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:03:34 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:03:34 +0200 |
| commit | 3b8481cb9a266deed774ae75d579b7243c3f1cc4 (patch) | |
| tree | 897427a8e9e1147dde238a1afabe6e184bc10186 /gcc/ada/g-memdum.adb | |
| parent | daff5ab71e8de29f3b3bd91a9151401f6a8ea197 (diff) | |
| download | gcc-3b8481cb9a266deed774ae75d579b7243c3f1cc4.zip gcc-3b8481cb9a266deed774ae75d579b7243c3f1cc4.tar.gz gcc-3b8481cb9a266deed774ae75d579b7243c3f1cc4.tar.bz2 | |
[multiple changes]
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.
From-SVN: r212803
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 9d7b25c..8aa24a7 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 |