2010-09-19 Basile Starynkevitch <basile@starynkevitch.net>

	MELT branch merged with trunk rev 164348, with some improvements
	in gcc/melt-runtime.[ch]

2010-09-19  Basile Starynkevitch  <basile@starynkevitch.net>
	[[merged with trunk rev.164348, so improved MELT runtime!]]
	* gcc/melt-runtime.h: improved comments.
	(melt_debug_garbcoll, melt_debuggc_eprintf):  Moved from melt-runtime.c.
	(melt_obmag_string): New declaration.
	(struct meltobject_st, struct meltclosure_st, struct
	meltroutine_st, struct meltmixbigint_st, struct meltstring_st):
	using GTY variable_size and @@MELTGTY@@ comment.
	(melt_mark_special): added debug print.

	* gcc/melt-runtime.c:  Improved comments.
	Include bversion.h, realmpfr.h, gimple-pretty-print.h.
	(ggc_force_collect) Declared external.
	(melt_forward_counter): Added.
	(melt_obmag_string): New function.
	(melt_alptr_1, melt_alptr_2, melt_break_alptr_1_at)
	(melt_break_alptr_2_at, melt_break_alptr_1,melt_break_alptr_1)
	(melt_allocate_young_gc_zone, melt_free_young_gc_zone): New.
	(delete_special, meltgc_make_special): Improved debug printf and
	use melt_break_alptr_1...
	(ggc_alloc_*) macros defined for backport to GCC 4.5
	(melt_forwarded_copy): Don't clear the new destination zone in old
	GGC heap.
	(meltgc_add_out_raw_len): Use ggc_alloc_atomic.
	(meltgc_raw_new_mappointers, meltgc_raw_put_mappointers)
	(meltgc_raw_remove_mappointers): Corrected length argument to
	ggc_alloc_cleared_vec_entrypointermelt_st.
	(melt_really_initialize): Call melt_allocate_young_gc_zone.
	(melt_initialize):  Set flag_plugin_added.
	(melt_val2passflag): TODO_verify_loops only in GCC 4.5




git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@164424 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 23 insertions, 15 deletions

diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb
index 1271d478a73..1388a92e143 100644
--- a/gcc/ada/par-ch9.adb
+++ b/gcc/ada/par-ch9.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2010, 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- --
@@ -154,7 +154,8 @@ package body Ch9 is
             Scan; -- past semicolon
 
             if Token = Tok_Entry then
-               Error_Msg_SP ("|"";"" should be IS");
+               Error_Msg_SP -- CODEFIX
+                 ("|"";"" should be IS");
                Set_Task_Definition (Task_Node, P_Task_Definition);
             else
                Pop_Scope_Stack; -- Remove unused entry
@@ -181,13 +182,14 @@ package body Ch9 is
                end loop;
 
                if Token /= Tok_With then
-                  Error_Msg_SC ("WITH expected");
+                  Error_Msg_SC -- CODEFIX
+                    ("WITH expected");
                end if;
 
                Scan; -- past WITH
 
                if Token = Tok_Private then
-                  Error_Msg_SP
+                  Error_Msg_SP -- CODEFIX
                     ("PRIVATE not allowed in task type declaration");
                end if;
             end if;
@@ -454,7 +456,8 @@ package body Ch9 is
 
             if Token /= Tok_Is then
                Restore_Scan_State (Scan_State);
-               Error_Msg_SC ("missing IS");
+               Error_Msg_SC -- CODEFIX
+                 ("missing IS");
                Set_Protected_Definition (Protected_Node,
                  Make_Protected_Definition (Token_Ptr,
                    Visible_Declarations => Empty_List,
@@ -466,7 +469,8 @@ package body Ch9 is
                return Protected_Node;
             end if;
 
-            Error_Msg_SP ("|extra ""("" ignored");
+            Error_Msg_SP -- CODEFIX
+              ("|extra ""("" ignored");
          end if;
 
          T_Is;
@@ -492,7 +496,8 @@ package body Ch9 is
             end loop;
 
             if Token /= Tok_With then
-               Error_Msg_SC ("WITH expected");
+               Error_Msg_SC -- CODEFIX
+                 ("WITH expected");
             end if;
 
             Scan; -- past WITH
@@ -625,7 +630,8 @@ package body Ch9 is
                Scan;  -- past OVERRIDING
                Not_Overriding := True;
             else
-               Error_Msg_SC ("OVERRIDING expected!");
+               Error_Msg_SC -- CODEFIX
+                 ("OVERRIDING expected!");
             end if;
 
          else
@@ -633,7 +639,7 @@ package body Ch9 is
             Is_Overriding := True;
          end if;
 
-         if (Is_Overriding or else Not_Overriding) then
+         if Is_Overriding or else Not_Overriding then
             if Ada_Version < Ada_05 then
                Error_Msg_SP ("overriding indicator is an Ada 2005 extension");
                Error_Msg_SP ("\unit must be compiled with -gnat05 switch");
@@ -758,8 +764,7 @@ package body Ch9 is
             Scan; -- past PRIVATE
 
          elsif Token = Tok_Identifier then
-            Error_Msg_SC
-              ("all components must be declared in spec!");
+            Error_Msg_SC ("all components must be declared in spec!");
             Resync_Past_Semicolon;
 
          elsif Token in Token_Class_Declk then
@@ -809,7 +814,8 @@ package body Ch9 is
             Scan;  -- part OVERRIDING
             Not_Overriding := True;
          else
-            Error_Msg_SC ("OVERRIDING expected!");
+            Error_Msg_SC -- CODEFIX
+              ("OVERRIDING expected!");
          end if;
 
       elsif Token = Tok_Overriding then
@@ -817,13 +823,14 @@ package body Ch9 is
          Is_Overriding := True;
       end if;
 
-      if (Is_Overriding or else Not_Overriding) then
+      if Is_Overriding or else Not_Overriding then
          if Ada_Version < Ada_05 then
             Error_Msg_SP ("overriding indicator is an Ada 2005 extension");
             Error_Msg_SP ("\unit must be compiled with -gnat05 switch");
 
          elsif Token /= Tok_Entry then
-            Error_Msg_SC ("ENTRY expected!");
+            Error_Msg_SC -- CODEFIX
+              ("ENTRY expected!");
          end if;
       end if;
 
@@ -1115,7 +1122,8 @@ package body Ch9 is
          Bnode := P_Expression_No_Right_Paren;
 
          if Token = Tok_Colon_Equal then
-            Error_Msg_SC ("|"":="" should be ""=""");
+            Error_Msg_SC -- CODEFIX
+              ("|"":="" should be ""=""");
             Scan;
             Bnode := P_Expression_No_Right_Paren;
          end if;