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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 652f33d5b4728c59fefebf7e31686cb83fd6c1c2..66bf9746f7b0194c3b8d2104abf918b78f2d9c1f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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>
 

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 9b6e7211bfe06943e043e38319f13c1c49c4084f..c6078659cb25570f513aea256c58921377575149 100644 (file)
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -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));
 

diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb
index cce58315fe22474eaa79d7b5fc2fae4fdf0f56a8..4df0974d6098fb9a2bd623e5849cd39f5f91148d 100644 (file)
--- a/gcc/ada/xeinfo.adb
+++ b/gcc/ada/xeinfo.adb
@@ -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- --

diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb
index 869ae873f292a95d63cda481927fdb2a8b1f3f27..41e86bcf50e30e0a99901319ee01361666b43ced 100644 (file)
--- a/gcc/ada/xsinfo.adb
+++ b/gcc/ada/xsinfo.adb
@@ -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- --

diff --git a/gcc/ada/xsnamest.adb b/gcc/ada/xsnamest.adb
index d044fb1130e1d65d832a6e320e885776830f4cae..a3f8ec3ee965e1ab6aca21e4d840a237401ff81a 100644 (file)
--- a/gcc/ada/xsnamest.adb
+++ b/gcc/ada/xsnamest.adb
@@ -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- --