mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-22 12:20:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

gnatmem.adb (Read_Next): fix Curs2 value to properly handle quiet mode case for ALLOC case.

Browse Source 
* 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
This commit is contained in:
Pascal Obry 2001-10-25 23:49:27 +00:00 committed by Geert Bosch
parent 316ad9c5f4
commit 52b804888b
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
2001-10-25 Pascal Obry <obry@gnat.com>
* 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.
2001-10-25 Robert Dewar <dewar@gnat.com>
* exp_ch4.adb (Expand_N_Allocator): Minor reformatting.

15
gcc/ada/gnatmem.adb
View File

@ -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"