2010-04-21 Basile Starynkevitch <basile@starynkevitch.net>

	* melt-runtime.h (melt_fatal_error): Added new macro which calls
	melt_fatal_info..
	(melt_fatal_info,melt_runtime_build_date): Added declaration.
	(melt_putfield_object_at)
	(melt_raw_new_ppl_empty_constraint_system)
	(melt_raw_new_ppl_unsatisfiable_constraint_system)
	(melt_raw_clone_ppl_consstraint_system): use melt_fatal_error.

	* melt-runtime.c (check_pointer_at, meltgc_add_out_raw_len)
	(melt_output_strbuf_to_file, melt_tempdir_path)
	(compile_gencsrc_to_binmodule, meltgc_load_melt_module)
	(meltgc_load_modulelist, READ_ERROR, meltgc_open_infix_file)
	(meltgc_infix_lexeme, meltgc_close_infix_file, meltgc_read_file)
	(load_melt_modules_and_do_mode, melt_dynobjstruct_fieldoffset_at)
	(melt_dynobjstruct_classlength_at, melt_debug_out)
	(open_meltpp_file, close_meltpp_file)
	(melt_make_ppl_coefficient_from_tree)
	(melt_make_ppl_coefficient_from_long)
	(meltgc_new_ppl_constraint_system)
	(meltgc_clone_ppl_constraint_system)
	(melt_insert_ppl_constraint_in_boxed_system)
	(melt_make_ppl_NNC_Polyhedron_from_Constraint_System)
	(meltgc_new_ppl_polyhedron, melt_make_ppl_linear_expression)
	(meltgc_new_ppl_linear_expression, meltgc_ppstrbuf_ppl_varnamvect)
	(melt_ppl_error_handler, melt_output_cfile_decl_impl_secondary)
	(melt_assert_failed, meltgc_register_pass): use melt_fatal_error.
	(melt_fatal_info): Added function.
	(melt_runtime_build_date): Added definition.

	* melt/warmelt-normatch.melt: uses melt_fatal_error.
	* melt/warmelt-outobj.melt: ditto.
	* melt/xtramelt-ana-base.melt: likewise.

	{{regenerated all}}
	* melt/generated/gt-melt-runtime-plugin.h: regenerated.
	* melt/generated/warmelt-base.0.c: regenerated.
	* melt/generated/warmelt-debug.0.c: regenerated.
	* melt/generated/warmelt-first.0.c: regenerated.
	* melt/generated/warmelt-genobj.0+01.c: regenerated.
	* melt/generated/warmelt-genobj.0+03.c: regenerated.
	* melt/generated/warmelt-genobj.0.c: regenerated.
	* melt/generated/warmelt-macro.0.c: regenerated.
	* melt/generated/warmelt-normal.0+01.c: regenerated.
	* melt/generated/warmelt-normal.0+02.c: regenerated.
	* melt/generated/warmelt-normal.0.c: regenerated.
	* melt/generated/warmelt-normatch.0+01.c: regenerated.
	* melt/generated/warmelt-normatch.0+02.c: regenerated.
	* melt/generated/warmelt-normatch.0.c: regenerated.
	* melt/generated/warmelt-outobj.0+01.c: regenerated.
	* melt/generated/warmelt-outobj.0+02.c: regenerated.
	* melt/generated/warmelt-outobj.0+03.c: regenerated.
	* melt/generated/warmelt-outobj.0.c: regenerated.



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

1 files changed, 14 insertions, 14 deletions

diff --git a/gcc/melt/generated/warmelt-debug.0.c b/gcc/melt/generated/warmelt-debug.0.c
index f4a1887c303..f1f074ecc6a 100644
--- a/gcc/melt/generated/warmelt-debug.0.c
+++ b/gcc/melt/generated/warmelt-debug.0.c
@@ -3,7 +3,7 @@
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.6.0 20100406 (experimental) [melt-branch revision 158294]";
+ "4.6.0 20100406 (experimental) [melt-branch revision 158592]";
 #endif
 
 #include "run-melt.h"
@@ -8171,7 +8171,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
  cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_num = OBMAG_OBJECT;
- cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 54443352;
+ cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 413433306;
  cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_len = 8;
 
  /*inistring dstr_6__CLASS_DEBUG_INFO*/
@@ -8207,7 +8207,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__DBGI_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_11__DBGI_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
  cdat->dobj_11__DBGI_OUT.obj_num = 0;
- cdat->dobj_11__DBGI_OUT.obj_hash = 999673521;
+ cdat->dobj_11__DBGI_OUT.obj_hash = 345430019;
  cdat->dobj_11__DBGI_OUT.obj_len = 4;
 
  /*inistring dstr_12__DBGI_OUT*/
@@ -8235,7 +8235,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__DBGI_OCCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_15__DBGI_OCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
  cdat->dobj_15__DBGI_OCCMAP.obj_num = 1;
- cdat->dobj_15__DBGI_OCCMAP.obj_hash = 446477517;
+ cdat->dobj_15__DBGI_OCCMAP.obj_hash = 220642159;
  cdat->dobj_15__DBGI_OCCMAP.obj_len = 4;
 
  /*inistring dstr_16__DBGI_OCCMAP*/
@@ -8263,7 +8263,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_19__DBGI_MAXDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
  cdat->dobj_19__DBGI_MAXDEPTH.obj_num = 2;
- cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 223650884;
+ cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 284405942;
  cdat->dobj_19__DBGI_MAXDEPTH.obj_len = 4;
 
  /*inistring dstr_20__DBGI_MAXDEPTH*/
@@ -8290,7 +8290,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
  if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__DEBUG_DEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == OBMAG_OBJECT);
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_23__DEBUG_DEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_23__DEBUG_DEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
- cdat->dobj_23__DEBUG_DEPTH.obj_hash = 763754046;
+ cdat->dobj_23__DEBUG_DEPTH.obj_hash = 444303496;
  cdat->dobj_23__DEBUG_DEPTH.obj_len = 5;
 
  /*inimult dtup_24__DEBUG_DEPTH*/
@@ -8434,7 +8434,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_46", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_46.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_46.obj_num = 0;
- cdat->dobj_46.obj_hash = 1035136004;
+ cdat->dobj_46.obj_hash = 713020390;
  cdat->dobj_46.obj_len = 2;
 
  /*iniobj dsym_47__DBGINFO*/
@@ -8457,7 +8457,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_49.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_49.obj_num = 1;
- cdat->dobj_49.obj_hash = 1003934166;
+ cdat->dobj_49.obj_hash = 670045176;
  cdat->dobj_49.obj_len = 2;
 
  /*iniobj dsym_50__DEPTH*/
@@ -8480,7 +8480,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_52", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_52.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_52.obj_num = 2;
- cdat->dobj_52.obj_hash = 327335219;
+ cdat->dobj_52.obj_hash = 532767125;
  cdat->dobj_52.obj_len = 2;
 
  /*inimult dtup_53__DBG_OUTPUT*/
@@ -8493,7 +8493,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
  if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_54__DBG_OUTPUT", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == OBMAG_OBJECT);
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_54__DBG_OUTPUT", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]))->object_magic == OBMAG_OBJECT);
  cdat->dobj_54__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]);
- cdat->dobj_54__DBG_OUTPUT.obj_hash = 85216847;
+ cdat->dobj_54__DBG_OUTPUT.obj_hash = 927080921;
  cdat->dobj_54__DBG_OUTPUT.obj_len = 4;
 
  /*inistring dstr_55__DBG_OUTPUT*/
@@ -8521,7 +8521,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_58", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_58.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_58.obj_num = 0;
- cdat->dobj_58.obj_hash = 990426815;
+ cdat->dobj_58.obj_hash = 140404593;
  cdat->dobj_58.obj_len = 2;
 
  /*^iniobj*/
@@ -8531,7 +8531,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_59.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_59.obj_num = 1;
- cdat->dobj_59.obj_hash = 290581083;
+ cdat->dobj_59.obj_hash = 489468973;
  cdat->dobj_59.obj_len = 2;
 
  /*^iniobj*/
@@ -8541,7 +8541,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_60", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->object_magic == OBMAG_OBJECT);
  cdat->dobj_60.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
  cdat->dobj_60.obj_num = 2;
- cdat->dobj_60.obj_hash = 496387802;
+ cdat->dobj_60.obj_hash = 639278028;
  cdat->dobj_60.obj_len = 2;
 
  /*inimult dtup_61__DBG_OUTPUTAGAIN*/
@@ -8554,7 +8554,7 @@ static void initialize_module_meltdata(initial_frame_st *iniframp__, char predef
  if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_62__DBG_OUTPUTAGAIN", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == OBMAG_OBJECT);
   if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_62__DBG_OUTPUTAGAIN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]))->object_magic == OBMAG_OBJECT);
  cdat->dobj_62__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]);
- cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 82072483;
+ cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 66146365;
  cdat->dobj_62__DBG_OUTPUTAGAIN.obj_len = 4;
 
  /*inistring dstr_63__DBG_OUTPUTAGAIN*/