OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g-debpoo.adb (Is_Valid): Correctly compute Offset using Integer_Address arithmetic, as in Set_Valid. 

2006-10-31  Vincent Celier  <celier@adacore.com>

	* g-debpoo.adb (Is_Valid): Correctly compute Offset using
	Integer_Address arithmetic, as in Set_Valid.

From-SVN: r118275
This commit is contained in:
Vincent Celier 2006-10-31 18:59:28 +01:00 committed by Arnaud Charlet
parent 87009d43ae
commit 5b8b905744
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/g-debpoo.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- 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- --
@ -555,9 +555,18 @@ package body GNAT.Debug_Pools is
--------------
function Is_Valid (Storage : System.Address) return Boolean is
-- We use the following constant declaration, instead of
-- Offset : constant Storage_Offset :=
-- (Storage - Edata) / Default_Alignment;
-- See comments in Set_Valid for details.
Offset : constant Storage_Offset :=
(Storage - Edata) / Default_Alignment;
Storage_Offset ((To_Integer (Storage) - To_Integer (Edata)) /
Default_Alignment);
Bit : constant Byte := 2 ** Natural (Offset mod System.Storage_Unit);
begin
return (Storage mod Default_Alignment) = 0
and then Offset >= 0