[llvm-commits] [llvm-gcc-4.2] r45592 - /llvm-gcc-4.2/trunk/gcc/ada/utils2.c

[Duncan Sands]

Author: baldrick
Date: Fri Jan  4 12:26:23 2008
New Revision: 45592

URL: http://llvm.org/viewvc/llvm-project?rev=45592&view=rev
Log:
Make sure that global constants are marked constant
in some tricky cases.
Testcase is FrontendAda/unc_constructor.adb.

Modified:
    llvm-gcc-4.2/trunk/gcc/ada/utils2.c

Modified: llvm-gcc-4.2/trunk/gcc/ada/utils2.c
URL: http://llvm.org/viewvc/llvm-project/llvm-gcc-4.2/trunk/gcc/ada/utils2.c?rev=45592&r1=45591&r2=45592&view=diff

==============================================================================
--- llvm-gcc-4.2/trunk/gcc/ada/utils2.c (original)
+++ llvm-gcc-4.2/trunk/gcc/ada/utils2.c Fri Jan  4 12:26:23 2008
@@ -1163,7 +1163,7 @@
 	  result = fold (build1 (ADDR_EXPR, operation_type, operand));
 	}
 
-      TREE_CONSTANT (result) = staticp (operand) || TREE_CONSTANT (operand);
+      TREE_CONSTANT (result) |= staticp (operand) || TREE_CONSTANT (operand);
       break;
 
     case INDIRECT_REF: