diff options
author | Pascal Obry <obry@gnat.com> | 2001-10-25 23:49:27 +0000 |
---|---|---|
committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 01:49:27 +0200 |
commit | 52b804888bf0d45a1db49565c5e4694e6e3b6813 (patch) | |
tree | 30e49e2b8eedfe3a3f8884b48474033cc8ba4ede /gcc/ada/gnatmem.adb | |
parent | 316ad9c5f42d333b4285fe3f393d3fd764fdd9bb (diff) | |
download | gcc-52b804888bf0d45a1db49565c5e4694e6e3b6813.zip gcc-52b804888bf0d45a1db49565c5e4694e6e3b6813.tar.gz gcc-52b804888bf0d45a1db49565c5e4694e6e3b6813.tar.bz2 |
gnatmem.adb (Read_Next): fix Curs2 value to properly handle quiet mode case for ALLOC case.
* gnatmem.adb (Read_Next): fix Curs2 value to properly handle quiet
mode case for ALLOC case.
* gnatmem.adb (Read_Next): correctly fix parsing in Quiet mode on
all platforms. Improvement of last change.
From-SVN: r46506
Diffstat (limited to 'gcc/ada/gnatmem.adb')
-rw-r--r-- | gcc/ada/gnatmem.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb index b345711..f8493d3 100644 --- a/gcc/ada/gnatmem.adb +++ b/gcc/ada/gnatmem.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.24 $ +-- $Revision$ -- -- -- Copyright (C) 1997-2001, Ada Core Technologies, Inc. -- -- -- @@ -191,7 +191,6 @@ procedure Gnatmem is Target_Protocol_Len : Integer; Cross_Case : Boolean := False; - Tmp_Size : Storage_Count := 0; Tmp_Address : Integer_Address; Tmp_Alloc : Allocation; @@ -291,7 +290,6 @@ procedure Gnatmem is end if; end; - if Cross_Case then Put (FD, "target "); Put (FD, Target_Protocol (1 .. Target_Protocol_Len)); @@ -693,14 +691,14 @@ procedure Gnatmem is return Eof; elsif Line (1 .. 5) = "ALLOC" then + -- ALLOC ^ <size> ^0x <addr> ^ -- Read the size - if Quiet_Mode then - Curs2 := 5; - else - Curs1 := 7; - Curs2 := Next_Separator - 1; + Curs1 := 7; + Curs2 := Next_Separator - 1; + + if not Quiet_Mode then Tmp_Size := Storage_Count'Value (Line (Curs1 .. Curs2)); end if; @@ -713,6 +711,7 @@ procedure Gnatmem is return Alloc; elsif Line (1 .. 5) = "DEALL" then + -- DEALL ^ 0x <addr> ^ -- Read the address, skip "^0x" |