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

utils.c (build_vms_descriptor32): Skip the 32-bit range comparison if Pmode is SImode. 

* gcc-interface/utils.c (build_vms_descriptor32): Skip the 32-bit
	range comparison if Pmode is SImode.

From-SVN: r176251
This commit is contained in:
Eric Botcazou 2011-07-13 21:13:49 +00:00 committed by Eric Botcazou
parent e2995714b3
commit f542c405c0
5 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2011-07-13 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (build_vms_descriptor32): Skip the 32-bit
range comparison if Pmode is SImode.
2011-07-12 Laurent GUERBY <laurent@guerby.net>
Eric Botcazou <ebotcazou@adacore.com>

6
gcc/ada/gcc-interface/utils.c
View File

@ -2556,8 +2556,10 @@ build_vms_descriptor32 (tree type, Mechanism_Type mech, Entity_Id gnat_entity)
tem = build_unary_op (ADDR_EXPR, pointer64_type,
build0 (PLACEHOLDER_EXPR, type));
tem = build3 (COND_EXPR, pointer32_type,
build_binary_op (GE_EXPR, boolean_type_node, tem,
build_int_cstu (pointer64_type, 0x80000000)),
Pmode != SImode
? build_binary_op (GE_EXPR, boolean_type_node, tem,
build_int_cstu (pointer64_type, 0x80000000))
: boolean_false_node,
build0 (PLACEHOLDER_EXPR, void_type_node),
convert (pointer32_type, tem));

2
gcc/ada/xeinfo.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2011, 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- --

2
gcc/ada/xsinfo.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2011, 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- --

2
gcc/ada/xsnamest.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2011, 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- --