From 2eef7403a010176fe462257b6b29981e78d35602 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 6 Aug 2012 10:41:41 +0200 Subject: [multiple changes] 2012-08-06 Robert Dewar * xoscons.adb: Minor code reorganization (remove unused variable E at line 331). * g-sercom.ads, exp_attr.adb: Minor reformatting. * sinfo.adb, sinfo.ads: Minor cleanup, remove unused flag Static_Processing_OK. 2012-08-06 Ed Schonberg * sem_ch3.adb (Build_Derived_Concurrent_Type): Copy discriminant constraint when building a constrained subtype, to prevent undesirable tree sharing betweeb geberated subtype and derived type definition. 2012-08-06 Thomas Quinot * g-sercom-mingw.adb, s-oscons-tmplt.c: Add missing constants on Windows. 2012-08-06 Sergey Rybin * tree_io.ads: Update ASIS_Version_Number because of the tree fix for discriminant constraints for concurrent types. From-SVN: r190171 --- gcc/ada/sinfo.adb | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'gcc/ada/sinfo.adb') diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index d1c1480..d2413ad 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -2844,14 +2844,6 @@ package body Sinfo is return List3 (N); end Statements; - function Static_Processing_OK - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Aggregate); - return Flag4 (N); - end Static_Processing_OK; - function Storage_Pool (N : Node_Id) return Node_Id is begin @@ -5905,14 +5897,6 @@ package body Sinfo is Set_List3_With_Parent (N, Val); end Set_Statements; - procedure Set_Static_Processing_OK - (N : Node_Id; Val : Boolean) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Aggregate); - Set_Flag4 (N, Val); - end Set_Static_Processing_OK; - procedure Set_Storage_Pool (N : Node_Id; Val : Node_Id) is begin -- cgit v1.1