mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 23:36:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

frame_overflow.adb: Improve portability.

Browse Source 
* gnat.dg/frame_overflow.adb: Improve portability.

From-SVN: r133054
This commit is contained in:
Eric Botcazou 2008-03-09 15:34:33 +00:00 committed by Eric Botcazou
parent be3d47899e
commit eafaa35bc2
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2008-03-09 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/frame_overflow.adb: Improve portability.
2008-03-08 H.J. Lu <hongjiu.lu@intel.com>
PR target/35350

8
gcc/testsuite/gnat.dg/frame_overflow.adb
View File

@ -1,15 +1,17 @@
-- { dg-do compile }
with System;
procedure frame_overflow is
type Bitpos_Range_T is new Positive;
type Bitpos_Range_T is range 1..2**(System.Word_Size-1)-1;
type Bitmap_Array_T is array (Bitpos_Range_T) of Boolean;
type Bitmap_T is record
Bits : Bitmap_Array_T := (others => False);
end record;
function -- { dg-error "too large" "" }
function -- { dg-error "too large" }
Set_In (Bitmap : Bitmap_T; Bitpos : Bitpos_Range_T) return Bitmap_T
is
Result: Bitmap_T := Bitmap;
@ -18,7 +20,7 @@ procedure frame_overflow is
return Result;
end;
function -- { dg-error "too large" "" }
function -- { dg-error "too large" }
Negate (Bitmap : Bitmap_T) return Bitmap_T is
Result: Bitmap_T;
begin