From b1ce5513dedbe64e9edef64964c61852db26e1c8 Mon Sep 17 00:00:00 2001 From: bstarynk Date: Fri, 15 Apr 2011 08:37:29 +0000 Subject: 2011-04-15 Basile Starynkevitch * melt/generated/warmelt-macro-0.c: Regenerate. * melt/generated/warmelt-normal-0+01.c: Regenerate. * melt/generated/warmelt-genobj-0.c: Regenerate. * melt/generated/warmelt-normal-0+02.c: Regenerate. * melt/generated/warmelt-normatch-0.c: Regenerate. * melt/generated/warmelt-macro-0+01.c: Regenerate. * melt/generated/warmelt-macro-0+02.c: Regenerate. * melt/generated/warmelt-macro-0+03.c: Regenerate. * melt/generated/warmelt-macro-0+04.c: Regenerate. * melt/generated/warmelt-debug-0.c: Regenerate. * melt/generated/warmelt-normal-0.c: Regenerate. * melt/generated/warmelt-normatch-0+02.c: Regenerate. * melt/generated/warmelt-normatch-0+03.c: Regenerate. * melt/generated/warmelt-normatch-0+04.c: Regenerate. * melt/generated/warmelt-outobj-0.c: Regenerate. * melt/generated/warmelt-base-0.c: Regenerate. * melt/generated/warmelt-genobj-0+01.c: Regenerate. * melt/generated/warmelt-genobj-0+04.c: Regenerate. * melt/generated/warmelt-genobj-0+05.c: Regenerate. * melt/generated/warmelt-first-0.c: Regenerate. * melt/generated/meltrunsup.h: Regenerate. * melt/generated/meltrunsup-inc.c: Regenerate. * melt/generated/gt-melt-runtime-plugin.h: Regenerate. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@172474 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog.MELT | 25 + gcc/melt/generated/gt-melt-runtime-plugin.h | 2 +- gcc/melt/generated/meltrunsup-inc.c | 4 +- gcc/melt/generated/meltrunsup.h | 4 +- gcc/melt/generated/warmelt-base-0.c | 932 +- gcc/melt/generated/warmelt-debug-0.c | 36 +- gcc/melt/generated/warmelt-first-0.c | 1198 +- gcc/melt/generated/warmelt-genobj-0+01.c | 10 +- gcc/melt/generated/warmelt-genobj-0+04.c | 8 +- gcc/melt/generated/warmelt-genobj-0+05.c | 4 +- gcc/melt/generated/warmelt-genobj-0.c | 448 +- gcc/melt/generated/warmelt-macro-0+01.c | 5467 ++- gcc/melt/generated/warmelt-macro-0+02.c | 14281 ++++---- gcc/melt/generated/warmelt-macro-0+03.c | 4116 +-- gcc/melt/generated/warmelt-macro-0+04.c | 1853 +- gcc/melt/generated/warmelt-macro-0.c | 46682 +++++++++++++------------- gcc/melt/generated/warmelt-normal-0+01.c | 2 +- gcc/melt/generated/warmelt-normal-0+02.c | 4 +- gcc/melt/generated/warmelt-normal-0.c | 426 +- gcc/melt/generated/warmelt-normatch-0+02.c | 2 +- gcc/melt/generated/warmelt-normatch-0+03.c | 12 +- gcc/melt/generated/warmelt-normatch-0+04.c | 2 +- gcc/melt/generated/warmelt-normatch-0.c | 394 +- gcc/melt/generated/warmelt-outobj-0.c | 90 +- 24 files changed, 37453 insertions(+), 38549 deletions(-) diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 02799512a13..5953484ba9c 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,4 +1,29 @@ +2011-04-15 Basile Starynkevitch + * melt/generated/warmelt-macro-0.c: Regenerate. + * melt/generated/warmelt-normal-0+01.c: Regenerate. + * melt/generated/warmelt-genobj-0.c: Regenerate. + * melt/generated/warmelt-normal-0+02.c: Regenerate. + * melt/generated/warmelt-normatch-0.c: Regenerate. + * melt/generated/warmelt-macro-0+01.c: Regenerate. + * melt/generated/warmelt-macro-0+02.c: Regenerate. + * melt/generated/warmelt-macro-0+03.c: Regenerate. + * melt/generated/warmelt-macro-0+04.c: Regenerate. + * melt/generated/warmelt-debug-0.c: Regenerate. + * melt/generated/warmelt-normal-0.c: Regenerate. + * melt/generated/warmelt-normatch-0+02.c: Regenerate. + * melt/generated/warmelt-normatch-0+03.c: Regenerate. + * melt/generated/warmelt-normatch-0+04.c: Regenerate. + * melt/generated/warmelt-outobj-0.c: Regenerate. + * melt/generated/warmelt-base-0.c: Regenerate. + * melt/generated/warmelt-genobj-0+01.c: Regenerate. + * melt/generated/warmelt-genobj-0+04.c: Regenerate. + * melt/generated/warmelt-genobj-0+05.c: Regenerate. + * melt/generated/warmelt-first-0.c: Regenerate. + * melt/generated/meltrunsup.h: Regenerate. + * melt/generated/meltrunsup-inc.c: Regenerate. + * melt/generated/gt-melt-runtime-plugin.h: Regenerate. + 2011-04-15 Basile Starynkevitch * melt/warmelt-macro.melt (class_source_variadic_application,class_source_defvariadic): diff --git a/gcc/melt/generated/gt-melt-runtime-plugin.h b/gcc/melt/generated/gt-melt-runtime-plugin.h index 64f048efd49..ce2e7db6b93 100644 --- a/gcc/melt/generated/gt-melt-runtime-plugin.h +++ b/gcc/melt/generated/gt-melt-runtime-plugin.h @@ -7374,7 +7374,7 @@ EXPORTED_CONST struct ggc_root_tab gt_ggc_r_gt_melt_runtime_plugin_h[] = { LAST_GGC_ROOT_TAB }; -/* gt-melt-runtime-plugin.h file generated Fri 15 Apr 2011 10:07:42 AM CEST +/* gt-melt-runtime-plugin.h file generated Fri 15 Apr 2011 10:35:02 AM CEST fff53c592cbad0dc5efbddbadab5bcb6 melt-runtime.h 342e6279bbcb2de20ca1c3c68bb21f07 melt-runtime.c diff --git a/gcc/melt/generated/meltrunsup-inc.c b/gcc/melt/generated/meltrunsup-inc.c index c4e3ea7945b..78da61676ca 100644 --- a/gcc/melt/generated/meltrunsup-inc.c +++ b/gcc/melt/generated/meltrunsup-inc.c @@ -1929,5 +1929,5 @@ end: MELT_EXITFRAME (); /** end of code generated by generate_runtypesupport_boxingfun **/ -/*** End of code file meltrunsup-inc.c generated on 2011 Apr 14 - * by GCC MELT 4.7.0 20110314 (experimental) [melt-branch revision 172412] MELT_0.7rc2+Apr 14 2011 . ***/ +/*** End of code file meltrunsup-inc.c generated on 2011 Apr 15 + * by GCC MELT 4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT_0.7rc2+Apr 15 2011 . ***/ diff --git a/gcc/melt/generated/meltrunsup.h b/gcc/melt/generated/meltrunsup.h index 4bddf82623d..25e58c65f29 100644 --- a/gcc/melt/generated/meltrunsup.h +++ b/gcc/melt/generated/meltrunsup.h @@ -1681,5 +1681,5 @@ static inline melt_ptr_t /* Map nth value for CTYPE_TREE*/ melt_nthval_maptrees /** end of code generated by generate_runtypesupport_mapfun **/ -/*** End of declaration file meltrunsup.h generated on 2011 Apr 14 - * by GCC MELT 4.7.0 20110314 (experimental) [melt-branch revision 172412] MELT_0.7rc2+Apr 14 2011 . ***/ +/*** End of declaration file meltrunsup.h generated on 2011 Apr 15 + * by GCC MELT 4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT_0.7rc2+Apr 15 2011 . ***/ diff --git a/gcc/melt/generated/warmelt-base-0.c b/gcc/melt/generated/warmelt-base-0.c index 315569ad70b..a9f28f26ad4 100644 --- a/gcc/melt/generated/warmelt-base-0.c +++ b/gcc/melt/generated/warmelt-base-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -917,7 +917,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_base iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2757); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2279); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__IGNORE; @@ -3157,7 +3157,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_3__IGNORE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3__IGNORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3__IGNORE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_3__IGNORE.obj_hash = 823830372; + cdat->dobj_3__IGNORE.obj_hash = 491799179; cdat->dobj_3__IGNORE.obj_len = 5; /*inimult dtup_4__IGNORE*/ @@ -3187,7 +3187,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_8", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_8.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_8.obj_num = 0; - cdat->dobj_8.obj_hash = 1031421670; + cdat->dobj_8.obj_hash = 193593266; cdat->dobj_8.obj_len = 2; /*inistring dstr_9__ignore_void_*/ @@ -3220,7 +3220,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_14__VOID", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_14__VOID", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_14__VOID.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_14__VOID.obj_hash = 92270598; + cdat->dobj_14__VOID.obj_hash = 261907486; cdat->dobj_14__VOID.obj_len = 5; /*inimult dtup_15__VOID*/ @@ -3257,7 +3257,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_21__IS_NOT_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__IS_NOT_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_21__IS_NOT_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_21__IS_NOT_OBJECT.obj_hash = 834282464; + cdat->dobj_21__IS_NOT_OBJECT.obj_hash = 568669938; cdat->dobj_21__IS_NOT_OBJECT.obj_len = 5; /*inimult dtup_22__IS_NOT_OBJECT*/ @@ -3287,7 +3287,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_26", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_26.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_26.obj_num = 0; - cdat->dobj_26.obj_hash = 508292460; + cdat->dobj_26.obj_hash = 925192666; cdat->dobj_26.obj_len = 2; /*inistring dstr_27__melt_magic_disc*/ @@ -3320,7 +3320,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_32__GET_GLOBPREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_32__GET_GLOBPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_32__GET_GLOBPREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_32__GET_GLOBPREDEF.obj_hash = 580979395; + cdat->dobj_32__GET_GLOBPREDEF.obj_hash = 611829347; cdat->dobj_32__GET_GLOBPREDEF.obj_len = 5; /*inimult dtup_33__GET_GLOBPREDEF*/ @@ -3350,7 +3350,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_37.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_37.obj_num = 0; - cdat->dobj_37.obj_hash = 732925868; + cdat->dobj_37.obj_hash = 767090125; cdat->dobj_37.obj_len = 2; /*inistring dstr_38__melt_globpredef*/ @@ -3383,7 +3383,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_43__OBJ_HASH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__OBJ_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_43__OBJ_HASH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_43__OBJ_HASH.obj_hash = 587518680; + cdat->dobj_43__OBJ_HASH.obj_hash = 435783632; cdat->dobj_43__OBJ_HASH.obj_len = 5; /*inimult dtup_44__OBJ_HASH*/ @@ -3401,7 +3401,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_46", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_46.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_46.obj_num = 0; - cdat->dobj_46.obj_hash = 740611780; + cdat->dobj_46.obj_hash = 426816407; cdat->dobj_46.obj_len = 2; /*inistring dstr_47__melt_obj_hash_*/ @@ -3434,7 +3434,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_52__OBJ_LEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_52__OBJ_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_52__OBJ_LEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_52__OBJ_LEN.obj_hash = 292277845; + cdat->dobj_52__OBJ_LEN.obj_hash = 1032983262; cdat->dobj_52__OBJ_LEN.obj_len = 5; /*inimult dtup_53__OBJ_LEN*/ @@ -3452,7 +3452,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_55", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_55.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_55.obj_num = 0; - cdat->dobj_55.obj_hash = 210194879; + cdat->dobj_55.obj_hash = 881775807; cdat->dobj_55.obj_len = 2; /*inistring dstr_56__melt_obj_len_m*/ @@ -3485,7 +3485,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_61__OBJ_NUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_61__OBJ_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_61__OBJ_NUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_61__OBJ_NUM.obj_hash = 926563007; + cdat->dobj_61__OBJ_NUM.obj_hash = 268289652; cdat->dobj_61__OBJ_NUM.obj_len = 5; /*inimult dtup_62__OBJ_NUM*/ @@ -3503,7 +3503,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_64", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_64.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_64.obj_num = 0; - cdat->dobj_64.obj_hash = 744808784; + cdat->dobj_64.obj_hash = 1023756193; cdat->dobj_64.obj_len = 2; /*inistring dstr_65__melt_obj_num_m*/ @@ -3536,7 +3536,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_70__NONZERO_HASH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_70__NONZERO_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_70__NONZERO_HASH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_70__NONZERO_HASH.obj_hash = 975262106; + cdat->dobj_70__NONZERO_HASH.obj_hash = 691559456; cdat->dobj_70__NONZERO_HASH.obj_len = 5; /*inimult dtup_71__NONZERO_HASH*/ @@ -3573,7 +3573,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_77__MINOR_GARBCOLL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77__MINOR_GARBCOLL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_77__MINOR_GARBCOLL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_77__MINOR_GARBCOLL.obj_hash = 779549774; + cdat->dobj_77__MINOR_GARBCOLL.obj_hash = 49163076; cdat->dobj_77__MINOR_GARBCOLL.obj_len = 5; /*inimult dtup_78__MINOR_GARBCOLL*/ @@ -3603,7 +3603,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_82", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_82.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_82.obj_num = 0; - cdat->dobj_82.obj_hash = 835007700; + cdat->dobj_82.obj_hash = 749925590; cdat->dobj_82.obj_len = 2; /*inistring dstr_83__melt_garbcoll_*/ @@ -3636,7 +3636,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_88__FULL_GARBCOLL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_88__FULL_GARBCOLL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_88__FULL_GARBCOLL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_88__FULL_GARBCOLL.obj_hash = 253836448; + cdat->dobj_88__FULL_GARBCOLL.obj_hash = 594594300; cdat->dobj_88__FULL_GARBCOLL.obj_len = 5; /*inimult dtup_89__FULL_GARBCOLL*/ @@ -3654,7 +3654,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_91.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_91.obj_num = 0; - cdat->dobj_91.obj_hash = 842082948; + cdat->dobj_91.obj_hash = 619117879; cdat->dobj_91.obj_len = 2; /*inistring dstr_92__melt_garbcoll_*/ @@ -3687,7 +3687,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_97__CHECKCALLSTACK_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__CHECKCALLSTACK_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_97__CHECKCALLSTACK_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_97__CHECKCALLSTACK_MSG.obj_hash = 739789068; + cdat->dobj_97__CHECKCALLSTACK_MSG.obj_hash = 523325361; cdat->dobj_97__CHECKCALLSTACK_MSG.obj_len = 5; /*inimult dtup_98__CHECKCALLSTACK_MSG*/ @@ -3717,7 +3717,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_102", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_102.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_102.obj_num = 0; - cdat->dobj_102.obj_hash = 688514505; + cdat->dobj_102.obj_hash = 817802398; cdat->dobj_102.obj_len = 2; /*inistring dstr_103__melt_check_call_*/ @@ -3750,7 +3750,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_108__CBREAK_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_108__CBREAK_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_108__CBREAK_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_108__CBREAK_MSG.obj_hash = 833715318; + cdat->dobj_108__CBREAK_MSG.obj_hash = 283347758; cdat->dobj_108__CBREAK_MSG.obj_len = 5; /*inimult dtup_109__CBREAK_MSG*/ @@ -3768,7 +3768,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_111.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_111.obj_num = 0; - cdat->dobj_111.obj_hash = 116946875; + cdat->dobj_111.obj_hash = 88798456; cdat->dobj_111.obj_len = 2; /*inistring dstr_112__melt_cbreak_*/ @@ -3801,7 +3801,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_117__C_TIME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_117__C_TIME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_117__C_TIME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_117__C_TIME.obj_hash = 456767004; + cdat->dobj_117__C_TIME.obj_hash = 131714547; cdat->dobj_117__C_TIME.obj_len = 5; /*inimult dtup_118__C_TIME*/ @@ -3838,7 +3838,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_124__C_CLOCK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_124__C_CLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_124__C_CLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_124__C_CLOCK.obj_hash = 874391385; + cdat->dobj_124__C_CLOCK.obj_hash = 1054383307; cdat->dobj_124__C_CLOCK.obj_len = 5; /*inimult dtup_125__C_CLOCK*/ @@ -3875,7 +3875,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_131__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_131__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_131__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_131__I.obj_hash = 175169861; + cdat->dobj_131__I.obj_hash = 637332797; cdat->dobj_131__I.obj_len = 5; /*inimult dtup_132__I*/ @@ -3905,7 +3905,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_136", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_136.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_136.obj_num = 0; - cdat->dobj_136.obj_hash = 396585565; + cdat->dobj_136.obj_hash = 956795246; cdat->dobj_136.obj_len = 2; /*iniobj dsym_137__B*/ @@ -3927,7 +3927,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_139", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_139.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_139.obj_num = 1; - cdat->dobj_139.obj_hash = 971108713; + cdat->dobj_139.obj_hash = 396585565; cdat->dobj_139.obj_len = 2; /*inistring dstr_140__*/ @@ -3964,7 +3964,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_146__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_146__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_146__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_146__I.obj_hash = 497055227; + cdat->dobj_146__I.obj_hash = 48457291; cdat->dobj_146__I.obj_len = 5; /*inimult dtup_147__I*/ @@ -3982,7 +3982,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_149", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_149.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_149.obj_num = 0; - cdat->dobj_149.obj_hash = 973148839; + cdat->dobj_149.obj_hash = 59161720; cdat->dobj_149.obj_len = 2; /*^iniobj*/ @@ -3992,7 +3992,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_150", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_150.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_150.obj_num = 1; - cdat->dobj_150.obj_hash = 1029927406; + cdat->dobj_150.obj_hash = 925002384; cdat->dobj_150.obj_len = 2; /*inistring dstr_151__*/ @@ -4029,7 +4029,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_157__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_157__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_157__I.obj_hash = 331173862; + cdat->dobj_157__I.obj_hash = 1060734689; cdat->dobj_157__I.obj_len = 5; /*inimult dtup_158__I*/ @@ -4047,7 +4047,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_160", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_160.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_160.obj_num = 0; - cdat->dobj_160.obj_hash = 680686253; + cdat->dobj_160.obj_hash = 742680016; cdat->dobj_160.obj_len = 2; /*^iniobj*/ @@ -4057,7 +4057,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_161", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_161.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_161.obj_num = 1; - cdat->dobj_161.obj_hash = 823666728; + cdat->dobj_161.obj_hash = 412245335; cdat->dobj_161.obj_len = 2; /*inistring dstr_162__*/ @@ -4094,7 +4094,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_168__MAXI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_168__MAXI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_168__MAXI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_168__MAXI.obj_hash = 296325304; + cdat->dobj_168__MAXI.obj_hash = 535545956; cdat->dobj_168__MAXI.obj_len = 5; /*inimult dtup_169__MAXI*/ @@ -4112,7 +4112,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_171", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_171.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_171.obj_num = 0; - cdat->dobj_171.obj_hash = 224875722; + cdat->dobj_171.obj_hash = 448422855; cdat->dobj_171.obj_len = 2; /*^iniobj*/ @@ -4122,7 +4122,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_172", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_172.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_172.obj_num = 1; - cdat->dobj_172.obj_hash = 917211541; + cdat->dobj_172.obj_hash = 577354276; cdat->dobj_172.obj_len = 2; /*inistring dstr_173__MAX_*/ @@ -4159,7 +4159,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_179__MINI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__MINI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_179__MINI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_179__MINI.obj_hash = 470916212; + cdat->dobj_179__MINI.obj_hash = 762284807; cdat->dobj_179__MINI.obj_len = 5; /*inimult dtup_180__MINI*/ @@ -4177,7 +4177,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_182", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_182.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_182.obj_num = 0; - cdat->dobj_182.obj_hash = 577513408; + cdat->dobj_182.obj_hash = 237204937; cdat->dobj_182.obj_len = 2; /*^iniobj*/ @@ -4187,7 +4187,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_183.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_183.obj_num = 1; - cdat->dobj_183.obj_hash = 651158901; + cdat->dobj_183.obj_hash = 114890601; cdat->dobj_183.obj_len = 2; /*inistring dstr_184__MIN_*/ @@ -4224,7 +4224,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_190__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_190__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_190__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_190__I.obj_hash = 733660667; + cdat->dobj_190__I.obj_hash = 248783879; cdat->dobj_190__I.obj_len = 5; /*inimult dtup_191__I*/ @@ -4242,7 +4242,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_193", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_193.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_193.obj_num = 0; - cdat->dobj_193.obj_hash = 692637325; + cdat->dobj_193.obj_hash = 377426527; cdat->dobj_193.obj_len = 2; /*^iniobj*/ @@ -4252,7 +4252,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_194", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_194.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_194.obj_num = 1; - cdat->dobj_194.obj_hash = 693817607; + cdat->dobj_194.obj_hash = 309421616; cdat->dobj_194.obj_len = 2; /*inistring dstr_195__*/ @@ -4289,7 +4289,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_201__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_201__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_201__I.obj_hash = 533567911; + cdat->dobj_201__I.obj_hash = 220889988; cdat->dobj_201__I.obj_len = 5; /*inimult dtup_202__I*/ @@ -4307,7 +4307,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_204", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_204.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_204.obj_num = 0; - cdat->dobj_204.obj_hash = 152086366; + cdat->dobj_204.obj_hash = 643561046; cdat->dobj_204.obj_len = 2; /*^iniobj*/ @@ -4317,7 +4317,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_205", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_205.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_205.obj_num = 1; - cdat->dobj_205.obj_hash = 326102873; + cdat->dobj_205.obj_hash = 60917297; cdat->dobj_205.obj_len = 2; /*inistring dstr_206__*/ @@ -4354,7 +4354,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_212__ANDI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_212__ANDI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_212__ANDI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_212__ANDI.obj_hash = 315039099; + cdat->dobj_212__ANDI.obj_hash = 1036336117; cdat->dobj_212__ANDI.obj_len = 5; /*inimult dtup_213__ANDI*/ @@ -4372,7 +4372,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_215", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_215.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_215.obj_num = 0; - cdat->dobj_215.obj_hash = 286342806; + cdat->dobj_215.obj_hash = 446462997; cdat->dobj_215.obj_len = 2; /*^iniobj*/ @@ -4382,7 +4382,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_216", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_216.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_216.obj_num = 1; - cdat->dobj_216.obj_hash = 336922422; + cdat->dobj_216.obj_hash = 781059066; cdat->dobj_216.obj_len = 2; /*inistring dstr_217__*/ @@ -4419,7 +4419,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_223__ORI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__ORI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_223__ORI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_223__ORI.obj_hash = 137968892; + cdat->dobj_223__ORI.obj_hash = 54550847; cdat->dobj_223__ORI.obj_len = 5; /*inimult dtup_224__ORI*/ @@ -4437,7 +4437,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_226", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_226.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_226.obj_num = 0; - cdat->dobj_226.obj_hash = 1073396739; + cdat->dobj_226.obj_hash = 605292805; cdat->dobj_226.obj_len = 2; /*^iniobj*/ @@ -4447,7 +4447,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_227.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_227.obj_num = 1; - cdat->dobj_227.obj_hash = 340612401; + cdat->dobj_227.obj_hash = 487141183; cdat->dobj_227.obj_len = 2; /*inistring dstr_228__*/ @@ -4484,7 +4484,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_234__XORI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_234__XORI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_234__XORI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_234__XORI.obj_hash = 237909671; + cdat->dobj_234__XORI.obj_hash = 43537769; cdat->dobj_234__XORI.obj_len = 5; /*inimult dtup_235__XORI*/ @@ -4502,7 +4502,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_237", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_237.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_237.obj_num = 0; - cdat->dobj_237.obj_hash = 869742634; + cdat->dobj_237.obj_hash = 326303522; cdat->dobj_237.obj_len = 2; /*^iniobj*/ @@ -4512,7 +4512,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_238", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_238.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_238.obj_num = 1; - cdat->dobj_238.obj_hash = 446048215; + cdat->dobj_238.obj_hash = 776591176; cdat->dobj_238.obj_len = 2; /*inistring dstr_239__*/ @@ -4549,7 +4549,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_245__NEGI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__NEGI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_245__NEGI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_245__NEGI.obj_hash = 226787592; + cdat->dobj_245__NEGI.obj_hash = 100940023; cdat->dobj_245__NEGI.obj_len = 5; /*inimult dtup_246__NEGI*/ @@ -4579,7 +4579,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_250", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_250.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_250.obj_num = 0; - cdat->dobj_250.obj_hash = 699287472; + cdat->dobj_250.obj_hash = 435863719; cdat->dobj_250.obj_len = 2; /*inistring dstr_251__*/ @@ -4612,7 +4612,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_256__NOTI", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_256__NOTI", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_256__NOTI.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_256__NOTI.obj_hash = 174823191; + cdat->dobj_256__NOTI.obj_hash = 776304783; cdat->dobj_256__NOTI.obj_len = 5; /*inimult dtup_257__NOTI*/ @@ -4630,7 +4630,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_259", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_259.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_259.obj_num = 0; - cdat->dobj_259.obj_hash = 810922312; + cdat->dobj_259.obj_hash = 794778869; cdat->dobj_259.obj_len = 2; /*inistring dstr_260__*/ @@ -4663,7 +4663,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_265__NOTNULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_265__NOTNULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_265__NOTNULL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_265__NOTNULL.obj_hash = 500069383; + cdat->dobj_265__NOTNULL.obj_hash = 840688860; cdat->dobj_265__NOTNULL.obj_len = 5; /*inimult dtup_266__NOTNULL*/ @@ -4681,7 +4681,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_268", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_268.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_268.obj_num = 0; - cdat->dobj_268.obj_hash = 565007631; + cdat->dobj_268.obj_hash = 1060686441; cdat->dobj_268.obj_len = 2; /*inistring dstr_269__*/ @@ -4714,7 +4714,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_274__ZEROP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_274__ZEROP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_274__ZEROP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_274__ZEROP.obj_hash = 337910575; + cdat->dobj_274__ZEROP.obj_hash = 384475186; cdat->dobj_274__ZEROP.obj_len = 5; /*inimult dtup_275__ZEROP*/ @@ -4732,7 +4732,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_277", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_277.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_277.obj_num = 0; - cdat->dobj_277.obj_hash = 752555734; + cdat->dobj_277.obj_hash = 445023048; cdat->dobj_277.obj_len = 2; /*inistring dstr_278__*/ @@ -4765,7 +4765,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_283__OUTCSTRING_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_283__OUTCSTRING_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_283__OUTCSTRING_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_283__OUTCSTRING_DBG.obj_hash = 719738682; + cdat->dobj_283__OUTCSTRING_DBG.obj_hash = 112051952; cdat->dobj_283__OUTCSTRING_DBG.obj_len = 5; /*inimult dtup_284__OUTCSTRING_DBG*/ @@ -4795,7 +4795,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_288", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_288.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_288.obj_num = 0; - cdat->dobj_288.obj_hash = 919799695; + cdat->dobj_288.obj_hash = 570946227; cdat->dobj_288.obj_len = 2; /*inistring dstr_289__melt_puts_dump_f*/ @@ -4828,7 +4828,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_294__OUTNUM_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_294__OUTNUM_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_294__OUTNUM_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_294__OUTNUM_DBG.obj_hash = 83874247; + cdat->dobj_294__OUTNUM_DBG.obj_hash = 573643134; cdat->dobj_294__OUTNUM_DBG.obj_len = 5; /*inimult dtup_295__OUTNUM_DBG*/ @@ -4858,7 +4858,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_299.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_299.obj_num = 0; - cdat->dobj_299.obj_hash = 1063313765; + cdat->dobj_299.obj_hash = 814135076; cdat->dobj_299.obj_len = 2; /*iniobj dsym_300__L*/ @@ -4880,7 +4880,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_302", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_302.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_302.obj_num = 1; - cdat->dobj_302.obj_hash = 114103078; + cdat->dobj_302.obj_hash = 1063313765; cdat->dobj_302.obj_len = 2; /*iniobj dsym_303__SUF*/ @@ -4902,7 +4902,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_305.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_305.obj_num = 2; - cdat->dobj_305.obj_hash = 192440616; + cdat->dobj_305.obj_hash = 114103078; cdat->dobj_305.obj_len = 2; /*inistring dstr_306__melt_putnum_dump*/ @@ -4943,7 +4943,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_313__OUTSTR_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__OUTSTR_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_313__OUTSTR_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_313__OUTSTR_DBG.obj_hash = 767318448; + cdat->dobj_313__OUTSTR_DBG.obj_hash = 46339441; cdat->dobj_313__OUTSTR_DBG.obj_len = 5; /*inimult dtup_314__OUTSTR_DBG*/ @@ -4973,7 +4973,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_318", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_318.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_318.obj_num = 0; - cdat->dobj_318.obj_hash = 448045664; + cdat->dobj_318.obj_hash = 52998686; cdat->dobj_318.obj_len = 2; /*inistring dstr_319__melt_putstr_dump*/ @@ -5006,7 +5006,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_324__OUTSTRBUF_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_324__OUTSTRBUF_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_324__OUTSTRBUF_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_324__OUTSTRBUF_DBG.obj_hash = 402612663; + cdat->dobj_324__OUTSTRBUF_DBG.obj_hash = 448043716; cdat->dobj_324__OUTSTRBUF_DBG.obj_len = 5; /*inimult dtup_325__OUTSTRBUF_DBG*/ @@ -5036,7 +5036,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_329", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_329.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_329.obj_num = 0; - cdat->dobj_329.obj_hash = 170606801; + cdat->dobj_329.obj_hash = 542764321; cdat->dobj_329.obj_len = 2; /*inistring dstr_330__melt_putstrbuf_d*/ @@ -5069,7 +5069,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_335__OUTNEWLINE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_335__OUTNEWLINE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_335__OUTNEWLINE_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_335__OUTNEWLINE_DBG.obj_hash = 324463504; + cdat->dobj_335__OUTNEWLINE_DBG.obj_hash = 965114791; cdat->dobj_335__OUTNEWLINE_DBG.obj_len = 5; /*inimult dtup_336__OUTNEWLINE_DBG*/ @@ -5106,7 +5106,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_342__OUTNUM_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_342__OUTNUM_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_342__OUTNUM_ERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_342__OUTNUM_ERR.obj_hash = 418439415; + cdat->dobj_342__OUTNUM_ERR.obj_hash = 129722546; cdat->dobj_342__OUTNUM_ERR.obj_len = 5; /*inimult dtup_343__OUTNUM_ERR*/ @@ -5124,7 +5124,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_345.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_345.obj_num = 0; - cdat->dobj_345.obj_hash = 30722470; + cdat->dobj_345.obj_hash = 723479893; cdat->dobj_345.obj_len = 2; /*^iniobj*/ @@ -5134,7 +5134,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_346", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_346.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_346.obj_num = 1; - cdat->dobj_346.obj_hash = 409105621; + cdat->dobj_346.obj_hash = 534879110; cdat->dobj_346.obj_len = 2; /*^iniobj*/ @@ -5144,7 +5144,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_347", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_347.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_347.obj_num = 2; - cdat->dobj_347.obj_hash = 999039545; + cdat->dobj_347.obj_hash = 30722470; cdat->dobj_347.obj_len = 2; /*inistring dstr_348__melt_putnum_stde*/ @@ -5185,7 +5185,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_355__OUTCSTRING_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355__OUTCSTRING_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_355__OUTCSTRING_ERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_355__OUTCSTRING_ERR.obj_hash = 290484748; + cdat->dobj_355__OUTCSTRING_ERR.obj_hash = 638251659; cdat->dobj_355__OUTCSTRING_ERR.obj_len = 5; /*inimult dtup_356__OUTCSTRING_ERR*/ @@ -5203,7 +5203,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_358", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_358.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_358.obj_num = 0; - cdat->dobj_358.obj_hash = 961012999; + cdat->dobj_358.obj_hash = 103433851; cdat->dobj_358.obj_len = 2; /*inistring dstr_359__melt_puts_stderr*/ @@ -5236,7 +5236,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_364__OUTSTRBUF_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_364__OUTSTRBUF_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_364__OUTSTRBUF_ERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_364__OUTSTRBUF_ERR.obj_hash = 532671216; + cdat->dobj_364__OUTSTRBUF_ERR.obj_hash = 351491633; cdat->dobj_364__OUTSTRBUF_ERR.obj_len = 5; /*inimult dtup_365__OUTSTRBUF_ERR*/ @@ -5254,7 +5254,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_367.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_367.obj_num = 0; - cdat->dobj_367.obj_hash = 251004598; + cdat->dobj_367.obj_hash = 21165913; cdat->dobj_367.obj_len = 2; /*inistring dstr_368__melt_putstrbuf_s*/ @@ -5287,7 +5287,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_373__PAIR_SET_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__PAIR_SET_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_373__PAIR_SET_HEAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_373__PAIR_SET_HEAD.obj_hash = 402915785; + cdat->dobj_373__PAIR_SET_HEAD.obj_hash = 73730299; cdat->dobj_373__PAIR_SET_HEAD.obj_len = 5; /*inimult dtup_374__PAIR_SET_HEAD*/ @@ -5317,7 +5317,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_378", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_378.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_378.obj_num = 0; - cdat->dobj_378.obj_hash = 266381939; + cdat->dobj_378.obj_hash = 1037710146; cdat->dobj_378.obj_len = 2; /*iniobj dsym_379__HD*/ @@ -5339,7 +5339,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_381.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_381.obj_num = 1; - cdat->dobj_381.obj_hash = 1030299151; + cdat->dobj_381.obj_hash = 266381939; cdat->dobj_381.obj_len = 2; /*inistring dstr_382__meltgc_pair_set_*/ @@ -5376,7 +5376,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_388__PAIR_LISTLENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_388__PAIR_LISTLENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_388__PAIR_LISTLENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_388__PAIR_LISTLENGTH.obj_hash = 543759246; + cdat->dobj_388__PAIR_LISTLENGTH.obj_hash = 646977023; cdat->dobj_388__PAIR_LISTLENGTH.obj_len = 5; /*inimult dtup_389__PAIR_LISTLENGTH*/ @@ -5394,7 +5394,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_391.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_391.obj_num = 0; - cdat->dobj_391.obj_hash = 233704989; + cdat->dobj_391.obj_hash = 94832986; cdat->dobj_391.obj_len = 2; /*inistring dstr_392__melt_pair_listl*/ @@ -5427,7 +5427,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_397__MAKE_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_397__MAKE_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_397__MAKE_PAIR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_397__MAKE_PAIR.obj_hash = 413507532; + cdat->dobj_397__MAKE_PAIR.obj_hash = 829302442; cdat->dobj_397__MAKE_PAIR.obj_len = 5; /*inimult dtup_398__MAKE_PAIR*/ @@ -5457,7 +5457,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_402", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_402.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_402.obj_num = 0; - cdat->dobj_402.obj_hash = 846582711; + cdat->dobj_402.obj_hash = 333676882; cdat->dobj_402.obj_len = 2; /*^iniobj*/ @@ -5467,7 +5467,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_403", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_403.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_403.obj_num = 1; - cdat->dobj_403.obj_hash = 157351770; + cdat->dobj_403.obj_hash = 846582711; cdat->dobj_403.obj_len = 2; /*iniobj dsym_404__TL*/ @@ -5489,7 +5489,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_406", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_406.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_406.obj_num = 2; - cdat->dobj_406.obj_hash = 369347602; + cdat->dobj_406.obj_hash = 1022171446; cdat->dobj_406.obj_len = 2; /*inistring dstr_407__meltgc_new_pair*/ @@ -5530,7 +5530,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_414__IS_MIXINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_414__IS_MIXINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_414__IS_MIXINT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_414__IS_MIXINT.obj_hash = 724689312; + cdat->dobj_414__IS_MIXINT.obj_hash = 410224845; cdat->dobj_414__IS_MIXINT.obj_len = 5; /*inimult dtup_415__IS_MIXINT*/ @@ -5560,7 +5560,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_419.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_419.obj_num = 0; - cdat->dobj_419.obj_hash = 301125935; + cdat->dobj_419.obj_hash = 319070781; cdat->dobj_419.obj_len = 2; /*inistring dstr_420__melt_magic_disc*/ @@ -5593,7 +5593,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_425__MIXINT_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_425__MIXINT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_425__MIXINT_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_425__MIXINT_VAL.obj_hash = 554388972; + cdat->dobj_425__MIXINT_VAL.obj_hash = 31208595; cdat->dobj_425__MIXINT_VAL.obj_len = 5; /*inimult dtup_426__MIXINT_VAL*/ @@ -5611,7 +5611,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_428", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_428.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_428.obj_num = 0; - cdat->dobj_428.obj_hash = 997333497; + cdat->dobj_428.obj_hash = 150426933; cdat->dobj_428.obj_len = 2; /*inistring dstr_429__melt_val_mixint*/ @@ -5644,7 +5644,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_434__MAKE_MIXINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_434__MAKE_MIXINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_434__MAKE_MIXINT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_434__MAKE_MIXINT.obj_hash = 580230350; + cdat->dobj_434__MAKE_MIXINT.obj_hash = 750818712; cdat->dobj_434__MAKE_MIXINT.obj_len = 5; /*inimult dtup_435__MAKE_MIXINT*/ @@ -5674,7 +5674,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_439", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_439.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_439.obj_num = 0; - cdat->dobj_439.obj_hash = 135027796; + cdat->dobj_439.obj_hash = 348440238; cdat->dobj_439.obj_len = 2; /*iniobj dsym_440__VAL*/ @@ -5696,7 +5696,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_442", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_442.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_442.obj_num = 1; - cdat->dobj_442.obj_hash = 162505511; + cdat->dobj_442.obj_hash = 135027796; cdat->dobj_442.obj_len = 2; /*iniobj dsym_443__NUM*/ @@ -5718,7 +5718,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_445", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_445.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_445.obj_num = 2; - cdat->dobj_445.obj_hash = 846596620; + cdat->dobj_445.obj_hash = 162505511; cdat->dobj_445.obj_len = 2; /*inistring dstr_446__meltgc_new_mixi*/ @@ -5759,7 +5759,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_453__IS_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_453__IS_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_453__IS_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_453__IS_MIXLOC.obj_hash = 947069725; + cdat->dobj_453__IS_MIXLOC.obj_hash = 819111846; cdat->dobj_453__IS_MIXLOC.obj_len = 5; /*inimult dtup_454__IS_MIXLOC*/ @@ -5777,7 +5777,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_456", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_456.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_456.obj_num = 0; - cdat->dobj_456.obj_hash = 332729564; + cdat->dobj_456.obj_hash = 248290718; cdat->dobj_456.obj_len = 2; /*inistring dstr_457__melt_magic_disc*/ @@ -5810,7 +5810,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_462__MIXLOC_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_462__MIXLOC_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_462__MIXLOC_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_462__MIXLOC_VAL.obj_hash = 642952711; + cdat->dobj_462__MIXLOC_VAL.obj_hash = 718382301; cdat->dobj_462__MIXLOC_VAL.obj_len = 5; /*inimult dtup_463__MIXLOC_VAL*/ @@ -5828,7 +5828,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_465.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_465.obj_num = 0; - cdat->dobj_465.obj_hash = 27086253; + cdat->dobj_465.obj_hash = 990136859; cdat->dobj_465.obj_len = 2; /*inistring dstr_466__melt_val_mixloc*/ @@ -5861,7 +5861,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_471__MIXLOC_LOCATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__MIXLOC_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_471__MIXLOC_LOCATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_471__MIXLOC_LOCATION.obj_hash = 67004738; + cdat->dobj_471__MIXLOC_LOCATION.obj_hash = 501013091; cdat->dobj_471__MIXLOC_LOCATION.obj_len = 5; /*inimult dtup_472__MIXLOC_LOCATION*/ @@ -5879,7 +5879,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_474", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_474.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_474.obj_num = 0; - cdat->dobj_474.obj_hash = 214081261; + cdat->dobj_474.obj_hash = 259503401; cdat->dobj_474.obj_len = 2; /*inistring dstr_475__long_melt_loc*/ @@ -5912,7 +5912,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_480__MIXLOC_LOCLINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_480__MIXLOC_LOCLINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_480__MIXLOC_LOCLINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_480__MIXLOC_LOCLINE.obj_hash = 544405351; + cdat->dobj_480__MIXLOC_LOCLINE.obj_hash = 549217056; cdat->dobj_480__MIXLOC_LOCLINE.obj_len = 5; /*inimult dtup_481__MIXLOC_LOCLINE*/ @@ -5930,7 +5930,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_483.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_483.obj_num = 0; - cdat->dobj_483.obj_hash = 329553467; + cdat->dobj_483.obj_hash = 558137050; cdat->dobj_483.obj_len = 2; /*inistring dstr_484__LOCATION_LINE_m*/ @@ -5963,7 +5963,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_489__MIXLOC_LOCFILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_489__MIXLOC_LOCFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_489__MIXLOC_LOCFILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_489__MIXLOC_LOCFILE.obj_hash = 941333929; + cdat->dobj_489__MIXLOC_LOCFILE.obj_hash = 403860172; cdat->dobj_489__MIXLOC_LOCFILE.obj_len = 5; /*inimult dtup_490__MIXLOC_LOCFILE*/ @@ -5981,7 +5981,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_492", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_492.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_492.obj_num = 0; - cdat->dobj_492.obj_hash = 831351834; + cdat->dobj_492.obj_hash = 955123611; cdat->dobj_492.obj_len = 2; /*inistring dstr_493__LOCATION_FILE_m*/ @@ -6014,7 +6014,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_498__MAKE_STRING_MIXLOC_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_498__MAKE_STRING_MIXLOC_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_498__MAKE_STRING_MIXLOC_FILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_498__MAKE_STRING_MIXLOC_FILE.obj_hash = 611948962; + cdat->dobj_498__MAKE_STRING_MIXLOC_FILE.obj_hash = 1047208838; cdat->dobj_498__MAKE_STRING_MIXLOC_FILE.obj_len = 5; /*inimult dtup_499__MAKE_STRING_MIXLOC_FILE*/ @@ -6032,7 +6032,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_501.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_501.obj_num = 0; - cdat->dobj_501.obj_hash = 329861290; + cdat->dobj_501.obj_hash = 281262483; cdat->dobj_501.obj_len = 2; /*^iniobj*/ @@ -6042,7 +6042,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_502", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_502.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_502.obj_num = 1; - cdat->dobj_502.obj_hash = 1002023903; + cdat->dobj_502.obj_hash = 654088010; cdat->dobj_502.obj_len = 2; /*inistring dstr_503__meltgc_new_stri*/ @@ -6079,7 +6079,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_509__MAKE_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_509__MAKE_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_509__MAKE_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_509__MAKE_MIXLOC.obj_hash = 655172119; + cdat->dobj_509__MAKE_MIXLOC.obj_hash = 1033786323; cdat->dobj_509__MAKE_MIXLOC.obj_len = 5; /*inimult dtup_510__MAKE_MIXLOC*/ @@ -6097,7 +6097,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_512", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_512.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_512.obj_num = 0; - cdat->dobj_512.obj_hash = 420759033; + cdat->dobj_512.obj_hash = 634941985; cdat->dobj_512.obj_len = 2; /*^iniobj*/ @@ -6107,7 +6107,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_513", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_513.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_513.obj_num = 1; - cdat->dobj_513.obj_hash = 762053023; + cdat->dobj_513.obj_hash = 302495086; cdat->dobj_513.obj_len = 2; /*^iniobj*/ @@ -6117,7 +6117,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_514", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_514.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_514.obj_num = 2; - cdat->dobj_514.obj_hash = 133321118; + cdat->dobj_514.obj_hash = 420759033; cdat->dobj_514.obj_len = 2; /*iniobj dsym_515__LOC*/ @@ -6139,7 +6139,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_517", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_517.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_517.obj_num = 3; - cdat->dobj_517.obj_hash = 681798535; + cdat->dobj_517.obj_hash = 762053023; cdat->dobj_517.obj_len = 2; /*inistring dstr_518__meltgc_new_mixl*/ @@ -6184,7 +6184,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_526__IS_MIXBIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_526__IS_MIXBIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_526__IS_MIXBIGINT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_526__IS_MIXBIGINT.obj_hash = 546365283; + cdat->dobj_526__IS_MIXBIGINT.obj_hash = 342294545; cdat->dobj_526__IS_MIXBIGINT.obj_len = 5; /*inimult dtup_527__IS_MIXBIGINT*/ @@ -6214,7 +6214,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_531", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_531.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_531.obj_num = 0; - cdat->dobj_531.obj_hash = 76500552; + cdat->dobj_531.obj_hash = 321057257; cdat->dobj_531.obj_len = 2; /*inistring dstr_532__melt_magic_disc*/ @@ -6247,7 +6247,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_537__MIXBIGINT_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__MIXBIGINT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_537__MIXBIGINT_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_537__MIXBIGINT_VAL.obj_hash = 784170091; + cdat->dobj_537__MIXBIGINT_VAL.obj_hash = 701936129; cdat->dobj_537__MIXBIGINT_VAL.obj_len = 5; /*inimult dtup_538__MIXBIGINT_VAL*/ @@ -6265,7 +6265,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_540", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_540.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_540.obj_num = 0; - cdat->dobj_540.obj_hash = 798939011; + cdat->dobj_540.obj_hash = 360504662; cdat->dobj_540.obj_len = 2; /*inistring dstr_541__melt_val_mixbigi*/ @@ -6298,7 +6298,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_546__PPSTRBUF_MIXBIGINT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_546__PPSTRBUF_MIXBIGINT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_546__PPSTRBUF_MIXBIGINT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_546__PPSTRBUF_MIXBIGINT.obj_hash = 992082560; + cdat->dobj_546__PPSTRBUF_MIXBIGINT.obj_hash = 121782277; cdat->dobj_546__PPSTRBUF_MIXBIGINT.obj_len = 5; /*inimult dtup_547__PPSTRBUF_MIXBIGINT*/ @@ -6316,7 +6316,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_549.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_549.obj_num = 0; - cdat->dobj_549.obj_hash = 99615555; + cdat->dobj_549.obj_hash = 337655231; cdat->dobj_549.obj_len = 2; /*iniobj dsym_550__INDENT*/ @@ -6338,7 +6338,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_552", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_552.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_552.obj_num = 1; - cdat->dobj_552.obj_hash = 825142998; + cdat->dobj_552.obj_hash = 661760497; cdat->dobj_552.obj_len = 2; /*^iniobj*/ @@ -6348,7 +6348,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_553.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_553.obj_num = 2; - cdat->dobj_553.obj_hash = 950995151; + cdat->dobj_553.obj_hash = 825142998; cdat->dobj_553.obj_len = 2; /*inistring dstr_554__meltgc_ppstrbuf_*/ @@ -6389,7 +6389,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_561__READ_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__READ_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_561__READ_FILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_561__READ_FILE.obj_hash = 434259618; + cdat->dobj_561__READ_FILE.obj_hash = 1004679979; cdat->dobj_561__READ_FILE.obj_len = 5; /*inimult dtup_562__READ_FILE*/ @@ -6419,7 +6419,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_566", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_566.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_566.obj_num = 0; - cdat->dobj_566.obj_hash = 695240060; + cdat->dobj_566.obj_hash = 97890472; cdat->dobj_566.obj_len = 2; /*inistring dstr_567__meltgc_read_fil*/ @@ -6452,7 +6452,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_572__ERROR_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_572__ERROR_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_572__ERROR_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_572__ERROR_STRV.obj_hash = 880050665; + cdat->dobj_572__ERROR_STRV.obj_hash = 113555720; cdat->dobj_572__ERROR_STRV.obj_len = 5; /*inimult dtup_573__ERROR_STRV*/ @@ -6470,7 +6470,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_575", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_575.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_575.obj_num = 0; - cdat->dobj_575.obj_hash = 41153543; + cdat->dobj_575.obj_hash = 1031809773; cdat->dobj_575.obj_len = 2; /*iniobj dsym_576__CMSG*/ @@ -6492,7 +6492,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_578", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_578.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_578.obj_num = 1; - cdat->dobj_578.obj_hash = 554761107; + cdat->dobj_578.obj_hash = 1013621158; cdat->dobj_578.obj_len = 2; /*iniobj dsym_579__STRV*/ @@ -6514,7 +6514,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_581.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_581.obj_num = 2; - cdat->dobj_581.obj_hash = 896253540; + cdat->dobj_581.obj_hash = 554761107; cdat->dobj_581.obj_len = 2; /*inistring dstr_582__melt_error_str_*/ @@ -6555,7 +6555,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_589__ERROR_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_589__ERROR_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_589__ERROR_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_589__ERROR_PLAIN.obj_hash = 993345192; + cdat->dobj_589__ERROR_PLAIN.obj_hash = 187393247; cdat->dobj_589__ERROR_PLAIN.obj_len = 5; /*inimult dtup_590__ERROR_PLAIN*/ @@ -6573,7 +6573,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_592", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_592.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_592.obj_num = 0; - cdat->dobj_592.obj_hash = 84451843; + cdat->dobj_592.obj_hash = 221842945; cdat->dobj_592.obj_len = 2; /*^iniobj*/ @@ -6583,7 +6583,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_593", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_593.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_593.obj_num = 1; - cdat->dobj_593.obj_hash = 1036471997; + cdat->dobj_593.obj_hash = 754345421; cdat->dobj_593.obj_len = 2; /*inistring dstr_594__melt_error_str_*/ @@ -6620,7 +6620,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_600__WARNING_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_600__WARNING_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_600__WARNING_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_600__WARNING_STRV.obj_hash = 633409167; + cdat->dobj_600__WARNING_STRV.obj_hash = 710038470; cdat->dobj_600__WARNING_STRV.obj_len = 5; /*inimult dtup_601__WARNING_STRV*/ @@ -6638,7 +6638,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_603", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_603.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_603.obj_num = 0; - cdat->dobj_603.obj_hash = 864375532; + cdat->dobj_603.obj_hash = 1056294889; cdat->dobj_603.obj_len = 2; /*^iniobj*/ @@ -6648,7 +6648,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_604", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_604.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_604.obj_num = 1; - cdat->dobj_604.obj_hash = 223958137; + cdat->dobj_604.obj_hash = 888441067; cdat->dobj_604.obj_len = 2; /*^iniobj*/ @@ -6658,7 +6658,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_605.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_605.obj_num = 2; - cdat->dobj_605.obj_hash = 655302947; + cdat->dobj_605.obj_hash = 864375532; cdat->dobj_605.obj_len = 2; /*inistring dstr_606__melt_warning_str*/ @@ -6699,7 +6699,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_613__WARNING_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__WARNING_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_613__WARNING_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_613__WARNING_PLAIN.obj_hash = 377977240; + cdat->dobj_613__WARNING_PLAIN.obj_hash = 477193183; cdat->dobj_613__WARNING_PLAIN.obj_len = 5; /*inimult dtup_614__WARNING_PLAIN*/ @@ -6717,7 +6717,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_616", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_616.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_616.obj_num = 0; - cdat->dobj_616.obj_hash = 193345910; + cdat->dobj_616.obj_hash = 161277390; cdat->dobj_616.obj_len = 2; /*^iniobj*/ @@ -6727,7 +6727,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_617", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_617.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_617.obj_num = 1; - cdat->dobj_617.obj_hash = 465572929; + cdat->dobj_617.obj_hash = 868903740; cdat->dobj_617.obj_len = 2; /*inistring dstr_618__melt_warning_str*/ @@ -6764,7 +6764,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_624__WARNINGMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_624__WARNINGMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_624__WARNINGMSG_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_624__WARNINGMSG_PLAIN.obj_hash = 858620676; + cdat->dobj_624__WARNINGMSG_PLAIN.obj_hash = 143194852; cdat->dobj_624__WARNINGMSG_PLAIN.obj_len = 5; /*inimult dtup_625__WARNINGMSG_PLAIN*/ @@ -6782,7 +6782,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_627", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_627.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_627.obj_num = 0; - cdat->dobj_627.obj_hash = 557054874; + cdat->dobj_627.obj_hash = 868517074; cdat->dobj_627.obj_len = 2; /*inistring dstr_628__warning_0_MELT*/ @@ -6815,7 +6815,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_633__ERRORMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__ERRORMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_633__ERRORMSG_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_633__ERRORMSG_PLAIN.obj_hash = 1034086666; + cdat->dobj_633__ERRORMSG_PLAIN.obj_hash = 1023988414; cdat->dobj_633__ERRORMSG_PLAIN.obj_len = 5; /*inimult dtup_634__ERRORMSG_PLAIN*/ @@ -6833,7 +6833,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_636", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_636.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_636.obj_num = 0; - cdat->dobj_636.obj_hash = 64824119; + cdat->dobj_636.obj_hash = 1014236013; cdat->dobj_636.obj_len = 2; /*inistring dstr_637__error_MELT_ERR*/ @@ -6866,7 +6866,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_642__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_642__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_642__WARNINGMSG_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_642__WARNINGMSG_STRV.obj_hash = 926286419; + cdat->dobj_642__WARNINGMSG_STRV.obj_hash = 5562273; cdat->dobj_642__WARNINGMSG_STRV.obj_len = 5; /*inimult dtup_643__WARNINGMSG_STRV*/ @@ -6884,7 +6884,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_645", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_645.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_645.obj_num = 0; - cdat->dobj_645.obj_hash = 958121768; + cdat->dobj_645.obj_hash = 752153511; cdat->dobj_645.obj_len = 2; /*^iniobj*/ @@ -6894,7 +6894,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_646", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_646.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_646.obj_num = 1; - cdat->dobj_646.obj_hash = 58145402; + cdat->dobj_646.obj_hash = 540280834; cdat->dobj_646.obj_len = 2; /*inistring dstr_647__warning_0_MEL*/ @@ -6931,7 +6931,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_653__ERRORMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__ERRORMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_653__ERRORMSG_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_653__ERRORMSG_STRV.obj_hash = 250029271; + cdat->dobj_653__ERRORMSG_STRV.obj_hash = 353160225; cdat->dobj_653__ERRORMSG_STRV.obj_len = 5; /*inimult dtup_654__ERRORMSG_STRV*/ @@ -6949,7 +6949,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_656", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_656.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_656.obj_num = 0; - cdat->dobj_656.obj_hash = 343473429; + cdat->dobj_656.obj_hash = 449001252; cdat->dobj_656.obj_len = 2; /*^iniobj*/ @@ -6959,7 +6959,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_657.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_657.obj_num = 1; - cdat->dobj_657.obj_hash = 1002213467; + cdat->dobj_657.obj_hash = 121442903; cdat->dobj_657.obj_len = 2; /*inistring dstr_658__error_MELT_ERR*/ @@ -6996,7 +6996,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_664__INFORM_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_664__INFORM_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_664__INFORM_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_664__INFORM_STRV.obj_hash = 722756576; + cdat->dobj_664__INFORM_STRV.obj_hash = 1006802440; cdat->dobj_664__INFORM_STRV.obj_len = 5; /*inimult dtup_665__INFORM_STRV*/ @@ -7014,7 +7014,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_667.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_667.obj_num = 0; - cdat->dobj_667.obj_hash = 191110088; + cdat->dobj_667.obj_hash = 1038233932; cdat->dobj_667.obj_len = 2; /*^iniobj*/ @@ -7024,7 +7024,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_668", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_668.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_668.obj_num = 1; - cdat->dobj_668.obj_hash = 973947814; + cdat->dobj_668.obj_hash = 916365144; cdat->dobj_668.obj_len = 2; /*^iniobj*/ @@ -7034,7 +7034,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_669.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_669.obj_num = 2; - cdat->dobj_669.obj_hash = 239694094; + cdat->dobj_669.obj_hash = 191110088; cdat->dobj_669.obj_len = 2; /*inistring dstr_670__melt_inform_str_*/ @@ -7075,7 +7075,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_677__INFORM_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__INFORM_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_677__INFORM_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_677__INFORM_PLAIN.obj_hash = 312529243; + cdat->dobj_677__INFORM_PLAIN.obj_hash = 466255667; cdat->dobj_677__INFORM_PLAIN.obj_len = 5; /*inimult dtup_678__INFORM_PLAIN*/ @@ -7093,7 +7093,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_680", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_680.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_680.obj_num = 0; - cdat->dobj_680.obj_hash = 319011412; + cdat->dobj_680.obj_hash = 924123203; cdat->dobj_680.obj_len = 2; /*^iniobj*/ @@ -7103,7 +7103,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_681", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_681.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_681.obj_num = 1; - cdat->dobj_681.obj_hash = 672698103; + cdat->dobj_681.obj_hash = 540215568; cdat->dobj_681.obj_len = 2; /*inistring dstr_682__melt_inform_str_*/ @@ -7140,7 +7140,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_688__INFORMSG_PLAIN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_688__INFORMSG_PLAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_688__INFORMSG_PLAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_688__INFORMSG_PLAIN.obj_hash = 270543890; + cdat->dobj_688__INFORMSG_PLAIN.obj_hash = 1012415123; cdat->dobj_688__INFORMSG_PLAIN.obj_len = 5; /*inimult dtup_689__INFORMSG_PLAIN*/ @@ -7158,7 +7158,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_691.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_691.obj_num = 0; - cdat->dobj_691.obj_hash = 767773175; + cdat->dobj_691.obj_hash = 148205390; cdat->dobj_691.obj_len = 2; /*inistring dstr_692__inform_UNKNOWN_L*/ @@ -7191,7 +7191,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_697__INFORMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_697__INFORMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_697__INFORMSG_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_697__INFORMSG_STRV.obj_hash = 555540379; + cdat->dobj_697__INFORMSG_STRV.obj_hash = 125694454; cdat->dobj_697__INFORMSG_STRV.obj_len = 5; /*inimult dtup_698__INFORMSG_STRV*/ @@ -7209,7 +7209,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_700", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_700.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_700.obj_num = 0; - cdat->dobj_700.obj_hash = 662195415; + cdat->dobj_700.obj_hash = 901239126; cdat->dobj_700.obj_len = 2; /*^iniobj*/ @@ -7219,7 +7219,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_701.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_701.obj_num = 1; - cdat->dobj_701.obj_hash = 872297487; + cdat->dobj_701.obj_hash = 976309966; cdat->dobj_701.obj_len = 2; /*inistring dstr_702__inform_UNKNOWN_L*/ @@ -7244,7 +7244,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_706__FOREACH_LONG_UPTO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_706__FOREACH_LONG_UPTO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_706__FOREACH_LONG_UPTO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_706__FOREACH_LONG_UPTO.obj_hash = 803219439; + cdat->dobj_706__FOREACH_LONG_UPTO.obj_hash = 1023226469; cdat->dobj_706__FOREACH_LONG_UPTO.obj_len = 7; /*inistring dstr_707__FOREACH_LONG_UPT*/ @@ -7270,7 +7270,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_710", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_710.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_710.obj_num = 0; - cdat->dobj_710.obj_hash = 971819072; + cdat->dobj_710.obj_hash = 827299103; cdat->dobj_710.obj_len = 2; /*iniobj dsym_711__IMAX*/ @@ -7292,7 +7292,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_713.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_713.obj_num = 1; - cdat->dobj_713.obj_hash = 450280949; + cdat->dobj_713.obj_hash = 971819072; cdat->dobj_713.obj_len = 2; /*inimult dtup_714__FOREACH_LONG_UPTO*/ @@ -7318,7 +7318,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_717.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_717.obj_num = 0; - cdat->dobj_717.obj_hash = 842886751; + cdat->dobj_717.obj_hash = 665324287; cdat->dobj_717.obj_len = 2; /*inimult dtup_718__FOREACH_LONG_UPTO*/ @@ -7399,7 +7399,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_736__SOME_INTEGER_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_736__SOME_INTEGER_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_736__SOME_INTEGER_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_736__SOME_INTEGER_MULTIPLE.obj_hash = 383829344; + cdat->dobj_736__SOME_INTEGER_MULTIPLE.obj_hash = 957101813; cdat->dobj_736__SOME_INTEGER_MULTIPLE.obj_len = 9; /*inistring dstr_737__SOME_INTEGER_MUL*/ @@ -7425,7 +7425,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_740", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_740.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_740.obj_num = 0; - cdat->dobj_740.obj_hash = 584470812; + cdat->dobj_740.obj_hash = 745362259; cdat->dobj_740.obj_len = 2; /*inimult dtup_741__SOME_INTEGER_MULTIPLE*/ @@ -7438,7 +7438,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_742", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_742", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_742.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_742.obj_hash = 950748088; + cdat->dobj_742.obj_hash = 508434998; cdat->dobj_742.obj_len = 2; /*iniobj dsym_743__Q*/ @@ -7460,7 +7460,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_745.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_745.obj_num = 0; - cdat->dobj_745.obj_hash = 633603638; + cdat->dobj_745.obj_hash = 362955824; cdat->dobj_745.obj_len = 2; /*inimult dtup_746__SOME_INTEGER_MULTIPLE*/ @@ -7533,7 +7533,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_761__SOME_INTEGER_GREATER_THAN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_761__SOME_INTEGER_GREATER_THAN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_761__SOME_INTEGER_GREATER_THAN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_761__SOME_INTEGER_GREATER_THAN.obj_hash = 495611159; + cdat->dobj_761__SOME_INTEGER_GREATER_THAN.obj_hash = 696880601; cdat->dobj_761__SOME_INTEGER_GREATER_THAN.obj_len = 9; /*inistring dstr_762__SOME_INTEGER_GRE*/ @@ -7547,7 +7547,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_763", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_763.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_763.obj_num = 0; - cdat->dobj_763.obj_hash = 216199309; + cdat->dobj_763.obj_hash = 848237155; cdat->dobj_763.obj_len = 2; /*inimult dtup_764__SOME_INTEGER_GREATER_THAN*/ @@ -7560,7 +7560,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_765", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_765.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_765.obj_hash = 1010880922; + cdat->dobj_765.obj_hash = 88548023; cdat->dobj_765.obj_len = 2; /*inimult dtup_766__SOME_INTEGER_GREATER_THAN*/ @@ -7605,7 +7605,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_774__SOME_STRING_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_774__SOME_STRING_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_774__SOME_STRING_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_774__SOME_STRING_VALUE.obj_hash = 397955542; + cdat->dobj_774__SOME_STRING_VALUE.obj_hash = 98023908; cdat->dobj_774__SOME_STRING_VALUE.obj_len = 9; /*inistring dstr_775__SOME_STRING_VALU*/ @@ -7622,7 +7622,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_777", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_777", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_777.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_777.obj_hash = 184157076; + cdat->dobj_777.obj_hash = 268398470; cdat->dobj_777.obj_len = 2; /*iniobj dsym_778__SV*/ @@ -7644,7 +7644,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_780", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_780.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_780.obj_num = 0; - cdat->dobj_780.obj_hash = 248928442; + cdat->dobj_780.obj_hash = 94691898; cdat->dobj_780.obj_len = 2; /*inimult dtup_781__SOME_STRING_VALUE*/ @@ -7721,7 +7721,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_796__OUTNEWLINE_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_796__OUTNEWLINE_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_796__OUTNEWLINE_ERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_796__OUTNEWLINE_ERR.obj_hash = 168694709; + cdat->dobj_796__OUTNEWLINE_ERR.obj_hash = 333252431; cdat->dobj_796__OUTNEWLINE_ERR.obj_len = 5; /*inimult dtup_797__OUTNEWLINE_ERR*/ @@ -7758,7 +7758,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_803__OUTSTR_ERR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_803__OUTSTR_ERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_803__OUTSTR_ERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_803__OUTSTR_ERR.obj_hash = 465011300; + cdat->dobj_803__OUTSTR_ERR.obj_hash = 67393186; cdat->dobj_803__OUTSTR_ERR.obj_len = 5; /*inimult dtup_804__OUTSTR_ERR*/ @@ -7776,7 +7776,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_806", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_806.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_806.obj_num = 0; - cdat->dobj_806.obj_hash = 842906760; + cdat->dobj_806.obj_hash = 814404864; cdat->dobj_806.obj_len = 2; /*inistring dstr_807__melt_putstr_stde*/ @@ -7809,7 +7809,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_812__MESSAGE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_812__MESSAGE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_812__MESSAGE_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_812__MESSAGE_DBG.obj_hash = 731135096; + cdat->dobj_812__MESSAGE_DBG.obj_hash = 86073571; cdat->dobj_812__MESSAGE_DBG.obj_len = 5; /*inimult dtup_813__MESSAGE_DBG*/ @@ -7827,7 +7827,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_815", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_815.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_815.obj_num = 0; - cdat->dobj_815.obj_hash = 184000395; + cdat->dobj_815.obj_hash = 911217272; cdat->dobj_815.obj_len = 2; /*inistring dstr_816__debugeputs_*/ @@ -7860,7 +7860,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_821__MESSAGENUM_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__MESSAGENUM_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_821__MESSAGENUM_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_821__MESSAGENUM_DBG.obj_hash = 104432220; + cdat->dobj_821__MESSAGENUM_DBG.obj_hash = 897828135; cdat->dobj_821__MESSAGENUM_DBG.obj_len = 5; /*inimult dtup_822__MESSAGENUM_DBG*/ @@ -7878,7 +7878,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_824", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_824.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_824.obj_num = 0; - cdat->dobj_824.obj_hash = 169042883; + cdat->dobj_824.obj_hash = 870347105; cdat->dobj_824.obj_len = 2; /*^iniobj*/ @@ -7888,7 +7888,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_825", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_825.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_825.obj_num = 1; - cdat->dobj_825.obj_hash = 562335746; + cdat->dobj_825.obj_hash = 692527203; cdat->dobj_825.obj_len = 2; /*inistring dstr_826__debugnum_*/ @@ -7925,7 +7925,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_832__MESSAGEVAL_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_832__MESSAGEVAL_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_832__MESSAGEVAL_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_832__MESSAGEVAL_DBG.obj_hash = 567105381; + cdat->dobj_832__MESSAGEVAL_DBG.obj_hash = 416282; cdat->dobj_832__MESSAGEVAL_DBG.obj_len = 5; /*inimult dtup_833__MESSAGEVAL_DBG*/ @@ -7943,7 +7943,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_835.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_835.obj_num = 0; - cdat->dobj_835.obj_hash = 605144656; + cdat->dobj_835.obj_hash = 376623007; cdat->dobj_835.obj_len = 2; /*^iniobj*/ @@ -7953,7 +7953,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_836", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_836.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_836.obj_num = 1; - cdat->dobj_836.obj_hash = 593595329; + cdat->dobj_836.obj_hash = 113735874; cdat->dobj_836.obj_len = 2; /*inistring dstr_837__debugvalue_*/ @@ -7990,7 +7990,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_843__LONGBACKTRACE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_843__LONGBACKTRACE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_843__LONGBACKTRACE_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_843__LONGBACKTRACE_DBG.obj_hash = 183529985; + cdat->dobj_843__LONGBACKTRACE_DBG.obj_hash = 267567900; cdat->dobj_843__LONGBACKTRACE_DBG.obj_len = 5; /*inimult dtup_844__LONGBACKTRACE_DBG*/ @@ -8008,7 +8008,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_846", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_846.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_846.obj_num = 0; - cdat->dobj_846.obj_hash = 645224258; + cdat->dobj_846.obj_hash = 1024237166; cdat->dobj_846.obj_len = 2; /*iniobj dsym_847__MAXDEPTH*/ @@ -8030,7 +8030,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_849.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_849.obj_num = 1; - cdat->dobj_849.obj_hash = 711873711; + cdat->dobj_849.obj_hash = 188245569; cdat->dobj_849.obj_len = 2; /*inistring dstr_850__debugbacktrace_*/ @@ -8063,7 +8063,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_855__CHECKVAL_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_855__CHECKVAL_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_855__CHECKVAL_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_855__CHECKVAL_DBG.obj_hash = 1052671379; + cdat->dobj_855__CHECKVAL_DBG.obj_hash = 254668020; cdat->dobj_855__CHECKVAL_DBG.obj_len = 5; /*inimult dtup_856__CHECKVAL_DBG*/ @@ -8081,7 +8081,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_858", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_858.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_858.obj_num = 0; - cdat->dobj_858.obj_hash = 933602670; + cdat->dobj_858.obj_hash = 713814481; cdat->dobj_858.obj_len = 2; /*^iniobj*/ @@ -8091,7 +8091,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_859", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_859.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_859.obj_num = 1; - cdat->dobj_859.obj_hash = 838400632; + cdat->dobj_859.obj_hash = 554291616; cdat->dobj_859.obj_len = 2; /*inistring dstr_860__melt_checked_ass*/ @@ -8128,7 +8128,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_866__DEBUGCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_866__DEBUGCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_866__DEBUGCSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_866__DEBUGCSTRING.obj_hash = 830687381; + cdat->dobj_866__DEBUGCSTRING.obj_hash = 168694220; cdat->dobj_866__DEBUGCSTRING.obj_len = 5; /*inimult dtup_867__DEBUGCSTRING*/ @@ -8146,7 +8146,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_869.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_869.obj_num = 0; - cdat->dobj_869.obj_hash = 35636478; + cdat->dobj_869.obj_hash = 735773456; cdat->dobj_869.obj_len = 2; /*^iniobj*/ @@ -8156,7 +8156,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_870", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_870.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_870.obj_num = 1; - cdat->dobj_870.obj_hash = 71747861; + cdat->dobj_870.obj_hash = 314624967; cdat->dobj_870.obj_len = 2; /*inistring dstr_871__debugeprintf_de*/ @@ -8193,7 +8193,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_877__DEBUGLONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__DEBUGLONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_877__DEBUGLONG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_877__DEBUGLONG.obj_hash = 753309522; + cdat->dobj_877__DEBUGLONG.obj_hash = 113184611; cdat->dobj_877__DEBUGLONG.obj_len = 5; /*inimult dtup_878__DEBUGLONG*/ @@ -8211,7 +8211,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_880", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_880.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_880.obj_num = 0; - cdat->dobj_880.obj_hash = 708081202; + cdat->dobj_880.obj_hash = 134249489; cdat->dobj_880.obj_len = 2; /*^iniobj*/ @@ -8221,7 +8221,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_881.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_881.obj_num = 1; - cdat->dobj_881.obj_hash = 1041670831; + cdat->dobj_881.obj_hash = 188789627; cdat->dobj_881.obj_len = 2; /*inistring dstr_882__debugeprintf_de*/ @@ -8258,7 +8258,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_888__MAKE_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_888__MAKE_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_888__MAKE_STRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_888__MAKE_STRBUF.obj_hash = 1007730759; + cdat->dobj_888__MAKE_STRBUF.obj_hash = 47047704; cdat->dobj_888__MAKE_STRBUF.obj_len = 5; /*inimult dtup_889__MAKE_STRBUF*/ @@ -8276,7 +8276,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_891", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_891.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_891.obj_num = 0; - cdat->dobj_891.obj_hash = 907739255; + cdat->dobj_891.obj_hash = 37584001; cdat->dobj_891.obj_len = 2; /*inistring dstr_892__meltgc_new_strbu*/ @@ -8309,7 +8309,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_897__STRBUF_USEDLENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_897__STRBUF_USEDLENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_897__STRBUF_USEDLENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_897__STRBUF_USEDLENGTH.obj_hash = 584658452; + cdat->dobj_897__STRBUF_USEDLENGTH.obj_hash = 554861206; cdat->dobj_897__STRBUF_USEDLENGTH.obj_len = 5; /*inimult dtup_898__STRBUF_USEDLENGTH*/ @@ -8327,7 +8327,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_900", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_900.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_900.obj_num = 0; - cdat->dobj_900.obj_hash = 90827044; + cdat->dobj_900.obj_hash = 388211089; cdat->dobj_900.obj_len = 2; /*inistring dstr_901__melt_strbuf_used*/ @@ -8360,7 +8360,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_906__OUTPUT_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_906__OUTPUT_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_906__OUTPUT_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_906__OUTPUT_LENGTH.obj_hash = 153823994; + cdat->dobj_906__OUTPUT_LENGTH.obj_hash = 586427966; cdat->dobj_906__OUTPUT_LENGTH.obj_len = 5; /*inimult dtup_907__OUTPUT_LENGTH*/ @@ -8390,7 +8390,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_911", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_911.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_911.obj_num = 0; - cdat->dobj_911.obj_hash = 739026676; + cdat->dobj_911.obj_hash = 932077492; cdat->dobj_911.obj_len = 2; /*inistring dstr_912__melt_output_leng*/ @@ -8423,7 +8423,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_917__IS_STRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_917__IS_STRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_917__IS_STRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_917__IS_STRBUF.obj_hash = 305307486; + cdat->dobj_917__IS_STRBUF.obj_hash = 199458015; cdat->dobj_917__IS_STRBUF.obj_len = 5; /*inimult dtup_918__IS_STRBUF*/ @@ -8441,7 +8441,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_920", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_920.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_920.obj_num = 0; - cdat->dobj_920.obj_hash = 556394391; + cdat->dobj_920.obj_hash = 643293870; cdat->dobj_920.obj_len = 2; /*inistring dstr_921__melt_magic_disc*/ @@ -8474,7 +8474,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_926__MAKE_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_926__MAKE_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_926__MAKE_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_926__MAKE_STRING.obj_hash = 417476437; + cdat->dobj_926__MAKE_STRING.obj_hash = 414615455; cdat->dobj_926__MAKE_STRING.obj_len = 5; /*inimult dtup_927__MAKE_STRING*/ @@ -8492,7 +8492,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_929", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_929.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_929.obj_num = 0; - cdat->dobj_929.obj_hash = 647252962; + cdat->dobj_929.obj_hash = 653715893; cdat->dobj_929.obj_len = 2; /*^iniobj*/ @@ -8502,7 +8502,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_930", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_930.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_930.obj_num = 1; - cdat->dobj_930.obj_hash = 880982942; + cdat->dobj_930.obj_hash = 994638891; cdat->dobj_930.obj_len = 2; /*inistring dstr_931__meltgc_new_stri*/ @@ -8539,7 +8539,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_937__IS_STRINGCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_937__IS_STRINGCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_937__IS_STRINGCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_937__IS_STRINGCONST.obj_hash = 607078420; + cdat->dobj_937__IS_STRINGCONST.obj_hash = 760767831; cdat->dobj_937__IS_STRINGCONST.obj_len = 5; /*inimult dtup_938__IS_STRINGCONST*/ @@ -8557,7 +8557,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_940", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_940.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_940.obj_num = 0; - cdat->dobj_940.obj_hash = 550104312; + cdat->dobj_940.obj_hash = 269727667; cdat->dobj_940.obj_len = 2; /*iniobj dsym_941__CS*/ @@ -8579,7 +8579,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_943", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_943.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_943.obj_num = 1; - cdat->dobj_943.obj_hash = 673837813; + cdat->dobj_943.obj_hash = 88899419; cdat->dobj_943.obj_len = 2; /*inistring dstr_944__melt_is_string_*/ @@ -8616,7 +8616,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_950__STRING_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_950__STRING_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_950__STRING_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_950__STRING_LENGTH.obj_hash = 515375774; + cdat->dobj_950__STRING_LENGTH.obj_hash = 801992896; cdat->dobj_950__STRING_LENGTH.obj_len = 5; /*inimult dtup_951__STRING_LENGTH*/ @@ -8634,7 +8634,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_953", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_953.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_953.obj_num = 0; - cdat->dobj_953.obj_hash = 847577479; + cdat->dobj_953.obj_hash = 935824439; cdat->dobj_953.obj_len = 2; /*inistring dstr_954__melt_string_leng*/ @@ -8667,7 +8667,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_959__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_959__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_959__STRING_.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_959__STRING_.obj_hash = 893569075; + cdat->dobj_959__STRING_.obj_hash = 186683294; cdat->dobj_959__STRING_.obj_len = 5; /*inimult dtup_960__STRING_*/ @@ -8697,7 +8697,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_964", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_964.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_964.obj_num = 0; - cdat->dobj_964.obj_hash = 1027165083; + cdat->dobj_964.obj_hash = 167108076; cdat->dobj_964.obj_len = 2; /*iniobj dsym_965__S2*/ @@ -8719,7 +8719,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_967", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_967.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_967.obj_num = 1; - cdat->dobj_967.obj_hash = 1053678792; + cdat->dobj_967.obj_hash = 1027165083; cdat->dobj_967.obj_len = 2; /*inistring dstr_968__melt_string_same*/ @@ -8756,7 +8756,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_974__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_974__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_974__STRING_.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_974__STRING_.obj_hash = 27674009; + cdat->dobj_974__STRING_.obj_hash = 479724056; cdat->dobj_974__STRING_.obj_len = 5; /*inimult dtup_975__STRING_*/ @@ -8774,7 +8774,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_977", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_977.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_977.obj_num = 0; - cdat->dobj_977.obj_hash = 387319708; + cdat->dobj_977.obj_hash = 474023149; cdat->dobj_977.obj_len = 2; /*^iniobj*/ @@ -8784,7 +8784,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_978", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_978.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_978.obj_num = 1; - cdat->dobj_978.obj_hash = 340747613; + cdat->dobj_978.obj_hash = 719890372; cdat->dobj_978.obj_len = 2; /*inistring dstr_979__melt_string_sam*/ @@ -8821,7 +8821,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_985__SPLIT_STRING_SPACE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_985__SPLIT_STRING_SPACE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_985__SPLIT_STRING_SPACE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_985__SPLIT_STRING_SPACE.obj_hash = 777761778; + cdat->dobj_985__SPLIT_STRING_SPACE.obj_hash = 403689284; cdat->dobj_985__SPLIT_STRING_SPACE.obj_len = 5; /*inimult dtup_986__SPLIT_STRING_SPACE*/ @@ -8839,7 +8839,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_988", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_988.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_988.obj_num = 0; - cdat->dobj_988.obj_hash = 968145801; + cdat->dobj_988.obj_hash = 568525555; cdat->dobj_988.obj_len = 2; /*^iniobj*/ @@ -8849,7 +8849,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_989", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_989.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_989.obj_num = 1; - cdat->dobj_989.obj_hash = 972689483; + cdat->dobj_989.obj_hash = 249740672; cdat->dobj_989.obj_len = 2; /*inistring dstr_990__meltgc_new_split*/ @@ -8886,7 +8886,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_996__SPLIT_STRING_COMMA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_996__SPLIT_STRING_COMMA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_996__SPLIT_STRING_COMMA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_996__SPLIT_STRING_COMMA.obj_hash = 221212852; + cdat->dobj_996__SPLIT_STRING_COMMA.obj_hash = 903083610; cdat->dobj_996__SPLIT_STRING_COMMA.obj_len = 5; /*inimult dtup_997__SPLIT_STRING_COMMA*/ @@ -8904,7 +8904,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_999", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_999.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_999.obj_num = 0; - cdat->dobj_999.obj_hash = 475978871; + cdat->dobj_999.obj_hash = 33302000; cdat->dobj_999.obj_len = 2; /*^iniobj*/ @@ -8914,7 +8914,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1000", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1000.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1000.obj_num = 1; - cdat->dobj_1000.obj_hash = 872154589; + cdat->dobj_1000.obj_hash = 280700177; cdat->dobj_1000.obj_len = 2; /*inistring dstr_1001__meltgc_new_split*/ @@ -8951,7 +8951,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1007__SPLIT_STRING_COLON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1007__SPLIT_STRING_COLON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1007__SPLIT_STRING_COLON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1007__SPLIT_STRING_COLON.obj_hash = 469849229; + cdat->dobj_1007__SPLIT_STRING_COLON.obj_hash = 306281179; cdat->dobj_1007__SPLIT_STRING_COLON.obj_len = 5; /*inimult dtup_1008__SPLIT_STRING_COLON*/ @@ -8969,7 +8969,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1010", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1010.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1010.obj_num = 0; - cdat->dobj_1010.obj_hash = 1034297733; + cdat->dobj_1010.obj_hash = 101410277; cdat->dobj_1010.obj_len = 2; /*^iniobj*/ @@ -8979,7 +8979,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1011", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1011.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1011.obj_num = 1; - cdat->dobj_1011.obj_hash = 253657992; + cdat->dobj_1011.obj_hash = 976780773; cdat->dobj_1011.obj_len = 2; /*inistring dstr_1012__meltgc_new_split*/ @@ -9016,7 +9016,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1018__STRBUF2STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1018__STRBUF2STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1018__STRBUF2STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1018__STRBUF2STRING.obj_hash = 774838908; + cdat->dobj_1018__STRBUF2STRING.obj_hash = 431597304; cdat->dobj_1018__STRBUF2STRING.obj_len = 5; /*inimult dtup_1019__STRBUF2STRING*/ @@ -9034,7 +9034,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1021", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1021.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1021.obj_num = 0; - cdat->dobj_1021.obj_hash = 500751051; + cdat->dobj_1021.obj_hash = 847609246; cdat->dobj_1021.obj_len = 2; /*^iniobj*/ @@ -9044,7 +9044,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1022", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1022.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1022.obj_num = 1; - cdat->dobj_1022.obj_hash = 501838020; + cdat->dobj_1022.obj_hash = 557747195; cdat->dobj_1022.obj_len = 2; /*inistring dstr_1023__meltgc_new_stri*/ @@ -9081,7 +9081,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1029__MAKE_STRING_NAKEDBASENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1029__MAKE_STRING_NAKEDBASENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1029__MAKE_STRING_NAKEDBASENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1029__MAKE_STRING_NAKEDBASENAME.obj_hash = 823224194; + cdat->dobj_1029__MAKE_STRING_NAKEDBASENAME.obj_hash = 932529019; cdat->dobj_1029__MAKE_STRING_NAKEDBASENAME.obj_len = 5; /*inimult dtup_1030__MAKE_STRING_NAKEDBASENAME*/ @@ -9099,7 +9099,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1032", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1032.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1032.obj_num = 0; - cdat->dobj_1032.obj_hash = 385102274; + cdat->dobj_1032.obj_hash = 78961744; cdat->dobj_1032.obj_len = 2; /*^iniobj*/ @@ -9109,7 +9109,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1033", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1033.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1033.obj_num = 1; - cdat->dobj_1033.obj_hash = 824672213; + cdat->dobj_1033.obj_hash = 283237862; cdat->dobj_1033.obj_len = 2; /*inistring dstr_1034__meltgc_new_stri*/ @@ -9146,7 +9146,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 641094252; + cdat->dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 779742172; cdat->dobj_1040__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 5; /*inimult dtup_1041__MAKE_STRING_TEMPNAME_SUFFIXED*/ @@ -9164,7 +9164,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1043", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1043.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1043.obj_num = 0; - cdat->dobj_1043.obj_hash = 135350857; + cdat->dobj_1043.obj_hash = 775914468; cdat->dobj_1043.obj_len = 2; /*^iniobj*/ @@ -9174,7 +9174,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1044", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1044.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1044.obj_num = 1; - cdat->dobj_1044.obj_hash = 812554542; + cdat->dobj_1044.obj_hash = 684689784; cdat->dobj_1044.obj_len = 2; /*iniobj dsym_1045__SUFF*/ @@ -9196,7 +9196,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1047", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1047.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1047.obj_num = 2; - cdat->dobj_1047.obj_hash = 703879735; + cdat->dobj_1047.obj_hash = 135350857; cdat->dobj_1047.obj_len = 2; /*inistring dstr_1048__meltgc_new_stri*/ @@ -9237,7 +9237,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1055__MAKE_STRING_GENERATED_C_FILENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1055__MAKE_STRING_GENERATED_C_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1055__MAKE_STRING_GENERATED_C_FILENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1055__MAKE_STRING_GENERATED_C_FILENAME.obj_hash = 134498249; + cdat->dobj_1055__MAKE_STRING_GENERATED_C_FILENAME.obj_hash = 74859914; cdat->dobj_1055__MAKE_STRING_GENERATED_C_FILENAME.obj_len = 5; /*inimult dtup_1056__MAKE_STRING_GENERATED_C_FILENAME*/ @@ -9255,7 +9255,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1058", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1058.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1058.obj_num = 0; - cdat->dobj_1058.obj_hash = 128309164; + cdat->dobj_1058.obj_hash = 676394617; cdat->dobj_1058.obj_len = 2; /*iniobj dsym_1059__BASESTR*/ @@ -9277,7 +9277,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1061", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1061.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1061.obj_num = 1; - cdat->dobj_1061.obj_hash = 1047213959; + cdat->dobj_1061.obj_hash = 370666412; cdat->dobj_1061.obj_len = 2; /*iniobj dsym_1062__DIRSTR*/ @@ -9299,7 +9299,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1064", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1064.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1064.obj_num = 2; - cdat->dobj_1064.obj_hash = 196491152; + cdat->dobj_1064.obj_hash = 1047213959; cdat->dobj_1064.obj_len = 2; /*inistring dstr_1065__meltgc_new_stri*/ @@ -9340,7 +9340,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1072__LOAD_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1072__LOAD_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1072__LOAD_MELT_MODULE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1072__LOAD_MELT_MODULE.obj_hash = 589805122; + cdat->dobj_1072__LOAD_MELT_MODULE.obj_hash = 70408241; cdat->dobj_1072__LOAD_MELT_MODULE.obj_len = 5; /*inimult dtup_1073__LOAD_MELT_MODULE*/ @@ -9370,7 +9370,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1077", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1077.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1077.obj_num = 0; - cdat->dobj_1077.obj_hash = 1045256177; + cdat->dobj_1077.obj_hash = 840086995; cdat->dobj_1077.obj_len = 2; /*^iniobj*/ @@ -9380,7 +9380,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1078", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1078.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1078.obj_num = 1; - cdat->dobj_1078.obj_hash = 391927087; + cdat->dobj_1078.obj_hash = 1045256177; cdat->dobj_1078.obj_len = 2; /*inistring dstr_1079__meltgc_make_loa*/ @@ -9417,7 +9417,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1085__LOAD_DEBUG_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1085__LOAD_DEBUG_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1085__LOAD_DEBUG_MELT_MODULE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1085__LOAD_DEBUG_MELT_MODULE.obj_hash = 500723667; + cdat->dobj_1085__LOAD_DEBUG_MELT_MODULE.obj_hash = 665699346; cdat->dobj_1085__LOAD_DEBUG_MELT_MODULE.obj_len = 5; /*inimult dtup_1086__LOAD_DEBUG_MELT_MODULE*/ @@ -9435,7 +9435,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1088", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1088.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1088.obj_num = 0; - cdat->dobj_1088.obj_hash = 871572316; + cdat->dobj_1088.obj_hash = 136668022; cdat->dobj_1088.obj_len = 2; /*^iniobj*/ @@ -9445,7 +9445,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1089", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1089.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1089.obj_num = 1; - cdat->dobj_1089.obj_hash = 203678194; + cdat->dobj_1089.obj_hash = 256412346; cdat->dobj_1089.obj_len = 2; /*inistring dstr_1090__meltgc_make_loa*/ @@ -9482,7 +9482,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1096__GENERATE_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1096__GENERATE_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1096__GENERATE_MELT_MODULE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1096__GENERATE_MELT_MODULE.obj_hash = 668894086; + cdat->dobj_1096__GENERATE_MELT_MODULE.obj_hash = 69984393; cdat->dobj_1096__GENERATE_MELT_MODULE.obj_len = 5; /*inimult dtup_1097__GENERATE_MELT_MODULE*/ @@ -9512,7 +9512,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1101", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1101.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1101.obj_num = 0; - cdat->dobj_1101.obj_hash = 841407549; + cdat->dobj_1101.obj_hash = 747326569; cdat->dobj_1101.obj_len = 2; /*iniobj dsym_1102__OUTNAM*/ @@ -9534,7 +9534,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1104", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1104.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1104.obj_num = 1; - cdat->dobj_1104.obj_hash = 252275475; + cdat->dobj_1104.obj_hash = 841407549; cdat->dobj_1104.obj_len = 2; /*inistring dstr_1105__meltgc_make_melt*/ @@ -9571,7 +9571,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1111__GENERATE_DEBUG_MELT_MODULE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1111__GENERATE_DEBUG_MELT_MODULE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1111__GENERATE_DEBUG_MELT_MODULE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1111__GENERATE_DEBUG_MELT_MODULE.obj_hash = 869463350; + cdat->dobj_1111__GENERATE_DEBUG_MELT_MODULE.obj_hash = 331735209; cdat->dobj_1111__GENERATE_DEBUG_MELT_MODULE.obj_len = 5; /*inimult dtup_1112__GENERATE_DEBUG_MELT_MODULE*/ @@ -9589,7 +9589,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1114", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1114.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1114.obj_num = 0; - cdat->dobj_1114.obj_hash = 788680695; + cdat->dobj_1114.obj_hash = 312060007; cdat->dobj_1114.obj_len = 2; /*^iniobj*/ @@ -9599,7 +9599,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1115", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1115.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1115.obj_num = 1; - cdat->dobj_1115.obj_hash = 761455449; + cdat->dobj_1115.obj_hash = 387965878; cdat->dobj_1115.obj_len = 2; /*inistring dstr_1116__meltgc_make_melt*/ @@ -9636,7 +9636,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1122__OBJECT_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1122__OBJECT_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1122__OBJECT_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1122__OBJECT_LENGTH.obj_hash = 375110996; + cdat->dobj_1122__OBJECT_LENGTH.obj_hash = 188881845; cdat->dobj_1122__OBJECT_LENGTH.obj_len = 5; /*inimult dtup_1123__OBJECT_LENGTH*/ @@ -9666,7 +9666,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1127", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1127.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1127.obj_num = 0; - cdat->dobj_1127.obj_hash = 665807259; + cdat->dobj_1127.obj_hash = 293749169; cdat->dobj_1127.obj_len = 2; /*inistring dstr_1128__long_melt_obje*/ @@ -9699,7 +9699,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1133__OBJECT_NTH_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1133__OBJECT_NTH_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1133__OBJECT_NTH_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1133__OBJECT_NTH_FIELD.obj_hash = 545795176; + cdat->dobj_1133__OBJECT_NTH_FIELD.obj_hash = 956739262; cdat->dobj_1133__OBJECT_NTH_FIELD.obj_len = 5; /*inimult dtup_1134__OBJECT_NTH_FIELD*/ @@ -9717,7 +9717,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1136", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1136.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1136.obj_num = 0; - cdat->dobj_1136.obj_hash = 530410333; + cdat->dobj_1136.obj_hash = 30328621; cdat->dobj_1136.obj_len = 2; /*^iniobj*/ @@ -9727,7 +9727,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1137", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1137.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1137.obj_num = 1; - cdat->dobj_1137.obj_hash = 10417494; + cdat->dobj_1137.obj_hash = 592771400; cdat->dobj_1137.obj_len = 2; /*inistring dstr_1138__melt_field_obje*/ @@ -9764,7 +9764,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1144__SUBCLASS_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1144__SUBCLASS_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1144__SUBCLASS_OF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1144__SUBCLASS_OF.obj_hash = 275818271; + cdat->dobj_1144__SUBCLASS_OF.obj_hash = 766613367; cdat->dobj_1144__SUBCLASS_OF.obj_len = 5; /*inimult dtup_1145__SUBCLASS_OF*/ @@ -9794,7 +9794,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1149", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1149.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1149.obj_num = 0; - cdat->dobj_1149.obj_hash = 517229106; + cdat->dobj_1149.obj_hash = 401756708; cdat->dobj_1149.obj_len = 2; /*iniobj dsym_1150__CL2*/ @@ -9816,7 +9816,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1152", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1152.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1152.obj_num = 1; - cdat->dobj_1152.obj_hash = 295822106; + cdat->dobj_1152.obj_hash = 517229106; cdat->dobj_1152.obj_len = 2; /*inistring dstr_1153__melt_is_subclass*/ @@ -9853,7 +9853,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1159__SUBCLASS_OR_EQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1159__SUBCLASS_OR_EQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1159__SUBCLASS_OR_EQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1159__SUBCLASS_OR_EQ.obj_hash = 425803155; + cdat->dobj_1159__SUBCLASS_OR_EQ.obj_hash = 1020713448; cdat->dobj_1159__SUBCLASS_OR_EQ.obj_len = 5; /*inimult dtup_1160__SUBCLASS_OR_EQ*/ @@ -9871,7 +9871,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1162", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1162.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1162.obj_num = 0; - cdat->dobj_1162.obj_hash = 808891944; + cdat->dobj_1162.obj_hash = 261212325; cdat->dobj_1162.obj_len = 2; /*^iniobj*/ @@ -9881,7 +9881,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1163", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1163.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1163.obj_num = 1; - cdat->dobj_1163.obj_hash = 1016314505; + cdat->dobj_1163.obj_hash = 421699138; cdat->dobj_1163.obj_len = 2; /*inistring dstr_1164__*/ @@ -9926,7 +9926,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1172__IS_MULTIPLE_OR_NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1172__IS_MULTIPLE_OR_NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1172__IS_MULTIPLE_OR_NULL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1172__IS_MULTIPLE_OR_NULL.obj_hash = 206663145; + cdat->dobj_1172__IS_MULTIPLE_OR_NULL.obj_hash = 533144468; cdat->dobj_1172__IS_MULTIPLE_OR_NULL.obj_len = 5; /*inimult dtup_1173__IS_MULTIPLE_OR_NULL*/ @@ -9956,7 +9956,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1177", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1177.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1177.obj_num = 0; - cdat->dobj_1177.obj_hash = 34276466; + cdat->dobj_1177.obj_hash = 853450615; cdat->dobj_1177.obj_len = 2; /*inistring dstr_1178__*/ @@ -9993,7 +9993,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1184__SUBSEQ_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1184__SUBSEQ_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1184__SUBSEQ_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1184__SUBSEQ_MULTIPLE.obj_hash = 32899635; + cdat->dobj_1184__SUBSEQ_MULTIPLE.obj_hash = 1041657316; cdat->dobj_1184__SUBSEQ_MULTIPLE.obj_len = 5; /*inimult dtup_1185__SUBSEQ_MULTIPLE*/ @@ -10011,7 +10011,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1187", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1187.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1187.obj_num = 0; - cdat->dobj_1187.obj_hash = 190089514; + cdat->dobj_1187.obj_hash = 168688264; cdat->dobj_1187.obj_len = 2; /*iniobj dsym_1188__STARTIX*/ @@ -10033,7 +10033,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1190", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1190.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1190.obj_num = 1; - cdat->dobj_1190.obj_hash = 329471001; + cdat->dobj_1190.obj_hash = 258933361; cdat->dobj_1190.obj_len = 2; /*iniobj dsym_1191__ENDIX*/ @@ -10055,7 +10055,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1193", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1193.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1193.obj_num = 2; - cdat->dobj_1193.obj_hash = 174356360; + cdat->dobj_1193.obj_hash = 329471001; cdat->dobj_1193.obj_len = 2; /*inistring dstr_1194__meltgc_new_subs*/ @@ -10084,7 +10084,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1199__TUPLE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1199__TUPLE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1199__TUPLE_NTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1199__TUPLE_NTH.obj_hash = 501921908; + cdat->dobj_1199__TUPLE_NTH.obj_hash = 287314921; cdat->dobj_1199__TUPLE_NTH.obj_len = 9; /*inistring dstr_1200__TUPLE_NTH*/ @@ -10110,7 +10110,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1203", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1203.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1203.obj_num = 0; - cdat->dobj_1203.obj_hash = 306074668; + cdat->dobj_1203.obj_hash = 22814926; cdat->dobj_1203.obj_len = 2; /*inimult dtup_1204__TUPLE_NTH*/ @@ -10135,7 +10135,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1207", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1207", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1207.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1207.obj_hash = 260670530; + cdat->dobj_1207.obj_hash = 626749309; cdat->dobj_1207.obj_len = 2; /*iniobj dsym_1208__OUTCOMP*/ @@ -10157,7 +10157,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1210", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1210.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1210.obj_num = 0; - cdat->dobj_1210.obj_hash = 643773730; + cdat->dobj_1210.obj_hash = 260670530; cdat->dobj_1210.obj_len = 2; /*inimult dtup_1211__TUPLE_NTH*/ @@ -10226,7 +10226,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1225__TUPLE_SIZED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1225__TUPLE_SIZED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1225__TUPLE_SIZED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1225__TUPLE_SIZED.obj_hash = 618835449; + cdat->dobj_1225__TUPLE_SIZED.obj_hash = 387186291; cdat->dobj_1225__TUPLE_SIZED.obj_len = 9; /*inistring dstr_1226__TUPLE_SIZED*/ @@ -10252,7 +10252,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1229", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1229.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1229.obj_num = 0; - cdat->dobj_1229.obj_hash = 464131572; + cdat->dobj_1229.obj_hash = 874618765; cdat->dobj_1229.obj_len = 2; /*inimult dtup_1230__TUPLE_SIZED*/ @@ -10277,7 +10277,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1233", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1233", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1233.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1233.obj_hash = 367204956; + cdat->dobj_1233.obj_hash = 479505874; cdat->dobj_1233.obj_len = 2; /*inimult dtup_1234__TUPLE_SIZED*/ @@ -10384,7 +10384,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1253__MELT_IS_BOOTSTRAPPING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1253__MELT_IS_BOOTSTRAPPING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1253__MELT_IS_BOOTSTRAPPING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1253__MELT_IS_BOOTSTRAPPING.obj_hash = 1032577937; + cdat->dobj_1253__MELT_IS_BOOTSTRAPPING.obj_hash = 451297833; cdat->dobj_1253__MELT_IS_BOOTSTRAPPING.obj_len = 5; /*inimult dtup_1254__MELT_IS_BOOTSTRAPPING*/ @@ -10421,7 +10421,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1260__IS_OUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1260__IS_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1260__IS_OUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1260__IS_OUT.obj_hash = 489547832; + cdat->dobj_1260__IS_OUT.obj_hash = 383547647; cdat->dobj_1260__IS_OUT.obj_len = 5; /*inimult dtup_1261__IS_OUT*/ @@ -10439,7 +10439,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1263", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1263.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1263.obj_num = 0; - cdat->dobj_1263.obj_hash = 330531910; + cdat->dobj_1263.obj_hash = 544105177; cdat->dobj_1263.obj_len = 2; /*inistring dstr_1264__melt_is_out_*/ @@ -10472,7 +10472,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1269__ADD2SBUF_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1269__ADD2SBUF_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1269__ADD2SBUF_STRCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1269__ADD2SBUF_STRCONST.obj_hash = 1002065050; + cdat->dobj_1269__ADD2SBUF_STRCONST.obj_hash = 41974496; cdat->dobj_1269__ADD2SBUF_STRCONST.obj_len = 5; /*inimult dtup_1270__ADD2SBUF_STRCONST*/ @@ -10490,7 +10490,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1272", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1272.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1272.obj_num = 0; - cdat->dobj_1272.obj_hash = 991213563; + cdat->dobj_1272.obj_hash = 495502927; cdat->dobj_1272.obj_len = 2; /*^iniobj*/ @@ -10500,7 +10500,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1273", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1273.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1273.obj_num = 1; - cdat->dobj_1273.obj_hash = 1069879398; + cdat->dobj_1273.obj_hash = 20875733; cdat->dobj_1273.obj_len = 2; /*inistring dstr_1274__meltgc_add_strbu*/ @@ -10537,7 +10537,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1280__ADD2SBUF_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1280__ADD2SBUF_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1280__ADD2SBUF_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1280__ADD2SBUF_STRING.obj_hash = 953414315; + cdat->dobj_1280__ADD2SBUF_STRING.obj_hash = 539346624; cdat->dobj_1280__ADD2SBUF_STRING.obj_len = 5; /*inimult dtup_1281__ADD2SBUF_STRING*/ @@ -10555,7 +10555,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1283", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1283.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1283.obj_num = 0; - cdat->dobj_1283.obj_hash = 898763316; + cdat->dobj_1283.obj_hash = 885925244; cdat->dobj_1283.obj_len = 2; /*^iniobj*/ @@ -10565,7 +10565,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1284", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1284.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1284.obj_num = 1; - cdat->dobj_1284.obj_hash = 545886333; + cdat->dobj_1284.obj_hash = 1013462642; cdat->dobj_1284.obj_len = 2; /*inistring dstr_1285__meltgc_add_strbu*/ @@ -10602,7 +10602,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1291__ADD2SBUF_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1291__ADD2SBUF_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1291__ADD2SBUF_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1291__ADD2SBUF_MIXLOC.obj_hash = 602879319; + cdat->dobj_1291__ADD2SBUF_MIXLOC.obj_hash = 649164239; cdat->dobj_1291__ADD2SBUF_MIXLOC.obj_len = 5; /*inimult dtup_1292__ADD2SBUF_MIXLOC*/ @@ -10620,7 +10620,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1294", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1294.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1294.obj_num = 0; - cdat->dobj_1294.obj_hash = 1037586461; + cdat->dobj_1294.obj_hash = 72836949; cdat->dobj_1294.obj_len = 2; /*iniobj dsym_1295__MIXL*/ @@ -10642,7 +10642,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1297", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1297.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1297.obj_num = 1; - cdat->dobj_1297.obj_hash = 970689817; + cdat->dobj_1297.obj_hash = 707111413; cdat->dobj_1297.obj_len = 2; /*inistring dstr_1298__add2sbufmixloc*/ @@ -10683,7 +10683,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1305__ADD2SBUF_SHORT_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1305__ADD2SBUF_SHORT_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1305__ADD2SBUF_SHORT_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1305__ADD2SBUF_SHORT_MIXLOC.obj_hash = 634871144; + cdat->dobj_1305__ADD2SBUF_SHORT_MIXLOC.obj_hash = 432870415; cdat->dobj_1305__ADD2SBUF_SHORT_MIXLOC.obj_len = 5; /*inimult dtup_1306__ADD2SBUF_SHORT_MIXLOC*/ @@ -10701,7 +10701,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1308", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1308.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1308.obj_num = 0; - cdat->dobj_1308.obj_hash = 992341853; + cdat->dobj_1308.obj_hash = 718684629; cdat->dobj_1308.obj_len = 2; /*^iniobj*/ @@ -10711,7 +10711,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1309", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1309.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1309.obj_num = 1; - cdat->dobj_1309.obj_hash = 838236583; + cdat->dobj_1309.obj_hash = 603515929; cdat->dobj_1309.obj_len = 2; /*inistring dstr_1310__add2sbufshortm*/ @@ -10752,7 +10752,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1317__ADD2SBUF_TEXI_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1317__ADD2SBUF_TEXI_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1317__ADD2SBUF_TEXI_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1317__ADD2SBUF_TEXI_MIXLOC.obj_hash = 850503170; + cdat->dobj_1317__ADD2SBUF_TEXI_MIXLOC.obj_hash = 1059008078; cdat->dobj_1317__ADD2SBUF_TEXI_MIXLOC.obj_len = 5; /*inimult dtup_1318__ADD2SBUF_TEXI_MIXLOC*/ @@ -10770,7 +10770,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1320", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1320.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1320.obj_num = 0; - cdat->dobj_1320.obj_hash = 689760084; + cdat->dobj_1320.obj_hash = 1004544675; cdat->dobj_1320.obj_len = 2; /*^iniobj*/ @@ -10780,7 +10780,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1321", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1321.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1321.obj_num = 1; - cdat->dobj_1321.obj_hash = 608184001; + cdat->dobj_1321.obj_hash = 634578823; cdat->dobj_1321.obj_len = 2; /*inistring dstr_1322__add2sbufteximi*/ @@ -10821,7 +10821,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1329__ADD2SBUF_INDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1329__ADD2SBUF_INDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1329__ADD2SBUF_INDENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1329__ADD2SBUF_INDENT.obj_hash = 627202980; + cdat->dobj_1329__ADD2SBUF_INDENT.obj_hash = 566513793; cdat->dobj_1329__ADD2SBUF_INDENT.obj_len = 5; /*inimult dtup_1330__ADD2SBUF_INDENT*/ @@ -10839,7 +10839,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1332", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1332.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1332.obj_num = 0; - cdat->dobj_1332.obj_hash = 226681106; + cdat->dobj_1332.obj_hash = 157092008; cdat->dobj_1332.obj_len = 2; /*iniobj dsym_1333__DEPTH*/ @@ -10861,7 +10861,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1335", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1335.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1335.obj_num = 1; - cdat->dobj_1335.obj_hash = 891337402; + cdat->dobj_1335.obj_hash = 782282395; cdat->dobj_1335.obj_len = 2; /*inistring dstr_1336__meltgc_strbuf_ad*/ @@ -10898,7 +10898,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1342__ADD2SBUF_INDENTNL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1342__ADD2SBUF_INDENTNL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1342__ADD2SBUF_INDENTNL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1342__ADD2SBUF_INDENTNL.obj_hash = 972021122; + cdat->dobj_1342__ADD2SBUF_INDENTNL.obj_hash = 883002454; cdat->dobj_1342__ADD2SBUF_INDENTNL.obj_len = 5; /*inimult dtup_1343__ADD2SBUF_INDENTNL*/ @@ -10916,7 +10916,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1345", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1345.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1345.obj_num = 0; - cdat->dobj_1345.obj_hash = 511427741; + cdat->dobj_1345.obj_hash = 658185713; cdat->dobj_1345.obj_len = 2; /*^iniobj*/ @@ -10926,7 +10926,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1346", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1346.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1346.obj_num = 1; - cdat->dobj_1346.obj_hash = 747606447; + cdat->dobj_1346.obj_hash = 772601297; cdat->dobj_1346.obj_len = 2; /*inistring dstr_1347__meltgc_strbuf_ad*/ @@ -10963,7 +10963,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1353__ADD2SBUF_SBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1353__ADD2SBUF_SBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1353__ADD2SBUF_SBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1353__ADD2SBUF_SBUF.obj_hash = 586157516; + cdat->dobj_1353__ADD2SBUF_SBUF.obj_hash = 443088935; cdat->dobj_1353__ADD2SBUF_SBUF.obj_len = 5; /*inimult dtup_1354__ADD2SBUF_SBUF*/ @@ -10981,7 +10981,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1356", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1356.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1356.obj_num = 0; - cdat->dobj_1356.obj_hash = 573767215; + cdat->dobj_1356.obj_hash = 968823483; cdat->dobj_1356.obj_len = 2; /*iniobj dsym_1357__ASBUF*/ @@ -11003,7 +11003,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1359", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1359.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1359.obj_num = 1; - cdat->dobj_1359.obj_hash = 945885987; + cdat->dobj_1359.obj_hash = 291580599; cdat->dobj_1359.obj_len = 2; /*inistring dstr_1360__meltgc_add_strbu*/ @@ -11040,7 +11040,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1366__ADD2SBUF_CENCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1366__ADD2SBUF_CENCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1366__ADD2SBUF_CENCSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1366__ADD2SBUF_CENCSTRING.obj_hash = 472677924; + cdat->dobj_1366__ADD2SBUF_CENCSTRING.obj_hash = 1039267022; cdat->dobj_1366__ADD2SBUF_CENCSTRING.obj_len = 5; /*inimult dtup_1367__ADD2SBUF_CENCSTRING*/ @@ -11058,7 +11058,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1369", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1369.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1369.obj_num = 0; - cdat->dobj_1369.obj_hash = 928054441; + cdat->dobj_1369.obj_hash = 375309834; cdat->dobj_1369.obj_len = 2; /*^iniobj*/ @@ -11068,7 +11068,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1370", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1370.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1370.obj_num = 1; - cdat->dobj_1370.obj_hash = 652926167; + cdat->dobj_1370.obj_hash = 462339246; cdat->dobj_1370.obj_len = 2; /*inistring dstr_1371__meltgc_add_strbu*/ @@ -11105,7 +11105,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1377__ADD2SBUF_CENCSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1377__ADD2SBUF_CENCSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1377__ADD2SBUF_CENCSTRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1377__ADD2SBUF_CENCSTRBUF.obj_hash = 465789738; + cdat->dobj_1377__ADD2SBUF_CENCSTRBUF.obj_hash = 502807308; cdat->dobj_1377__ADD2SBUF_CENCSTRBUF.obj_len = 5; /*inimult dtup_1378__ADD2SBUF_CENCSTRBUF*/ @@ -11123,7 +11123,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1380", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1380.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1380.obj_num = 0; - cdat->dobj_1380.obj_hash = 671107979; + cdat->dobj_1380.obj_hash = 770078062; cdat->dobj_1380.obj_len = 2; /*^iniobj*/ @@ -11133,7 +11133,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1381", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1381.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1381.obj_num = 1; - cdat->dobj_1381.obj_hash = 583446578; + cdat->dobj_1381.obj_hash = 557667261; cdat->dobj_1381.obj_len = 2; /*inistring dstr_1382__meltgc_add_strbu*/ @@ -11170,7 +11170,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1388__ADD2SBUF_CCOMSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1388__ADD2SBUF_CCOMSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1388__ADD2SBUF_CCOMSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1388__ADD2SBUF_CCOMSTRING.obj_hash = 670457145; + cdat->dobj_1388__ADD2SBUF_CCOMSTRING.obj_hash = 679544935; cdat->dobj_1388__ADD2SBUF_CCOMSTRING.obj_len = 5; /*inimult dtup_1389__ADD2SBUF_CCOMSTRING*/ @@ -11188,7 +11188,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1391", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1391.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1391.obj_num = 0; - cdat->dobj_1391.obj_hash = 415050310; + cdat->dobj_1391.obj_hash = 557979717; cdat->dobj_1391.obj_len = 2; /*^iniobj*/ @@ -11198,7 +11198,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1392", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1392.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1392.obj_num = 1; - cdat->dobj_1392.obj_hash = 170670337; + cdat->dobj_1392.obj_hash = 702242857; cdat->dobj_1392.obj_len = 2; /*inistring dstr_1393__meltgc_add_strbu*/ @@ -11235,7 +11235,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1399__ADD2SBUF_CCOMSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1399__ADD2SBUF_CCOMSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1399__ADD2SBUF_CCOMSTRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1399__ADD2SBUF_CCOMSTRBUF.obj_hash = 1062067504; + cdat->dobj_1399__ADD2SBUF_CCOMSTRBUF.obj_hash = 591069423; cdat->dobj_1399__ADD2SBUF_CCOMSTRBUF.obj_len = 5; /*inimult dtup_1400__ADD2SBUF_CCOMSTRBUF*/ @@ -11253,7 +11253,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1402", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1402.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1402.obj_num = 0; - cdat->dobj_1402.obj_hash = 727062099; + cdat->dobj_1402.obj_hash = 14666425; cdat->dobj_1402.obj_len = 2; /*^iniobj*/ @@ -11263,7 +11263,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1403", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1403.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1403.obj_num = 1; - cdat->dobj_1403.obj_hash = 645726746; + cdat->dobj_1403.obj_hash = 1048493392; cdat->dobj_1403.obj_len = 2; /*inistring dstr_1404__meltgc_add_strbu*/ @@ -11300,7 +11300,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1410__ADD2SBUF_CCOMCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1410__ADD2SBUF_CCOMCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1410__ADD2SBUF_CCOMCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1410__ADD2SBUF_CCOMCONST.obj_hash = 585699312; + cdat->dobj_1410__ADD2SBUF_CCOMCONST.obj_hash = 843569488; cdat->dobj_1410__ADD2SBUF_CCOMCONST.obj_len = 5; /*inimult dtup_1411__ADD2SBUF_CCOMCONST*/ @@ -11318,7 +11318,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1413", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1413.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1413.obj_num = 0; - cdat->dobj_1413.obj_hash = 330924172; + cdat->dobj_1413.obj_hash = 840120160; cdat->dobj_1413.obj_len = 2; /*iniobj dsym_1414__CSTR*/ @@ -11340,7 +11340,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1416", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1416.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1416.obj_num = 1; - cdat->dobj_1416.obj_hash = 797317922; + cdat->dobj_1416.obj_hash = 341936934; cdat->dobj_1416.obj_len = 2; /*inistring dstr_1417__meltgc_add_strbu*/ @@ -11377,7 +11377,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1423__ADD2SBUF_CIDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1423__ADD2SBUF_CIDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1423__ADD2SBUF_CIDENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1423__ADD2SBUF_CIDENT.obj_hash = 666778073; + cdat->dobj_1423__ADD2SBUF_CIDENT.obj_hash = 634513329; cdat->dobj_1423__ADD2SBUF_CIDENT.obj_len = 5; /*inimult dtup_1424__ADD2SBUF_CIDENT*/ @@ -11395,7 +11395,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1426", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1426.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1426.obj_num = 0; - cdat->dobj_1426.obj_hash = 216392685; + cdat->dobj_1426.obj_hash = 677071582; cdat->dobj_1426.obj_len = 2; /*^iniobj*/ @@ -11405,7 +11405,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1427", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1427.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1427.obj_num = 1; - cdat->dobj_1427.obj_hash = 12622793; + cdat->dobj_1427.obj_hash = 858410542; cdat->dobj_1427.obj_len = 2; /*inistring dstr_1428__meltgc_add_strbu*/ @@ -11442,7 +11442,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1434__ADD2SBUF_CIDENTPREFIX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1434__ADD2SBUF_CIDENTPREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1434__ADD2SBUF_CIDENTPREFIX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1434__ADD2SBUF_CIDENTPREFIX.obj_hash = 461509535; + cdat->dobj_1434__ADD2SBUF_CIDENTPREFIX.obj_hash = 146223305; cdat->dobj_1434__ADD2SBUF_CIDENTPREFIX.obj_len = 5; /*inimult dtup_1435__ADD2SBUF_CIDENTPREFIX*/ @@ -11460,7 +11460,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1437", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1437.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1437.obj_num = 0; - cdat->dobj_1437.obj_hash = 337873029; + cdat->dobj_1437.obj_hash = 242006058; cdat->dobj_1437.obj_len = 2; /*^iniobj*/ @@ -11470,7 +11470,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1438", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1438.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1438.obj_num = 1; - cdat->dobj_1438.obj_hash = 751006568; + cdat->dobj_1438.obj_hash = 674381960; cdat->dobj_1438.obj_len = 2; /*iniobj dsym_1439__PREFLEN*/ @@ -11492,7 +11492,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1441", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1441.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1441.obj_num = 2; - cdat->dobj_1441.obj_hash = 480079740; + cdat->dobj_1441.obj_hash = 337873029; cdat->dobj_1441.obj_len = 2; /*inistring dstr_1442__meltgc_add_strbu*/ @@ -11533,7 +11533,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1449__ADD2SBUF_LONGDEC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1449__ADD2SBUF_LONGDEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1449__ADD2SBUF_LONGDEC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1449__ADD2SBUF_LONGDEC.obj_hash = 193238600; + cdat->dobj_1449__ADD2SBUF_LONGDEC.obj_hash = 552663445; cdat->dobj_1449__ADD2SBUF_LONGDEC.obj_len = 5; /*inimult dtup_1450__ADD2SBUF_LONGDEC*/ @@ -11551,7 +11551,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1452", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1452.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1452.obj_num = 0; - cdat->dobj_1452.obj_hash = 388053277; + cdat->dobj_1452.obj_hash = 1045446845; cdat->dobj_1452.obj_len = 2; /*^iniobj*/ @@ -11561,7 +11561,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1453", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1453.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1453.obj_num = 1; - cdat->dobj_1453.obj_hash = 569849366; + cdat->dobj_1453.obj_hash = 1035516464; cdat->dobj_1453.obj_len = 2; /*inistring dstr_1454__meltgc_add_strbu*/ @@ -11598,7 +11598,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1460__ADD2SBUF_LONGHEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1460__ADD2SBUF_LONGHEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1460__ADD2SBUF_LONGHEX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1460__ADD2SBUF_LONGHEX.obj_hash = 792730149; + cdat->dobj_1460__ADD2SBUF_LONGHEX.obj_hash = 736545244; cdat->dobj_1460__ADD2SBUF_LONGHEX.obj_len = 5; /*inimult dtup_1461__ADD2SBUF_LONGHEX*/ @@ -11616,7 +11616,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1463", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1463.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1463.obj_num = 0; - cdat->dobj_1463.obj_hash = 612050413; + cdat->dobj_1463.obj_hash = 20759765; cdat->dobj_1463.obj_len = 2; /*^iniobj*/ @@ -11626,7 +11626,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1464", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1464.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1464.obj_num = 1; - cdat->dobj_1464.obj_hash = 696882434; + cdat->dobj_1464.obj_hash = 428307710; cdat->dobj_1464.obj_len = 2; /*inistring dstr_1465__meltgc_add_strbu*/ @@ -11663,7 +11663,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1471__ADD2SBUF_ROUTINEDESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1471__ADD2SBUF_ROUTINEDESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1471__ADD2SBUF_ROUTINEDESCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1471__ADD2SBUF_ROUTINEDESCR.obj_hash = 296979268; + cdat->dobj_1471__ADD2SBUF_ROUTINEDESCR.obj_hash = 873982096; cdat->dobj_1471__ADD2SBUF_ROUTINEDESCR.obj_len = 5; /*inimult dtup_1472__ADD2SBUF_ROUTINEDESCR*/ @@ -11681,7 +11681,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1474", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1474.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1474.obj_num = 0; - cdat->dobj_1474.obj_hash = 847190491; + cdat->dobj_1474.obj_hash = 268680511; cdat->dobj_1474.obj_len = 2; /*iniobj dsym_1475__ROUT*/ @@ -11703,7 +11703,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1477", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1477.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1477.obj_num = 1; - cdat->dobj_1477.obj_hash = 295642670; + cdat->dobj_1477.obj_hash = 980180813; cdat->dobj_1477.obj_len = 2; /*inistring dstr_1478__meltgc_add_strbu*/ @@ -11740,7 +11740,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1484__OUTPUT_SBUF_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1484__OUTPUT_SBUF_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1484__OUTPUT_SBUF_STRCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1484__OUTPUT_SBUF_STRCONST.obj_hash = 643704340; + cdat->dobj_1484__OUTPUT_SBUF_STRCONST.obj_hash = 428566355; cdat->dobj_1484__OUTPUT_SBUF_STRCONST.obj_len = 5; /*inimult dtup_1485__OUTPUT_SBUF_STRCONST*/ @@ -11758,7 +11758,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1487", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1487.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1487.obj_num = 0; - cdat->dobj_1487.obj_hash = 848201705; + cdat->dobj_1487.obj_hash = 648570534; cdat->dobj_1487.obj_len = 2; /*iniobj dsym_1488__NAM*/ @@ -11780,7 +11780,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1490", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1490.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1490.obj_num = 1; - cdat->dobj_1490.obj_hash = 859867334; + cdat->dobj_1490.obj_hash = 475699000; cdat->dobj_1490.obj_len = 2; /*inistring dstr_1491__melt_output_str*/ @@ -11817,7 +11817,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1497__OUTPUT_SBUF_STRVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1497__OUTPUT_SBUF_STRVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1497__OUTPUT_SBUF_STRVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1497__OUTPUT_SBUF_STRVAL.obj_hash = 819487289; + cdat->dobj_1497__OUTPUT_SBUF_STRVAL.obj_hash = 159192731; cdat->dobj_1497__OUTPUT_SBUF_STRVAL.obj_len = 5; /*inimult dtup_1498__OUTPUT_SBUF_STRVAL*/ @@ -11835,7 +11835,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1500", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1500.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1500.obj_num = 0; - cdat->dobj_1500.obj_hash = 178844092; + cdat->dobj_1500.obj_hash = 240037054; cdat->dobj_1500.obj_len = 2; /*iniobj dsym_1501__VNAM*/ @@ -11857,7 +11857,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1503", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1503.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1503.obj_num = 1; - cdat->dobj_1503.obj_hash = 112891273; + cdat->dobj_1503.obj_hash = 597515752; cdat->dobj_1503.obj_len = 2; /*inistring dstr_1504__melt_output_str*/ @@ -11894,7 +11894,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1510__ADD2OUT_STRCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1510__ADD2OUT_STRCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1510__ADD2OUT_STRCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1510__ADD2OUT_STRCONST.obj_hash = 231196217; + cdat->dobj_1510__ADD2OUT_STRCONST.obj_hash = 1066188908; cdat->dobj_1510__ADD2OUT_STRCONST.obj_len = 5; /*inimult dtup_1511__ADD2OUT_STRCONST*/ @@ -11912,7 +11912,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1513", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1513.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1513.obj_num = 0; - cdat->dobj_1513.obj_hash = 5399528; + cdat->dobj_1513.obj_hash = 871132570; cdat->dobj_1513.obj_len = 2; /*^iniobj*/ @@ -11922,7 +11922,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1514", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1514.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1514.obj_num = 1; - cdat->dobj_1514.obj_hash = 535629388; + cdat->dobj_1514.obj_hash = 23191220; cdat->dobj_1514.obj_len = 2; /*inistring dstr_1515__meltgc_add_out_*/ @@ -11959,7 +11959,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1521__ADD2OUT_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1521__ADD2OUT_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1521__ADD2OUT_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1521__ADD2OUT_STRING.obj_hash = 1012648405; + cdat->dobj_1521__ADD2OUT_STRING.obj_hash = 916614189; cdat->dobj_1521__ADD2OUT_STRING.obj_len = 5; /*inimult dtup_1522__ADD2OUT_STRING*/ @@ -11977,7 +11977,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1524", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1524.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1524.obj_num = 0; - cdat->dobj_1524.obj_hash = 697401069; + cdat->dobj_1524.obj_hash = 526578716; cdat->dobj_1524.obj_len = 2; /*^iniobj*/ @@ -11987,7 +11987,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1525", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1525.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1525.obj_num = 1; - cdat->dobj_1525.obj_hash = 420791553; + cdat->dobj_1525.obj_hash = 356786510; cdat->dobj_1525.obj_len = 2; /*inistring dstr_1526__meltgc_add_out_*/ @@ -12024,7 +12024,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1532__ADD2OUT_MIXLOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1532__ADD2OUT_MIXLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1532__ADD2OUT_MIXLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1532__ADD2OUT_MIXLOC.obj_hash = 8177080; + cdat->dobj_1532__ADD2OUT_MIXLOC.obj_hash = 776616317; cdat->dobj_1532__ADD2OUT_MIXLOC.obj_len = 5; /*inimult dtup_1533__ADD2OUT_MIXLOC*/ @@ -12042,7 +12042,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1535", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1535.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1535.obj_num = 0; - cdat->dobj_1535.obj_hash = 892983789; + cdat->dobj_1535.obj_hash = 819407824; cdat->dobj_1535.obj_len = 2; /*^iniobj*/ @@ -12052,7 +12052,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1536", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1536.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1536.obj_num = 1; - cdat->dobj_1536.obj_hash = 393666025; + cdat->dobj_1536.obj_hash = 928756523; cdat->dobj_1536.obj_len = 2; /*inistring dstr_1537__add2outmixloc_*/ @@ -12093,7 +12093,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1544__ADD2OUT_INDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1544__ADD2OUT_INDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1544__ADD2OUT_INDENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1544__ADD2OUT_INDENT.obj_hash = 670533815; + cdat->dobj_1544__ADD2OUT_INDENT.obj_hash = 1055190789; cdat->dobj_1544__ADD2OUT_INDENT.obj_len = 5; /*inimult dtup_1545__ADD2OUT_INDENT*/ @@ -12111,7 +12111,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1547", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1547.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1547.obj_num = 0; - cdat->dobj_1547.obj_hash = 684172905; + cdat->dobj_1547.obj_hash = 870975756; cdat->dobj_1547.obj_len = 2; /*^iniobj*/ @@ -12121,7 +12121,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1548", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1548.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1548.obj_num = 1; - cdat->dobj_1548.obj_hash = 995120218; + cdat->dobj_1548.obj_hash = 1039387423; cdat->dobj_1548.obj_len = 2; /*inistring dstr_1549__meltgc_out_add_i*/ @@ -12158,7 +12158,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1555__ADD2OUT_INDENTNL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1555__ADD2OUT_INDENTNL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1555__ADD2OUT_INDENTNL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1555__ADD2OUT_INDENTNL.obj_hash = 153474545; + cdat->dobj_1555__ADD2OUT_INDENTNL.obj_hash = 1035643292; cdat->dobj_1555__ADD2OUT_INDENTNL.obj_len = 5; /*inimult dtup_1556__ADD2OUT_INDENTNL*/ @@ -12176,7 +12176,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1558", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1558.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1558.obj_num = 0; - cdat->dobj_1558.obj_hash = 155592536; + cdat->dobj_1558.obj_hash = 637068400; cdat->dobj_1558.obj_len = 2; /*^iniobj*/ @@ -12186,7 +12186,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1559", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1559.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1559.obj_num = 1; - cdat->dobj_1559.obj_hash = 596144865; + cdat->dobj_1559.obj_hash = 418405304; cdat->dobj_1559.obj_len = 2; /*inistring dstr_1560__meltgc_out_add_i*/ @@ -12223,7 +12223,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1566__ADD2OUT_SBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1566__ADD2OUT_SBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1566__ADD2OUT_SBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1566__ADD2OUT_SBUF.obj_hash = 944227423; + cdat->dobj_1566__ADD2OUT_SBUF.obj_hash = 896806813; cdat->dobj_1566__ADD2OUT_SBUF.obj_len = 5; /*inimult dtup_1567__ADD2OUT_SBUF*/ @@ -12241,7 +12241,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1569", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1569.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1569.obj_num = 0; - cdat->dobj_1569.obj_hash = 879713170; + cdat->dobj_1569.obj_hash = 44153708; cdat->dobj_1569.obj_len = 2; /*^iniobj*/ @@ -12251,7 +12251,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1570", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1570.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1570.obj_num = 1; - cdat->dobj_1570.obj_hash = 654128130; + cdat->dobj_1570.obj_hash = 353716937; cdat->dobj_1570.obj_len = 2; /*inistring dstr_1571__meltgc_add_out_*/ @@ -12288,7 +12288,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1577__ADD2OUT_CENCSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1577__ADD2OUT_CENCSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1577__ADD2OUT_CENCSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1577__ADD2OUT_CENCSTRING.obj_hash = 856103793; + cdat->dobj_1577__ADD2OUT_CENCSTRING.obj_hash = 853459819; cdat->dobj_1577__ADD2OUT_CENCSTRING.obj_len = 5; /*inimult dtup_1578__ADD2OUT_CENCSTRING*/ @@ -12306,7 +12306,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1580", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1580.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1580.obj_num = 0; - cdat->dobj_1580.obj_hash = 376444777; + cdat->dobj_1580.obj_hash = 128755653; cdat->dobj_1580.obj_len = 2; /*^iniobj*/ @@ -12316,7 +12316,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1581", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1581.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1581.obj_num = 1; - cdat->dobj_1581.obj_hash = 84331791; + cdat->dobj_1581.obj_hash = 268857578; cdat->dobj_1581.obj_len = 2; /*inistring dstr_1582__meltgc_add_out_c*/ @@ -12353,7 +12353,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1588__ADD2OUT_CENCSUBSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1588__ADD2OUT_CENCSUBSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1588__ADD2OUT_CENCSUBSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1588__ADD2OUT_CENCSUBSTRING.obj_hash = 574855801; + cdat->dobj_1588__ADD2OUT_CENCSUBSTRING.obj_hash = 399103973; cdat->dobj_1588__ADD2OUT_CENCSUBSTRING.obj_len = 5; /*inimult dtup_1589__ADD2OUT_CENCSUBSTRING*/ @@ -12371,7 +12371,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1591", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1591.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1591.obj_num = 0; - cdat->dobj_1591.obj_hash = 155053553; + cdat->dobj_1591.obj_hash = 984322315; cdat->dobj_1591.obj_len = 2; /*^iniobj*/ @@ -12381,7 +12381,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1592", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1592.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1592.obj_num = 1; - cdat->dobj_1592.obj_hash = 966203782; + cdat->dobj_1592.obj_hash = 750305450; cdat->dobj_1592.obj_len = 2; /*iniobj dsym_1593__OFF*/ @@ -12403,7 +12403,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1595", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1595.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1595.obj_num = 2; - cdat->dobj_1595.obj_hash = 1005960867; + cdat->dobj_1595.obj_hash = 155053553; cdat->dobj_1595.obj_len = 2; /*iniobj dsym_1596__SLEN*/ @@ -12425,7 +12425,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1598", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1598.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1598.obj_num = 3; - cdat->dobj_1598.obj_hash = 403070529; + cdat->dobj_1598.obj_hash = 1005960867; cdat->dobj_1598.obj_len = 2; /*inistring dstr_1599__meltgc_add_out_c*/ @@ -12470,7 +12470,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1607__ADD2OUT_CENCSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1607__ADD2OUT_CENCSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1607__ADD2OUT_CENCSTRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1607__ADD2OUT_CENCSTRBUF.obj_hash = 817409841; + cdat->dobj_1607__ADD2OUT_CENCSTRBUF.obj_hash = 803699215; cdat->dobj_1607__ADD2OUT_CENCSTRBUF.obj_len = 5; /*inimult dtup_1608__ADD2OUT_CENCSTRBUF*/ @@ -12488,7 +12488,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1610", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1610.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1610.obj_num = 0; - cdat->dobj_1610.obj_hash = 937615840; + cdat->dobj_1610.obj_hash = 8882369; cdat->dobj_1610.obj_len = 2; /*^iniobj*/ @@ -12498,7 +12498,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1611", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1611.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1611.obj_num = 1; - cdat->dobj_1611.obj_hash = 211979673; + cdat->dobj_1611.obj_hash = 694942638; cdat->dobj_1611.obj_len = 2; /*inistring dstr_1612__meltgc_add_out_c*/ @@ -12535,7 +12535,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1618__ADD2OUT_CCOMSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1618__ADD2OUT_CCOMSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1618__ADD2OUT_CCOMSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1618__ADD2OUT_CCOMSTRING.obj_hash = 253444427; + cdat->dobj_1618__ADD2OUT_CCOMSTRING.obj_hash = 779672896; cdat->dobj_1618__ADD2OUT_CCOMSTRING.obj_len = 5; /*inimult dtup_1619__ADD2OUT_CCOMSTRING*/ @@ -12553,7 +12553,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1621", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1621.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1621.obj_num = 0; - cdat->dobj_1621.obj_hash = 407427877; + cdat->dobj_1621.obj_hash = 466111749; cdat->dobj_1621.obj_len = 2; /*^iniobj*/ @@ -12563,7 +12563,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1622", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1622.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1622.obj_num = 1; - cdat->dobj_1622.obj_hash = 337687211; + cdat->dobj_1622.obj_hash = 771804638; cdat->dobj_1622.obj_len = 2; /*inistring dstr_1623__meltgc_add_out_c*/ @@ -12600,7 +12600,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1629__ADD2OUT_CCOMSTRBUF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1629__ADD2OUT_CCOMSTRBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1629__ADD2OUT_CCOMSTRBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1629__ADD2OUT_CCOMSTRBUF.obj_hash = 1070451034; + cdat->dobj_1629__ADD2OUT_CCOMSTRBUF.obj_hash = 554767221; cdat->dobj_1629__ADD2OUT_CCOMSTRBUF.obj_len = 5; /*inimult dtup_1630__ADD2OUT_CCOMSTRBUF*/ @@ -12618,7 +12618,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1632", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1632.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1632.obj_num = 0; - cdat->dobj_1632.obj_hash = 202144366; + cdat->dobj_1632.obj_hash = 251318217; cdat->dobj_1632.obj_len = 2; /*^iniobj*/ @@ -12628,7 +12628,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1633", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1633.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1633.obj_num = 1; - cdat->dobj_1633.obj_hash = 554632592; + cdat->dobj_1633.obj_hash = 814798; cdat->dobj_1633.obj_len = 2; /*inistring dstr_1634__meltgc_add_out_c*/ @@ -12665,7 +12665,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1640__ADD2OUT_CCOMCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1640__ADD2OUT_CCOMCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1640__ADD2OUT_CCOMCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1640__ADD2OUT_CCOMCONST.obj_hash = 570156026; + cdat->dobj_1640__ADD2OUT_CCOMCONST.obj_hash = 680740313; cdat->dobj_1640__ADD2OUT_CCOMCONST.obj_len = 5; /*inimult dtup_1641__ADD2OUT_CCOMCONST*/ @@ -12683,7 +12683,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1643", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1643.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1643.obj_num = 0; - cdat->dobj_1643.obj_hash = 441100004; + cdat->dobj_1643.obj_hash = 84637127; cdat->dobj_1643.obj_len = 2; /*^iniobj*/ @@ -12693,7 +12693,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1644", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1644.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1644.obj_num = 1; - cdat->dobj_1644.obj_hash = 27837668; + cdat->dobj_1644.obj_hash = 669080190; cdat->dobj_1644.obj_len = 2; /*inistring dstr_1645__meltgc_add_out_c*/ @@ -12730,7 +12730,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1651__ADD2OUT_CIDENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1651__ADD2OUT_CIDENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1651__ADD2OUT_CIDENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1651__ADD2OUT_CIDENT.obj_hash = 878695032; + cdat->dobj_1651__ADD2OUT_CIDENT.obj_hash = 636088549; cdat->dobj_1651__ADD2OUT_CIDENT.obj_len = 5; /*inimult dtup_1652__ADD2OUT_CIDENT*/ @@ -12748,7 +12748,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1654", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1654.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1654.obj_num = 0; - cdat->dobj_1654.obj_hash = 270030466; + cdat->dobj_1654.obj_hash = 628101014; cdat->dobj_1654.obj_len = 2; /*^iniobj*/ @@ -12758,7 +12758,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1655", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1655.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1655.obj_num = 1; - cdat->dobj_1655.obj_hash = 492639866; + cdat->dobj_1655.obj_hash = 709137907; cdat->dobj_1655.obj_len = 2; /*inistring dstr_1656__meltgc_add_out_c*/ @@ -12795,7 +12795,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1662__ADD2OUT_CIDENTPREFIX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1662__ADD2OUT_CIDENTPREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1662__ADD2OUT_CIDENTPREFIX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1662__ADD2OUT_CIDENTPREFIX.obj_hash = 235229086; + cdat->dobj_1662__ADD2OUT_CIDENTPREFIX.obj_hash = 1065084270; cdat->dobj_1662__ADD2OUT_CIDENTPREFIX.obj_len = 5; /*inimult dtup_1663__ADD2OUT_CIDENTPREFIX*/ @@ -12813,7 +12813,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1665", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1665.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1665.obj_num = 0; - cdat->dobj_1665.obj_hash = 945303575; + cdat->dobj_1665.obj_hash = 673913073; cdat->dobj_1665.obj_len = 2; /*^iniobj*/ @@ -12823,7 +12823,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1666", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1666.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1666.obj_num = 1; - cdat->dobj_1666.obj_hash = 338101191; + cdat->dobj_1666.obj_hash = 992468192; cdat->dobj_1666.obj_len = 2; /*^iniobj*/ @@ -12833,7 +12833,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1667", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1667.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1667.obj_num = 2; - cdat->dobj_1667.obj_hash = 954894532; + cdat->dobj_1667.obj_hash = 945303575; cdat->dobj_1667.obj_len = 2; /*inistring dstr_1668__meltgc_add_out_c*/ @@ -12874,7 +12874,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1675__ADD2OUT_LONGDEC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1675__ADD2OUT_LONGDEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1675__ADD2OUT_LONGDEC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1675__ADD2OUT_LONGDEC.obj_hash = 735395281; + cdat->dobj_1675__ADD2OUT_LONGDEC.obj_hash = 154087722; cdat->dobj_1675__ADD2OUT_LONGDEC.obj_len = 5; /*inimult dtup_1676__ADD2OUT_LONGDEC*/ @@ -12892,7 +12892,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1678", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1678.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1678.obj_num = 0; - cdat->dobj_1678.obj_hash = 711748552; + cdat->dobj_1678.obj_hash = 826141364; cdat->dobj_1678.obj_len = 2; /*^iniobj*/ @@ -12902,7 +12902,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1679", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1679.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1679.obj_num = 1; - cdat->dobj_1679.obj_hash = 929675253; + cdat->dobj_1679.obj_hash = 727800521; cdat->dobj_1679.obj_len = 2; /*inistring dstr_1680__meltgc_add_out_d*/ @@ -12939,7 +12939,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1686__ADD2OUT_LONGHEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1686__ADD2OUT_LONGHEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1686__ADD2OUT_LONGHEX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1686__ADD2OUT_LONGHEX.obj_hash = 162017092; + cdat->dobj_1686__ADD2OUT_LONGHEX.obj_hash = 468716719; cdat->dobj_1686__ADD2OUT_LONGHEX.obj_len = 5; /*inimult dtup_1687__ADD2OUT_LONGHEX*/ @@ -12957,7 +12957,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1689", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1689.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1689.obj_num = 0; - cdat->dobj_1689.obj_hash = 10439302; + cdat->dobj_1689.obj_hash = 665311161; cdat->dobj_1689.obj_len = 2; /*^iniobj*/ @@ -12967,7 +12967,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1690", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1690.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1690.obj_num = 1; - cdat->dobj_1690.obj_hash = 499264631; + cdat->dobj_1690.obj_hash = 510410341; cdat->dobj_1690.obj_len = 2; /*inistring dstr_1691__meltgc_add_out_h*/ @@ -13004,7 +13004,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1697__ADD2OUT_ROUTINEDESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1697__ADD2OUT_ROUTINEDESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1697__ADD2OUT_ROUTINEDESCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1697__ADD2OUT_ROUTINEDESCR.obj_hash = 715656690; + cdat->dobj_1697__ADD2OUT_ROUTINEDESCR.obj_hash = 831320516; cdat->dobj_1697__ADD2OUT_ROUTINEDESCR.obj_len = 5; /*inimult dtup_1698__ADD2OUT_ROUTINEDESCR*/ @@ -13022,7 +13022,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1700", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1700.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1700.obj_num = 0; - cdat->dobj_1700.obj_hash = 720176668; + cdat->dobj_1700.obj_hash = 769555797; cdat->dobj_1700.obj_len = 2; /*^iniobj*/ @@ -13032,7 +13032,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1701", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1701.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1701.obj_num = 1; - cdat->dobj_1701.obj_hash = 651636551; + cdat->dobj_1701.obj_hash = 633009008; cdat->dobj_1701.obj_len = 2; /*inistring dstr_1702__meltgc_add_out_*/ @@ -13057,7 +13057,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1706__CSTRING_SAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1706__CSTRING_SAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1706__CSTRING_SAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1706__CSTRING_SAME.obj_hash = 651648296; + cdat->dobj_1706__CSTRING_SAME.obj_hash = 265574950; cdat->dobj_1706__CSTRING_SAME.obj_len = 9; /*inistring dstr_1707__CSTRING_SAME*/ @@ -13071,7 +13071,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1708", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1708.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1708.obj_num = 0; - cdat->dobj_1708.obj_hash = 561113824; + cdat->dobj_1708.obj_hash = 603449253; cdat->dobj_1708.obj_len = 2; /*inimult dtup_1709__CSTRING_SAME*/ @@ -13084,7 +13084,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1710", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1710", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1710.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1710.obj_hash = 498177749; + cdat->dobj_1710.obj_hash = 546664876; cdat->dobj_1710.obj_len = 2; /*inimult dtup_1711__CSTRING_SAME*/ @@ -13149,7 +13149,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1723__CSTRING_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1723__CSTRING_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1723__CSTRING_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1723__CSTRING_LENGTH.obj_hash = 516015482; + cdat->dobj_1723__CSTRING_LENGTH.obj_hash = 195107419; cdat->dobj_1723__CSTRING_LENGTH.obj_len = 5; /*inimult dtup_1724__CSTRING_LENGTH*/ @@ -13167,7 +13167,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1726", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1726.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1726.obj_num = 0; - cdat->dobj_1726.obj_hash = 68057700; + cdat->dobj_1726.obj_hash = 473119843; cdat->dobj_1726.obj_len = 2; /*inistring dstr_1727__*/ @@ -13228,7 +13228,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1737__MAPSTRING_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1737__MAPSTRING_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1737__MAPSTRING_SIZE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1737__MAPSTRING_SIZE.obj_hash = 756209164; + cdat->dobj_1737__MAPSTRING_SIZE.obj_hash = 341573129; cdat->dobj_1737__MAPSTRING_SIZE.obj_len = 5; /*inimult dtup_1738__MAPSTRING_SIZE*/ @@ -13258,7 +13258,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1742", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1742.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1742.obj_num = 0; - cdat->dobj_1742.obj_hash = 594428764; + cdat->dobj_1742.obj_hash = 454135630; cdat->dobj_1742.obj_len = 2; /*inistring dstr_1743__melt_size_mapst*/ @@ -13291,7 +13291,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1748__MAPSTRING_COUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1748__MAPSTRING_COUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1748__MAPSTRING_COUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1748__MAPSTRING_COUNT.obj_hash = 331582162; + cdat->dobj_1748__MAPSTRING_COUNT.obj_hash = 179780144; cdat->dobj_1748__MAPSTRING_COUNT.obj_len = 5; /*inimult dtup_1749__MAPSTRING_COUNT*/ @@ -13309,7 +13309,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1751", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1751.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1751.obj_num = 0; - cdat->dobj_1751.obj_hash = 250312610; + cdat->dobj_1751.obj_hash = 945514792; cdat->dobj_1751.obj_len = 2; /*inistring dstr_1752__melt_count_maps*/ @@ -13342,7 +13342,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1757__MAPSTRING_RAWGET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1757__MAPSTRING_RAWGET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1757__MAPSTRING_RAWGET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1757__MAPSTRING_RAWGET.obj_hash = 195468398; + cdat->dobj_1757__MAPSTRING_RAWGET.obj_hash = 958084367; cdat->dobj_1757__MAPSTRING_RAWGET.obj_len = 5; /*inimult dtup_1758__MAPSTRING_RAWGET*/ @@ -13360,7 +13360,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1760", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1760.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1760.obj_num = 0; - cdat->dobj_1760.obj_hash = 201923638; + cdat->dobj_1760.obj_hash = 182177810; cdat->dobj_1760.obj_len = 2; /*^iniobj*/ @@ -13370,7 +13370,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1761", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1761.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1761.obj_num = 1; - cdat->dobj_1761.obj_hash = 558740544; + cdat->dobj_1761.obj_hash = 456236197; cdat->dobj_1761.obj_len = 2; /*inistring dstr_1762__melt_get_mapstr*/ @@ -13407,7 +13407,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1768__MAPSTRING_RAWPUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1768__MAPSTRING_RAWPUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1768__MAPSTRING_RAWPUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1768__MAPSTRING_RAWPUT.obj_hash = 989261009; + cdat->dobj_1768__MAPSTRING_RAWPUT.obj_hash = 893426954; cdat->dobj_1768__MAPSTRING_RAWPUT.obj_len = 5; /*inimult dtup_1769__MAPSTRING_RAWPUT*/ @@ -13425,7 +13425,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1771", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1771.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1771.obj_num = 0; - cdat->dobj_1771.obj_hash = 242523720; + cdat->dobj_1771.obj_hash = 271814939; cdat->dobj_1771.obj_len = 2; /*iniobj dsym_1772__KEY*/ @@ -13447,7 +13447,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1774", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1774.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1774.obj_num = 1; - cdat->dobj_1774.obj_hash = 501891473; + cdat->dobj_1774.obj_hash = 792395711; cdat->dobj_1774.obj_len = 2; /*^iniobj*/ @@ -13457,7 +13457,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1775", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1775.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1775.obj_num = 2; - cdat->dobj_1775.obj_hash = 208028114; + cdat->dobj_1775.obj_hash = 501891473; cdat->dobj_1775.obj_len = 2; /*inistring dstr_1776__meltgc_put_mapst*/ @@ -13498,7 +13498,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1783__MAPSTRING_RAWREMOVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1783__MAPSTRING_RAWREMOVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1783__MAPSTRING_RAWREMOVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1783__MAPSTRING_RAWREMOVE.obj_hash = 779027950; + cdat->dobj_1783__MAPSTRING_RAWREMOVE.obj_hash = 673709139; cdat->dobj_1783__MAPSTRING_RAWREMOVE.obj_len = 5; /*inimult dtup_1784__MAPSTRING_RAWREMOVE*/ @@ -13516,7 +13516,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1786", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1786.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1786.obj_num = 0; - cdat->dobj_1786.obj_hash = 537817161; + cdat->dobj_1786.obj_hash = 587772088; cdat->dobj_1786.obj_len = 2; /*^iniobj*/ @@ -13526,7 +13526,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1787", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1787.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1787.obj_num = 1; - cdat->dobj_1787.obj_hash = 812183491; + cdat->dobj_1787.obj_hash = 401400554; cdat->dobj_1787.obj_len = 2; /*inistring dstr_1788__meltgc_remove_ma*/ @@ -13599,7 +13599,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1800__MELT_APPLICATION_DEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1800__MELT_APPLICATION_DEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1800__MELT_APPLICATION_DEPTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1800__MELT_APPLICATION_DEPTH.obj_hash = 386230800; + cdat->dobj_1800__MELT_APPLICATION_DEPTH.obj_hash = 739690823; cdat->dobj_1800__MELT_APPLICATION_DEPTH.obj_len = 5; /*inimult dtup_1801__MELT_APPLICATION_DEPTH*/ @@ -13636,7 +13636,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1807__MELT_APPLICATION_SHALLOWER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1807__MELT_APPLICATION_SHALLOWER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1807__MELT_APPLICATION_SHALLOWER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1807__MELT_APPLICATION_SHALLOWER.obj_hash = 747952860; + cdat->dobj_1807__MELT_APPLICATION_SHALLOWER.obj_hash = 732328176; cdat->dobj_1807__MELT_APPLICATION_SHALLOWER.obj_len = 5; /*inimult dtup_1808__MELT_APPLICATION_SHALLOWER*/ @@ -13654,7 +13654,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1810", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1810.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1810.obj_num = 0; - cdat->dobj_1810.obj_hash = 1033855764; + cdat->dobj_1810.obj_hash = 1047312191; cdat->dobj_1810.obj_len = 2; /*inistring dstr_1811__melt_applicatio*/ @@ -13687,7 +13687,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1816__MELT_APPLICATION_COUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1816__MELT_APPLICATION_COUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1816__MELT_APPLICATION_COUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1816__MELT_APPLICATION_COUNT.obj_hash = 40143950; + cdat->dobj_1816__MELT_APPLICATION_COUNT.obj_hash = 768913836; cdat->dobj_1816__MELT_APPLICATION_COUNT.obj_len = 5; /*inimult dtup_1817__MELT_APPLICATION_COUNT*/ @@ -13736,7 +13736,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1825__MELT_MODE_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1825__MELT_MODE_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1825__MELT_MODE_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V8*/ meltfptr[7]); - cdat->dobj_1825__MELT_MODE_CONTAINER.obj_hash = 92376265; + cdat->dobj_1825__MELT_MODE_CONTAINER.obj_hash = 685008995; cdat->dobj_1825__MELT_MODE_CONTAINER.obj_len = 1; /*iniobj dsym_1826__PASS_EXECUTION_CONTAINER*/ @@ -13757,7 +13757,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1828__PASS_EXECUTION_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1828__PASS_EXECUTION_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1828__PASS_EXECUTION_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V8*/ meltfptr[7]); - cdat->dobj_1828__PASS_EXECUTION_CONTAINER.obj_hash = 273107424; + cdat->dobj_1828__PASS_EXECUTION_CONTAINER.obj_hash = 658633538; cdat->dobj_1828__PASS_EXECUTION_CONTAINER.obj_len = 1; /*inirout drout_1829__RUN_ALL_PASS_EXECUTION_HOOKS*/ @@ -13853,7 +13853,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1843__CLASS_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1843__CLASS_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1843__CLASS_VALUE_DESCRIPTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1843__CLASS_VALUE_DESCRIPTOR.obj_hash = 435905592; + cdat->dobj_1843__CLASS_VALUE_DESCRIPTOR.obj_hash = 823169090; cdat->dobj_1843__CLASS_VALUE_DESCRIPTOR.obj_len = 8; /*inistring dstr_1844__CLASS_VALUE_DESC*/ @@ -13887,7 +13887,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1849__VALDESC_OBJMAGIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1849__VALDESC_OBJMAGIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1849__VALDESC_OBJMAGIC.obj_num = 2; - cdat->dobj_1849__VALDESC_OBJMAGIC.obj_hash = 991698619; + cdat->dobj_1849__VALDESC_OBJMAGIC.obj_hash = 150944015; cdat->dobj_1849__VALDESC_OBJMAGIC.obj_len = 4; /*inistring dstr_1850__VALDESC_OBJMAGIC*/ @@ -13913,7 +13913,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1853__VALDESC_STRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1853__VALDESC_STRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1853__VALDESC_STRUCT.obj_num = 3; - cdat->dobj_1853__VALDESC_STRUCT.obj_hash = 506668324; + cdat->dobj_1853__VALDESC_STRUCT.obj_hash = 949518235; cdat->dobj_1853__VALDESC_STRUCT.obj_len = 4; /*inistring dstr_1854__VALDESC_STRUCT*/ @@ -13939,7 +13939,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1857__VALDESC_UNIONMEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1857__VALDESC_UNIONMEM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1857__VALDESC_UNIONMEM.obj_num = 4; - cdat->dobj_1857__VALDESC_UNIONMEM.obj_hash = 533884501; + cdat->dobj_1857__VALDESC_UNIONMEM.obj_hash = 334281658; cdat->dobj_1857__VALDESC_UNIONMEM.obj_len = 4; /*inistring dstr_1858__VALDESC_UNIONMEM*/ @@ -13965,7 +13965,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1861__VALDESC_GTY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1861__VALDESC_GTY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1861__VALDESC_GTY.obj_num = 5; - cdat->dobj_1861__VALDESC_GTY.obj_hash = 633944950; + cdat->dobj_1861__VALDESC_GTY.obj_hash = 435905592; cdat->dobj_1861__VALDESC_GTY.obj_len = 4; /*inistring dstr_1862__VALDESC_GTY*/ @@ -13991,7 +13991,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1865__VALDESC_MEMBCHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1865__VALDESC_MEMBCHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1865__VALDESC_MEMBCHUNK.obj_num = 6; - cdat->dobj_1865__VALDESC_MEMBCHUNK.obj_hash = 773317369; + cdat->dobj_1865__VALDESC_MEMBCHUNK.obj_hash = 991698619; cdat->dobj_1865__VALDESC_MEMBCHUNK.obj_len = 4; /*inistring dstr_1866__VALDESC_MEMBCHUN*/ @@ -14017,7 +14017,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1869__VALDESC_DECLCHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1869__VALDESC_DECLCHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1869__VALDESC_DECLCHUNK.obj_num = 7; - cdat->dobj_1869__VALDESC_DECLCHUNK.obj_hash = 840562587; + cdat->dobj_1869__VALDESC_DECLCHUNK.obj_hash = 506668324; cdat->dobj_1869__VALDESC_DECLCHUNK.obj_len = 4; /*inistring dstr_1870__VALDESC_DECLCHUN*/ @@ -14043,7 +14043,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1873__VALDESC_COPYCHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1873__VALDESC_COPYCHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1873__VALDESC_COPYCHUNK.obj_num = 8; - cdat->dobj_1873__VALDESC_COPYCHUNK.obj_hash = 818185191; + cdat->dobj_1873__VALDESC_COPYCHUNK.obj_hash = 533884501; cdat->dobj_1873__VALDESC_COPYCHUNK.obj_len = 4; /*inistring dstr_1874__VALDESC_COPYCHUN*/ @@ -14069,7 +14069,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1877__VALDESC_FORWCHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1877__VALDESC_FORWCHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1877__VALDESC_FORWCHUNK.obj_num = 9; - cdat->dobj_1877__VALDESC_FORWCHUNK.obj_hash = 27101644; + cdat->dobj_1877__VALDESC_FORWCHUNK.obj_hash = 633944950; cdat->dobj_1877__VALDESC_FORWCHUNK.obj_len = 4; /*inistring dstr_1878__VALDESC_FORWCHUN*/ @@ -14095,7 +14095,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_hash = 96053014; + cdat->dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_hash = 551341653; cdat->dobj_1881__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_len = 8; /*inistring dstr_1882__CLASS_VARISIZED_*/ @@ -14128,7 +14128,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V8*/ meltfptr[7]); - cdat->dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER.obj_hash = 26274687; + cdat->dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER.obj_hash = 461430505; cdat->dobj_1887__VALUE_DESCRIPTOR_LIST_CONTAINER.obj_len = 1; /*iniobj dsym_1888__DISCR_LIST*/ @@ -14185,7 +14185,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1896__VALDESC_OBJECT", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1896__VALDESC_OBJECT", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1896__VALDESC_OBJECT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_1896__VALDESC_OBJECT.obj_hash = 344137801; + cdat->dobj_1896__VALDESC_OBJECT.obj_hash = 213652480; cdat->dobj_1896__VALDESC_OBJECT.obj_len = 10; /*inistring dstr_1897__VALDESC_OBJECT*/ @@ -14272,7 +14272,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1907__VALDESC_MAPOBJECTS", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1907__VALDESC_MAPOBJECTS", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1907__VALDESC_MAPOBJECTS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_1907__VALDESC_MAPOBJECTS.obj_hash = 831454257; + cdat->dobj_1907__VALDESC_MAPOBJECTS.obj_hash = 480067516; cdat->dobj_1907__VALDESC_MAPOBJECTS.obj_len = 10; /*inistring dstr_1908__VALDESC_MAPOBJEC*/ @@ -14404,7 +14404,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1918__VALDESC_MAPSTRINGS", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1918__VALDESC_MAPSTRINGS", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1918__VALDESC_MAPSTRINGS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_1918__VALDESC_MAPSTRINGS.obj_hash = 354516446; + cdat->dobj_1918__VALDESC_MAPSTRINGS.obj_hash = 932949062; cdat->dobj_1918__VALDESC_MAPSTRINGS.obj_len = 10; /*inistring dstr_1919__VALDESC_MAPSTRIN*/ @@ -14519,7 +14519,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1928__VALDESC_DECAY", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1928__VALDESC_DECAY", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1928__VALDESC_DECAY.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_1928__VALDESC_DECAY.obj_hash = 860299586; + cdat->dobj_1928__VALDESC_DECAY.obj_hash = 1011676701; cdat->dobj_1928__VALDESC_DECAY.obj_len = 10; /*inistring dstr_1929__VALDESC_DECAY*/ @@ -14582,7 +14582,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1939__VALDESC_BOX", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1939__VALDESC_BOX", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1939__VALDESC_BOX.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_1939__VALDESC_BOX.obj_hash = 396397940; + cdat->dobj_1939__VALDESC_BOX.obj_hash = 86619660; cdat->dobj_1939__VALDESC_BOX.obj_len = 10; /*inistring dstr_1940__VALDESC_BOX*/ @@ -14645,7 +14645,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1950__VALDESC_MULTIPLE", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1950__VALDESC_MULTIPLE", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1950__VALDESC_MULTIPLE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_1950__VALDESC_MULTIPLE.obj_hash = 878268003; + cdat->dobj_1950__VALDESC_MULTIPLE.obj_hash = 808837631; cdat->dobj_1950__VALDESC_MULTIPLE.obj_len = 10; /*inistring dstr_1951__VALDESC_MULTIPLE*/ @@ -14734,7 +14734,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1961__VALDESC_CLOSURE", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1961__VALDESC_CLOSURE", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1961__VALDESC_CLOSURE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_1961__VALDESC_CLOSURE.obj_hash = 413403450; + cdat->dobj_1961__VALDESC_CLOSURE.obj_hash = 12338697; cdat->dobj_1961__VALDESC_CLOSURE.obj_len = 10; /*inistring dstr_1962__VALDESC_CLOSURE*/ @@ -14819,7 +14819,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1972__VALDESC_ROUTINE", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1972__VALDESC_ROUTINE", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1972__VALDESC_ROUTINE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_1972__VALDESC_ROUTINE.obj_hash = 934682349; + cdat->dobj_1972__VALDESC_ROUTINE.obj_hash = 1024551338; cdat->dobj_1972__VALDESC_ROUTINE.obj_len = 10; /*inistring dstr_1973__VALDESC_ROUTINE*/ @@ -14918,7 +14918,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1983__VALDESC_STRING", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1983__VALDESC_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1983__VALDESC_STRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_1983__VALDESC_STRING.obj_hash = 293478732; + cdat->dobj_1983__VALDESC_STRING.obj_hash = 875470918; cdat->dobj_1983__VALDESC_STRING.obj_len = 10; /*inistring dstr_1984__VALDESC_STRING*/ @@ -14988,7 +14988,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1993__VALDESC_STRBUF", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1993__VALDESC_STRBUF", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1993__VALDESC_STRBUF.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_1993__VALDESC_STRBUF.obj_hash = 481460794; + cdat->dobj_1993__VALDESC_STRBUF.obj_hash = 808206145; cdat->dobj_1993__VALDESC_STRBUF.obj_len = 10; /*inistring dstr_1994__VALDESC_STRBUF*/ @@ -15081,7 +15081,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2002__VALDESC_PAIR", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2002__VALDESC_PAIR", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2002__VALDESC_PAIR.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2002__VALDESC_PAIR.obj_hash = 80121209; + cdat->dobj_2002__VALDESC_PAIR.obj_hash = 189341193; cdat->dobj_2002__VALDESC_PAIR.obj_len = 10; /*inistring dstr_2003__VALDESC_PAIR*/ @@ -15152,7 +15152,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2014__VALDESC_LIST", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2014__VALDESC_LIST", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2014__VALDESC_LIST.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2014__VALDESC_LIST.obj_hash = 347949523; + cdat->dobj_2014__VALDESC_LIST.obj_hash = 891930887; cdat->dobj_2014__VALDESC_LIST.obj_len = 10; /*inistring dstr_2015__VALDESC_LIST*/ @@ -15219,7 +15219,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2025__VALDESC_INT", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2025__VALDESC_INT", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2025__VALDESC_INT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2025__VALDESC_INT.obj_hash = 481481344; + cdat->dobj_2025__VALDESC_INT.obj_hash = 305850630; cdat->dobj_2025__VALDESC_INT.obj_len = 10; /*inistring dstr_2026__VALDESC_INT*/ @@ -15278,7 +15278,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2034__VALDESC_MIXINT", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2034__VALDESC_MIXINT", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2034__VALDESC_MIXINT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2034__VALDESC_MIXINT.obj_hash = 346231803; + cdat->dobj_2034__VALDESC_MIXINT.obj_hash = 833653840; cdat->dobj_2034__VALDESC_MIXINT.obj_len = 10; /*inistring dstr_2035__VALDESC_MIXINT*/ @@ -15342,7 +15342,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2044__VALDESC_MIXLOC", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2044__VALDESC_MIXLOC", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2044__VALDESC_MIXLOC.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2044__VALDESC_MIXLOC.obj_hash = 896708085; + cdat->dobj_2044__VALDESC_MIXLOC.obj_hash = 367922067; cdat->dobj_2044__VALDESC_MIXLOC.obj_len = 10; /*inistring dstr_2045__VALDESC_MIXLOC*/ @@ -15406,7 +15406,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2054__VALDESC_MIXBIGINT", melt_magic_discr (/*_.VALDATA___V1892*/ meltfptr[1891]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2054__VALDESC_MIXBIGINT", ((meltobject_ptr_t) (/*_.VALDATA___V1892*/ meltfptr[1891]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2054__VALDESC_MIXBIGINT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1892*/ meltfptr[1891]); - cdat->dobj_2054__VALDESC_MIXBIGINT.obj_hash = 1021669693; + cdat->dobj_2054__VALDESC_MIXBIGINT.obj_hash = 814518753; cdat->dobj_2054__VALDESC_MIXBIGINT.obj_len = 10; /*inistring dstr_2055__VALDESC_MIXBIGIN*/ @@ -15491,7 +15491,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2064__VALDESC_REAL", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2064__VALDESC_REAL", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2064__VALDESC_REAL.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2064__VALDESC_REAL.obj_hash = 382993949; + cdat->dobj_2064__VALDESC_REAL.obj_hash = 633670150; cdat->dobj_2064__VALDESC_REAL.obj_len = 10; /*inistring dstr_2065__VALDESC_REAL*/ @@ -15550,7 +15550,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2073__VALDESC_SPECIAL_FILE", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2073__VALDESC_SPECIAL_FILE", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2073__VALDESC_SPECIAL_FILE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2073__VALDESC_SPECIAL_FILE.obj_hash = 547613285; + cdat->dobj_2073__VALDESC_SPECIAL_FILE.obj_hash = 60626321; cdat->dobj_2073__VALDESC_SPECIAL_FILE.obj_len = 10; /*inistring dstr_2074__VALDESC_SPECIAL_*/ @@ -15620,7 +15620,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2084__VALDESC_SPECIAL_RAW_FILE", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2084__VALDESC_SPECIAL_RAW_FILE", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2084__VALDESC_SPECIAL_RAW_FILE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2084__VALDESC_SPECIAL_RAW_FILE.obj_hash = 975795123; + cdat->dobj_2084__VALDESC_SPECIAL_RAW_FILE.obj_hash = 54379339; cdat->dobj_2084__VALDESC_SPECIAL_RAW_FILE.obj_len = 10; /*inistring dstr_2085__VALDESC_SPECIAL_*/ @@ -15694,7 +15694,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2095__VALDESC_SPECIAL_MPFR", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2095__VALDESC_SPECIAL_MPFR", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2095__VALDESC_SPECIAL_MPFR.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2095__VALDESC_SPECIAL_MPFR.obj_hash = 301554232; + cdat->dobj_2095__VALDESC_SPECIAL_MPFR.obj_hash = 177132092; cdat->dobj_2095__VALDESC_SPECIAL_MPFR.obj_len = 10; /*inistring dstr_2096__VALDESC_SPECIAL_*/ @@ -15764,7 +15764,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT.obj_hash = 42704138; + cdat->dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT.obj_hash = 27101939; cdat->dobj_2106__VALDESC_SPECIAL_PPL_COEFFICIENT.obj_len = 10; /*inistring dstr_2107__VALDESC_SPECIAL_*/ @@ -15839,7 +15839,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION.obj_hash = 294035047; + cdat->dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION.obj_hash = 68848567; cdat->dobj_2117__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION.obj_len = 10; /*inistring dstr_2118__VALDESC_SPECIAL_*/ @@ -15914,7 +15914,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT.obj_hash = 917693490; + cdat->dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT.obj_hash = 619163152; cdat->dobj_2128__VALDESC_SPECIAL_PPL_CONSTRAINT.obj_len = 10; /*inistring dstr_2129__VALDESC_SPECIAL_*/ @@ -15989,7 +15989,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM.obj_hash = 1001093305; + cdat->dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM.obj_hash = 227937164; cdat->dobj_2139__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM.obj_len = 10; /*inistring dstr_2140__VALDESC_SPECIAL_*/ @@ -16064,7 +16064,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR.obj_hash = 208310784; + cdat->dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR.obj_hash = 787232069; cdat->dobj_2150__VALDESC_SPECIAL_PPL_GENERATOR.obj_len = 10; /*inistring dstr_2151__VALDESC_SPECIAL_*/ @@ -16138,7 +16138,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM.obj_hash = 437700770; + cdat->dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM.obj_hash = 844609492; cdat->dobj_2161__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM.obj_len = 10; /*inistring dstr_2162__VALDESC_SPECIAL_*/ @@ -16213,7 +16213,7 @@ static void initialize_module_meltdata_warmelt_base (initial_frame_st *iniframp_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V1854*/ meltfptr[1853]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V1854*/ meltfptr[1853]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V1854*/ meltfptr[1853]); - cdat->dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON.obj_hash = 551179044; + cdat->dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON.obj_hash = 362752800; cdat->dobj_2172__VALDESC_SPECIAL_PPL_POLYHEDRON.obj_len = 10; /*inistring dstr_2173__VALDESC_SPECIAL_*/ @@ -16490,7 +16490,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2757; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2279; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_base; /**COMMENT: get previous environment **/; @@ -47033,7 +47033,7 @@ static void forward_or_mark_module_start_frame_warmelt_base (struct callframe_me { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2757); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2279); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_base forwarding %d pointers in frame %p", 2256, (void*) framptr_); for (ix = 0; ix < 2256; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-debug-0.c b/gcc/melt/generated/warmelt-debug-0.c index 16e7c174cf4..ed47a24a63f 100644 --- a/gcc/melt/generated/warmelt-debug-0.c +++ b/gcc/melt/generated/warmelt-debug-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -2058,7 +2058,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_debug iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2555); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -3648); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__CLASS_DEBUG_INFORMATION; @@ -2309,7 +2309,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp 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)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 71129855; + cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_hash = 133061382; cdat->dobj_5__CLASS_DEBUG_INFORMATION.obj_len = 8; /*inistring dstr_6__CLASS_DEBUG_INFO*/ @@ -2343,7 +2343,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__DBGI_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_11__DBGI_OUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__DBGI_OUT.obj_num = 0; - cdat->dobj_11__DBGI_OUT.obj_hash = 825244844; + cdat->dobj_11__DBGI_OUT.obj_hash = 166392553; cdat->dobj_11__DBGI_OUT.obj_len = 4; /*inistring dstr_12__DBGI_OUT*/ @@ -2369,7 +2369,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__DBGI_OCCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__DBGI_OCCMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__DBGI_OCCMAP.obj_num = 1; - cdat->dobj_15__DBGI_OCCMAP.obj_hash = 101477040; + cdat->dobj_15__DBGI_OCCMAP.obj_hash = 615647519; cdat->dobj_15__DBGI_OCCMAP.obj_len = 4; /*inistring dstr_16__DBGI_OCCMAP*/ @@ -2395,7 +2395,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__DBGI_MAXDEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_19__DBGI_MAXDEPTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_19__DBGI_MAXDEPTH.obj_num = 2; - cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 657135481; + cdat->dobj_19__DBGI_MAXDEPTH.obj_hash = 465904621; cdat->dobj_19__DBGI_MAXDEPTH.obj_len = 4; /*inistring dstr_20__DBGI_MAXDEPTH*/ @@ -2420,7 +2420,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_23__DEBUG_DEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_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)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_23__DEBUG_DEPTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_23__DEBUG_DEPTH.obj_hash = 1029098013; + cdat->dobj_23__DEBUG_DEPTH.obj_hash = 682346373; cdat->dobj_23__DEBUG_DEPTH.obj_len = 5; /*inimult dtup_24__DEBUG_DEPTH*/ @@ -2554,7 +2554,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_46", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_46.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_46.obj_num = 0; - cdat->dobj_46.obj_hash = 718012479; + cdat->dobj_46.obj_hash = 745589013; cdat->dobj_46.obj_len = 2; /*iniobj dsym_47__DBGINFO*/ @@ -2576,7 +2576,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_49.obj_num = 1; - cdat->dobj_49.obj_hash = 905656647; + cdat->dobj_49.obj_hash = 718012479; cdat->dobj_49.obj_len = 2; /*iniobj dsym_50__DEPTH*/ @@ -2598,7 +2598,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_52", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_52.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_52.obj_num = 2; - cdat->dobj_52.obj_hash = 776810490; + cdat->dobj_52.obj_hash = 905656647; cdat->dobj_52.obj_len = 2; /*inimult dtup_53__DBG_OUTPUT*/ @@ -2611,7 +2611,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_54__DBG_OUTPUT", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == MELTOBMAG_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]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_54__DBG_OUTPUT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]); - cdat->dobj_54__DBG_OUTPUT.obj_hash = 992008206; + cdat->dobj_54__DBG_OUTPUT.obj_hash = 1030075234; cdat->dobj_54__DBG_OUTPUT.obj_len = 4; /*inistring dstr_55__DBG_OUTPUT*/ @@ -2637,7 +2637,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_58", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_58.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_58.obj_num = 0; - cdat->dobj_58.obj_hash = 657961983; + cdat->dobj_58.obj_hash = 458106459; cdat->dobj_58.obj_len = 2; /*^iniobj*/ @@ -2647,7 +2647,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_59.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_59.obj_num = 1; - cdat->dobj_59.obj_hash = 386457208; + cdat->dobj_59.obj_hash = 447115550; cdat->dobj_59.obj_len = 2; /*^iniobj*/ @@ -2657,7 +2657,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_60", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_60.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_60.obj_num = 2; - cdat->dobj_60.obj_hash = 871589182; + cdat->dobj_60.obj_hash = 657961983; cdat->dobj_60.obj_len = 2; /*inimult dtup_61__DBG_OUTPUTAGAIN*/ @@ -2670,7 +2670,7 @@ static void initialize_module_meltdata_warmelt_debug (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_62__DBG_OUTPUTAGAIN", melt_magic_discr (/*_.CLASS_SELECTOR__V13*/ meltfptr[12]) == MELTOBMAG_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]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_62__DBG_OUTPUTAGAIN.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V13*/ meltfptr[12]); - cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 798102957; + cdat->dobj_62__DBG_OUTPUTAGAIN.obj_hash = 1031298935; cdat->dobj_62__DBG_OUTPUTAGAIN.obj_len = 4; /*inistring dstr_63__DBG_OUTPUTAGAIN*/ @@ -3594,7 +3594,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2555; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -3648; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_debug; /**COMMENT: get previous environment **/; @@ -8105,7 +8105,7 @@ static void forward_or_mark_module_start_frame_warmelt_debug (struct callframe_m { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2555); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -3648); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_debug forwarding %d pointers in frame %p", 289, (void*) framptr_); for (ix = 0; ix < 289; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-first-0.c b/gcc/melt/generated/warmelt-first-0.c index d68cfa5a600..5366bb57249 100644 --- a/gcc/melt/generated/warmelt-first-0.c +++ b/gcc/melt/generated/warmelt-first-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -1371,7 +1371,7 @@ static void initialize_module_meltdata_warmelt_first (initial_frame_st *iniframp { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_first iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -74); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2387); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__CLASS_ROOT; @@ -5309,7 +5309,7 @@ if (((void*)(MELT_PREDEF(CLASS_ROOT))) != (melt_ptr_t)&cdat->dobj_3__CLASS_ROOT) if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3__CLASS_ROOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_3__CLASS_ROOT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_3__CLASS_ROOT.obj_hash = 111094761; + cdat->dobj_3__CLASS_ROOT.obj_hash = 948762681; cdat->dobj_3__CLASS_ROOT.obj_len = 8; /*inistring dstr_4__CLASS_ROOT*/ @@ -5346,7 +5346,7 @@ if (((void*)(MELT_PREDEF(CLASS_PROPED))) != (melt_ptr_t)&cdat->dobj_9__CLASS_PRO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_9__CLASS_PROPED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_9__CLASS_PROPED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_9__CLASS_PROPED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_9__CLASS_PROPED.obj_hash = 469220639; + cdat->dobj_9__CLASS_PROPED.obj_hash = 821854505; cdat->dobj_9__CLASS_PROPED.obj_len = 8; /*inistring dstr_10__CLASS_PROPED*/ @@ -5380,7 +5380,7 @@ if (((void*)(MELT_PREDEF(CLASS_PROPED))) != (melt_ptr_t)&cdat->dobj_9__CLASS_PRO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__PROP_TABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__PROP_TABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__PROP_TABLE.obj_num = 0; - cdat->dobj_15__PROP_TABLE.obj_hash = 531210123; + cdat->dobj_15__PROP_TABLE.obj_hash = 277559636; cdat->dobj_15__PROP_TABLE.obj_len = 4; /*inistring dstr_16__PROP_TABLE*/ @@ -5409,7 +5409,7 @@ if (((void*)(MELT_PREDEF(CLASS_CONTAINER))) != (melt_ptr_t)&cdat->dobj_19__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__CLASS_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_19__CLASS_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_19__CLASS_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_19__CLASS_CONTAINER.obj_hash = 950850844; + cdat->dobj_19__CLASS_CONTAINER.obj_hash = 565694268; cdat->dobj_19__CLASS_CONTAINER.obj_len = 8; /*inistring dstr_20__CLASS_CONTAINER*/ @@ -5443,7 +5443,7 @@ if (((void*)(MELT_PREDEF(CLASS_CONTAINER))) != (melt_ptr_t)&cdat->dobj_19__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_25__CONTAINER_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_25__CONTAINER_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_25__CONTAINER_VALUE.obj_num = 0; - cdat->dobj_25__CONTAINER_VALUE.obj_hash = 509679127; + cdat->dobj_25__CONTAINER_VALUE.obj_hash = 469220639; cdat->dobj_25__CONTAINER_VALUE.obj_len = 4; /*inistring dstr_26__CONTAINER_VALUE*/ @@ -5472,7 +5472,7 @@ if (((void*)(MELT_PREDEF(CLASS_NAMED))) != (melt_ptr_t)&cdat->dobj_29__CLASS_NAM if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_29__CLASS_NAMED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_29__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_29__CLASS_NAMED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_29__CLASS_NAMED.obj_hash = 259837938; + cdat->dobj_29__CLASS_NAMED.obj_hash = 701334716; cdat->dobj_29__CLASS_NAMED.obj_len = 8; /*inistring dstr_30__CLASS_NAMED*/ @@ -5506,7 +5506,7 @@ if (((void*)(MELT_PREDEF(CLASS_NAMED))) != (melt_ptr_t)&cdat->dobj_29__CLASS_NAM if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__NAMED_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35__NAMED_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__NAMED_NAME.obj_num = 1; - cdat->dobj_35__NAMED_NAME.obj_hash = 369478438; + cdat->dobj_35__NAMED_NAME.obj_hash = 950850844; cdat->dobj_35__NAMED_NAME.obj_len = 4; /*inistring dstr_36__NAMED_NAME*/ @@ -5535,7 +5535,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_39__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_39__CLASS_DISCRIMINANT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 546311360; + cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 992325322; cdat->dobj_39__CLASS_DISCRIMINANT.obj_len = 8; /*inistring dstr_40__CLASS_DISCRIMINA*/ @@ -5569,7 +5569,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__DISC_METHODICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_45__DISC_METHODICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__DISC_METHODICT.obj_num = 2; - cdat->dobj_45__DISC_METHODICT.obj_hash = 347410393; + cdat->dobj_45__DISC_METHODICT.obj_hash = 259837938; cdat->dobj_45__DISC_METHODICT.obj_len = 4; /*inistring dstr_46__DISC_METHODICT*/ @@ -5595,7 +5595,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__DISC_SENDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49__DISC_SENDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_49__DISC_SENDER.obj_num = 3; - cdat->dobj_49__DISC_SENDER.obj_hash = 614117600; + cdat->dobj_49__DISC_SENDER.obj_hash = 369478438; cdat->dobj_49__DISC_SENDER.obj_len = 4; /*inistring dstr_50__DISC_SENDER*/ @@ -5621,7 +5621,7 @@ if (((void*)(MELT_PREDEF(CLASS_DISCRIMINANT))) != (melt_ptr_t)&cdat->dobj_39__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__DISC_SUPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_53__DISC_SUPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__DISC_SUPER.obj_num = 4; - cdat->dobj_53__DISC_SUPER.obj_hash = 310098677; + cdat->dobj_53__DISC_SUPER.obj_hash = 510013029; cdat->dobj_53__DISC_SUPER.obj_len = 4; /*inistring dstr_54__DISC_SUPER*/ @@ -5650,7 +5650,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_57__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_CLASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_57__CLASS_CLASS.obj_hash = 808062637; + cdat->dobj_57__CLASS_CLASS.obj_hash = 347410393; cdat->dobj_57__CLASS_CLASS.obj_len = 8; /*inistring dstr_58__CLASS_CLASS*/ @@ -5684,7 +5684,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__CLASS_ANCESTORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_63__CLASS_ANCESTORS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__CLASS_ANCESTORS.obj_num = 5; - cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 588551085; + cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 614117600; cdat->dobj_63__CLASS_ANCESTORS.obj_len = 4; /*inistring dstr_64__CLASS_ANCESTORS*/ @@ -5710,7 +5710,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_67__CLASS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_67__CLASS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__CLASS_FIELDS.obj_num = 6; - cdat->dobj_67__CLASS_FIELDS.obj_hash = 191060235; + cdat->dobj_67__CLASS_FIELDS.obj_hash = 310098677; cdat->dobj_67__CLASS_FIELDS.obj_len = 4; /*inistring dstr_68__CLASS_FIELDS*/ @@ -5736,7 +5736,7 @@ if (((void*)(MELT_PREDEF(CLASS_CLASS))) != (melt_ptr_t)&cdat->dobj_57__CLASS_CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_71__CLASS_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_71__CLASS_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_71__CLASS_DATA.obj_num = 7; - cdat->dobj_71__CLASS_DATA.obj_hash = 574643628; + cdat->dobj_71__CLASS_DATA.obj_hash = 702313116; cdat->dobj_71__CLASS_DATA.obj_len = 4; /*inistring dstr_72__CLASS_DATA*/ @@ -5765,7 +5765,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_75__CLASS_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_75__CLASS_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_75__CLASS_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_75__CLASS_FIELD.obj_hash = 664233075; + cdat->dobj_75__CLASS_FIELD.obj_hash = 588551085; cdat->dobj_75__CLASS_FIELD.obj_len = 8; /*inistring dstr_76__CLASS_FIELD*/ @@ -5799,7 +5799,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_81__FLD_OWNCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_81__FLD_OWNCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__FLD_OWNCLASS.obj_num = 2; - cdat->dobj_81__FLD_OWNCLASS.obj_hash = 539957672; + cdat->dobj_81__FLD_OWNCLASS.obj_hash = 191060235; cdat->dobj_81__FLD_OWNCLASS.obj_len = 4; /*inistring dstr_82__FLD_OWNCLASS*/ @@ -5825,7 +5825,7 @@ if (((void*)(MELT_PREDEF(CLASS_FIELD))) != (melt_ptr_t)&cdat->dobj_75__CLASS_FIE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__FLD_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_85__FLD_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_85__FLD_DATA.obj_num = 3; - cdat->dobj_85__FLD_DATA.obj_hash = 985640450; + cdat->dobj_85__FLD_DATA.obj_hash = 574643628; cdat->dobj_85__FLD_DATA.obj_len = 4; /*inistring dstr_86__FLD_DATA*/ @@ -5854,7 +5854,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_89__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_89__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_89__CLASS_PRIMITIVE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 1038963014; + cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 664233075; cdat->dobj_89__CLASS_PRIMITIVE.obj_len = 8; /*inistring dstr_90__CLASS_PRIMITIVE*/ @@ -5888,7 +5888,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_95__PRIM_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_95__PRIM_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__PRIM_FORMALS.obj_num = 2; - cdat->dobj_95__PRIM_FORMALS.obj_hash = 476461126; + cdat->dobj_95__PRIM_FORMALS.obj_hash = 539957672; cdat->dobj_95__PRIM_FORMALS.obj_len = 4; /*inistring dstr_96__PRIM_FORMALS*/ @@ -5914,7 +5914,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_99__PRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_99__PRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_99__PRIM_TYPE.obj_num = 3; - cdat->dobj_99__PRIM_TYPE.obj_hash = 417366538; + cdat->dobj_99__PRIM_TYPE.obj_hash = 985640450; cdat->dobj_99__PRIM_TYPE.obj_len = 4; /*inistring dstr_100__PRIM_TYPE*/ @@ -5940,7 +5940,7 @@ if (((void*)(MELT_PREDEF(CLASS_PRIMITIVE))) != (melt_ptr_t)&cdat->dobj_89__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_103__PRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_103__PRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_103__PRIM_EXPANSION.obj_num = 4; - cdat->dobj_103__PRIM_EXPANSION.obj_hash = 254797955; + cdat->dobj_103__PRIM_EXPANSION.obj_hash = 607846461; cdat->dobj_103__PRIM_EXPANSION.obj_len = 4; /*inistring dstr_104__PRIM_EXPANSION*/ @@ -5969,7 +5969,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__CLASS_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_107__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_107__CLASS_CITERATOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_107__CLASS_CITERATOR.obj_hash = 241489820; + cdat->dobj_107__CLASS_CITERATOR.obj_hash = 476461126; cdat->dobj_107__CLASS_CITERATOR.obj_len = 8; /*inistring dstr_108__CLASS_CITERATOR*/ @@ -6003,7 +6003,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__CITER_START_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_113__CITER_START_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_113__CITER_START_FORMALS.obj_num = 2; - cdat->dobj_113__CITER_START_FORMALS.obj_hash = 841308510; + cdat->dobj_113__CITER_START_FORMALS.obj_hash = 417366538; cdat->dobj_113__CITER_START_FORMALS.obj_len = 4; /*inistring dstr_114__CITER_START_FORM*/ @@ -6029,7 +6029,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_117__CITER_STATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_117__CITER_STATE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_117__CITER_STATE.obj_num = 3; - cdat->dobj_117__CITER_STATE.obj_hash = 756599551; + cdat->dobj_117__CITER_STATE.obj_hash = 254797955; cdat->dobj_117__CITER_STATE.obj_len = 4; /*inistring dstr_118__CITER_STATE*/ @@ -6055,7 +6055,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__CITER_BODY_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_121__CITER_BODY_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_121__CITER_BODY_FORMALS.obj_num = 4; - cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 335013194; + cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 273776419; cdat->dobj_121__CITER_BODY_FORMALS.obj_len = 4; /*inistring dstr_122__CITER_BODY_FORMA*/ @@ -6081,7 +6081,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_125__CITER_EXPBEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_125__CITER_EXPBEFORE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_125__CITER_EXPBEFORE.obj_num = 5; - cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 665111607; + cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 874167562; cdat->dobj_125__CITER_EXPBEFORE.obj_len = 4; /*inistring dstr_126__CITER_EXPBEFORE*/ @@ -6107,7 +6107,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_129__CITER_EXPAFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_129__CITER_EXPAFTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__CITER_EXPAFTER.obj_num = 6; - cdat->dobj_129__CITER_EXPAFTER.obj_hash = 712980459; + cdat->dobj_129__CITER_EXPAFTER.obj_hash = 913350707; cdat->dobj_129__CITER_EXPAFTER.obj_len = 4; /*inistring dstr_130__CITER_EXPAFTER*/ @@ -6133,7 +6133,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_133__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_133__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_133__CLASS_ANY_MATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 880417789; + cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 335013194; cdat->dobj_133__CLASS_ANY_MATCHER.obj_len = 8; /*inistring dstr_134__CLASS_ANY_MATCHE*/ @@ -6167,7 +6167,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_139__AMATCH_IN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_139__AMATCH_IN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_139__AMATCH_IN.obj_num = 2; - cdat->dobj_139__AMATCH_IN.obj_hash = 492290677; + cdat->dobj_139__AMATCH_IN.obj_hash = 665111607; cdat->dobj_139__AMATCH_IN.obj_len = 4; /*inistring dstr_140__AMATCH_IN*/ @@ -6193,7 +6193,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__AMATCH_MATCHBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_143__AMATCH_MATCHBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__AMATCH_MATCHBIND.obj_num = 3; - cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 98468088; + cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 712980459; cdat->dobj_143__AMATCH_MATCHBIND.obj_len = 4; /*inistring dstr_144__AMATCH_MATCHBIND*/ @@ -6219,7 +6219,7 @@ if (((void*)(MELT_PREDEF(CLASS_CITERATOR))) != (melt_ptr_t)&cdat->dobj_107__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__AMATCH_OUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_147__AMATCH_OUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__AMATCH_OUT.obj_num = 4; - cdat->dobj_147__AMATCH_OUT.obj_hash = 494834865; + cdat->dobj_147__AMATCH_OUT.obj_hash = 567349172; cdat->dobj_147__AMATCH_OUT.obj_len = 4; /*inistring dstr_148__AMATCH_OUT*/ @@ -6248,7 +6248,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__CLASS_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_151__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_CMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_151__CLASS_CMATCHER.obj_hash = 555646260; + cdat->dobj_151__CLASS_CMATCHER.obj_hash = 492290677; cdat->dobj_151__CLASS_CMATCHER.obj_len = 8; /*inistring dstr_152__CLASS_CMATCHER*/ @@ -6282,7 +6282,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__CMATCH_STATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_157__CMATCH_STATE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_157__CMATCH_STATE.obj_num = 5; - cdat->dobj_157__CMATCH_STATE.obj_hash = 1059720950; + cdat->dobj_157__CMATCH_STATE.obj_hash = 98468088; cdat->dobj_157__CMATCH_STATE.obj_len = 4; /*inistring dstr_158__CMATCH_STATE*/ @@ -6308,7 +6308,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_161__CMATCH_EXPTEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_161__CMATCH_EXPTEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__CMATCH_EXPTEST.obj_num = 6; - cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 914396754; + cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 494834865; cdat->dobj_161__CMATCH_EXPTEST.obj_len = 4; /*inistring dstr_162__CMATCH_EXPTEST*/ @@ -6334,7 +6334,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_165__CMATCH_EXPFILL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_165__CMATCH_EXPFILL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_165__CMATCH_EXPFILL.obj_num = 7; - cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 171758321; + cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 323635671; cdat->dobj_165__CMATCH_EXPFILL.obj_len = 4; /*inistring dstr_166__CMATCH_EXPFILL*/ @@ -6360,7 +6360,7 @@ if (((void*)(MELT_PREDEF(CLASS_CMATCHER))) != (melt_ptr_t)&cdat->dobj_151__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CMATCH_EXPOPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_169__CMATCH_EXPOPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_169__CMATCH_EXPOPER.obj_num = 8; - cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 526691149; + cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 395864663; cdat->dobj_169__CMATCH_EXPOPER.obj_len = 4; /*inistring dstr_170__CMATCH_EXPOPER*/ @@ -6389,7 +6389,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_173__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_173__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_173__CLASS_FUNMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 122636761; + cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 914396754; cdat->dobj_173__CLASS_FUNMATCHER.obj_len = 8; /*inistring dstr_174__CLASS_FUNMATCHER*/ @@ -6423,7 +6423,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__FMATCH_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_179__FMATCH_MATCHF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_179__FMATCH_MATCHF.obj_num = 5; - cdat->dobj_179__FMATCH_MATCHF.obj_hash = 505860073; + cdat->dobj_179__FMATCH_MATCHF.obj_hash = 171758321; cdat->dobj_179__FMATCH_MATCHF.obj_len = 4; /*inistring dstr_180__FMATCH_MATCHF*/ @@ -6449,7 +6449,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__FMATCH_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_183__FMATCH_APPLYF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_183__FMATCH_APPLYF.obj_num = 6; - cdat->dobj_183__FMATCH_APPLYF.obj_hash = 806086599; + cdat->dobj_183__FMATCH_APPLYF.obj_hash = 526691149; cdat->dobj_183__FMATCH_APPLYF.obj_len = 4; /*inistring dstr_184__FMATCH_APPLYF*/ @@ -6475,7 +6475,7 @@ if (((void*)(MELT_PREDEF(CLASS_FUNMATCHER))) != (melt_ptr_t)&cdat->dobj_173__CLA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_187__FMATCH_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_187__FMATCH_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_187__FMATCH_DATA.obj_num = 7; - cdat->dobj_187__FMATCH_DATA.obj_hash = 974949180; + cdat->dobj_187__FMATCH_DATA.obj_hash = 233826315; cdat->dobj_187__FMATCH_DATA.obj_len = 4; /*inistring dstr_188__FMATCH_DATA*/ @@ -6504,7 +6504,7 @@ if (((void*)(MELT_PREDEF(CLASS_LOCATED))) != (melt_ptr_t)&cdat->dobj_191__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191__CLASS_LOCATED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_191__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_191__CLASS_LOCATED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_191__CLASS_LOCATED.obj_hash = 248222856; + cdat->dobj_191__CLASS_LOCATED.obj_hash = 505860073; cdat->dobj_191__CLASS_LOCATED.obj_len = 8; /*inistring dstr_192__CLASS_LOCATED*/ @@ -6538,7 +6538,7 @@ if (((void*)(MELT_PREDEF(CLASS_LOCATED))) != (melt_ptr_t)&cdat->dobj_191__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_197__LOCA_LOCATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_197__LOCA_LOCATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_197__LOCA_LOCATION.obj_num = 1; - cdat->dobj_197__LOCA_LOCATION.obj_hash = 471855362; + cdat->dobj_197__LOCA_LOCATION.obj_hash = 806086599; cdat->dobj_197__LOCA_LOCATION.obj_len = 4; /*inistring dstr_198__LOCA_LOCATION*/ @@ -6567,7 +6567,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR))) != (melt_ptr_t)&cdat->dobj_201__CLASS_SE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201__CLASS_SEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_201__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_201__CLASS_SEXPR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_201__CLASS_SEXPR.obj_hash = 1051344488; + cdat->dobj_201__CLASS_SEXPR.obj_hash = 862700914; cdat->dobj_201__CLASS_SEXPR.obj_len = 8; /*inistring dstr_202__CLASS_SEXPR*/ @@ -6601,7 +6601,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR))) != (melt_ptr_t)&cdat->dobj_201__CLASS_SE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_207__SEXP_CONTENTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_207__SEXP_CONTENTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_207__SEXP_CONTENTS.obj_num = 2; - cdat->dobj_207__SEXP_CONTENTS.obj_hash = 429916839; + cdat->dobj_207__SEXP_CONTENTS.obj_hash = 248222856; cdat->dobj_207__SEXP_CONTENTS.obj_len = 4; /*inistring dstr_208__SEXP_CONTENTS*/ @@ -6630,7 +6630,7 @@ if (((void*)(MELT_PREDEF(CLASS_SEXPR_MACROSTRING))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_211__CLASS_SEXPR_MACROSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_211__CLASS_SEXPR_MACROSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_hash = 467912407; + cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_hash = 233728325; cdat->dobj_211__CLASS_SEXPR_MACROSTRING.obj_len = 8; /*inistring dstr_212__CLASS_SEXPR_MACR*/ @@ -6667,7 +6667,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_217__CLASS_VARIADIC_FUNCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_217__CLASS_VARIADIC_FUNCTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_217__CLASS_VARIADIC_FUNCTION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_217__CLASS_VARIADIC_FUNCTION.obj_hash = 684454833; + cdat->dobj_217__CLASS_VARIADIC_FUNCTION.obj_hash = 181872602; cdat->dobj_217__CLASS_VARIADIC_FUNCTION.obj_len = 8; /*inistring dstr_218__CLASS_VARIADIC_F*/ @@ -6701,7 +6701,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__VARFUN_FIXEDIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_223__VARFUN_FIXEDIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_223__VARFUN_FIXEDIN.obj_num = 2; - cdat->dobj_223__VARFUN_FIXEDIN.obj_hash = 421126140; + cdat->dobj_223__VARFUN_FIXEDIN.obj_hash = 723937218; cdat->dobj_223__VARFUN_FIXEDIN.obj_len = 4; /*inistring dstr_224__VARFUN_FIXEDIN*/ @@ -6727,7 +6727,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__VARFUN_INITIAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_227__VARFUN_INITIAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_227__VARFUN_INITIAL.obj_num = 3; - cdat->dobj_227__VARFUN_INITIAL.obj_hash = 824811013; + cdat->dobj_227__VARFUN_INITIAL.obj_hash = 467912407; cdat->dobj_227__VARFUN_INITIAL.obj_len = 4; /*inistring dstr_228__VARFUN_INITIAL*/ @@ -6753,7 +6753,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__VARFUN_CTRANSMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_231__VARFUN_CTRANSMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__VARFUN_CTRANSMAP.obj_num = 4; - cdat->dobj_231__VARFUN_CTRANSMAP.obj_hash = 1033948503; + cdat->dobj_231__VARFUN_CTRANSMAP.obj_hash = 845573375; cdat->dobj_231__VARFUN_CTRANSMAP.obj_len = 4; /*inistring dstr_232__VARFUN_CTRANSMAP*/ @@ -6779,7 +6779,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__VARFUN_FINAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_235__VARFUN_FINAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_235__VARFUN_FINAL.obj_num = 5; - cdat->dobj_235__VARFUN_FINAL.obj_hash = 782475094; + cdat->dobj_235__VARFUN_FINAL.obj_hash = 856506896; cdat->dobj_235__VARFUN_FINAL.obj_len = 4; /*inistring dstr_236__VARFUN_FINAL*/ @@ -6805,7 +6805,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_239__CLASS_INFIX_LEXEME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_239__CLASS_INFIX_LEXEME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_239__CLASS_INFIX_LEXEME.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_239__CLASS_INFIX_LEXEME.obj_hash = 253902977; + cdat->dobj_239__CLASS_INFIX_LEXEME.obj_hash = 824811013; cdat->dobj_239__CLASS_INFIX_LEXEME.obj_len = 8; /*inistring dstr_240__CLASS_INFIX_LEXE*/ @@ -6839,7 +6839,7 @@ if (((void*)(MELT_PREDEF(CLASS_VARIADIC_FUNCTION))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__LEXEME_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_245__LEXEME_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_245__LEXEME_DATA.obj_num = 2; - cdat->dobj_245__LEXEME_DATA.obj_hash = 345900403; + cdat->dobj_245__LEXEME_DATA.obj_hash = 1033948503; cdat->dobj_245__LEXEME_DATA.obj_len = 4; /*inistring dstr_246__LEXEME_DATA*/ @@ -6868,7 +6868,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_STRING_LITERAL))) != (melt_ptr_t)&cdat->dob if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_249__CLASS_INFIX_STRING_LITERAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_249__CLASS_INFIX_STRING_LITERAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_249__CLASS_INFIX_STRING_LITERAL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_249__CLASS_INFIX_STRING_LITERAL.obj_hash = 308490622; + cdat->dobj_249__CLASS_INFIX_STRING_LITERAL.obj_hash = 223238984; cdat->dobj_249__CLASS_INFIX_STRING_LITERAL.obj_len = 8; /*inistring dstr_250__CLASS_INFIX_STRI*/ @@ -6905,7 +6905,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_INTEGER_LITERAL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__CLASS_INFIX_INTEGER_LITERAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_255__CLASS_INFIX_INTEGER_LITERAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_255__CLASS_INFIX_INTEGER_LITERAL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_255__CLASS_INFIX_INTEGER_LITERAL.obj_hash = 403296352; + cdat->dobj_255__CLASS_INFIX_INTEGER_LITERAL.obj_hash = 855027231; cdat->dobj_255__CLASS_INFIX_INTEGER_LITERAL.obj_len = 8; /*inistring dstr_256__CLASS_INFIX_INTE*/ @@ -6939,7 +6939,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_INTEGER_LITERAL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_261__CLASS_INFIX_ANY_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_261__CLASS_INFIX_ANY_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_261__CLASS_INFIX_ANY_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_261__CLASS_INFIX_ANY_SYMBOL.obj_hash = 835174039; + cdat->dobj_261__CLASS_INFIX_ANY_SYMBOL.obj_hash = 509431138; cdat->dobj_261__CLASS_INFIX_ANY_SYMBOL.obj_len = 8; /*inistring dstr_262__CLASS_INFIX_ANY_*/ @@ -6976,7 +6976,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_SYMBOL))) != (melt_ptr_t)&cdat->dobj_267__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_267__CLASS_INFIX_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_267__CLASS_INFIX_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_267__CLASS_INFIX_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_267__CLASS_INFIX_SYMBOL.obj_hash = 446141164; + cdat->dobj_267__CLASS_INFIX_SYMBOL.obj_hash = 597708578; cdat->dobj_267__CLASS_INFIX_SYMBOL.obj_len = 8; /*inistring dstr_268__CLASS_INFIX_SYMB*/ @@ -7013,7 +7013,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_ADDITIVE_SYMBOL))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL.obj_hash = 293786235; + cdat->dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL.obj_hash = 355906161; cdat->dobj_273__CLASS_INFIX_ADDITIVE_SYMBOL.obj_len = 8; /*inistring dstr_274__CLASS_INFIX_ADDI*/ @@ -7050,7 +7050,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_MULTIPLICATIVE_SYMBOL))) != (melt_ptr_t)&cd if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_hash = 135397795; + cdat->dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_hash = 278161787; cdat->dobj_279__CLASS_INFIX_MULTIPLICATIVE_SYMBOL.obj_len = 8; /*inistring dstr_280__CLASS_INFIX_MULT*/ @@ -7087,7 +7087,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_RELATIONAL_SYMBOL))) != (melt_ptr_t)&cdat-> if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL.obj_hash = 196148996; + cdat->dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL.obj_hash = 60596856; cdat->dobj_285__CLASS_INFIX_RELATIONAL_SYMBOL.obj_len = 8; /*inistring dstr_286__CLASS_INFIX_RELA*/ @@ -7124,7 +7124,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_DELIMITER))) != (melt_ptr_t)&cdat->dobj_291 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_291__CLASS_INFIX_DELIMITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_291__CLASS_INFIX_DELIMITER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_291__CLASS_INFIX_DELIMITER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_291__CLASS_INFIX_DELIMITER.obj_hash = 559501960; + cdat->dobj_291__CLASS_INFIX_DELIMITER.obj_hash = 981770191; cdat->dobj_291__CLASS_INFIX_DELIMITER.obj_len = 8; /*inistring dstr_292__CLASS_INFIX_DELI*/ @@ -7161,7 +7161,7 @@ if (((void*)(MELT_PREDEF(CLASS_INFIX_KEYWORD))) != (melt_ptr_t)&cdat->dobj_297__ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_297__CLASS_INFIX_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_297__CLASS_INFIX_KEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_297__CLASS_INFIX_KEYWORD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_297__CLASS_INFIX_KEYWORD.obj_hash = 94363533; + cdat->dobj_297__CLASS_INFIX_KEYWORD.obj_hash = 371886565; cdat->dobj_297__CLASS_INFIX_KEYWORD.obj_len = 8; /*inistring dstr_298__CLASS_INFIX_KEYW*/ @@ -7198,7 +7198,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_303__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_303__CLASS_SELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_303__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_303__CLASS_SELECTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_303__CLASS_SELECTOR.obj_hash = 221803182; + cdat->dobj_303__CLASS_SELECTOR.obj_hash = 744247044; cdat->dobj_303__CLASS_SELECTOR.obj_len = 8; /*inistring dstr_304__CLASS_SELECTOR*/ @@ -7232,7 +7232,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_303__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__SEL_SIGNATURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_309__SEL_SIGNATURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__SEL_SIGNATURE.obj_num = 2; - cdat->dobj_309__SEL_SIGNATURE.obj_hash = 491283108; + cdat->dobj_309__SEL_SIGNATURE.obj_hash = 985803317; cdat->dobj_309__SEL_SIGNATURE.obj_len = 4; /*inistring dstr_310__SEL_SIGNATURE*/ @@ -7258,7 +7258,7 @@ if (((void*)(MELT_PREDEF(CLASS_SELECTOR))) != (melt_ptr_t)&cdat->dobj_303__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__SEL_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_313__SEL_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_313__SEL_DATA.obj_num = 3; - cdat->dobj_313__SEL_DATA.obj_hash = 38397652; + cdat->dobj_313__SEL_DATA.obj_hash = 94363533; cdat->dobj_313__SEL_DATA.obj_len = 4; /*inistring dstr_314__SEL_DATA*/ @@ -7287,7 +7287,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_317__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_317__CLASS_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_317__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_317__CLASS_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_317__CLASS_SYMBOL.obj_hash = 54287949; + cdat->dobj_317__CLASS_SYMBOL.obj_hash = 221803182; cdat->dobj_317__CLASS_SYMBOL.obj_len = 8; /*inistring dstr_318__CLASS_SYMBOL*/ @@ -7321,7 +7321,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_317__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__SYMB_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_323__SYMB_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_323__SYMB_DATA.obj_num = 2; - cdat->dobj_323__SYMB_DATA.obj_hash = 1002842570; + cdat->dobj_323__SYMB_DATA.obj_hash = 491283108; cdat->dobj_323__SYMB_DATA.obj_len = 4; /*inistring dstr_324__SYMB_DATA*/ @@ -7347,7 +7347,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_317__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_327__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_327__CLASS_CLONED_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_327__CLASS_CLONED_SYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_327__CLASS_CLONED_SYMBOL.obj_hash = 873346378; + cdat->dobj_327__CLASS_CLONED_SYMBOL.obj_hash = 250430807; cdat->dobj_327__CLASS_CLONED_SYMBOL.obj_len = 8; /*inistring dstr_328__CLASS_CLONED_SYM*/ @@ -7381,7 +7381,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYMBOL))) != (melt_ptr_t)&cdat->dobj_317__CLASS_S if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_333__CSYM_URANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_333__CSYM_URANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_333__CSYM_URANK.obj_num = 3; - cdat->dobj_333__CSYM_URANK.obj_hash = 323264452; + cdat->dobj_333__CSYM_URANK.obj_hash = 54287949; cdat->dobj_333__CSYM_URANK.obj_len = 4; /*inistring dstr_334__CSYM_URANK*/ @@ -7410,7 +7410,7 @@ if (((void*)(MELT_PREDEF(CLASS_KEYWORD))) != (melt_ptr_t)&cdat->dobj_337__CLASS_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__CLASS_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_337__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_337__CLASS_KEYWORD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_337__CLASS_KEYWORD.obj_hash = 861909964; + cdat->dobj_337__CLASS_KEYWORD.obj_hash = 670422757; cdat->dobj_337__CLASS_KEYWORD.obj_len = 8; /*inistring dstr_338__CLASS_KEYWORD*/ @@ -7447,7 +7447,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_343__CLASS_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_343__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_343__CLASS_CTYPE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_343__CLASS_CTYPE.obj_hash = 928366372; + cdat->dobj_343__CLASS_CTYPE.obj_hash = 686907106; cdat->dobj_343__CLASS_CTYPE.obj_len = 8; /*inistring dstr_344__CLASS_CTYPE*/ @@ -7481,7 +7481,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_349__CTYPE_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_349__CTYPE_KEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_349__CTYPE_KEYWORD.obj_num = 2; - cdat->dobj_349__CTYPE_KEYWORD.obj_hash = 968111127; + cdat->dobj_349__CTYPE_KEYWORD.obj_hash = 877164443; cdat->dobj_349__CTYPE_KEYWORD.obj_len = 4; /*inistring dstr_350__CTYPE_KEYWORD*/ @@ -7507,7 +7507,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_353__CTYPE_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_353__CTYPE_CNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_353__CTYPE_CNAME.obj_num = 3; - cdat->dobj_353__CTYPE_CNAME.obj_hash = 973480388; + cdat->dobj_353__CTYPE_CNAME.obj_hash = 861909964; cdat->dobj_353__CTYPE_CNAME.obj_len = 4; /*inistring dstr_354__CTYPE_CNAME*/ @@ -7533,7 +7533,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_357__CTYPE_PARCHAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_357__CTYPE_PARCHAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_357__CTYPE_PARCHAR.obj_num = 4; - cdat->dobj_357__CTYPE_PARCHAR.obj_hash = 194724916; + cdat->dobj_357__CTYPE_PARCHAR.obj_hash = 673333484; cdat->dobj_357__CTYPE_PARCHAR.obj_len = 4; /*inistring dstr_358__CTYPE_PARCHAR*/ @@ -7559,7 +7559,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_361__CTYPE_PARSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_361__CTYPE_PARSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_361__CTYPE_PARSTRING.obj_num = 5; - cdat->dobj_361__CTYPE_PARSTRING.obj_hash = 21289158; + cdat->dobj_361__CTYPE_PARSTRING.obj_hash = 843829265; cdat->dobj_361__CTYPE_PARSTRING.obj_len = 4; /*inistring dstr_362__CTYPE_PARSTRING*/ @@ -7585,7 +7585,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_365__CTYPE_ARGFIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_365__CTYPE_ARGFIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_365__CTYPE_ARGFIELD.obj_num = 6; - cdat->dobj_365__CTYPE_ARGFIELD.obj_hash = 807025857; + cdat->dobj_365__CTYPE_ARGFIELD.obj_hash = 778951495; cdat->dobj_365__CTYPE_ARGFIELD.obj_len = 4; /*inistring dstr_366__CTYPE_ARGFIELD*/ @@ -7611,7 +7611,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__CTYPE_RESFIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_369__CTYPE_RESFIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_369__CTYPE_RESFIELD.obj_num = 7; - cdat->dobj_369__CTYPE_RESFIELD.obj_hash = 783128990; + cdat->dobj_369__CTYPE_RESFIELD.obj_hash = 857004703; cdat->dobj_369__CTYPE_RESFIELD.obj_len = 4; /*inistring dstr_370__CTYPE_RESFIELD*/ @@ -7637,7 +7637,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__CTYPE_MARKER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_373__CTYPE_MARKER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__CTYPE_MARKER.obj_num = 8; - cdat->dobj_373__CTYPE_MARKER.obj_hash = 15710805; + cdat->dobj_373__CTYPE_MARKER.obj_hash = 416499067; cdat->dobj_373__CTYPE_MARKER.obj_len = 4; /*inistring dstr_374__CTYPE_MARKER*/ @@ -7663,7 +7663,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__CTYPE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_377__CTYPE_DESCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__CTYPE_DESCR.obj_num = 9; - cdat->dobj_377__CTYPE_DESCR.obj_hash = 892680677; + cdat->dobj_377__CTYPE_DESCR.obj_hash = 846743409; cdat->dobj_377__CTYPE_DESCR.obj_len = 4; /*inistring dstr_378__CTYPE_DESCR*/ @@ -7689,7 +7689,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE))) != (melt_ptr_t)&cdat->dobj_343__CLASS_CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__CTYPE_ALTKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_381__CTYPE_ALTKEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__CTYPE_ALTKEYWORD.obj_num = 10; - cdat->dobj_381__CTYPE_ALTKEYWORD.obj_hash = 714483107; + cdat->dobj_381__CTYPE_ALTKEYWORD.obj_hash = 61254555; cdat->dobj_381__CTYPE_ALTKEYWORD.obj_len = 4; /*inistring dstr_382__CTYPE_ALTKEYWORD*/ @@ -7718,7 +7718,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__CLASS_CTYPE_GTY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_385__CLASS_CTYPE_GTY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_385__CLASS_CTYPE_GTY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_385__CLASS_CTYPE_GTY.obj_hash = 788400046; + cdat->dobj_385__CLASS_CTYPE_GTY.obj_hash = 15710805; cdat->dobj_385__CLASS_CTYPE_GTY.obj_len = 8; /*inistring dstr_386__CLASS_CTYPE_GTY*/ @@ -7752,7 +7752,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__CTYPG_BOXEDMAGIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_391__CTYPG_BOXEDMAGIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_391__CTYPG_BOXEDMAGIC.obj_num = 11; - cdat->dobj_391__CTYPG_BOXEDMAGIC.obj_hash = 729212839; + cdat->dobj_391__CTYPG_BOXEDMAGIC.obj_hash = 892680677; cdat->dobj_391__CTYPG_BOXEDMAGIC.obj_len = 4; /*inistring dstr_392__CTYPG_BOXEDMAGIC*/ @@ -7778,7 +7778,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__CTYPG_MAPMAGIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_395__CTYPG_MAPMAGIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_395__CTYPG_MAPMAGIC.obj_num = 12; - cdat->dobj_395__CTYPG_MAPMAGIC.obj_hash = 544072657; + cdat->dobj_395__CTYPG_MAPMAGIC.obj_hash = 714483107; cdat->dobj_395__CTYPG_MAPMAGIC.obj_len = 4; /*inistring dstr_396__CTYPG_MAPMAGIC*/ @@ -7804,7 +7804,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_399__CTYPG_BOXEDSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_399__CTYPG_BOXEDSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_399__CTYPG_BOXEDSTRUCT.obj_num = 13; - cdat->dobj_399__CTYPG_BOXEDSTRUCT.obj_hash = 648971655; + cdat->dobj_399__CTYPG_BOXEDSTRUCT.obj_hash = 110916818; cdat->dobj_399__CTYPG_BOXEDSTRUCT.obj_len = 4; /*inistring dstr_400__CTYPG_BOXEDSTRUC*/ @@ -7830,7 +7830,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_403__CTYPG_BOXEDUNIMEMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_403__CTYPG_BOXEDUNIMEMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_403__CTYPG_BOXEDUNIMEMB.obj_num = 14; - cdat->dobj_403__CTYPG_BOXEDUNIMEMB.obj_hash = 177701887; + cdat->dobj_403__CTYPG_BOXEDUNIMEMB.obj_hash = 1053631297; cdat->dobj_403__CTYPG_BOXEDUNIMEMB.obj_len = 4; /*inistring dstr_404__CTYPG_BOXEDUNIME*/ @@ -7856,7 +7856,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_407__CTYPG_ENTRYSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_407__CTYPG_ENTRYSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_407__CTYPG_ENTRYSTRUCT.obj_num = 15; - cdat->dobj_407__CTYPG_ENTRYSTRUCT.obj_hash = 947894161; + cdat->dobj_407__CTYPG_ENTRYSTRUCT.obj_hash = 485250503; cdat->dobj_407__CTYPG_ENTRYSTRUCT.obj_len = 4; /*inistring dstr_408__CTYPG_ENTRYSTRUC*/ @@ -7882,7 +7882,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_411__CTYPG_MAPSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_411__CTYPG_MAPSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_411__CTYPG_MAPSTRUCT.obj_num = 16; - cdat->dobj_411__CTYPG_MAPSTRUCT.obj_hash = 361015422; + cdat->dobj_411__CTYPG_MAPSTRUCT.obj_hash = 327875972; cdat->dobj_411__CTYPG_MAPSTRUCT.obj_len = 4; /*inistring dstr_412__CTYPG_MAPSTRUCT*/ @@ -7908,7 +7908,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_415__CTYPG_BOXDISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_415__CTYPG_BOXDISCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_415__CTYPG_BOXDISCR.obj_num = 17; - cdat->dobj_415__CTYPG_BOXDISCR.obj_hash = 825021846; + cdat->dobj_415__CTYPG_BOXDISCR.obj_hash = 912095752; cdat->dobj_415__CTYPG_BOXDISCR.obj_len = 4; /*inistring dstr_416__CTYPG_BOXDISCR*/ @@ -7934,7 +7934,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419__CTYPG_MAPDISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_419__CTYPG_MAPDISCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_419__CTYPG_MAPDISCR.obj_num = 18; - cdat->dobj_419__CTYPG_MAPDISCR.obj_hash = 570376137; + cdat->dobj_419__CTYPG_MAPDISCR.obj_hash = 673680008; cdat->dobj_419__CTYPG_MAPDISCR.obj_len = 4; /*inistring dstr_420__CTYPG_MAPDISCR*/ @@ -7960,7 +7960,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__CTYPG_MAPUNIMEMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_423__CTYPG_MAPUNIMEMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__CTYPG_MAPUNIMEMB.obj_num = 19; - cdat->dobj_423__CTYPG_MAPUNIMEMB.obj_hash = 1037383997; + cdat->dobj_423__CTYPG_MAPUNIMEMB.obj_hash = 699169670; cdat->dobj_423__CTYPG_MAPUNIMEMB.obj_len = 4; /*inistring dstr_424__CTYPG_MAPUNIMEMB*/ @@ -7986,7 +7986,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__CTYPG_BOXFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_427__CTYPG_BOXFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_427__CTYPG_BOXFUN.obj_num = 20; - cdat->dobj_427__CTYPG_BOXFUN.obj_hash = 774197560; + cdat->dobj_427__CTYPG_BOXFUN.obj_hash = 1055404108; cdat->dobj_427__CTYPG_BOXFUN.obj_len = 4; /*inistring dstr_428__CTYPG_BOXFUN*/ @@ -8012,7 +8012,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_431__CTYPG_UNBOXFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_431__CTYPG_UNBOXFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_431__CTYPG_UNBOXFUN.obj_num = 21; - cdat->dobj_431__CTYPG_UNBOXFUN.obj_hash = 940253627; + cdat->dobj_431__CTYPG_UNBOXFUN.obj_hash = 225507034; cdat->dobj_431__CTYPG_UNBOXFUN.obj_len = 4; /*inistring dstr_432__CTYPG_UNBOXFUN*/ @@ -8038,7 +8038,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_435__CTYPG_UPDATEBOXFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_435__CTYPG_UPDATEBOXFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_435__CTYPG_UPDATEBOXFUN.obj_num = 22; - cdat->dobj_435__CTYPG_UPDATEBOXFUN.obj_hash = 42510414; + cdat->dobj_435__CTYPG_UPDATEBOXFUN.obj_hash = 145541370; cdat->dobj_435__CTYPG_UPDATEBOXFUN.obj_len = 4; /*inistring dstr_436__CTYPG_UPDATEBOXF*/ @@ -8064,7 +8064,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_439__CTYPG_NEWMAPFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_439__CTYPG_NEWMAPFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_439__CTYPG_NEWMAPFUN.obj_num = 23; - cdat->dobj_439__CTYPG_NEWMAPFUN.obj_hash = 675404081; + cdat->dobj_439__CTYPG_NEWMAPFUN.obj_hash = 598851149; cdat->dobj_439__CTYPG_NEWMAPFUN.obj_len = 4; /*inistring dstr_440__CTYPG_NEWMAPFUN*/ @@ -8090,7 +8090,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_443__CTYPG_MAPGETFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_443__CTYPG_MAPGETFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_443__CTYPG_MAPGETFUN.obj_num = 24; - cdat->dobj_443__CTYPG_MAPGETFUN.obj_hash = 143764127; + cdat->dobj_443__CTYPG_MAPGETFUN.obj_hash = 494356803; cdat->dobj_443__CTYPG_MAPGETFUN.obj_len = 4; /*inistring dstr_444__CTYPG_MAPGETFUN*/ @@ -8116,7 +8116,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447__CTYPG_MAPPUTFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_447__CTYPG_MAPPUTFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_447__CTYPG_MAPPUTFUN.obj_num = 25; - cdat->dobj_447__CTYPG_MAPPUTFUN.obj_hash = 275944865; + cdat->dobj_447__CTYPG_MAPPUTFUN.obj_hash = 583527443; cdat->dobj_447__CTYPG_MAPPUTFUN.obj_len = 4; /*inistring dstr_448__CTYPG_MAPPUTFUN*/ @@ -8142,7 +8142,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__CTYPG_MAPREMOVEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_451__CTYPG_MAPREMOVEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_451__CTYPG_MAPREMOVEFUN.obj_num = 26; - cdat->dobj_451__CTYPG_MAPREMOVEFUN.obj_hash = 1051288156; + cdat->dobj_451__CTYPG_MAPREMOVEFUN.obj_hash = 990128873; cdat->dobj_451__CTYPG_MAPREMOVEFUN.obj_len = 4; /*inistring dstr_452__CTYPG_MAPREMOVEF*/ @@ -8168,7 +8168,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__CTYPG_MAPCOUNTFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_455__CTYPG_MAPCOUNTFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_455__CTYPG_MAPCOUNTFUN.obj_num = 27; - cdat->dobj_455__CTYPG_MAPCOUNTFUN.obj_hash = 830746510; + cdat->dobj_455__CTYPG_MAPCOUNTFUN.obj_hash = 785098137; cdat->dobj_455__CTYPG_MAPCOUNTFUN.obj_len = 4; /*inistring dstr_456__CTYPG_MAPCOUNTFU*/ @@ -8194,7 +8194,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_459__CTYPG_MAPSIZEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_459__CTYPG_MAPSIZEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_459__CTYPG_MAPSIZEFUN.obj_num = 28; - cdat->dobj_459__CTYPG_MAPSIZEFUN.obj_hash = 1051027325; + cdat->dobj_459__CTYPG_MAPSIZEFUN.obj_hash = 952614230; cdat->dobj_459__CTYPG_MAPSIZEFUN.obj_len = 4; /*inistring dstr_460__CTYPG_MAPSIZEFUN*/ @@ -8220,7 +8220,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_463__CTYPG_MAPNATTFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_463__CTYPG_MAPNATTFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_463__CTYPG_MAPNATTFUN.obj_num = 29; - cdat->dobj_463__CTYPG_MAPNATTFUN.obj_hash = 476670000; + cdat->dobj_463__CTYPG_MAPNATTFUN.obj_hash = 912294388; cdat->dobj_463__CTYPG_MAPNATTFUN.obj_len = 4; /*inistring dstr_464__CTYPG_MAPNATTFUN*/ @@ -8246,7 +8246,7 @@ if (((void*)(MELT_PREDEF(CLASS_CTYPE_GTY))) != (melt_ptr_t)&cdat->dobj_385__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_467__CTYPG_MAPNVALFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_467__CTYPG_MAPNVALFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_467__CTYPG_MAPNVALFUN.obj_num = 30; - cdat->dobj_467__CTYPG_MAPNVALFUN.obj_hash = 263254409; + cdat->dobj_467__CTYPG_MAPNVALFUN.obj_hash = 646225514; cdat->dobj_467__CTYPG_MAPNVALFUN.obj_len = 4; /*inistring dstr_468__CTYPG_MAPNVALFUN*/ @@ -8275,7 +8275,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_471__CLASS_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_471__CLASS_SYSTEM_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_471__CLASS_SYSTEM_DATA.obj_hash = 677928653; + cdat->dobj_471__CLASS_SYSTEM_DATA.obj_hash = 1051027325; cdat->dobj_471__CLASS_SYSTEM_DATA.obj_len = 8; /*inistring dstr_472__CLASS_SYSTEM_DAT*/ @@ -8309,7 +8309,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_477__SYSDATA_MODE_DICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_477__SYSDATA_MODE_DICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_477__SYSDATA_MODE_DICT.obj_num = 2; - cdat->dobj_477__SYSDATA_MODE_DICT.obj_hash = 1065947175; + cdat->dobj_477__SYSDATA_MODE_DICT.obj_hash = 476670000; cdat->dobj_477__SYSDATA_MODE_DICT.obj_len = 4; /*inistring dstr_478__SYSDATA_MODE_DIC*/ @@ -8335,7 +8335,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__SYSDATA_CONT_FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_481__SYSDATA_CONT_FRESH_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_481__SYSDATA_CONT_FRESH_ENV.obj_num = 3; - cdat->dobj_481__SYSDATA_CONT_FRESH_ENV.obj_hash = 491562840; + cdat->dobj_481__SYSDATA_CONT_FRESH_ENV.obj_hash = 263254409; cdat->dobj_481__SYSDATA_CONT_FRESH_ENV.obj_len = 4; /*inistring dstr_482__SYSDATA_CONT_FRE*/ @@ -8361,7 +8361,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_485__SYSDATA_VALUE_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_485__SYSDATA_VALUE_EXPORTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_485__SYSDATA_VALUE_EXPORTER.obj_num = 4; - cdat->dobj_485__SYSDATA_VALUE_EXPORTER.obj_hash = 112552126; + cdat->dobj_485__SYSDATA_VALUE_EXPORTER.obj_hash = 422254929; cdat->dobj_485__SYSDATA_VALUE_EXPORTER.obj_len = 4; /*inistring dstr_486__SYSDATA_VALUE_EX*/ @@ -8387,7 +8387,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_489__SYSDATA_MACRO_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_489__SYSDATA_MACRO_EXPORTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_489__SYSDATA_MACRO_EXPORTER.obj_num = 5; - cdat->dobj_489__SYSDATA_MACRO_EXPORTER.obj_hash = 697935753; + cdat->dobj_489__SYSDATA_MACRO_EXPORTER.obj_hash = 152632325; cdat->dobj_489__SYSDATA_MACRO_EXPORTER.obj_len = 4; /*inistring dstr_490__SYSDATA_MACRO_EX*/ @@ -8413,7 +8413,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_493__SYSDATA_SYMBOLDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_493__SYSDATA_SYMBOLDICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_493__SYSDATA_SYMBOLDICT.obj_num = 6; - cdat->dobj_493__SYSDATA_SYMBOLDICT.obj_hash = 456717605; + cdat->dobj_493__SYSDATA_SYMBOLDICT.obj_hash = 365906119; cdat->dobj_493__SYSDATA_SYMBOLDICT.obj_len = 4; /*inistring dstr_494__SYSDATA_SYMBOLDI*/ @@ -8439,7 +8439,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__SYSDATA_KEYWDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_497__SYSDATA_KEYWDICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__SYSDATA_KEYWDICT.obj_num = 7; - cdat->dobj_497__SYSDATA_KEYWDICT.obj_hash = 329536211; + cdat->dobj_497__SYSDATA_KEYWDICT.obj_hash = 731252599; cdat->dobj_497__SYSDATA_KEYWDICT.obj_len = 4; /*inistring dstr_498__SYSDATA_KEYWDICT*/ @@ -8465,7 +8465,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__SYSDATA_ADDSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_501__SYSDATA_ADDSYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_501__SYSDATA_ADDSYMBOL.obj_num = 8; - cdat->dobj_501__SYSDATA_ADDSYMBOL.obj_hash = 200856772; + cdat->dobj_501__SYSDATA_ADDSYMBOL.obj_hash = 316914062; cdat->dobj_501__SYSDATA_ADDSYMBOL.obj_len = 4; /*inistring dstr_502__SYSDATA_ADDSYMBO*/ @@ -8491,7 +8491,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505__SYSDATA_ADDKEYW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_505__SYSDATA_ADDKEYW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_505__SYSDATA_ADDKEYW.obj_num = 9; - cdat->dobj_505__SYSDATA_ADDKEYW.obj_hash = 319380211; + cdat->dobj_505__SYSDATA_ADDKEYW.obj_hash = 25993493; cdat->dobj_505__SYSDATA_ADDKEYW.obj_len = 4; /*inistring dstr_506__SYSDATA_ADDKEYW*/ @@ -8517,7 +8517,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_509__SYSDATA_INTERNSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_509__SYSDATA_INTERNSYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_509__SYSDATA_INTERNSYMBOL.obj_num = 10; - cdat->dobj_509__SYSDATA_INTERNSYMBOL.obj_hash = 832704065; + cdat->dobj_509__SYSDATA_INTERNSYMBOL.obj_hash = 184693889; cdat->dobj_509__SYSDATA_INTERNSYMBOL.obj_len = 4; /*inistring dstr_510__SYSDATA_INTERNSY*/ @@ -8543,7 +8543,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_513__SYSDATA_INTERNKEYW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_513__SYSDATA_INTERNKEYW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_513__SYSDATA_INTERNKEYW.obj_num = 11; - cdat->dobj_513__SYSDATA_INTERNKEYW.obj_hash = 389527393; + cdat->dobj_513__SYSDATA_INTERNKEYW.obj_hash = 216431375; cdat->dobj_513__SYSDATA_INTERNKEYW.obj_len = 4; /*inistring dstr_514__SYSDATA_INTERNKE*/ @@ -8569,7 +8569,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_517__SYSDATA_VALUE_IMPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_517__SYSDATA_VALUE_IMPORTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_517__SYSDATA_VALUE_IMPORTER.obj_num = 12; - cdat->dobj_517__SYSDATA_VALUE_IMPORTER.obj_hash = 965054787; + cdat->dobj_517__SYSDATA_VALUE_IMPORTER.obj_hash = 529425077; cdat->dobj_517__SYSDATA_VALUE_IMPORTER.obj_len = 4; /*inistring dstr_518__SYSDATA_VALUE_IM*/ @@ -8595,7 +8595,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_521__SYSDATA_PASS_DICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_521__SYSDATA_PASS_DICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_521__SYSDATA_PASS_DICT.obj_num = 13; - cdat->dobj_521__SYSDATA_PASS_DICT.obj_hash = 612299233; + cdat->dobj_521__SYSDATA_PASS_DICT.obj_hash = 892895094; cdat->dobj_521__SYSDATA_PASS_DICT.obj_len = 4; /*inistring dstr_522__SYSDATA_PASS_DIC*/ @@ -8621,7 +8621,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__SYSDATA_EXIT_FINALIZER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_525__SYSDATA_EXIT_FINALIZER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_525__SYSDATA_EXIT_FINALIZER.obj_num = 14; - cdat->dobj_525__SYSDATA_EXIT_FINALIZER.obj_hash = 1043550801; + cdat->dobj_525__SYSDATA_EXIT_FINALIZER.obj_hash = 584102771; cdat->dobj_525__SYSDATA_EXIT_FINALIZER.obj_len = 4; /*inistring dstr_526__SYSDATA_EXIT_FIN*/ @@ -8647,7 +8647,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__SYSDATA_MELTATTR_DEFINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_529__SYSDATA_MELTATTR_DEFINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_529__SYSDATA_MELTATTR_DEFINER.obj_num = 15; - cdat->dobj_529__SYSDATA_MELTATTR_DEFINER.obj_hash = 394553912; + cdat->dobj_529__SYSDATA_MELTATTR_DEFINER.obj_hash = 1065805767; cdat->dobj_529__SYSDATA_MELTATTR_DEFINER.obj_len = 4; /*inistring dstr_530__SYSDATA_MELTATTR*/ @@ -8673,7 +8673,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__SYSDATA_PATMACRO_EXPORTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_533__SYSDATA_PATMACRO_EXPORTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_533__SYSDATA_PATMACRO_EXPORTER.obj_num = 16; - cdat->dobj_533__SYSDATA_PATMACRO_EXPORTER.obj_hash = 301466328; + cdat->dobj_533__SYSDATA_PATMACRO_EXPORTER.obj_hash = 1007642575; cdat->dobj_533__SYSDATA_PATMACRO_EXPORTER.obj_len = 4; /*inistring dstr_534__SYSDATA_PATMACRO*/ @@ -8699,7 +8699,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__SYSDATA_DEBUGMSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_537__SYSDATA_DEBUGMSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_537__SYSDATA_DEBUGMSG.obj_num = 17; - cdat->dobj_537__SYSDATA_DEBUGMSG.obj_hash = 79946492; + cdat->dobj_537__SYSDATA_DEBUGMSG.obj_hash = 952042264; cdat->dobj_537__SYSDATA_DEBUGMSG.obj_len = 4; /*inistring dstr_538__SYSDATA_DEBUGMSG*/ @@ -8725,7 +8725,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_541__SYSDATA_STDOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_541__SYSDATA_STDOUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_541__SYSDATA_STDOUT.obj_num = 18; - cdat->dobj_541__SYSDATA_STDOUT.obj_hash = 651626315; + cdat->dobj_541__SYSDATA_STDOUT.obj_hash = 754875881; cdat->dobj_541__SYSDATA_STDOUT.obj_len = 4; /*inistring dstr_542__SYSDATA_STDOUT*/ @@ -8751,7 +8751,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545__SYSDATA_STDERR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_545__SYSDATA_STDERR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_545__SYSDATA_STDERR.obj_num = 19; - cdat->dobj_545__SYSDATA_STDERR.obj_hash = 376621445; + cdat->dobj_545__SYSDATA_STDERR.obj_hash = 227472606; cdat->dobj_545__SYSDATA_STDERR.obj_len = 4; /*inistring dstr_546__SYSDATA_STDERR*/ @@ -8777,7 +8777,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549__SYSDATA_DUMPFILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_549__SYSDATA_DUMPFILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_549__SYSDATA_DUMPFILE.obj_num = 20; - cdat->dobj_549__SYSDATA_DUMPFILE.obj_hash = 340946277; + cdat->dobj_549__SYSDATA_DUMPFILE.obj_hash = 443602368; cdat->dobj_549__SYSDATA_DUMPFILE.obj_len = 4; /*inistring dstr_550__SYSDATA_DUMPFILE*/ @@ -8803,7 +8803,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__SYSDATA_UNIT_STARTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_553__SYSDATA_UNIT_STARTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_553__SYSDATA_UNIT_STARTER.obj_num = 21; - cdat->dobj_553__SYSDATA_UNIT_STARTER.obj_hash = 1004718848; + cdat->dobj_553__SYSDATA_UNIT_STARTER.obj_hash = 540956249; cdat->dobj_553__SYSDATA_UNIT_STARTER.obj_len = 4; /*inistring dstr_554__SYSDATA_UNIT_STA*/ @@ -8829,7 +8829,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557__SYSDATA_UNIT_FINISHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_557__SYSDATA_UNIT_FINISHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_557__SYSDATA_UNIT_FINISHER.obj_num = 22; - cdat->dobj_557__SYSDATA_UNIT_FINISHER.obj_hash = 795657354; + cdat->dobj_557__SYSDATA_UNIT_FINISHER.obj_hash = 138447278; cdat->dobj_557__SYSDATA_UNIT_FINISHER.obj_len = 4; /*inistring dstr_558__SYSDATA_UNIT_FIN*/ @@ -8855,7 +8855,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__SYSDATA_OPTION_SET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_561__SYSDATA_OPTION_SET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_561__SYSDATA_OPTION_SET.obj_num = 23; - cdat->dobj_561__SYSDATA_OPTION_SET.obj_hash = 561473698; + cdat->dobj_561__SYSDATA_OPTION_SET.obj_hash = 607077533; cdat->dobj_561__SYSDATA_OPTION_SET.obj_len = 4; /*inistring dstr_562__SYSDATA_OPTION_S*/ @@ -8881,7 +8881,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_565__SYSDATA_PASSEXEC_HOOK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_565__SYSDATA_PASSEXEC_HOOK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_565__SYSDATA_PASSEXEC_HOOK.obj_num = 24; - cdat->dobj_565__SYSDATA_PASSEXEC_HOOK.obj_hash = 283957835; + cdat->dobj_565__SYSDATA_PASSEXEC_HOOK.obj_hash = 931796100; cdat->dobj_565__SYSDATA_PASSEXEC_HOOK.obj_len = 4; /*inistring dstr_566__SYSDATA_PASSEXEC*/ @@ -8907,7 +8907,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569__SYSDATA_SPARE1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_569__SYSDATA_SPARE1.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_569__SYSDATA_SPARE1.obj_num = 25; - cdat->dobj_569__SYSDATA_SPARE1.obj_hash = 9133304; + cdat->dobj_569__SYSDATA_SPARE1.obj_hash = 626918717; cdat->dobj_569__SYSDATA_SPARE1.obj_len = 4; /*inistring dstr_570__SYSDATA_SPARE1*/ @@ -8933,7 +8933,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_573__SYSDATA_SPARE2", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_573__SYSDATA_SPARE2.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_573__SYSDATA_SPARE2.obj_num = 26; - cdat->dobj_573__SYSDATA_SPARE2.obj_hash = 925465865; + cdat->dobj_573__SYSDATA_SPARE2.obj_hash = 1043693378; cdat->dobj_573__SYSDATA_SPARE2.obj_len = 4; /*inistring dstr_574__SYSDATA_SPARE2*/ @@ -8959,7 +8959,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__SYSDATA_SPARE3", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_577__SYSDATA_SPARE3.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_577__SYSDATA_SPARE3.obj_num = 27; - cdat->dobj_577__SYSDATA_SPARE3.obj_hash = 375243869; + cdat->dobj_577__SYSDATA_SPARE3.obj_hash = 959318933; cdat->dobj_577__SYSDATA_SPARE3.obj_len = 4; /*inistring dstr_578__SYSDATA_SPARE3*/ @@ -8985,7 +8985,7 @@ if (((void*)(MELT_PREDEF(CLASS_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_471__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__SYSDATA_SPARE4", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_581__SYSDATA_SPARE4.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_581__SYSDATA_SPARE4.obj_num = 28; - cdat->dobj_581__SYSDATA_SPARE4.obj_hash = 597919408; + cdat->dobj_581__SYSDATA_SPARE4.obj_hash = 285372531; cdat->dobj_581__SYSDATA_SPARE4.obj_len = 4; /*inistring dstr_582__SYSDATA_SPARE4*/ @@ -9014,7 +9014,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_585__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_585__CLASS_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_585__CLASS_ENVIRONMENT.obj_hash = 42629592; + cdat->dobj_585__CLASS_ENVIRONMENT.obj_hash = 925465865; cdat->dobj_585__CLASS_ENVIRONMENT.obj_len = 8; /*inistring dstr_586__CLASS_ENVIRONMEN*/ @@ -9048,7 +9048,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__ENV_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_591__ENV_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_591__ENV_BIND.obj_num = 0; - cdat->dobj_591__ENV_BIND.obj_hash = 969203463; + cdat->dobj_591__ENV_BIND.obj_hash = 375243869; cdat->dobj_591__ENV_BIND.obj_len = 4; /*inistring dstr_592__ENV_BIND*/ @@ -9074,7 +9074,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__ENV_PREV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_595__ENV_PREV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_595__ENV_PREV.obj_num = 1; - cdat->dobj_595__ENV_PREV.obj_hash = 123588722; + cdat->dobj_595__ENV_PREV.obj_hash = 597919408; cdat->dobj_595__ENV_PREV.obj_len = 4; /*inistring dstr_596__ENV_PREV*/ @@ -9100,7 +9100,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__ENV_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_599__ENV_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_599__ENV_PROC.obj_num = 2; - cdat->dobj_599__ENV_PROC.obj_hash = 1066448497; + cdat->dobj_599__ENV_PROC.obj_hash = 1030494854; cdat->dobj_599__ENV_PROC.obj_len = 4; /*inistring dstr_600__ENV_PROC*/ @@ -9126,7 +9126,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_603__CLASS_DESCRIBED_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_603__CLASS_DESCRIBED_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_603__CLASS_DESCRIBED_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_603__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 990440286; + cdat->dobj_603__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 969203463; cdat->dobj_603__CLASS_DESCRIBED_ENVIRONMENT.obj_len = 8; /*inistring dstr_604__CLASS_DESCRIBED_*/ @@ -9160,7 +9160,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__DENV_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_609__DENV_DESCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_609__DENV_DESCR.obj_num = 3; - cdat->dobj_609__DENV_DESCR.obj_hash = 389637538; + cdat->dobj_609__DENV_DESCR.obj_hash = 123588722; cdat->dobj_609__DENV_DESCR.obj_len = 4; /*inistring dstr_610__DENV_DESCR*/ @@ -9186,7 +9186,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_613__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_613__CLASS_ANY_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_613__CLASS_ANY_BINDING.obj_hash = 60305969; + cdat->dobj_613__CLASS_ANY_BINDING.obj_hash = 477287448; cdat->dobj_613__CLASS_ANY_BINDING.obj_len = 8; /*inistring dstr_614__CLASS_ANY_BINDIN*/ @@ -9220,7 +9220,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_619__BINDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_619__BINDER.obj_num = 0; - cdat->dobj_619__BINDER.obj_hash = 342914530; + cdat->dobj_619__BINDER.obj_hash = 990440286; cdat->dobj_619__BINDER.obj_len = 4; /*inistring dstr_620__BINDER*/ @@ -9246,7 +9246,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623__CLASS_EXPORTED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_623__CLASS_EXPORTED_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_623__CLASS_EXPORTED_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_623__CLASS_EXPORTED_BINDING.obj_hash = 307132994; + cdat->dobj_623__CLASS_EXPORTED_BINDING.obj_hash = 411669550; cdat->dobj_623__CLASS_EXPORTED_BINDING.obj_len = 8; /*inistring dstr_624__CLASS_EXPORTED_B*/ @@ -9280,7 +9280,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_629__CLASS_MACRO_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_629__CLASS_MACRO_BINDING.obj_hash = 645093630; + cdat->dobj_629__CLASS_MACRO_BINDING.obj_hash = 319090996; cdat->dobj_629__CLASS_MACRO_BINDING.obj_len = 8; /*inistring dstr_630__CLASS_MACRO_BIND*/ @@ -9314,7 +9314,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_635__MBIND_EXPANSER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_635__MBIND_EXPANSER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_635__MBIND_EXPANSER.obj_num = 1; - cdat->dobj_635__MBIND_EXPANSER.obj_hash = 225169677; + cdat->dobj_635__MBIND_EXPANSER.obj_hash = 847846806; cdat->dobj_635__MBIND_EXPANSER.obj_len = 4; /*inistring dstr_636__MBIND_EXPANSER*/ @@ -9340,7 +9340,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_639__CLASS_PATMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_639__CLASS_PATMACRO_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_639__CLASS_PATMACRO_BINDING.obj_hash = 311118381; + cdat->dobj_639__CLASS_PATMACRO_BINDING.obj_hash = 179380563; cdat->dobj_639__CLASS_PATMACRO_BINDING.obj_len = 8; /*inistring dstr_640__CLASS_PATMACRO_B*/ @@ -9374,7 +9374,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_645__PATBIND_EXPANSER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_645__PATBIND_EXPANSER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_645__PATBIND_EXPANSER.obj_num = 2; - cdat->dobj_645__PATBIND_EXPANSER.obj_hash = 1046825879; + cdat->dobj_645__PATBIND_EXPANSER.obj_hash = 645093630; cdat->dobj_645__PATBIND_EXPANSER.obj_len = 4; /*inistring dstr_646__PATBIND_EXPANSER*/ @@ -9400,7 +9400,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_649__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_649__CLASS_VALUE_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_649__CLASS_VALUE_BINDING.obj_hash = 840775920; + cdat->dobj_649__CLASS_VALUE_BINDING.obj_hash = 423989328; cdat->dobj_649__CLASS_VALUE_BINDING.obj_len = 8; /*inistring dstr_650__CLASS_VALUE_BIND*/ @@ -9434,7 +9434,7 @@ if (((void*)(MELT_PREDEF(CLASS_ENVIRONMENT))) != (melt_ptr_t)&cdat->dobj_585__CL if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_655__VBIND_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_655__VBIND_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_655__VBIND_VALUE.obj_num = 1; - cdat->dobj_655__VBIND_VALUE.obj_hash = 726293981; + cdat->dobj_655__VBIND_VALUE.obj_hash = 311118381; cdat->dobj_655__VBIND_VALUE.obj_len = 4; /*inistring dstr_656__VBIND_VALUE*/ @@ -9463,7 +9463,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_659__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_659__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_659__CLASS_FORMAL_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_659__CLASS_FORMAL_BINDING.obj_hash = 1023341471; + cdat->dobj_659__CLASS_FORMAL_BINDING.obj_hash = 560639919; cdat->dobj_659__CLASS_FORMAL_BINDING.obj_len = 8; /*inistring dstr_660__CLASS_FORMAL_BIN*/ @@ -9497,7 +9497,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_665__FBIND_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_665__FBIND_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_665__FBIND_TYPE.obj_num = 1; - cdat->dobj_665__FBIND_TYPE.obj_hash = 984829989; + cdat->dobj_665__FBIND_TYPE.obj_hash = 840775920; cdat->dobj_665__FBIND_TYPE.obj_len = 4; /*inistring dstr_666__FBIND_TYPE*/ @@ -9523,7 +9523,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_669__CLASS_FIXED_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_669__CLASS_FIXED_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_669__CLASS_FIXED_BINDING.obj_hash = 906799595; + cdat->dobj_669__CLASS_FIXED_BINDING.obj_hash = 66668842; cdat->dobj_669__CLASS_FIXED_BINDING.obj_len = 8; /*inistring dstr_670__CLASS_FIXED_BIND*/ @@ -9557,7 +9557,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_675__FIXBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_675__FIXBIND_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_675__FIXBIND_DATA.obj_num = 1; - cdat->dobj_675__FIXBIND_DATA.obj_hash = 785980703; + cdat->dobj_675__FIXBIND_DATA.obj_hash = 1023341471; cdat->dobj_675__FIXBIND_DATA.obj_len = 4; /*inistring dstr_676__FIXBIND_DATA*/ @@ -9583,7 +9583,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_679__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_679__CLASS_SELECTOR_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_679__CLASS_SELECTOR_BINDING.obj_hash = 154825897; + cdat->dobj_679__CLASS_SELECTOR_BINDING.obj_hash = 619896888; cdat->dobj_679__CLASS_SELECTOR_BINDING.obj_len = 8; /*inistring dstr_680__CLASS_SELECTOR_B*/ @@ -9617,7 +9617,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_685__SBIND_SELECTORDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_685__SBIND_SELECTORDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_685__SBIND_SELECTORDEF.obj_num = 2; - cdat->dobj_685__SBIND_SELECTORDEF.obj_hash = 797329516; + cdat->dobj_685__SBIND_SELECTORDEF.obj_hash = 906799595; cdat->dobj_685__SBIND_SELECTORDEF.obj_len = 4; /*inistring dstr_686__SBIND_SELECTORDE*/ @@ -9643,7 +9643,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_689__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_689__CLASS_PRIMITIVE_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_689__CLASS_PRIMITIVE_BINDING.obj_hash = 1067339198; + cdat->dobj_689__CLASS_PRIMITIVE_BINDING.obj_hash = 599889642; cdat->dobj_689__CLASS_PRIMITIVE_BINDING.obj_len = 8; /*inistring dstr_690__CLASS_PRIMITIVE_*/ @@ -9677,7 +9677,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_695__PBIND_PRIMDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_695__PBIND_PRIMDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_695__PBIND_PRIMDEF.obj_num = 2; - cdat->dobj_695__PBIND_PRIMDEF.obj_hash = 237587689; + cdat->dobj_695__PBIND_PRIMDEF.obj_hash = 154825897; cdat->dobj_695__PBIND_PRIMDEF.obj_len = 4; /*inistring dstr_696__PBIND_PRIMDEF*/ @@ -9703,7 +9703,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_699__PBIND_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_699__PBIND_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_699__PBIND_PRIMITIVE.obj_num = 3; - cdat->dobj_699__PBIND_PRIMITIVE.obj_hash = 324816181; + cdat->dobj_699__PBIND_PRIMITIVE.obj_hash = 797329516; cdat->dobj_699__PBIND_PRIMITIVE.obj_len = 4; /*inistring dstr_700__PBIND_PRIMITIVE*/ @@ -9729,7 +9729,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_703__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_703__CLASS_CITERATOR_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_703__CLASS_CITERATOR_BINDING.obj_hash = 660003860; + cdat->dobj_703__CLASS_CITERATOR_BINDING.obj_hash = 1067339198; cdat->dobj_703__CLASS_CITERATOR_BINDING.obj_len = 8; /*inistring dstr_704__CLASS_CITERATOR_*/ @@ -9763,7 +9763,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_709__CBIND_CITERDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_709__CBIND_CITERDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_709__CBIND_CITERDEF.obj_num = 2; - cdat->dobj_709__CBIND_CITERDEF.obj_hash = 97382105; + cdat->dobj_709__CBIND_CITERDEF.obj_hash = 237587689; cdat->dobj_709__CBIND_CITERDEF.obj_len = 4; /*inistring dstr_710__CBIND_CITERDEF*/ @@ -9789,7 +9789,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__CBIND_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_713__CBIND_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__CBIND_CITERATOR.obj_num = 3; - cdat->dobj_713__CBIND_CITERATOR.obj_hash = 49666194; + cdat->dobj_713__CBIND_CITERATOR.obj_hash = 324816181; cdat->dobj_713__CBIND_CITERATOR.obj_len = 4; /*inistring dstr_714__CBIND_CITERATOR*/ @@ -9815,7 +9815,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_717__CLASS_FUNCTION_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_717__CLASS_FUNCTION_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_717__CLASS_FUNCTION_BINDING.obj_hash = 87590592; + cdat->dobj_717__CLASS_FUNCTION_BINDING.obj_hash = 660003860; cdat->dobj_717__CLASS_FUNCTION_BINDING.obj_len = 8; /*inistring dstr_718__CLASS_FUNCTION_B*/ @@ -9849,7 +9849,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_723__FUBIND_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_723__FUBIND_DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_723__FUBIND_DEFUN.obj_num = 2; - cdat->dobj_723__FUBIND_DEFUN.obj_hash = 301698085; + cdat->dobj_723__FUBIND_DEFUN.obj_hash = 97382105; cdat->dobj_723__FUBIND_DEFUN.obj_len = 4; /*inistring dstr_724__FUBIND_DEFUN*/ @@ -9875,7 +9875,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_727__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_727__CLASS_CLASS_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_727__CLASS_CLASS_BINDING.obj_hash = 366921511; + cdat->dobj_727__CLASS_CLASS_BINDING.obj_hash = 904877972; cdat->dobj_727__CLASS_CLASS_BINDING.obj_len = 8; /*inistring dstr_728__CLASS_CLASS_BIND*/ @@ -9909,7 +9909,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_733__CBIND_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_733__CBIND_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_733__CBIND_DEFCLASS.obj_num = 2; - cdat->dobj_733__CBIND_DEFCLASS.obj_hash = 370866909; + cdat->dobj_733__CBIND_DEFCLASS.obj_hash = 87590592; cdat->dobj_733__CBIND_DEFCLASS.obj_len = 4; /*inistring dstr_734__CBIND_DEFCLASS*/ @@ -9935,7 +9935,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_737__CBIND_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_737__CBIND_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_737__CBIND_CLASS.obj_num = 3; - cdat->dobj_737__CBIND_CLASS.obj_hash = 196372161; + cdat->dobj_737__CBIND_CLASS.obj_hash = 301698085; cdat->dobj_737__CBIND_CLASS.obj_len = 4; /*inistring dstr_738__CBIND_CLASS*/ @@ -9961,7 +9961,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_741__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_741__CLASS_FIELD_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_741__CLASS_FIELD_BINDING.obj_hash = 989878276; + cdat->dobj_741__CLASS_FIELD_BINDING.obj_hash = 366921511; cdat->dobj_741__CLASS_FIELD_BINDING.obj_len = 8; /*inistring dstr_742__CLASS_FIELD_BIND*/ @@ -9995,7 +9995,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747__FLBIND_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_747__FLBIND_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_747__FLBIND_CLABIND.obj_num = 2; - cdat->dobj_747__FLBIND_CLABIND.obj_hash = 438710135; + cdat->dobj_747__FLBIND_CLABIND.obj_hash = 370866909; cdat->dobj_747__FLBIND_CLABIND.obj_len = 4; /*inistring dstr_748__FLBIND_CLABIND*/ @@ -10021,7 +10021,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__FLBIND_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_751__FLBIND_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_751__FLBIND_FIELD.obj_num = 3; - cdat->dobj_751__FLBIND_FIELD.obj_hash = 365307564; + cdat->dobj_751__FLBIND_FIELD.obj_hash = 196372161; cdat->dobj_751__FLBIND_FIELD.obj_len = 4; /*inistring dstr_752__FLBIND_FIELD*/ @@ -10047,7 +10047,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_755__CLASS_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_755__CLASS_INSTANCE_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_755__CLASS_INSTANCE_BINDING.obj_hash = 133007054; + cdat->dobj_755__CLASS_INSTANCE_BINDING.obj_hash = 989878276; cdat->dobj_755__CLASS_INSTANCE_BINDING.obj_len = 8; /*inistring dstr_756__CLASS_INSTANCE_B*/ @@ -10081,7 +10081,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_761__IBIND_ICLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_761__IBIND_ICLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_761__IBIND_ICLASS.obj_num = 2; - cdat->dobj_761__IBIND_ICLASS.obj_hash = 752786225; + cdat->dobj_761__IBIND_ICLASS.obj_hash = 438710135; cdat->dobj_761__IBIND_ICLASS.obj_len = 4; /*inistring dstr_762__IBIND_ICLASS*/ @@ -10107,7 +10107,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_765__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_765__CLASS_CMATCHER_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_765__CLASS_CMATCHER_BINDING.obj_hash = 137035194; + cdat->dobj_765__CLASS_CMATCHER_BINDING.obj_hash = 8338954; cdat->dobj_765__CLASS_CMATCHER_BINDING.obj_len = 8; /*inistring dstr_766__CLASS_CMATCHER_B*/ @@ -10141,7 +10141,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__CMBIND_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_771__CMBIND_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__CMBIND_MATCHER.obj_num = 2; - cdat->dobj_771__CMBIND_MATCHER.obj_hash = 417373677; + cdat->dobj_771__CMBIND_MATCHER.obj_hash = 133007054; cdat->dobj_771__CMBIND_MATCHER.obj_len = 4; /*inistring dstr_772__CMBIND_MATCHER*/ @@ -10167,7 +10167,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_775__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_FUNMATCHER_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_775__CLASS_FUNMATCHER_BINDING.obj_hash = 1052411650; + cdat->dobj_775__CLASS_FUNMATCHER_BINDING.obj_hash = 1009081313; cdat->dobj_775__CLASS_FUNMATCHER_BINDING.obj_len = 8; /*inistring dstr_776__CLASS_FUNMATCHER*/ @@ -10201,7 +10201,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__FMBIND_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_781__FMBIND_FUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_781__FMBIND_FUNMATCHER.obj_num = 2; - cdat->dobj_781__FMBIND_FUNMATCHER.obj_hash = 1070948102; + cdat->dobj_781__FMBIND_FUNMATCHER.obj_hash = 137035194; cdat->dobj_781__FMBIND_FUNMATCHER.obj_len = 4; /*inistring dstr_782__FMBIND_FUNMATCHE*/ @@ -10227,7 +10227,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__FMBIND_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_785__FMBIND_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_785__FMBIND_DEFUNMATCHER.obj_num = 3; - cdat->dobj_785__FMBIND_DEFUNMATCHER.obj_hash = 322374909; + cdat->dobj_785__FMBIND_DEFUNMATCHER.obj_hash = 417373677; cdat->dobj_785__FMBIND_DEFUNMATCHER.obj_len = 4; /*inistring dstr_786__FMBIND_DEFUNMATC*/ @@ -10253,7 +10253,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__CLASS_VARIADIC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_789__CLASS_VARIADIC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_789__CLASS_VARIADIC_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_789__CLASS_VARIADIC_BINDING.obj_hash = 220616672; + cdat->dobj_789__CLASS_VARIADIC_BINDING.obj_hash = 1052411650; cdat->dobj_789__CLASS_VARIADIC_BINDING.obj_len = 8; /*inistring dstr_790__CLASS_VARIADIC_B*/ @@ -10287,7 +10287,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__FVBIND_VARIADIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_795__FVBIND_VARIADIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_795__FVBIND_VARIADIC.obj_num = 2; - cdat->dobj_795__FVBIND_VARIADIC.obj_hash = 430369724; + cdat->dobj_795__FVBIND_VARIADIC.obj_hash = 1070948102; cdat->dobj_795__FVBIND_VARIADIC.obj_len = 4; /*inistring dstr_796__FVBIND_VARIADIC*/ @@ -10313,7 +10313,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__FVBIND_DEFVARIADIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_799__FVBIND_DEFVARIADIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_799__FVBIND_DEFVARIADIC.obj_num = 3; - cdat->dobj_799__FVBIND_DEFVARIADIC.obj_hash = 754017518; + cdat->dobj_799__FVBIND_DEFVARIADIC.obj_hash = 322374909; cdat->dobj_799__FVBIND_DEFVARIADIC.obj_len = 4; /*inistring dstr_800__FVBIND_DEFVARIAD*/ @@ -10339,7 +10339,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_803__CLASS_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_803__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_803__CLASS_LET_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_803__CLASS_LET_BINDING.obj_hash = 720223402; + cdat->dobj_803__CLASS_LET_BINDING.obj_hash = 220616672; cdat->dobj_803__CLASS_LET_BINDING.obj_len = 8; /*inistring dstr_804__CLASS_LET_BINDIN*/ @@ -10373,7 +10373,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__LETBIND_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_809__LETBIND_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_809__LETBIND_TYPE.obj_num = 1; - cdat->dobj_809__LETBIND_TYPE.obj_hash = 154916714; + cdat->dobj_809__LETBIND_TYPE.obj_hash = 430369724; cdat->dobj_809__LETBIND_TYPE.obj_len = 4; /*inistring dstr_810__LETBIND_TYPE*/ @@ -10399,7 +10399,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__LETBIND_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_813__LETBIND_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_813__LETBIND_EXPR.obj_num = 2; - cdat->dobj_813__LETBIND_EXPR.obj_hash = 61054475; + cdat->dobj_813__LETBIND_EXPR.obj_hash = 754017518; cdat->dobj_813__LETBIND_EXPR.obj_len = 4; /*inistring dstr_814__LETBIND_EXPR*/ @@ -10425,7 +10425,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_817__LETBIND_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_817__LETBIND_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_817__LETBIND_LOC.obj_num = 3; - cdat->dobj_817__LETBIND_LOC.obj_hash = 335020985; + cdat->dobj_817__LETBIND_LOC.obj_hash = 692201712; cdat->dobj_817__LETBIND_LOC.obj_len = 4; /*inistring dstr_818__LETBIND_LOC*/ @@ -10451,7 +10451,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_821__CLASS_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_821__CLASS_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_821__CLASS_LETREC_BINDING.obj_hash = 486628147; + cdat->dobj_821__CLASS_LETREC_BINDING.obj_hash = 154916714; cdat->dobj_821__CLASS_LETREC_BINDING.obj_len = 8; /*inistring dstr_822__CLASS_LETREC_BIN*/ @@ -10485,7 +10485,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__CLASS_NORMAL_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_827__CLASS_NORMAL_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_827__CLASS_NORMAL_LET_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_827__CLASS_NORMAL_LET_BINDING.obj_hash = 614262157; + cdat->dobj_827__CLASS_NORMAL_LET_BINDING.obj_hash = 222947998; cdat->dobj_827__CLASS_NORMAL_LET_BINDING.obj_len = 8; /*inistring dstr_828__CLASS_NORMAL_LET*/ @@ -10519,7 +10519,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_833__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_833__CLASS_LABEL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_833__CLASS_LABEL_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_833__CLASS_LABEL_BINDING.obj_hash = 975407193; + cdat->dobj_833__CLASS_LABEL_BINDING.obj_hash = 362904299; cdat->dobj_833__CLASS_LABEL_BINDING.obj_len = 8; /*inistring dstr_834__CLASS_LABEL_BIND*/ @@ -10553,7 +10553,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_839__LABIND_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_839__LABIND_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_839__LABIND_LOC.obj_num = 1; - cdat->dobj_839__LABIND_LOC.obj_hash = 337803285; + cdat->dobj_839__LABIND_LOC.obj_hash = 926373385; cdat->dobj_839__LABIND_LOC.obj_len = 4; /*inistring dstr_840__LABIND_LOC*/ @@ -10579,7 +10579,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_843__LABIND_CLONSY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_843__LABIND_CLONSY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_843__LABIND_CLONSY.obj_num = 2; - cdat->dobj_843__LABIND_CLONSY.obj_hash = 877486673; + cdat->dobj_843__LABIND_CLONSY.obj_hash = 614262157; cdat->dobj_843__LABIND_CLONSY.obj_len = 4; /*inistring dstr_844__LABIND_CLONSY*/ @@ -10605,7 +10605,7 @@ if (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))) != (melt_ptr_t)&cdat->dobj_659_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_847__LABIND_RES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_847__LABIND_RES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_847__LABIND_RES.obj_num = 3; - cdat->dobj_847__LABIND_RES.obj_hash = 492677626; + cdat->dobj_847__LABIND_RES.obj_hash = 490613559; cdat->dobj_847__LABIND_RES.obj_len = 4; /*inistring dstr_848__LABIND_RES*/ @@ -10634,7 +10634,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_851__CLASS_GCC_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_851__CLASS_GCC_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_851__CLASS_GCC_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_851__CLASS_GCC_PASS.obj_hash = 746366780; + cdat->dobj_851__CLASS_GCC_PASS.obj_hash = 337803285; cdat->dobj_851__CLASS_GCC_PASS.obj_len = 8; /*inistring dstr_852__CLASS_GCC_PASS*/ @@ -10668,7 +10668,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_857__GCCPASS_GATE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_857__GCCPASS_GATE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_857__GCCPASS_GATE.obj_num = 2; - cdat->dobj_857__GCCPASS_GATE.obj_hash = 751501337; + cdat->dobj_857__GCCPASS_GATE.obj_hash = 877486673; cdat->dobj_857__GCCPASS_GATE.obj_len = 4; /*inistring dstr_858__GCCPASS_GATE*/ @@ -10694,7 +10694,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_861__GCCPASS_EXEC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_861__GCCPASS_EXEC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__GCCPASS_EXEC.obj_num = 3; - cdat->dobj_861__GCCPASS_EXEC.obj_hash = 892376005; + cdat->dobj_861__GCCPASS_EXEC.obj_hash = 492677626; cdat->dobj_861__GCCPASS_EXEC.obj_len = 4; /*inistring dstr_862__GCCPASS_EXEC*/ @@ -10720,7 +10720,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_865__GCCPASS_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_865__GCCPASS_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_865__GCCPASS_DATA.obj_num = 4; - cdat->dobj_865__GCCPASS_DATA.obj_hash = 109892821; + cdat->dobj_865__GCCPASS_DATA.obj_hash = 894697538; cdat->dobj_865__GCCPASS_DATA.obj_len = 4; /*inistring dstr_866__GCCPASS_DATA*/ @@ -10746,7 +10746,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__GCCPASS_PROPERTIES_REQUIRED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_869__GCCPASS_PROPERTIES_REQUIRED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_869__GCCPASS_PROPERTIES_REQUIRED.obj_num = 5; - cdat->dobj_869__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 540513305; + cdat->dobj_869__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 7254373; cdat->dobj_869__GCCPASS_PROPERTIES_REQUIRED.obj_len = 4; /*inistring dstr_870__GCCPASS_PROPERTI*/ @@ -10772,7 +10772,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_873__GCCPASS_PROPERTIES_PROVIDED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_873__GCCPASS_PROPERTIES_PROVIDED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_873__GCCPASS_PROPERTIES_PROVIDED.obj_num = 6; - cdat->dobj_873__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 50480573; + cdat->dobj_873__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 236230045; cdat->dobj_873__GCCPASS_PROPERTIES_PROVIDED.obj_len = 4; /*inistring dstr_874__GCCPASS_PROPERTI*/ @@ -10798,7 +10798,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__GCCPASS_PROPERTIES_DESTROYED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_877__GCCPASS_PROPERTIES_DESTROYED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_877__GCCPASS_PROPERTIES_DESTROYED.obj_num = 7; - cdat->dobj_877__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 354337563; + cdat->dobj_877__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 988926155; cdat->dobj_877__GCCPASS_PROPERTIES_DESTROYED.obj_len = 4; /*inistring dstr_878__GCCPASS_PROPERTI*/ @@ -10824,7 +10824,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881__GCCPASS_TODO_FLAGS_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_881__GCCPASS_TODO_FLAGS_START.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_881__GCCPASS_TODO_FLAGS_START.obj_num = 8; - cdat->dobj_881__GCCPASS_TODO_FLAGS_START.obj_hash = 95743051; + cdat->dobj_881__GCCPASS_TODO_FLAGS_START.obj_hash = 361016248; cdat->dobj_881__GCCPASS_TODO_FLAGS_START.obj_len = 4; /*inistring dstr_882__GCCPASS_TODO_FLA*/ @@ -10850,7 +10850,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_PASS))) != (melt_ptr_t)&cdat->dobj_851__CLASS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885__GCCPASS_TODO_FLAGS_FINISH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_885__GCCPASS_TODO_FLAGS_FINISH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_885__GCCPASS_TODO_FLAGS_FINISH.obj_num = 9; - cdat->dobj_885__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 639603880; + cdat->dobj_885__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 873821094; cdat->dobj_885__GCCPASS_TODO_FLAGS_FINISH.obj_len = 4; /*inistring dstr_886__GCCPASS_TODO_FLA*/ @@ -10879,7 +10879,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_GIMPLE_PASS))) != (melt_ptr_t)&cdat->dobj_889 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_889__CLASS_GCC_GIMPLE_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_889__CLASS_GCC_GIMPLE_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_889__CLASS_GCC_GIMPLE_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_889__CLASS_GCC_GIMPLE_PASS.obj_hash = 573947281; + cdat->dobj_889__CLASS_GCC_GIMPLE_PASS.obj_hash = 354337563; cdat->dobj_889__CLASS_GCC_GIMPLE_PASS.obj_len = 8; /*inistring dstr_890__CLASS_GCC_GIMPLE*/ @@ -10916,7 +10916,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_RTL_PASS))) != (melt_ptr_t)&cdat->dobj_895__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_895__CLASS_GCC_RTL_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_895__CLASS_GCC_RTL_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_895__CLASS_GCC_RTL_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_895__CLASS_GCC_RTL_PASS.obj_hash = 189122812; + cdat->dobj_895__CLASS_GCC_RTL_PASS.obj_hash = 13950867; cdat->dobj_895__CLASS_GCC_RTL_PASS.obj_len = 8; /*inistring dstr_896__CLASS_GCC_RTL_PA*/ @@ -10950,7 +10950,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_RTL_PASS))) != (melt_ptr_t)&cdat->dobj_895__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_901__CLASS_GCC_ANY_IPA_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_901__CLASS_GCC_ANY_IPA_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_901__CLASS_GCC_ANY_IPA_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_901__CLASS_GCC_ANY_IPA_PASS.obj_hash = 304576790; + cdat->dobj_901__CLASS_GCC_ANY_IPA_PASS.obj_hash = 325368480; cdat->dobj_901__CLASS_GCC_ANY_IPA_PASS.obj_len = 8; /*inistring dstr_902__CLASS_GCC_ANY_IP*/ @@ -10987,7 +10987,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_SIMPLE_IPA_PASS))) != (melt_ptr_t)&cdat->dobj if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_907__CLASS_GCC_SIMPLE_IPA_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_907__CLASS_GCC_SIMPLE_IPA_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_907__CLASS_GCC_SIMPLE_IPA_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_907__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 526367023; + cdat->dobj_907__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 777637290; cdat->dobj_907__CLASS_GCC_SIMPLE_IPA_PASS.obj_len = 8; /*inistring dstr_908__CLASS_GCC_SIMPLE*/ @@ -11024,7 +11024,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_TRANSFORM_IPA_PASS))) != (melt_ptr_t)&cdat->d if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS.obj_hash = 641865691; + cdat->dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS.obj_hash = 131367349; cdat->dobj_913__CLASS_GCC_TRANSFORM_IPA_PASS.obj_len = 8; /*inistring dstr_914__CLASS_GCC_TRANSF*/ @@ -11058,7 +11058,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_TRANSFORM_IPA_PASS))) != (melt_ptr_t)&cdat->d if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_919__GCCTRIPAPASS_STMT_FIXUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_919__GCCTRIPAPASS_STMT_FIXUP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_919__GCCTRIPAPASS_STMT_FIXUP.obj_num = 10; - cdat->dobj_919__GCCTRIPAPASS_STMT_FIXUP.obj_hash = 844195089; + cdat->dobj_919__GCCTRIPAPASS_STMT_FIXUP.obj_hash = 821053513; cdat->dobj_919__GCCTRIPAPASS_STMT_FIXUP.obj_len = 4; /*inistring dstr_920__GCCTRIPAPASS_STM*/ @@ -11084,7 +11084,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_TRANSFORM_IPA_PASS))) != (melt_ptr_t)&cdat->d if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM.obj_num = 11; - cdat->dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM.obj_hash = 554548868; + cdat->dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM.obj_hash = 526367023; cdat->dobj_923__GCCTRIPAPASS_FUNCTION_TRANSFORM.obj_len = 4; /*inistring dstr_924__GCCTRIPAPASS_FUN*/ @@ -11110,7 +11110,7 @@ if (((void*)(MELT_PREDEF(CLASS_GCC_TRANSFORM_IPA_PASS))) != (melt_ptr_t)&cdat->d if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM.obj_num = 12; - cdat->dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM.obj_hash = 86935894; + cdat->dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM.obj_hash = 795593682; cdat->dobj_927__GCCTRIPAPASS_VARIABLE_TRANSFORM.obj_len = 4; /*inistring dstr_928__GCCTRIPAPASS_VAR*/ @@ -11139,7 +11139,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_931__CLASS_MELT_MODE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_931__CLASS_MELT_MODE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_931__CLASS_MELT_MODE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_931__CLASS_MELT_MODE.obj_hash = 459699651; + cdat->dobj_931__CLASS_MELT_MODE.obj_hash = 844195089; cdat->dobj_931__CLASS_MELT_MODE.obj_len = 8; /*inistring dstr_932__CLASS_MELT_MODE*/ @@ -11173,7 +11173,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_937__MELTMODE_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_937__MELTMODE_HELP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_937__MELTMODE_HELP.obj_num = 2; - cdat->dobj_937__MELTMODE_HELP.obj_hash = 397619042; + cdat->dobj_937__MELTMODE_HELP.obj_hash = 554548868; cdat->dobj_937__MELTMODE_HELP.obj_len = 4; /*inistring dstr_938__MELTMODE_HELP*/ @@ -11199,7 +11199,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_941__MELTMODE_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_941__MELTMODE_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_941__MELTMODE_FUN.obj_num = 3; - cdat->dobj_941__MELTMODE_FUN.obj_hash = 417508998; + cdat->dobj_941__MELTMODE_FUN.obj_hash = 86935894; cdat->dobj_941__MELTMODE_FUN.obj_len = 4; /*inistring dstr_942__MELTMODE_FUN*/ @@ -11225,7 +11225,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_945__MELTMODE_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_945__MELTMODE_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_945__MELTMODE_DATA.obj_num = 4; - cdat->dobj_945__MELTMODE_DATA.obj_hash = 315473539; + cdat->dobj_945__MELTMODE_DATA.obj_hash = 1068001199; cdat->dobj_945__MELTMODE_DATA.obj_len = 4; /*inistring dstr_946__MELTMODE_DATA*/ @@ -11251,7 +11251,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_949__CLASS_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_949__CLASS_SOURCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_949__CLASS_SOURCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_949__CLASS_SOURCE.obj_hash = 748890096; + cdat->dobj_949__CLASS_SOURCE.obj_hash = 397619042; cdat->dobj_949__CLASS_SOURCE.obj_len = 8; /*inistring dstr_950__CLASS_SOURCE*/ @@ -11285,7 +11285,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_955__CLASS_MODULE_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_955__CLASS_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_955__CLASS_MODULE_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_955__CLASS_MODULE_CONTEXT.obj_hash = 458770592; + cdat->dobj_955__CLASS_MODULE_CONTEXT.obj_hash = 761159091; cdat->dobj_955__CLASS_MODULE_CONTEXT.obj_len = 8; /*inistring dstr_956__CLASS_MODULE_CON*/ @@ -11319,7 +11319,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_961__MOCX_MODULENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_961__MOCX_MODULENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_961__MOCX_MODULENAME.obj_num = 0; - cdat->dobj_961__MOCX_MODULENAME.obj_hash = 570766312; + cdat->dobj_961__MOCX_MODULENAME.obj_hash = 220388665; cdat->dobj_961__MOCX_MODULENAME.obj_len = 4; /*inistring dstr_962__MOCX_MODULENAME*/ @@ -11345,7 +11345,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_965__MOCX_EXPFIELDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_965__MOCX_EXPFIELDICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_965__MOCX_EXPFIELDICT.obj_num = 1; - cdat->dobj_965__MOCX_EXPFIELDICT.obj_hash = 522672978; + cdat->dobj_965__MOCX_EXPFIELDICT.obj_hash = 748890096; cdat->dobj_965__MOCX_EXPFIELDICT.obj_len = 4; /*inistring dstr_966__MOCX_EXPFIELDICT*/ @@ -11371,7 +11371,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_969__MOCX_EXPCLASSDICT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_969__MOCX_EXPCLASSDICT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_969__MOCX_EXPCLASSDICT.obj_num = 2; - cdat->dobj_969__MOCX_EXPCLASSDICT.obj_hash = 619372585; + cdat->dobj_969__MOCX_EXPCLASSDICT.obj_hash = 967598078; cdat->dobj_969__MOCX_EXPCLASSDICT.obj_len = 4; /*inistring dstr_970__MOCX_EXPCLASSDIC*/ @@ -11397,7 +11397,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_973__MOCX_INITIALENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_973__MOCX_INITIALENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_973__MOCX_INITIALENV.obj_num = 3; - cdat->dobj_973__MOCX_INITIALENV.obj_hash = 1029694069; + cdat->dobj_973__MOCX_INITIALENV.obj_hash = 254024443; cdat->dobj_973__MOCX_INITIALENV.obj_len = 4; /*inistring dstr_974__MOCX_INITIALENV*/ @@ -11423,7 +11423,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_977__MOCX_FUNCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_977__MOCX_FUNCOUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_977__MOCX_FUNCOUNT.obj_num = 4; - cdat->dobj_977__MOCX_FUNCOUNT.obj_hash = 177605382; + cdat->dobj_977__MOCX_FUNCOUNT.obj_hash = 448496261; cdat->dobj_977__MOCX_FUNCOUNT.obj_len = 4; /*inistring dstr_978__MOCX_FUNCOUNT*/ @@ -11449,7 +11449,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_981__MOCX_FILETUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_981__MOCX_FILETUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_981__MOCX_FILETUPLE.obj_num = 5; - cdat->dobj_981__MOCX_FILETUPLE.obj_hash = 207268565; + cdat->dobj_981__MOCX_FILETUPLE.obj_hash = 384002556; cdat->dobj_981__MOCX_FILETUPLE.obj_len = 4; /*inistring dstr_982__MOCX_FILETUPLE*/ @@ -11475,7 +11475,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_985__MOCX_CFLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_985__MOCX_CFLAGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_985__MOCX_CFLAGS.obj_num = 6; - cdat->dobj_985__MOCX_CFLAGS.obj_hash = 422274830; + cdat->dobj_985__MOCX_CFLAGS.obj_hash = 786996143; cdat->dobj_985__MOCX_CFLAGS.obj_len = 4; /*inistring dstr_986__MOCX_CFLAGS*/ @@ -11501,7 +11501,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_989__MOCX_LINKFLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_989__MOCX_LINKFLAGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_989__MOCX_LINKFLAGS.obj_num = 7; - cdat->dobj_989__MOCX_LINKFLAGS.obj_hash = 509946676; + cdat->dobj_989__MOCX_LINKFLAGS.obj_hash = 992555861; cdat->dobj_989__MOCX_LINKFLAGS.obj_len = 4; /*inistring dstr_990__MOCX_LINKFLAGS*/ @@ -11527,7 +11527,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_993__CLASS_NORMALIZATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_993__CLASS_NORMALIZATION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_993__CLASS_NORMALIZATION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_993__CLASS_NORMALIZATION_CONTEXT.obj_hash = 745551306; + cdat->dobj_993__CLASS_NORMALIZATION_CONTEXT.obj_hash = 207268565; cdat->dobj_993__CLASS_NORMALIZATION_CONTEXT.obj_len = 8; /*inistring dstr_994__CLASS_NORMALIZAT*/ @@ -11561,7 +11561,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_999__NCTX_INITPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_999__NCTX_INITPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_999__NCTX_INITPROC.obj_num = 0; - cdat->dobj_999__NCTX_INITPROC.obj_hash = 660237752; + cdat->dobj_999__NCTX_INITPROC.obj_hash = 422274830; cdat->dobj_999__NCTX_INITPROC.obj_len = 4; /*inistring dstr_1000__NCTX_INITPROC*/ @@ -11587,7 +11587,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1003__NCTX_PROCLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1003__NCTX_PROCLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1003__NCTX_PROCLIST.obj_num = 1; - cdat->dobj_1003__NCTX_PROCLIST.obj_hash = 923516; + cdat->dobj_1003__NCTX_PROCLIST.obj_hash = 509946676; cdat->dobj_1003__NCTX_PROCLIST.obj_len = 4; /*inistring dstr_1004__NCTX_PROCLIST*/ @@ -11613,7 +11613,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1007__NCTX_DATALIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1007__NCTX_DATALIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1007__NCTX_DATALIST.obj_num = 2; - cdat->dobj_1007__NCTX_DATALIST.obj_hash = 69023100; + cdat->dobj_1007__NCTX_DATALIST.obj_hash = 127465982; cdat->dobj_1007__NCTX_DATALIST.obj_len = 4; /*inistring dstr_1008__NCTX_DATALIST*/ @@ -11639,7 +11639,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1011__NCTX_VALUELIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1011__NCTX_VALUELIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1011__NCTX_VALUELIST.obj_num = 3; - cdat->dobj_1011__NCTX_VALUELIST.obj_hash = 475700943; + cdat->dobj_1011__NCTX_VALUELIST.obj_hash = 189528460; cdat->dobj_1011__NCTX_VALUELIST.obj_len = 4; /*inistring dstr_1012__NCTX_VALUELIST*/ @@ -11665,7 +11665,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1015__NCTX_SYMBMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1015__NCTX_SYMBMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1015__NCTX_SYMBMAP.obj_num = 4; - cdat->dobj_1015__NCTX_SYMBMAP.obj_hash = 631176044; + cdat->dobj_1015__NCTX_SYMBMAP.obj_hash = 817154269; cdat->dobj_1015__NCTX_SYMBMAP.obj_len = 4; /*inistring dstr_1016__NCTX_SYMBMAP*/ @@ -11691,7 +11691,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1019__NCTX_KEYWMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1019__NCTX_KEYWMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1019__NCTX_KEYWMAP.obj_num = 5; - cdat->dobj_1019__NCTX_KEYWMAP.obj_hash = 97792958; + cdat->dobj_1019__NCTX_KEYWMAP.obj_hash = 157815408; cdat->dobj_1019__NCTX_KEYWMAP.obj_len = 4; /*inistring dstr_1020__NCTX_KEYWMAP*/ @@ -11717,7 +11717,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1023__NCTX_SYMBCACHEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1023__NCTX_SYMBCACHEMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1023__NCTX_SYMBCACHEMAP.obj_num = 6; - cdat->dobj_1023__NCTX_SYMBCACHEMAP.obj_hash = 802677495; + cdat->dobj_1023__NCTX_SYMBCACHEMAP.obj_hash = 188281637; cdat->dobj_1023__NCTX_SYMBCACHEMAP.obj_len = 4; /*inistring dstr_1024__NCTX_SYMBCACHEMA*/ @@ -11743,7 +11743,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1027__NCTX_PREDEFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1027__NCTX_PREDEFMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1027__NCTX_PREDEFMAP.obj_num = 7; - cdat->dobj_1027__NCTX_PREDEFMAP.obj_hash = 244941870; + cdat->dobj_1027__NCTX_PREDEFMAP.obj_hash = 399897744; cdat->dobj_1027__NCTX_PREDEFMAP.obj_len = 4; /*inistring dstr_1028__NCTX_PREDEFMAP*/ @@ -11769,7 +11769,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1031__NCTX_VALMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1031__NCTX_VALMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1031__NCTX_VALMAP.obj_num = 8; - cdat->dobj_1031__NCTX_VALMAP.obj_hash = 963902429; + cdat->dobj_1031__NCTX_VALMAP.obj_hash = 439422747; cdat->dobj_1031__NCTX_VALMAP.obj_len = 4; /*inistring dstr_1032__NCTX_VALMAP*/ @@ -11795,7 +11795,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1035__NCTX_VALBINDMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1035__NCTX_VALBINDMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1035__NCTX_VALBINDMAP.obj_num = 9; - cdat->dobj_1035__NCTX_VALBINDMAP.obj_hash = 225194524; + cdat->dobj_1035__NCTX_VALBINDMAP.obj_hash = 665563739; cdat->dobj_1035__NCTX_VALBINDMAP.obj_len = 4; /*inistring dstr_1036__NCTX_VALBINDMAP*/ @@ -11821,7 +11821,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1039__NCTX_CURPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1039__NCTX_CURPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1039__NCTX_CURPROC.obj_num = 10; - cdat->dobj_1039__NCTX_CURPROC.obj_hash = 242898274; + cdat->dobj_1039__NCTX_CURPROC.obj_hash = 899135808; cdat->dobj_1039__NCTX_CURPROC.obj_len = 4; /*inistring dstr_1040__NCTX_CURPROC*/ @@ -11847,7 +11847,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1043__NCTX_MODULCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1043__NCTX_MODULCONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1043__NCTX_MODULCONTEXT.obj_num = 11; - cdat->dobj_1043__NCTX_MODULCONTEXT.obj_hash = 951581285; + cdat->dobj_1043__NCTX_MODULCONTEXT.obj_hash = 1056127935; cdat->dobj_1043__NCTX_MODULCONTEXT.obj_len = 4; /*inistring dstr_1044__NCTX_MODULCONTEX*/ @@ -11873,7 +11873,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1047__NCTX_QDATCURMODENVBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1047__NCTX_QDATCURMODENVBOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1047__NCTX_QDATCURMODENVBOX.obj_num = 12; - cdat->dobj_1047__NCTX_QDATCURMODENVBOX.obj_hash = 562023214; + cdat->dobj_1047__NCTX_QDATCURMODENVBOX.obj_hash = 983591136; cdat->dobj_1047__NCTX_QDATCURMODENVBOX.obj_len = 4; /*inistring dstr_1048__NCTX_QDATCURMODE*/ @@ -11899,7 +11899,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1051__NCTX_QDATPARMODENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1051__NCTX_QDATPARMODENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1051__NCTX_QDATPARMODENV.obj_num = 13; - cdat->dobj_1051__NCTX_QDATPARMODENV.obj_hash = 707345969; + cdat->dobj_1051__NCTX_QDATPARMODENV.obj_hash = 134234636; cdat->dobj_1051__NCTX_QDATPARMODENV.obj_len = 4; /*inistring dstr_1052__NCTX_QDATPARMODE*/ @@ -11925,7 +11925,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1055__NCTX_PROCURMODENVLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1055__NCTX_PROCURMODENVLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1055__NCTX_PROCURMODENVLIST.obj_num = 14; - cdat->dobj_1055__NCTX_PROCURMODENVLIST.obj_hash = 897811908; + cdat->dobj_1055__NCTX_PROCURMODENVLIST.obj_hash = 228113351; cdat->dobj_1055__NCTX_PROCURMODENVLIST.obj_len = 4; /*inistring dstr_1056__NCTX_PROCURMODEN*/ @@ -11951,7 +11951,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1059__CLASS_C_GENERATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1059__CLASS_C_GENERATION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1059__CLASS_C_GENERATION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1059__CLASS_C_GENERATION_CONTEXT.obj_hash = 762804567; + cdat->dobj_1059__CLASS_C_GENERATION_CONTEXT.obj_hash = 562023214; cdat->dobj_1059__CLASS_C_GENERATION_CONTEXT.obj_len = 8; /*inistring dstr_1060__CLASS_C_GENERATI*/ @@ -11985,7 +11985,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1065__GNCX_OBJROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1065__GNCX_OBJROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1065__GNCX_OBJROUT.obj_num = 0; - cdat->dobj_1065__GNCX_OBJROUT.obj_hash = 752212145; + cdat->dobj_1065__GNCX_OBJROUT.obj_hash = 707345969; cdat->dobj_1065__GNCX_OBJROUT.obj_len = 4; /*inistring dstr_1066__GNCX_OBJROUT*/ @@ -12011,7 +12011,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1069__GNCX_LOCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1069__GNCX_LOCMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1069__GNCX_LOCMAP.obj_num = 1; - cdat->dobj_1069__GNCX_LOCMAP.obj_hash = 515867389; + cdat->dobj_1069__GNCX_LOCMAP.obj_hash = 897811908; cdat->dobj_1069__GNCX_LOCMAP.obj_len = 4; /*inistring dstr_1070__GNCX_LOCMAP*/ @@ -12037,7 +12037,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1073__GNCX_FREEPTRLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1073__GNCX_FREEPTRLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1073__GNCX_FREEPTRLIST.obj_num = 2; - cdat->dobj_1073__GNCX_FREEPTRLIST.obj_hash = 822916341; + cdat->dobj_1073__GNCX_FREEPTRLIST.obj_hash = 484604157; cdat->dobj_1073__GNCX_FREEPTRLIST.obj_len = 4; /*inistring dstr_1074__GNCX_FREEPTRLIST*/ @@ -12063,7 +12063,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1077__GNCX_FREELONGLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1077__GNCX_FREELONGLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1077__GNCX_FREELONGLIST.obj_num = 3; - cdat->dobj_1077__GNCX_FREELONGLIST.obj_hash = 295738756; + cdat->dobj_1077__GNCX_FREELONGLIST.obj_hash = 70830237; cdat->dobj_1077__GNCX_FREELONGLIST.obj_len = 4; /*inistring dstr_1078__GNCX_FREELONGLIS*/ @@ -12089,7 +12089,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1081__GNCX_FREEOTHERMAPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1081__GNCX_FREEOTHERMAPS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1081__GNCX_FREEOTHERMAPS.obj_num = 4; - cdat->dobj_1081__GNCX_FREEOTHERMAPS.obj_hash = 1001804551; + cdat->dobj_1081__GNCX_FREEOTHERMAPS.obj_hash = 361680196; cdat->dobj_1081__GNCX_FREEOTHERMAPS.obj_len = 4; /*inistring dstr_1082__GNCX_FREEOTHERMA*/ @@ -12115,7 +12115,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1085__GNCX_RETLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1085__GNCX_RETLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1085__GNCX_RETLOC.obj_num = 5; - cdat->dobj_1085__GNCX_RETLOC.obj_hash = 1047799571; + cdat->dobj_1085__GNCX_RETLOC.obj_hash = 786515937; cdat->dobj_1085__GNCX_RETLOC.obj_len = 4; /*inistring dstr_1086__GNCX_RETLOC*/ @@ -12141,7 +12141,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1089__GNCX_COMPICACHE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1089__GNCX_COMPICACHE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1089__GNCX_COMPICACHE.obj_num = 6; - cdat->dobj_1089__GNCX_COMPICACHE.obj_hash = 968661062; + cdat->dobj_1089__GNCX_COMPICACHE.obj_hash = 554201546; cdat->dobj_1089__GNCX_COMPICACHE.obj_len = 4; /*inistring dstr_1090__GNCX_COMPICACHE*/ @@ -12167,7 +12167,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1093__GNCX_MODULCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1093__GNCX_MODULCONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1093__GNCX_MODULCONTEXT.obj_num = 7; - cdat->dobj_1093__GNCX_MODULCONTEXT.obj_hash = 581025249; + cdat->dobj_1093__GNCX_MODULCONTEXT.obj_hash = 882171841; cdat->dobj_1093__GNCX_MODULCONTEXT.obj_len = 4; /*inistring dstr_1094__GNCX_MODULCONTEX*/ @@ -12193,7 +12193,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1097__GNCX_MATCHMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1097__GNCX_MATCHMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1097__GNCX_MATCHMAP.obj_num = 8; - cdat->dobj_1097__GNCX_MATCHMAP.obj_hash = 367940082; + cdat->dobj_1097__GNCX_MATCHMAP.obj_hash = 783051141; cdat->dobj_1097__GNCX_MATCHMAP.obj_len = 4; /*inistring dstr_1098__GNCX_MATCHMAP*/ @@ -12219,7 +12219,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 109817203; + cdat->dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 968661062; cdat->dobj_1101__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 8; /*inistring dstr_1102__CLASS_INITIAL_GE*/ @@ -12253,7 +12253,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1107__IGNCX_PREVENVLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1107__IGNCX_PREVENVLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1107__IGNCX_PREVENVLOC.obj_num = 9; - cdat->dobj_1107__IGNCX_PREVENVLOC.obj_hash = 102998078; + cdat->dobj_1107__IGNCX_PREVENVLOC.obj_hash = 581025249; cdat->dobj_1107__IGNCX_PREVENVLOC.obj_len = 4; /*inistring dstr_1108__IGNCX_PREVENVLOC*/ @@ -12279,7 +12279,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1111__IGNCX_CONTENVLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1111__IGNCX_CONTENVLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1111__IGNCX_CONTENVLOC.obj_num = 10; - cdat->dobj_1111__IGNCX_CONTENVLOC.obj_hash = 1020090055; + cdat->dobj_1111__IGNCX_CONTENVLOC.obj_hash = 367940082; cdat->dobj_1111__IGNCX_CONTENVLOC.obj_len = 4; /*inistring dstr_1112__IGNCX_CONTENVLOC*/ @@ -12305,7 +12305,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1115__IGNCX_PROCURMODENVLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1115__IGNCX_PROCURMODENVLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1115__IGNCX_PROCURMODENVLIST.obj_num = 11; - cdat->dobj_1115__IGNCX_PROCURMODENVLIST.obj_hash = 277427807; + cdat->dobj_1115__IGNCX_PROCURMODENVLIST.obj_hash = 1022278936; cdat->dobj_1115__IGNCX_PROCURMODENVLIST.obj_len = 4; /*inistring dstr_1116__IGNCX_PROCURMODE*/ @@ -12331,7 +12331,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1119__IGNCX_IMPORTMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1119__IGNCX_IMPORTMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1119__IGNCX_IMPORTMAP.obj_num = 12; - cdat->dobj_1119__IGNCX_IMPORTMAP.obj_hash = 875629903; + cdat->dobj_1119__IGNCX_IMPORTMAP.obj_hash = 221921752; cdat->dobj_1119__IGNCX_IMPORTMAP.obj_len = 4; /*inistring dstr_1120__IGNCX_IMPORTMAP*/ @@ -12357,7 +12357,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1123__CLASS_GENERATED_C_CODE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1123__CLASS_GENERATED_C_CODE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1123__CLASS_GENERATED_C_CODE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1123__CLASS_GENERATED_C_CODE.obj_hash = 440340745; + cdat->dobj_1123__CLASS_GENERATED_C_CODE.obj_hash = 1020090055; cdat->dobj_1123__CLASS_GENERATED_C_CODE.obj_len = 8; /*inistring dstr_1124__CLASS_GENERATED_*/ @@ -12390,7 +12390,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1129__STRINGCONST2VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1129__STRINGCONST2VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1129__STRINGCONST2VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1129__STRINGCONST2VAL.obj_hash = 686219780; + cdat->dobj_1129__STRINGCONST2VAL.obj_hash = 216481206; cdat->dobj_1129__STRINGCONST2VAL.obj_len = 5; /*inimult dtup_1130__STRINGCONST2VAL*/ @@ -12420,7 +12420,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1134", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1134.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1134.obj_num = 0; - cdat->dobj_1134.obj_hash = 200659385; + cdat->dobj_1134.obj_hash = 686219780; cdat->dobj_1134.obj_len = 2; /*iniobj dsym_1135__STRC*/ @@ -12442,7 +12442,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1137", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1137.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1137.obj_num = 1; - cdat->dobj_1137.obj_hash = 739730549; + cdat->dobj_1137.obj_hash = 971031038; cdat->dobj_1137.obj_len = 2; /*inistring dstr_1138__meltgc_new_strin*/ @@ -12479,7 +12479,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1144__IS_A", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1144__IS_A", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1144__IS_A.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1144__IS_A.obj_hash = 1049077056; + cdat->dobj_1144__IS_A.obj_hash = 54597947; cdat->dobj_1144__IS_A.obj_len = 5; /*inimult dtup_1145__IS_A*/ @@ -12509,7 +12509,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1149", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1149.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1149.obj_num = 0; - cdat->dobj_1149.obj_hash = 563312788; + cdat->dobj_1149.obj_hash = 1049077056; cdat->dobj_1149.obj_len = 2; /*iniobj dsym_1150__CLA*/ @@ -12531,7 +12531,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1152", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1152.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1152.obj_num = 1; - cdat->dobj_1152.obj_hash = 853928966; + cdat->dobj_1152.obj_hash = 433106748; cdat->dobj_1152.obj_len = 2; /*inistring dstr_1153__melt_is_instance*/ @@ -12568,7 +12568,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1159__IS_NOT_A", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1159__IS_NOT_A", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1159__IS_NOT_A.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1159__IS_NOT_A.obj_hash = 199228494; + cdat->dobj_1159__IS_NOT_A.obj_hash = 1038914483; cdat->dobj_1159__IS_NOT_A.obj_len = 5; /*inimult dtup_1160__IS_NOT_A*/ @@ -12586,7 +12586,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1162", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1162.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1162.obj_num = 0; - cdat->dobj_1162.obj_hash = 234150822; + cdat->dobj_1162.obj_hash = 199228494; cdat->dobj_1162.obj_len = 2; /*^iniobj*/ @@ -12596,7 +12596,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1163", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1163.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1163.obj_num = 1; - cdat->dobj_1163.obj_hash = 701733032; + cdat->dobj_1163.obj_hash = 325295231; cdat->dobj_1163.obj_len = 2; /*inistring dstr_1164__melt_is_instanc*/ @@ -12633,7 +12633,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1170__IS_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1170__IS_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1170__IS_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1170__IS_OBJECT.obj_hash = 269669435; + cdat->dobj_1170__IS_OBJECT.obj_hash = 714391190; cdat->dobj_1170__IS_OBJECT.obj_len = 5; /*inimult dtup_1171__IS_OBJECT*/ @@ -12651,7 +12651,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1173", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1173.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1173.obj_num = 0; - cdat->dobj_1173.obj_hash = 3590452; + cdat->dobj_1173.obj_hash = 269669435; cdat->dobj_1173.obj_len = 2; /*inistring dstr_1174__melt_magic_disc*/ @@ -12684,7 +12684,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1179__DISCRIM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1179__DISCRIM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1179__DISCRIM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1179__DISCRIM.obj_hash = 175147592; + cdat->dobj_1179__DISCRIM.obj_hash = 530042424; cdat->dobj_1179__DISCRIM.obj_len = 5; /*inimult dtup_1180__DISCRIM*/ @@ -12714,7 +12714,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1184", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1184.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1184.obj_num = 0; - cdat->dobj_1184.obj_hash = 47920270; + cdat->dobj_1184.obj_hash = 175147592; cdat->dobj_1184.obj_len = 2; /*inistring dstr_1185__melt_discr_mel*/ @@ -12747,7 +12747,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1190__GET_INT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1190__GET_INT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1190__GET_INT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1190__GET_INT.obj_hash = 403391557; + cdat->dobj_1190__GET_INT.obj_hash = 1069822562; cdat->dobj_1190__GET_INT.obj_len = 5; /*inimult dtup_1191__GET_INT*/ @@ -12765,7 +12765,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1193", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1193.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1193.obj_num = 0; - cdat->dobj_1193.obj_hash = 7414813; + cdat->dobj_1193.obj_hash = 403391557; cdat->dobj_1193.obj_len = 2; /*inistring dstr_1194__melt_get_int_m*/ @@ -12798,7 +12798,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1199__PUT_INT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1199__PUT_INT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1199__PUT_INT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1199__PUT_INT.obj_hash = 537395336; + cdat->dobj_1199__PUT_INT.obj_hash = 482593368; cdat->dobj_1199__PUT_INT.obj_len = 5; /*inimult dtup_1200__PUT_INT*/ @@ -12816,7 +12816,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1202", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1202.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1202.obj_num = 0; - cdat->dobj_1202.obj_hash = 869912482; + cdat->dobj_1202.obj_hash = 537395336; cdat->dobj_1202.obj_len = 2; /*iniobj dsym_1203__I*/ @@ -12838,7 +12838,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1205", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1205.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1205.obj_num = 1; - cdat->dobj_1205.obj_hash = 998896041; + cdat->dobj_1205.obj_hash = 347348071; cdat->dobj_1205.obj_len = 2; /*inistring dstr_1206__melt_put_int_me*/ @@ -12875,7 +12875,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1212__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1212__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1212__.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1212__.obj_hash = 979444554; + cdat->dobj_1212__.obj_hash = 679661176; cdat->dobj_1212__.obj_len = 5; /*inimult dtup_1213__*/ @@ -12905,7 +12905,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1217", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1217.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1217.obj_num = 0; - cdat->dobj_1217.obj_hash = 279649761; + cdat->dobj_1217.obj_hash = 979444554; cdat->dobj_1217.obj_len = 2; /*iniobj dsym_1218__B*/ @@ -12927,7 +12927,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1220", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1220.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1220.obj_num = 1; - cdat->dobj_1220.obj_hash = 837902283; + cdat->dobj_1220.obj_hash = 202440894; cdat->dobj_1220.obj_len = 2; /*inistring dstr_1221__*/ @@ -12964,7 +12964,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1227__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1227__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1227__.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1227__.obj_hash = 254220483; + cdat->dobj_1227__.obj_hash = 262027669; cdat->dobj_1227__.obj_len = 5; /*inimult dtup_1228__*/ @@ -12982,7 +12982,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1230", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1230.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1230.obj_num = 0; - cdat->dobj_1230.obj_hash = 262043799; + cdat->dobj_1230.obj_hash = 254220483; cdat->dobj_1230.obj_len = 2; /*^iniobj*/ @@ -12992,7 +12992,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1231", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1231.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1231.obj_num = 1; - cdat->dobj_1231.obj_hash = 880125412; + cdat->dobj_1231.obj_hash = 784510537; cdat->dobj_1231.obj_len = 2; /*inistring dstr_1232__*/ @@ -13029,7 +13029,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1238__THE_MELTCALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1238__THE_MELTCALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1238__THE_MELTCALLCOUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1238__THE_MELTCALLCOUNT.obj_hash = 1022407038; + cdat->dobj_1238__THE_MELTCALLCOUNT.obj_hash = 390355527; cdat->dobj_1238__THE_MELTCALLCOUNT.obj_len = 5; /*inimult dtup_1239__THE_MELTCALLCOUNT*/ @@ -13066,7 +13066,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1245__THE_CALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1245__THE_CALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1245__THE_CALLCOUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1245__THE_CALLCOUNT.obj_hash = 246755153; + cdat->dobj_1245__THE_CALLCOUNT.obj_hash = 233261290; cdat->dobj_1245__THE_CALLCOUNT.obj_len = 5; /*inimult dtup_1246__THE_CALLCOUNT*/ @@ -13103,7 +13103,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1252__THE_FRAMEDEPTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1252__THE_FRAMEDEPTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1252__THE_FRAMEDEPTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1252__THE_FRAMEDEPTH.obj_hash = 508105016; + cdat->dobj_1252__THE_FRAMEDEPTH.obj_hash = 11831198; cdat->dobj_1252__THE_FRAMEDEPTH.obj_len = 5; /*inimult dtup_1253__THE_FRAMEDEPTH*/ @@ -13140,7 +13140,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1259__GET_SYMBOLSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1259__GET_SYMBOLSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1259__GET_SYMBOLSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1259__GET_SYMBOLSTR.obj_hash = 611675624; + cdat->dobj_1259__GET_SYMBOLSTR.obj_hash = 209519981; cdat->dobj_1259__GET_SYMBOLSTR.obj_len = 5; /*inimult dtup_1260__GET_SYMBOLSTR*/ @@ -13170,7 +13170,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1264", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1264.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1264.obj_num = 0; - cdat->dobj_1264.obj_hash = 327663469; + cdat->dobj_1264.obj_hash = 611675624; cdat->dobj_1264.obj_len = 2; /*inistring dstr_1265__meltgc_named_sym*/ @@ -13203,7 +13203,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1270__CREATE_SYMBOLSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1270__CREATE_SYMBOLSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1270__CREATE_SYMBOLSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1270__CREATE_SYMBOLSTR.obj_hash = 31746750; + cdat->dobj_1270__CREATE_SYMBOLSTR.obj_hash = 766208973; cdat->dobj_1270__CREATE_SYMBOLSTR.obj_len = 5; /*inimult dtup_1271__CREATE_SYMBOLSTR*/ @@ -13221,7 +13221,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1273", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1273.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1273.obj_num = 0; - cdat->dobj_1273.obj_hash = 490492730; + cdat->dobj_1273.obj_hash = 31746750; cdat->dobj_1273.obj_len = 2; /*inistring dstr_1274__meltgc_named_sym*/ @@ -13254,7 +13254,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1279__GET_RAW_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1279__GET_RAW_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1279__GET_RAW_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1279__GET_RAW_SYMBOL.obj_hash = 1000948638; + cdat->dobj_1279__GET_RAW_SYMBOL.obj_hash = 54387277; cdat->dobj_1279__GET_RAW_SYMBOL.obj_len = 5; /*inimult dtup_1280__GET_RAW_SYMBOL*/ @@ -13284,7 +13284,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1284", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1284.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1284.obj_num = 0; - cdat->dobj_1284.obj_hash = 1024166504; + cdat->dobj_1284.obj_hash = 1000948638; cdat->dobj_1284.obj_len = 2; /*inistring dstr_1285__meltgc_named_sym*/ @@ -13317,7 +13317,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1290__GET_KEYWORDSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1290__GET_KEYWORDSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1290__GET_KEYWORDSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1290__GET_KEYWORDSTR.obj_hash = 645870285; + cdat->dobj_1290__GET_KEYWORDSTR.obj_hash = 854386684; cdat->dobj_1290__GET_KEYWORDSTR.obj_len = 5; /*inimult dtup_1291__GET_KEYWORDSTR*/ @@ -13335,7 +13335,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1293", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1293.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1293.obj_num = 0; - cdat->dobj_1293.obj_hash = 246832807; + cdat->dobj_1293.obj_hash = 645870285; cdat->dobj_1293.obj_len = 2; /*inistring dstr_1294__meltgc_named_key*/ @@ -13368,7 +13368,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1299__CREATE_KEYWORDSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1299__CREATE_KEYWORDSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1299__CREATE_KEYWORDSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1299__CREATE_KEYWORDSTR.obj_hash = 767031241; + cdat->dobj_1299__CREATE_KEYWORDSTR.obj_hash = 42352801; cdat->dobj_1299__CREATE_KEYWORDSTR.obj_len = 5; /*inimult dtup_1300__CREATE_KEYWORDSTR*/ @@ -13386,7 +13386,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1302", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1302.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1302.obj_num = 0; - cdat->dobj_1302.obj_hash = 280230805; + cdat->dobj_1302.obj_hash = 767031241; cdat->dobj_1302.obj_len = 2; /*inistring dstr_1303__meltgc_named_key*/ @@ -13419,7 +13419,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1308__ASSERT_FAILED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1308__ASSERT_FAILED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1308__ASSERT_FAILED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1308__ASSERT_FAILED.obj_hash = 627055959; + cdat->dobj_1308__ASSERT_FAILED.obj_hash = 358002740; cdat->dobj_1308__ASSERT_FAILED.obj_len = 5; /*inimult dtup_1309__ASSERT_FAILED*/ @@ -13449,7 +13449,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1313", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1313.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1313.obj_num = 0; - cdat->dobj_1313.obj_hash = 605084259; + cdat->dobj_1313.obj_hash = 627055959; cdat->dobj_1313.obj_len = 2; /*iniobj dsym_1314__FILENAME*/ @@ -13471,7 +13471,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1316", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1316.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1316.obj_num = 1; - cdat->dobj_1316.obj_hash = 216756377; + cdat->dobj_1316.obj_hash = 695322818; cdat->dobj_1316.obj_len = 2; /*iniobj dsym_1317__LINENO*/ @@ -13493,7 +13493,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1319", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1319.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1319.obj_num = 2; - cdat->dobj_1319.obj_hash = 476168195; + cdat->dobj_1319.obj_hash = 251771739; cdat->dobj_1319.obj_len = 2; /*inistring dstr_1320__melt_assert_fail*/ @@ -13542,7 +13542,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1329__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1329__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1329__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1329__I.obj_hash = 709639208; + cdat->dobj_1329__I.obj_hash = 954780509; cdat->dobj_1329__I.obj_len = 5; /*inimult dtup_1330__I*/ @@ -13560,7 +13560,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1332", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1332.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1332.obj_num = 0; - cdat->dobj_1332.obj_hash = 254898258; + cdat->dobj_1332.obj_hash = 709639208; cdat->dobj_1332.obj_len = 2; /*^iniobj*/ @@ -13570,7 +13570,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1333", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1333.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1333.obj_num = 1; - cdat->dobj_1333.obj_hash = 1033479449; + cdat->dobj_1333.obj_hash = 82311246; cdat->dobj_1333.obj_len = 2; /*inistring dstr_1334__*/ @@ -13607,7 +13607,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1340__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1340__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1340__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1340__I.obj_hash = 249891833; + cdat->dobj_1340__I.obj_hash = 518205280; cdat->dobj_1340__I.obj_len = 5; /*inimult dtup_1341__I*/ @@ -13625,7 +13625,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1343", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1343.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1343.obj_num = 0; - cdat->dobj_1343.obj_hash = 995931342; + cdat->dobj_1343.obj_hash = 249891833; cdat->dobj_1343.obj_len = 2; /*^iniobj*/ @@ -13635,7 +13635,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1344", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1344.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1344.obj_num = 1; - cdat->dobj_1344.obj_hash = 141260889; + cdat->dobj_1344.obj_hash = 969403354; cdat->dobj_1344.obj_len = 2; /*inistring dstr_1345__*/ @@ -13672,7 +13672,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1351__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1351__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1351__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1351__I.obj_hash = 473340018; + cdat->dobj_1351__I.obj_hash = 209138608; cdat->dobj_1351__I.obj_len = 5; /*inimult dtup_1352__I*/ @@ -13690,7 +13690,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1354", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1354.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1354.obj_num = 0; - cdat->dobj_1354.obj_hash = 784305419; + cdat->dobj_1354.obj_hash = 473340018; cdat->dobj_1354.obj_len = 2; /*^iniobj*/ @@ -13700,7 +13700,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1355", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1355.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1355.obj_num = 1; - cdat->dobj_1355.obj_hash = 510162795; + cdat->dobj_1355.obj_hash = 988100402; cdat->dobj_1355.obj_len = 2; /*inistring dstr_1356__*/ @@ -13737,7 +13737,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1362__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1362__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1362__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1362__I.obj_hash = 1048057659; + cdat->dobj_1362__I.obj_hash = 582838460; cdat->dobj_1362__I.obj_len = 5; /*inimult dtup_1363__I*/ @@ -13755,7 +13755,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1365", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1365.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1365.obj_num = 0; - cdat->dobj_1365.obj_hash = 42679434; + cdat->dobj_1365.obj_hash = 1048057659; cdat->dobj_1365.obj_len = 2; /*^iniobj*/ @@ -13765,7 +13765,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1366", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1366.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1366.obj_num = 1; - cdat->dobj_1366.obj_hash = 517045745; + cdat->dobj_1366.obj_hash = 641216434; cdat->dobj_1366.obj_len = 2; /*inistring dstr_1367__*/ @@ -13802,7 +13802,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1373__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1373__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1373__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1373__I.obj_hash = 615938277; + cdat->dobj_1373__I.obj_hash = 8106387; cdat->dobj_1373__I.obj_len = 5; /*inimult dtup_1374__I*/ @@ -13820,7 +13820,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1376", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1376.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1376.obj_num = 0; - cdat->dobj_1376.obj_hash = 805298881; + cdat->dobj_1376.obj_hash = 615938277; cdat->dobj_1376.obj_len = 2; /*^iniobj*/ @@ -13830,7 +13830,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1377", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1377.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1377.obj_num = 1; - cdat->dobj_1377.obj_hash = 60197894; + cdat->dobj_1377.obj_hash = 795145762; cdat->dobj_1377.obj_len = 2; /*inistring dstr_1378__melt_idiv_*/ @@ -13867,7 +13867,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1384__I", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1384__I", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1384__I.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1384__I.obj_hash = 818742043; + cdat->dobj_1384__I.obj_hash = 809416882; cdat->dobj_1384__I.obj_len = 5; /*inimult dtup_1385__I*/ @@ -13885,7 +13885,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1387", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1387.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1387.obj_num = 0; - cdat->dobj_1387.obj_hash = 697047037; + cdat->dobj_1387.obj_hash = 818742043; cdat->dobj_1387.obj_len = 2; /*^iniobj*/ @@ -13895,7 +13895,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1388", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1388.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1388.obj_num = 1; - cdat->dobj_1388.obj_hash = 691112844; + cdat->dobj_1388.obj_hash = 844940737; cdat->dobj_1388.obj_len = 2; /*inistring dstr_1389__melt_imod_*/ @@ -13932,7 +13932,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1395__IRAW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1395__IRAW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1395__IRAW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1395__IRAW.obj_hash = 52855533; + cdat->dobj_1395__IRAW.obj_hash = 171464319; cdat->dobj_1395__IRAW.obj_len = 5; /*inimult dtup_1396__IRAW*/ @@ -13950,7 +13950,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1398", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1398.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1398.obj_num = 0; - cdat->dobj_1398.obj_hash = 69657321; + cdat->dobj_1398.obj_hash = 52855533; cdat->dobj_1398.obj_len = 2; /*^iniobj*/ @@ -13960,7 +13960,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1399", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1399.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1399.obj_num = 1; - cdat->dobj_1399.obj_hash = 751065099; + cdat->dobj_1399.obj_hash = 340082042; cdat->dobj_1399.obj_len = 2; /*inistring dstr_1400__*/ @@ -13997,7 +13997,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1406__IRAW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1406__IRAW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1406__IRAW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1406__IRAW.obj_hash = 1057056065; + cdat->dobj_1406__IRAW.obj_hash = 1009868639; cdat->dobj_1406__IRAW.obj_len = 5; /*inimult dtup_1407__IRAW*/ @@ -14015,7 +14015,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1409", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1409.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1409.obj_num = 0; - cdat->dobj_1409.obj_hash = 746687672; + cdat->dobj_1409.obj_hash = 1057056065; cdat->dobj_1409.obj_len = 2; /*^iniobj*/ @@ -14025,7 +14025,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1410", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1410.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1410.obj_num = 1; - cdat->dobj_1410.obj_hash = 313126713; + cdat->dobj_1410.obj_hash = 636932395; cdat->dobj_1410.obj_len = 2; /*inistring dstr_1411__*/ @@ -14062,7 +14062,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1417__NOT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1417__NOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1417__NOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1417__NOT.obj_hash = 576136028; + cdat->dobj_1417__NOT.obj_hash = 583331688; cdat->dobj_1417__NOT.obj_len = 5; /*inimult dtup_1418__NOT*/ @@ -14080,7 +14080,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1420", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1420.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1420.obj_num = 0; - cdat->dobj_1420.obj_hash = 621640163; + cdat->dobj_1420.obj_hash = 576136028; cdat->dobj_1420.obj_len = 2; /*inistring dstr_1421__*/ @@ -14113,7 +14113,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1426__INFORMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1426__INFORMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1426__INFORMSG_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1426__INFORMSG_STRV.obj_hash = 104110445; + cdat->dobj_1426__INFORMSG_STRV.obj_hash = 286223147; cdat->dobj_1426__INFORMSG_STRV.obj_len = 5; /*inimult dtup_1427__INFORMSG_STRV*/ @@ -14143,7 +14143,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1431", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1431.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1431.obj_num = 0; - cdat->dobj_1431.obj_hash = 532860428; + cdat->dobj_1431.obj_hash = 104110445; cdat->dobj_1431.obj_len = 2; /*^iniobj*/ @@ -14153,7 +14153,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1432", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1432.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1432.obj_num = 1; - cdat->dobj_1432.obj_hash = 1032395043; + cdat->dobj_1432.obj_hash = 251907402; cdat->dobj_1432.obj_len = 2; /*inistring dstr_1433__inform_UNKNOWN_L*/ @@ -14178,7 +14178,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1437__INTEGER_GREATER_THAN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1437__INTEGER_GREATER_THAN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1437__INTEGER_GREATER_THAN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_1437__INTEGER_GREATER_THAN.obj_hash = 174811139; + cdat->dobj_1437__INTEGER_GREATER_THAN.obj_hash = 40328180; cdat->dobj_1437__INTEGER_GREATER_THAN.obj_len = 9; /*inistring dstr_1438__INTEGER_GREATER_*/ @@ -14204,7 +14204,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1441", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1441.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1441.obj_num = 0; - cdat->dobj_1441.obj_hash = 800639184; + cdat->dobj_1441.obj_hash = 319407729; cdat->dobj_1441.obj_len = 2; /*inimult dtup_1442__INTEGER_GREATER_THAN*/ @@ -14217,7 +14217,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1443", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1443", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1443.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_1443.obj_hash = 33345884; + cdat->dobj_1443.obj_hash = 259962758; cdat->dobj_1443.obj_len = 2; /*inimult dtup_1444__INTEGER_GREATER_THAN*/ @@ -14274,7 +14274,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1454__NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1454__NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1454__NULL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1454__NULL.obj_hash = 465733206; + cdat->dobj_1454__NULL.obj_hash = 831446992; cdat->dobj_1454__NULL.obj_len = 5; /*inimult dtup_1455__NULL*/ @@ -14292,7 +14292,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1457", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1457.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1457.obj_num = 0; - cdat->dobj_1457.obj_hash = 633378640; + cdat->dobj_1457.obj_hash = 465733206; cdat->dobj_1457.obj_len = 2; /*inistring dstr_1458__*/ @@ -14325,7 +14325,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1463__NEED_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1463__NEED_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1463__NEED_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1463__NEED_DBG.obj_hash = 555638880; + cdat->dobj_1463__NEED_DBG.obj_hash = 787117632; cdat->dobj_1463__NEED_DBG.obj_len = 5; /*inimult dtup_1464__NEED_DBG*/ @@ -14355,7 +14355,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1468", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1468.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1468.obj_num = 0; - cdat->dobj_1468.obj_hash = 42367307; + cdat->dobj_1468.obj_hash = 555638880; cdat->dobj_1468.obj_len = 2; /*inistring dstr_1469__flag_melt_debug*/ @@ -14392,7 +14392,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1475__NEED_DBGLIM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1475__NEED_DBGLIM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1475__NEED_DBGLIM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1475__NEED_DBGLIM.obj_hash = 757340078; + cdat->dobj_1475__NEED_DBGLIM.obj_hash = 288225690; cdat->dobj_1475__NEED_DBGLIM.obj_len = 5; /*inimult dtup_1476__NEED_DBGLIM*/ @@ -14410,7 +14410,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1478", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1478.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1478.obj_num = 0; - cdat->dobj_1478.obj_hash = 130157246; + cdat->dobj_1478.obj_hash = 757340078; cdat->dobj_1478.obj_len = 2; /*iniobj dsym_1479__LIMIT*/ @@ -14432,7 +14432,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1481", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1481.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1481.obj_num = 1; - cdat->dobj_1481.obj_hash = 192940378; + cdat->dobj_1481.obj_hash = 80261309; cdat->dobj_1481.obj_len = 2; /*inistring dstr_1482__flag_melt_debug*/ @@ -14473,7 +14473,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1489__SHORTBACKTRACE_DBG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1489__SHORTBACKTRACE_DBG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1489__SHORTBACKTRACE_DBG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1489__SHORTBACKTRACE_DBG.obj_hash = 381855675; + cdat->dobj_1489__SHORTBACKTRACE_DBG.obj_hash = 737647859; cdat->dobj_1489__SHORTBACKTRACE_DBG.obj_len = 5; /*inimult dtup_1490__SHORTBACKTRACE_DBG*/ @@ -14491,7 +14491,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1492", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1492.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1492.obj_num = 0; - cdat->dobj_1492.obj_hash = 1004133; + cdat->dobj_1492.obj_hash = 381855675; cdat->dobj_1492.obj_len = 2; /*iniobj dsym_1493__MAXDEPTH*/ @@ -14513,7 +14513,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1495", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1495.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1495.obj_num = 1; - cdat->dobj_1495.obj_hash = 205095572; + cdat->dobj_1495.obj_hash = 286344264; cdat->dobj_1495.obj_len = 2; /*inistring dstr_1496__if_ENABLE_CHE*/ @@ -14550,7 +14550,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1502__THE_NULL_CSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1502__THE_NULL_CSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1502__THE_NULL_CSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1502__THE_NULL_CSTRING.obj_hash = 434083798; + cdat->dobj_1502__THE_NULL_CSTRING.obj_hash = 567669187; cdat->dobj_1502__THE_NULL_CSTRING.obj_len = 5; /*inimult dtup_1503__THE_NULL_CSTRING*/ @@ -14587,7 +14587,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1509__IS_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1509__IS_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1509__IS_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1509__IS_STRING.obj_hash = 177947831; + cdat->dobj_1509__IS_STRING.obj_hash = 458927936; cdat->dobj_1509__IS_STRING.obj_len = 5; /*inimult dtup_1510__IS_STRING*/ @@ -14617,7 +14617,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1514", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1514.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1514.obj_num = 0; - cdat->dobj_1514.obj_hash = 540027872; + cdat->dobj_1514.obj_hash = 177947831; cdat->dobj_1514.obj_len = 2; /*inistring dstr_1515__melt_magic_disc*/ @@ -14650,7 +14650,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1520__S", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1520__S", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1520__S.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1520__S.obj_hash = 401529991; + cdat->dobj_1520__S.obj_hash = 922081140; cdat->dobj_1520__S.obj_len = 5; /*inimult dtup_1521__S*/ @@ -14680,7 +14680,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1525", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1525.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1525.obj_num = 0; - cdat->dobj_1525.obj_hash = 447069983; + cdat->dobj_1525.obj_hash = 401529991; cdat->dobj_1525.obj_len = 2; /*iniobj dsym_1526__S2*/ @@ -14702,7 +14702,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1528", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1528.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1528.obj_num = 1; - cdat->dobj_1528.obj_hash = 285499335; + cdat->dobj_1528.obj_hash = 758942233; cdat->dobj_1528.obj_len = 2; /*inistring dstr_1529__melt_string_same*/ @@ -14739,7 +14739,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1535__S", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1535__S", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1535__S.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1535__S.obj_hash = 34319146; + cdat->dobj_1535__S.obj_hash = 488184946; cdat->dobj_1535__S.obj_len = 5; /*inimult dtup_1536__S*/ @@ -14757,7 +14757,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1538", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1538.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1538.obj_num = 0; - cdat->dobj_1538.obj_hash = 516616677; + cdat->dobj_1538.obj_hash = 34319146; cdat->dobj_1538.obj_len = 2; /*^iniobj*/ @@ -14767,7 +14767,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1539", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1539.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1539.obj_num = 1; - cdat->dobj_1539.obj_hash = 1012549921; + cdat->dobj_1539.obj_hash = 920124809; cdat->dobj_1539.obj_len = 2; /*inistring dstr_1540__melt_string_sam*/ @@ -14804,7 +14804,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1546__MAKE_STRINGCONST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1546__MAKE_STRINGCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1546__MAKE_STRINGCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1546__MAKE_STRINGCONST.obj_hash = 1069233544; + cdat->dobj_1546__MAKE_STRINGCONST.obj_hash = 163973374; cdat->dobj_1546__MAKE_STRINGCONST.obj_len = 5; /*inimult dtup_1547__MAKE_STRINGCONST*/ @@ -14834,7 +14834,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1551", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1551.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1551.obj_num = 0; - cdat->dobj_1551.obj_hash = 668669256; + cdat->dobj_1551.obj_hash = 1069233544; cdat->dobj_1551.obj_len = 2; /*^iniobj*/ @@ -14844,7 +14844,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1552", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1552.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1552.obj_num = 1; - cdat->dobj_1552.obj_hash = 787920081; + cdat->dobj_1552.obj_hash = 59784555; cdat->dobj_1552.obj_len = 2; /*inistring dstr_1553__meltgc_new_stri*/ @@ -14881,7 +14881,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1559__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1559__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1559__STRING_.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1559__STRING_.obj_hash = 705735695; + cdat->dobj_1559__STRING_.obj_hash = 966505191; cdat->dobj_1559__STRING_.obj_len = 5; /*inimult dtup_1560__STRING_*/ @@ -14899,7 +14899,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1562", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1562.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1562.obj_num = 0; - cdat->dobj_1562.obj_hash = 919786530; + cdat->dobj_1562.obj_hash = 705735695; cdat->dobj_1562.obj_len = 2; /*^iniobj*/ @@ -14909,7 +14909,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1563", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1563.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1563.obj_num = 1; - cdat->dobj_1563.obj_hash = 531378811; + cdat->dobj_1563.obj_hash = 1061604409; cdat->dobj_1563.obj_len = 2; /*inistring dstr_1564__melt_string_less*/ @@ -14946,7 +14946,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1570__STRING_", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1570__STRING_", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1570__STRING_.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1570__STRING_.obj_hash = 290204978; + cdat->dobj_1570__STRING_.obj_hash = 419968964; cdat->dobj_1570__STRING_.obj_len = 5; /*inimult dtup_1571__STRING_*/ @@ -14964,7 +14964,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1573", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1573.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1573.obj_num = 0; - cdat->dobj_1573.obj_hash = 708548570; + cdat->dobj_1573.obj_hash = 290204978; cdat->dobj_1573.obj_len = 2; /*^iniobj*/ @@ -14974,7 +14974,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1574", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1574.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1574.obj_num = 1; - cdat->dobj_1574.obj_hash = 12978244; + cdat->dobj_1574.obj_hash = 384693920; cdat->dobj_1574.obj_len = 2; /*inistring dstr_1575__melt_string_less*/ @@ -15011,7 +15011,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1581__IS_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1581__IS_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1581__IS_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1581__IS_MULTIPLE.obj_hash = 1011797901; + cdat->dobj_1581__IS_MULTIPLE.obj_hash = 973831560; cdat->dobj_1581__IS_MULTIPLE.obj_len = 5; /*inimult dtup_1582__IS_MULTIPLE*/ @@ -15041,7 +15041,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1586", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1586.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1586.obj_num = 0; - cdat->dobj_1586.obj_hash = 447758545; + cdat->dobj_1586.obj_hash = 1011797901; cdat->dobj_1586.obj_len = 2; /*inistring dstr_1587__melt_magic_disc*/ @@ -15074,7 +15074,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1592__MAKE_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1592__MAKE_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1592__MAKE_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1592__MAKE_MULTIPLE.obj_hash = 1046069772; + cdat->dobj_1592__MAKE_MULTIPLE.obj_hash = 234212558; cdat->dobj_1592__MAKE_MULTIPLE.obj_len = 5; /*inimult dtup_1593__MAKE_MULTIPLE*/ @@ -15092,7 +15092,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1595", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1595.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1595.obj_num = 0; - cdat->dobj_1595.obj_hash = 390111136; + cdat->dobj_1595.obj_hash = 1046069772; cdat->dobj_1595.obj_len = 2; /*iniobj dsym_1596__LN*/ @@ -15114,7 +15114,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1598", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1598.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1598.obj_num = 1; - cdat->dobj_1598.obj_hash = 978681271; + cdat->dobj_1598.obj_hash = 848859581; cdat->dobj_1598.obj_len = 2; /*inistring dstr_1599__meltgc_new_mult*/ @@ -15151,7 +15151,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1605__MULTIPLE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1605__MULTIPLE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1605__MULTIPLE_NTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1605__MULTIPLE_NTH.obj_hash = 795697257; + cdat->dobj_1605__MULTIPLE_NTH.obj_hash = 979175792; cdat->dobj_1605__MULTIPLE_NTH.obj_len = 5; /*inimult dtup_1606__MULTIPLE_NTH*/ @@ -15169,7 +15169,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1608", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1608.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1608.obj_num = 0; - cdat->dobj_1608.obj_hash = 124513590; + cdat->dobj_1608.obj_hash = 795697257; cdat->dobj_1608.obj_len = 2; /*^iniobj*/ @@ -15179,7 +15179,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1609", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1609.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1609.obj_num = 1; - cdat->dobj_1609.obj_hash = 646404512; + cdat->dobj_1609.obj_hash = 446861460; cdat->dobj_1609.obj_len = 2; /*inistring dstr_1610__melt_multiple_n*/ @@ -15216,7 +15216,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1616__MULTIPLE_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1616__MULTIPLE_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1616__MULTIPLE_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1616__MULTIPLE_LENGTH.obj_hash = 591710479; + cdat->dobj_1616__MULTIPLE_LENGTH.obj_hash = 843765802; cdat->dobj_1616__MULTIPLE_LENGTH.obj_len = 5; /*inimult dtup_1617__MULTIPLE_LENGTH*/ @@ -15234,7 +15234,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1619", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1619.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1619.obj_num = 0; - cdat->dobj_1619.obj_hash = 1020474355; + cdat->dobj_1619.obj_hash = 591710479; cdat->dobj_1619.obj_len = 2; /*inistring dstr_1620__melt_multiple_l*/ @@ -15267,7 +15267,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1625__MULTIPLE_PUT_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1625__MULTIPLE_PUT_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1625__MULTIPLE_PUT_NTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1625__MULTIPLE_PUT_NTH.obj_hash = 171738102; + cdat->dobj_1625__MULTIPLE_PUT_NTH.obj_hash = 46014304; cdat->dobj_1625__MULTIPLE_PUT_NTH.obj_len = 5; /*inimult dtup_1626__MULTIPLE_PUT_NTH*/ @@ -15285,7 +15285,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1628", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1628.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1628.obj_num = 0; - cdat->dobj_1628.obj_hash = 786229452; + cdat->dobj_1628.obj_hash = 171738102; cdat->dobj_1628.obj_len = 2; /*^iniobj*/ @@ -15295,7 +15295,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1629", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1629.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1629.obj_num = 1; - cdat->dobj_1629.obj_hash = 713688159; + cdat->dobj_1629.obj_hash = 808150787; cdat->dobj_1629.obj_len = 2; /*^iniobj*/ @@ -15305,7 +15305,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1630", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1630.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1630.obj_num = 2; - cdat->dobj_1630.obj_hash = 334232398; + cdat->dobj_1630.obj_hash = 977403662; cdat->dobj_1630.obj_len = 2; /*inistring dstr_1631__meltgc_multiple_*/ @@ -15346,7 +15346,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1638__MULTIPLE_SORT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1638__MULTIPLE_SORT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1638__MULTIPLE_SORT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1638__MULTIPLE_SORT.obj_hash = 514088244; + cdat->dobj_1638__MULTIPLE_SORT.obj_hash = 611377834; cdat->dobj_1638__MULTIPLE_SORT.obj_len = 5; /*inimult dtup_1639__MULTIPLE_SORT*/ @@ -15364,7 +15364,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1641", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1641.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1641.obj_num = 0; - cdat->dobj_1641.obj_hash = 424173447; + cdat->dobj_1641.obj_hash = 514088244; cdat->dobj_1641.obj_len = 2; /*iniobj dsym_1642__CMP*/ @@ -15386,7 +15386,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1644", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1644.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1644.obj_num = 1; - cdat->dobj_1644.obj_hash = 125531465; + cdat->dobj_1644.obj_hash = 1025753893; cdat->dobj_1644.obj_len = 2; /*iniobj dsym_1645__DISCRM*/ @@ -15408,7 +15408,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1647", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1647.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1647.obj_num = 2; - cdat->dobj_1647.obj_hash = 420550101; + cdat->dobj_1647.obj_hash = 752435832; cdat->dobj_1647.obj_len = 2; /*inistring dstr_1648__meltgc_sort_mult*/ @@ -15449,7 +15449,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1655__IS_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1655__IS_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1655__IS_MAPOBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1655__IS_MAPOBJECT.obj_hash = 131645860; + cdat->dobj_1655__IS_MAPOBJECT.obj_hash = 236540365; cdat->dobj_1655__IS_MAPOBJECT.obj_len = 5; /*inimult dtup_1656__IS_MAPOBJECT*/ @@ -15479,7 +15479,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1660", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1660.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1660.obj_num = 0; - cdat->dobj_1660.obj_hash = 784931393; + cdat->dobj_1660.obj_hash = 131645860; cdat->dobj_1660.obj_len = 2; /*inistring dstr_1661__melt_magic_disc*/ @@ -15512,7 +15512,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1666__MAPOBJECT_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1666__MAPOBJECT_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1666__MAPOBJECT_SIZE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1666__MAPOBJECT_SIZE.obj_hash = 505970771; + cdat->dobj_1666__MAPOBJECT_SIZE.obj_hash = 977725978; cdat->dobj_1666__MAPOBJECT_SIZE.obj_len = 5; /*inimult dtup_1667__MAPOBJECT_SIZE*/ @@ -15530,7 +15530,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1669", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1669.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1669.obj_num = 0; - cdat->dobj_1669.obj_hash = 420568222; + cdat->dobj_1669.obj_hash = 505970771; cdat->dobj_1669.obj_len = 2; /*inistring dstr_1670__melt_size_mapob*/ @@ -15563,7 +15563,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1675__MAPOBJECT_COUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1675__MAPOBJECT_COUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1675__MAPOBJECT_COUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1675__MAPOBJECT_COUNT.obj_hash = 1025678951; + cdat->dobj_1675__MAPOBJECT_COUNT.obj_hash = 290158294; cdat->dobj_1675__MAPOBJECT_COUNT.obj_len = 5; /*inimult dtup_1676__MAPOBJECT_COUNT*/ @@ -15581,7 +15581,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1678", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1678.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1678.obj_num = 0; - cdat->dobj_1678.obj_hash = 140333307; + cdat->dobj_1678.obj_hash = 1025678951; cdat->dobj_1678.obj_len = 2; /*inistring dstr_1679__melt_count_mapo*/ @@ -15614,7 +15614,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1684__MAPOBJECT_NTH_ATTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1684__MAPOBJECT_NTH_ATTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1684__MAPOBJECT_NTH_ATTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1684__MAPOBJECT_NTH_ATTR.obj_hash = 731594595; + cdat->dobj_1684__MAPOBJECT_NTH_ATTR.obj_hash = 629833049; cdat->dobj_1684__MAPOBJECT_NTH_ATTR.obj_len = 5; /*inimult dtup_1685__MAPOBJECT_NTH_ATTR*/ @@ -15632,7 +15632,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1687", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1687.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1687.obj_num = 0; - cdat->dobj_1687.obj_hash = 400495393; + cdat->dobj_1687.obj_hash = 731594595; cdat->dobj_1687.obj_len = 2; /*^iniobj*/ @@ -15642,7 +15642,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1688", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1688.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1688.obj_num = 1; - cdat->dobj_1688.obj_hash = 604656465; + cdat->dobj_1688.obj_hash = 473802145; cdat->dobj_1688.obj_len = 2; /*inistring dstr_1689__melt_nthattr_ma*/ @@ -15679,7 +15679,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1695__MAPOBJECT_NTH_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1695__MAPOBJECT_NTH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1695__MAPOBJECT_NTH_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1695__MAPOBJECT_NTH_VAL.obj_hash = 588595892; + cdat->dobj_1695__MAPOBJECT_NTH_VAL.obj_hash = 876125186; cdat->dobj_1695__MAPOBJECT_NTH_VAL.obj_len = 5; /*inimult dtup_1696__MAPOBJECT_NTH_VAL*/ @@ -15697,7 +15697,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1698", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1698.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1698.obj_num = 0; - cdat->dobj_1698.obj_hash = 722344092; + cdat->dobj_1698.obj_hash = 588595892; cdat->dobj_1698.obj_len = 2; /*^iniobj*/ @@ -15707,7 +15707,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1699", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1699.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1699.obj_num = 1; - cdat->dobj_1699.obj_hash = 562725364; + cdat->dobj_1699.obj_hash = 807373088; cdat->dobj_1699.obj_len = 2; /*inistring dstr_1700__melt_nthval_map*/ @@ -15744,7 +15744,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1706__MAPOBJECT_GET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1706__MAPOBJECT_GET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1706__MAPOBJECT_GET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1706__MAPOBJECT_GET.obj_hash = 272776520; + cdat->dobj_1706__MAPOBJECT_GET.obj_hash = 981602682; cdat->dobj_1706__MAPOBJECT_GET.obj_len = 5; /*inimult dtup_1707__MAPOBJECT_GET*/ @@ -15762,7 +15762,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1709", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1709.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1709.obj_num = 0; - cdat->dobj_1709.obj_hash = 829716242; + cdat->dobj_1709.obj_hash = 272776520; cdat->dobj_1709.obj_len = 2; /*iniobj dsym_1710__ATTR*/ @@ -15784,7 +15784,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1712", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1712.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1712.obj_num = 1; - cdat->dobj_1712.obj_hash = 299261771; + cdat->dobj_1712.obj_hash = 825139594; cdat->dobj_1712.obj_len = 2; /*inistring dstr_1713__melt_get_mapobje*/ @@ -15821,7 +15821,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1719__MAKE_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1719__MAKE_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1719__MAKE_MAPOBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1719__MAKE_MAPOBJECT.obj_hash = 606556841; + cdat->dobj_1719__MAKE_MAPOBJECT.obj_hash = 726632935; cdat->dobj_1719__MAKE_MAPOBJECT.obj_len = 5; /*inimult dtup_1720__MAKE_MAPOBJECT*/ @@ -15839,7 +15839,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1722", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1722.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1722.obj_num = 0; - cdat->dobj_1722.obj_hash = 189562639; + cdat->dobj_1722.obj_hash = 606556841; cdat->dobj_1722.obj_len = 2; /*iniobj dsym_1723__LEN*/ @@ -15861,7 +15861,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1725", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1725.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1725.obj_num = 1; - cdat->dobj_1725.obj_hash = 825254087; + cdat->dobj_1725.obj_hash = 877066640; cdat->dobj_1725.obj_len = 2; /*inistring dstr_1726__meltgc_new_mapo*/ @@ -15898,7 +15898,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1732__MAPOBJECT_PUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1732__MAPOBJECT_PUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1732__MAPOBJECT_PUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1732__MAPOBJECT_PUT.obj_hash = 466964127; + cdat->dobj_1732__MAPOBJECT_PUT.obj_hash = 640555660; cdat->dobj_1732__MAPOBJECT_PUT.obj_len = 5; /*inimult dtup_1733__MAPOBJECT_PUT*/ @@ -15916,7 +15916,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1735", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1735.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1735.obj_num = 0; - cdat->dobj_1735.obj_hash = 100455243; + cdat->dobj_1735.obj_hash = 466964127; cdat->dobj_1735.obj_len = 2; /*iniobj dsym_1736__KEY*/ @@ -15938,7 +15938,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1738", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1738.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1738.obj_num = 1; - cdat->dobj_1738.obj_hash = 906990276; + cdat->dobj_1738.obj_hash = 705109996; cdat->dobj_1738.obj_len = 2; /*iniobj dsym_1739__VAL*/ @@ -15960,7 +15960,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1741", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1741.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1741.obj_num = 2; - cdat->dobj_1741.obj_hash = 270379618; + cdat->dobj_1741.obj_hash = 447841543; cdat->dobj_1741.obj_len = 2; /*inistring dstr_1742__meltgc_put_mapob*/ @@ -16001,7 +16001,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1749__MAPOBJECT_REMOVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1749__MAPOBJECT_REMOVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1749__MAPOBJECT_REMOVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1749__MAPOBJECT_REMOVE.obj_hash = 318268792; + cdat->dobj_1749__MAPOBJECT_REMOVE.obj_hash = 191548676; cdat->dobj_1749__MAPOBJECT_REMOVE.obj_len = 5; /*inimult dtup_1750__MAPOBJECT_REMOVE*/ @@ -16019,7 +16019,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1752", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1752.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1752.obj_num = 0; - cdat->dobj_1752.obj_hash = 482231290; + cdat->dobj_1752.obj_hash = 318268792; cdat->dobj_1752.obj_len = 2; /*^iniobj*/ @@ -16029,7 +16029,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1753", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1753.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1753.obj_num = 1; - cdat->dobj_1753.obj_hash = 28516088; + cdat->dobj_1753.obj_hash = 650834793; cdat->dobj_1753.obj_len = 2; /*inistring dstr_1754__meltgc_remove_ma*/ @@ -16054,7 +16054,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1758__FOREACH_IN_MAPOBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1758__FOREACH_IN_MAPOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1758__FOREACH_IN_MAPOBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_1758__FOREACH_IN_MAPOBJECT.obj_hash = 964040243; + cdat->dobj_1758__FOREACH_IN_MAPOBJECT.obj_hash = 689330337; cdat->dobj_1758__FOREACH_IN_MAPOBJECT.obj_len = 7; /*inistring dstr_1759__FOREACH_IN_MAPOB*/ @@ -16080,7 +16080,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1762", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1762.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1762.obj_num = 0; - cdat->dobj_1762.obj_hash = 557571150; + cdat->dobj_1762.obj_hash = 657158104; cdat->dobj_1762.obj_len = 2; /*inimult dtup_1763__FOREACH_IN_MAPOBJECT*/ @@ -16118,7 +16118,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1768", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1768.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1768.obj_num = 0; - cdat->dobj_1768.obj_hash = 990550536; + cdat->dobj_1768.obj_hash = 38403965; cdat->dobj_1768.obj_len = 2; /*iniobj dsym_1769__CURVA*/ @@ -16140,7 +16140,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1771", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1771.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1771.obj_num = 1; - cdat->dobj_1771.obj_hash = 464241232; + cdat->dobj_1771.obj_hash = 348326968; cdat->dobj_1771.obj_len = 2; /*inimult dtup_1772__FOREACH_IN_MAPOBJECT*/ @@ -16285,7 +16285,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1805__IS_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1805__IS_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1805__IS_MAPSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1805__IS_MAPSTRING.obj_hash = 427180540; + cdat->dobj_1805__IS_MAPSTRING.obj_hash = 1013892683; cdat->dobj_1805__IS_MAPSTRING.obj_len = 5; /*inimult dtup_1806__IS_MAPSTRING*/ @@ -16303,7 +16303,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1808", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1808.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1808.obj_num = 0; - cdat->dobj_1808.obj_hash = 1049552697; + cdat->dobj_1808.obj_hash = 427180540; cdat->dobj_1808.obj_len = 2; /*inistring dstr_1809__melt_magic_disc*/ @@ -16336,7 +16336,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1814__MAKE_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1814__MAKE_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1814__MAKE_MAPSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1814__MAKE_MAPSTRING.obj_hash = 883140553; + cdat->dobj_1814__MAKE_MAPSTRING.obj_hash = 543381897; cdat->dobj_1814__MAKE_MAPSTRING.obj_len = 5; /*inimult dtup_1815__MAKE_MAPSTRING*/ @@ -16354,7 +16354,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1817", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1817.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1817.obj_num = 0; - cdat->dobj_1817.obj_hash = 720293612; + cdat->dobj_1817.obj_hash = 883140553; cdat->dobj_1817.obj_len = 2; /*^iniobj*/ @@ -16364,7 +16364,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1818", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1818.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1818.obj_num = 1; - cdat->dobj_1818.obj_hash = 85294390; + cdat->dobj_1818.obj_hash = 876745568; cdat->dobj_1818.obj_len = 2; /*inistring dstr_1819__meltgc_new_maps*/ @@ -16401,7 +16401,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1825__MAPSTRING_PUTSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1825__MAPSTRING_PUTSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1825__MAPSTRING_PUTSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1825__MAPSTRING_PUTSTR.obj_hash = 231238109; + cdat->dobj_1825__MAPSTRING_PUTSTR.obj_hash = 850640490; cdat->dobj_1825__MAPSTRING_PUTSTR.obj_len = 5; /*inimult dtup_1826__MAPSTRING_PUTSTR*/ @@ -16419,7 +16419,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1828", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1828.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1828.obj_num = 0; - cdat->dobj_1828.obj_hash = 847913318; + cdat->dobj_1828.obj_hash = 231238109; cdat->dobj_1828.obj_len = 2; /*iniobj dsym_1829__KEYSTR*/ @@ -16441,7 +16441,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1831", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1831.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1831.obj_num = 1; - cdat->dobj_1831.obj_hash = 164565387; + cdat->dobj_1831.obj_hash = 306054446; cdat->dobj_1831.obj_len = 2; /*^iniobj*/ @@ -16451,7 +16451,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1832", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1832.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1832.obj_num = 2; - cdat->dobj_1832.obj_hash = 644471195; + cdat->dobj_1832.obj_hash = 443419154; cdat->dobj_1832.obj_len = 2; /*inistring dstr_1833__meltgc_put_mapst*/ @@ -16492,7 +16492,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1840__MAPSTRING_GETSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1840__MAPSTRING_GETSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1840__MAPSTRING_GETSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1840__MAPSTRING_GETSTR.obj_hash = 716178231; + cdat->dobj_1840__MAPSTRING_GETSTR.obj_hash = 277743280; cdat->dobj_1840__MAPSTRING_GETSTR.obj_len = 5; /*inimult dtup_1841__MAPSTRING_GETSTR*/ @@ -16510,7 +16510,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1843", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1843.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1843.obj_num = 0; - cdat->dobj_1843.obj_hash = 315460370; + cdat->dobj_1843.obj_hash = 716178231; cdat->dobj_1843.obj_len = 2; /*^iniobj*/ @@ -16520,7 +16520,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1844", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1844.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1844.obj_num = 1; - cdat->dobj_1844.obj_hash = 659041521; + cdat->dobj_1844.obj_hash = 445876345; cdat->dobj_1844.obj_len = 2; /*inistring dstr_1845__melt_get_mapstr*/ @@ -16557,7 +16557,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1851__MAPSTRING_REMOVESTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1851__MAPSTRING_REMOVESTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1851__MAPSTRING_REMOVESTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1851__MAPSTRING_REMOVESTR.obj_hash = 668978161; + cdat->dobj_1851__MAPSTRING_REMOVESTR.obj_hash = 580861405; cdat->dobj_1851__MAPSTRING_REMOVESTR.obj_len = 5; /*inimult dtup_1852__MAPSTRING_REMOVESTR*/ @@ -16575,7 +16575,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1854", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1854.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1854.obj_num = 0; - cdat->dobj_1854.obj_hash = 934383462; + cdat->dobj_1854.obj_hash = 668978161; cdat->dobj_1854.obj_len = 2; /*^iniobj*/ @@ -16585,7 +16585,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1855", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1855.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1855.obj_num = 1; - cdat->dobj_1855.obj_hash = 302215808; + cdat->dobj_1855.obj_hash = 661351199; cdat->dobj_1855.obj_len = 2; /*inistring dstr_1856__meltgc_remove_ma*/ @@ -16622,7 +16622,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1862__MAPSTRING_NTH_ATTRSTR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1862__MAPSTRING_NTH_ATTRSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1862__MAPSTRING_NTH_ATTRSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1862__MAPSTRING_NTH_ATTRSTR.obj_hash = 152701523; + cdat->dobj_1862__MAPSTRING_NTH_ATTRSTR.obj_hash = 662179840; cdat->dobj_1862__MAPSTRING_NTH_ATTRSTR.obj_len = 5; /*inimult dtup_1863__MAPSTRING_NTH_ATTRSTR*/ @@ -16640,7 +16640,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1865", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1865.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1865.obj_num = 0; - cdat->dobj_1865.obj_hash = 626259786; + cdat->dobj_1865.obj_hash = 152701523; cdat->dobj_1865.obj_len = 2; /*iniobj dsym_1866__SDICR*/ @@ -16662,7 +16662,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1868", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1868.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1868.obj_num = 1; - cdat->dobj_1868.obj_hash = 612955524; + cdat->dobj_1868.obj_hash = 329828619; cdat->dobj_1868.obj_len = 2; /*^iniobj*/ @@ -16672,7 +16672,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1869", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1869.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1869.obj_num = 2; - cdat->dobj_1869.obj_hash = 550392284; + cdat->dobj_1869.obj_hash = 3996743; cdat->dobj_1869.obj_len = 2; /*inistring dstr_1870__meltgc_new_stri*/ @@ -16713,7 +16713,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1877__MAPSTRING_NTH_VAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1877__MAPSTRING_NTH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1877__MAPSTRING_NTH_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1877__MAPSTRING_NTH_VAL.obj_hash = 615700482; + cdat->dobj_1877__MAPSTRING_NTH_VAL.obj_hash = 293249938; cdat->dobj_1877__MAPSTRING_NTH_VAL.obj_len = 5; /*inimult dtup_1878__MAPSTRING_NTH_VAL*/ @@ -16731,7 +16731,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1880", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1880.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1880.obj_num = 0; - cdat->dobj_1880.obj_hash = 874006530; + cdat->dobj_1880.obj_hash = 615700482; cdat->dobj_1880.obj_len = 2; /*^iniobj*/ @@ -16741,7 +16741,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1881", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1881.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1881.obj_num = 1; - cdat->dobj_1881.obj_hash = 607848403; + cdat->dobj_1881.obj_hash = 258209181; cdat->dobj_1881.obj_len = 2; /*inistring dstr_1882__melt_nthval_map*/ @@ -16766,7 +16766,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1886__FOREACH_IN_MAPSTRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1886__FOREACH_IN_MAPSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1886__FOREACH_IN_MAPSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_1886__FOREACH_IN_MAPSTRING.obj_hash = 419698329; + cdat->dobj_1886__FOREACH_IN_MAPSTRING.obj_hash = 617313016; cdat->dobj_1886__FOREACH_IN_MAPSTRING.obj_len = 7; /*inistring dstr_1887__FOREACH_IN_MAPST*/ @@ -16792,7 +16792,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1890", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1890.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1890.obj_num = 0; - cdat->dobj_1890.obj_hash = 99487992; + cdat->dobj_1890.obj_hash = 261304276; cdat->dobj_1890.obj_len = 2; /*inimult dtup_1891__FOREACH_IN_MAPSTRING*/ @@ -16818,7 +16818,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1894", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1894.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1894.obj_num = 0; - cdat->dobj_1894.obj_hash = 847553048; + cdat->dobj_1894.obj_hash = 401572466; cdat->dobj_1894.obj_len = 2; /*^iniobj*/ @@ -16828,7 +16828,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1895", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1895.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1895.obj_num = 1; - cdat->dobj_1895.obj_hash = 246083070; + cdat->dobj_1895.obj_hash = 827171627; cdat->dobj_1895.obj_len = 2; /*inimult dtup_1896__FOREACH_IN_MAPSTRING*/ @@ -17037,7 +17037,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1945__IS_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1945__IS_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1945__IS_ROUTINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1945__IS_ROUTINE.obj_hash = 539508074; + cdat->dobj_1945__IS_ROUTINE.obj_hash = 940043073; cdat->dobj_1945__IS_ROUTINE.obj_len = 5; /*inimult dtup_1946__IS_ROUTINE*/ @@ -17067,7 +17067,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1950", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1950.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1950.obj_num = 0; - cdat->dobj_1950.obj_hash = 985514722; + cdat->dobj_1950.obj_hash = 539508074; cdat->dobj_1950.obj_len = 2; /*inistring dstr_1951__melt_magic_disc*/ @@ -17100,7 +17100,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1956__ROUTINE_DESCR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1956__ROUTINE_DESCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1956__ROUTINE_DESCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1956__ROUTINE_DESCR.obj_hash = 785287142; + cdat->dobj_1956__ROUTINE_DESCR.obj_hash = 1072945233; cdat->dobj_1956__ROUTINE_DESCR.obj_len = 5; /*inimult dtup_1957__ROUTINE_DESCR*/ @@ -17118,7 +17118,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1959", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1959.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1959.obj_num = 0; - cdat->dobj_1959.obj_hash = 708806654; + cdat->dobj_1959.obj_hash = 785287142; cdat->dobj_1959.obj_len = 2; /*inistring dstr_1960__meltgc_new_stri*/ @@ -17151,7 +17151,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1965__ROUTINE_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1965__ROUTINE_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1965__ROUTINE_SIZE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1965__ROUTINE_SIZE.obj_hash = 901984915; + cdat->dobj_1965__ROUTINE_SIZE.obj_hash = 62131189; cdat->dobj_1965__ROUTINE_SIZE.obj_len = 5; /*inimult dtup_1966__ROUTINE_SIZE*/ @@ -17169,7 +17169,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1968", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1968.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1968.obj_num = 0; - cdat->dobj_1968.obj_hash = 246191075; + cdat->dobj_1968.obj_hash = 901984915; cdat->dobj_1968.obj_len = 2; /*inistring dstr_1969__melt_routine_si*/ @@ -17202,7 +17202,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1974__ROUTINE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1974__ROUTINE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1974__ROUTINE_NTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1974__ROUTINE_NTH.obj_hash = 106245421; + cdat->dobj_1974__ROUTINE_NTH.obj_hash = 593444387; cdat->dobj_1974__ROUTINE_NTH.obj_len = 5; /*inimult dtup_1975__ROUTINE_NTH*/ @@ -17220,7 +17220,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1977", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1977.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1977.obj_num = 0; - cdat->dobj_1977.obj_hash = 1058985672; + cdat->dobj_1977.obj_hash = 106245421; cdat->dobj_1977.obj_len = 2; /*iniobj dsym_1978__IX*/ @@ -17242,7 +17242,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1980", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1980.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1980.obj_num = 1; - cdat->dobj_1980.obj_hash = 844799688; + cdat->dobj_1980.obj_hash = 564974344; cdat->dobj_1980.obj_len = 2; /*inistring dstr_1981__melt_routine_nt*/ @@ -17279,7 +17279,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1987__IS_CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1987__IS_CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1987__IS_CLOSURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1987__IS_CLOSURE.obj_hash = 290927663; + cdat->dobj_1987__IS_CLOSURE.obj_hash = 1019479043; cdat->dobj_1987__IS_CLOSURE.obj_len = 5; /*inimult dtup_1988__IS_CLOSURE*/ @@ -17309,7 +17309,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1992", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1992.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1992.obj_num = 0; - cdat->dobj_1992.obj_hash = 589714645; + cdat->dobj_1992.obj_hash = 290927663; cdat->dobj_1992.obj_len = 2; /*inistring dstr_1993__melt_magic_disc*/ @@ -17342,7 +17342,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1998__CLOSURE_SIZE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1998__CLOSURE_SIZE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1998__CLOSURE_SIZE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1998__CLOSURE_SIZE.obj_hash = 560167527; + cdat->dobj_1998__CLOSURE_SIZE.obj_hash = 965224334; cdat->dobj_1998__CLOSURE_SIZE.obj_len = 5; /*inimult dtup_1999__CLOSURE_SIZE*/ @@ -17360,7 +17360,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2001", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2001.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2001.obj_num = 0; - cdat->dobj_2001.obj_hash = 522012284; + cdat->dobj_2001.obj_hash = 560167527; cdat->dobj_2001.obj_len = 2; /*inistring dstr_2002__melt_closure_si*/ @@ -17393,7 +17393,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2007__CLOSURE_ROUTINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2007__CLOSURE_ROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2007__CLOSURE_ROUTINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2007__CLOSURE_ROUTINE.obj_hash = 545538565; + cdat->dobj_2007__CLOSURE_ROUTINE.obj_hash = 547498934; cdat->dobj_2007__CLOSURE_ROUTINE.obj_len = 5; /*inimult dtup_2008__CLOSURE_ROUTINE*/ @@ -17411,7 +17411,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2010", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2010.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2010.obj_num = 0; - cdat->dobj_2010.obj_hash = 688171499; + cdat->dobj_2010.obj_hash = 545538565; cdat->dobj_2010.obj_len = 2; /*inistring dstr_2011__melt_closure_ro*/ @@ -17444,7 +17444,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2016__CLOSURE_NTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2016__CLOSURE_NTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2016__CLOSURE_NTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2016__CLOSURE_NTH.obj_hash = 1059025335; + cdat->dobj_2016__CLOSURE_NTH.obj_hash = 330817609; cdat->dobj_2016__CLOSURE_NTH.obj_len = 5; /*inimult dtup_2017__CLOSURE_NTH*/ @@ -17462,7 +17462,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2019", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2019.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2019.obj_num = 0; - cdat->dobj_2019.obj_hash = 1031059852; + cdat->dobj_2019.obj_hash = 1059025335; cdat->dobj_2019.obj_len = 2; /*^iniobj*/ @@ -17472,7 +17472,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2020", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2020.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2020.obj_num = 1; - cdat->dobj_2020.obj_hash = 283267668; + cdat->dobj_2020.obj_hash = 940561412; cdat->dobj_2020.obj_len = 2; /*inistring dstr_2021__melt_closure_nt*/ @@ -17497,7 +17497,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2025__CLOSURE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2025__CLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2025__CLOSURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_2025__CLOSURE.obj_hash = 26036992; + cdat->dobj_2025__CLOSURE.obj_hash = 143345271; cdat->dobj_2025__CLOSURE.obj_len = 9; /*inistring dstr_2026__CLOSURE*/ @@ -17514,7 +17514,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2028", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2028", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2028.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2028.obj_hash = 976623375; + cdat->dobj_2028.obj_hash = 244188548; cdat->dobj_2028.obj_len = 2; /*inimult dtup_2029__CLOSURE*/ @@ -17583,7 +17583,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2042__IS_INTEGERBOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2042__IS_INTEGERBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2042__IS_INTEGERBOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2042__IS_INTEGERBOX.obj_hash = 388970528; + cdat->dobj_2042__IS_INTEGERBOX.obj_hash = 835053527; cdat->dobj_2042__IS_INTEGERBOX.obj_len = 5; /*inimult dtup_2043__IS_INTEGERBOX*/ @@ -17613,7 +17613,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2047", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2047.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2047.obj_num = 0; - cdat->dobj_2047.obj_hash = 376947249; + cdat->dobj_2047.obj_hash = 388970528; cdat->dobj_2047.obj_len = 2; /*inistring dstr_2048__melt_magic_disc*/ @@ -17646,7 +17646,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2053__MAKE_INTEGERBOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2053__MAKE_INTEGERBOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2053__MAKE_INTEGERBOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2053__MAKE_INTEGERBOX.obj_hash = 709139501; + cdat->dobj_2053__MAKE_INTEGERBOX.obj_hash = 601479145; cdat->dobj_2053__MAKE_INTEGERBOX.obj_len = 5; /*inimult dtup_2054__MAKE_INTEGERBOX*/ @@ -17664,7 +17664,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2056", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2056.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2056.obj_num = 0; - cdat->dobj_2056.obj_hash = 523553991; + cdat->dobj_2056.obj_hash = 709139501; cdat->dobj_2056.obj_len = 2; /*^iniobj*/ @@ -17674,7 +17674,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2057", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2057.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2057.obj_num = 1; - cdat->dobj_2057.obj_hash = 482695804; + cdat->dobj_2057.obj_hash = 125145415; cdat->dobj_2057.obj_len = 2; /*inistring dstr_2058__meltgc_new_int_*/ @@ -17699,7 +17699,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2062__INTEGERBOX_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2062__INTEGERBOX_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2062__INTEGERBOX_OF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_2062__INTEGERBOX_OF.obj_hash = 647848882; + cdat->dobj_2062__INTEGERBOX_OF.obj_hash = 1027433985; cdat->dobj_2062__INTEGERBOX_OF.obj_len = 9; /*inistring dstr_2063__INTEGERBOX_OF*/ @@ -17728,7 +17728,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2067", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2067", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2067.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2067.obj_hash = 877068982; + cdat->dobj_2067.obj_hash = 11555319; cdat->dobj_2067.obj_len = 2; /*iniobj dsym_2068__ICT*/ @@ -17750,7 +17750,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2070", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2070.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2070.obj_num = 0; - cdat->dobj_2070.obj_hash = 483564847; + cdat->dobj_2070.obj_hash = 404499867; cdat->dobj_2070.obj_len = 2; /*inimult dtup_2071__INTEGERBOX_OF*/ @@ -17827,7 +17827,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2086__IS_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2086__IS_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2086__IS_BOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2086__IS_BOX.obj_hash = 837662441; + cdat->dobj_2086__IS_BOX.obj_hash = 132820309; cdat->dobj_2086__IS_BOX.obj_len = 5; /*inimult dtup_2087__IS_BOX*/ @@ -17857,7 +17857,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2091", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2091.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2091.obj_num = 0; - cdat->dobj_2091.obj_hash = 541250990; + cdat->dobj_2091.obj_hash = 837662441; cdat->dobj_2091.obj_len = 2; /*inistring dstr_2092__melt_magic_disc*/ @@ -17890,7 +17890,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2097__BOX_CONTENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2097__BOX_CONTENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2097__BOX_CONTENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2097__BOX_CONTENT.obj_hash = 531368073; + cdat->dobj_2097__BOX_CONTENT.obj_hash = 359324584; cdat->dobj_2097__BOX_CONTENT.obj_len = 5; /*inimult dtup_2098__BOX_CONTENT*/ @@ -17908,7 +17908,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2100", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2100.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2100.obj_num = 0; - cdat->dobj_2100.obj_hash = 109175839; + cdat->dobj_2100.obj_hash = 531368073; cdat->dobj_2100.obj_len = 2; /*inistring dstr_2101__melt_box_content*/ @@ -17941,7 +17941,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2106__BOX_PUT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2106__BOX_PUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2106__BOX_PUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2106__BOX_PUT.obj_hash = 1012358116; + cdat->dobj_2106__BOX_PUT.obj_hash = 740049908; cdat->dobj_2106__BOX_PUT.obj_len = 5; /*inimult dtup_2107__BOX_PUT*/ @@ -17959,7 +17959,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2109", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2109.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2109.obj_num = 0; - cdat->dobj_2109.obj_hash = 918474796; + cdat->dobj_2109.obj_hash = 1012358116; cdat->dobj_2109.obj_len = 2; /*^iniobj*/ @@ -17969,7 +17969,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2110", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2110.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2110.obj_num = 1; - cdat->dobj_2110.obj_hash = 461103525; + cdat->dobj_2110.obj_hash = 404012401; cdat->dobj_2110.obj_len = 2; /*inistring dstr_2111__meltgc_box_put_*/ @@ -18006,7 +18006,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2117__MAKE_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2117__MAKE_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2117__MAKE_BOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2117__MAKE_BOX.obj_hash = 1066072162; + cdat->dobj_2117__MAKE_BOX.obj_hash = 50960618; cdat->dobj_2117__MAKE_BOX.obj_len = 5; /*inimult dtup_2118__MAKE_BOX*/ @@ -18024,7 +18024,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2120", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2120.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2120.obj_num = 0; - cdat->dobj_2120.obj_hash = 397835165; + cdat->dobj_2120.obj_hash = 1066072162; cdat->dobj_2120.obj_len = 2; /*iniobj dsym_2121__VALB*/ @@ -18046,7 +18046,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2123", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2123.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2123.obj_num = 1; - cdat->dobj_2123.obj_hash = 182256828; + cdat->dobj_2123.obj_hash = 884826921; cdat->dobj_2123.obj_len = 2; /*inistring dstr_2124__meltgc_new_box_*/ @@ -18071,7 +18071,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2128__BOX_OF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CMATCHER)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2128__BOX_OF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CMATCHER)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2128__BOX_OF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER)))); - cdat->dobj_2128__BOX_OF.obj_hash = 668907396; + cdat->dobj_2128__BOX_OF.obj_hash = 756163707; cdat->dobj_2128__BOX_OF.obj_len = 9; /*inistring dstr_2129__BOX_OF*/ @@ -18088,7 +18088,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2131", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2131", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2131.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); - cdat->dobj_2131.obj_hash = 395001160; + cdat->dobj_2131.obj_hash = 562261836; cdat->dobj_2131.obj_len = 2; /*^iniobj*/ @@ -18098,7 +18098,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2132", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2132.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2132.obj_num = 0; - cdat->dobj_2132.obj_hash = 376605651; + cdat->dobj_2132.obj_hash = 662637424; cdat->dobj_2132.obj_len = 2; /*inimult dtup_2133__BOX_OF*/ @@ -18175,7 +18175,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2148__IS_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2148__IS_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2148__IS_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2148__IS_LIST.obj_hash = 414794008; + cdat->dobj_2148__IS_LIST.obj_hash = 916064786; cdat->dobj_2148__IS_LIST.obj_len = 5; /*inimult dtup_2149__IS_LIST*/ @@ -18205,7 +18205,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2153", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2153.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2153.obj_num = 0; - cdat->dobj_2153.obj_hash = 445554859; + cdat->dobj_2153.obj_hash = 414794008; cdat->dobj_2153.obj_len = 2; /*inistring dstr_2154__melt_magic_disc*/ @@ -18238,7 +18238,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2159__IS_LIST_OR_NULL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2159__IS_LIST_OR_NULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2159__IS_LIST_OR_NULL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2159__IS_LIST_OR_NULL.obj_hash = 364135893; + cdat->dobj_2159__IS_LIST_OR_NULL.obj_hash = 600872997; cdat->dobj_2159__IS_LIST_OR_NULL.obj_len = 5; /*inimult dtup_2160__IS_LIST_OR_NULL*/ @@ -18256,7 +18256,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2162", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2162.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2162.obj_num = 0; - cdat->dobj_2162.obj_hash = 739721851; + cdat->dobj_2162.obj_hash = 364135893; cdat->dobj_2162.obj_len = 2; /*inistring dstr_2163__*/ @@ -18293,7 +18293,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2169__IS_NON_EMPTY_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2169__IS_NON_EMPTY_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2169__IS_NON_EMPTY_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2169__IS_NON_EMPTY_LIST.obj_hash = 64452641; + cdat->dobj_2169__IS_NON_EMPTY_LIST.obj_hash = 734303293; cdat->dobj_2169__IS_NON_EMPTY_LIST.obj_len = 5; /*inimult dtup_2170__IS_NON_EMPTY_LIST*/ @@ -18311,7 +18311,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2172", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2172.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2172.obj_num = 0; - cdat->dobj_2172.obj_hash = 301796754; + cdat->dobj_2172.obj_hash = 64452641; cdat->dobj_2172.obj_len = 2; /*inistring dstr_2173__melt_magic_disc*/ @@ -18348,7 +18348,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2179__LIST_FIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2179__LIST_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2179__LIST_FIRST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2179__LIST_FIRST.obj_hash = 201134007; + cdat->dobj_2179__LIST_FIRST.obj_hash = 739861798; cdat->dobj_2179__LIST_FIRST.obj_len = 5; /*inimult dtup_2180__LIST_FIRST*/ @@ -18366,7 +18366,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2182", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2182.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2182.obj_num = 0; - cdat->dobj_2182.obj_hash = 992530357; + cdat->dobj_2182.obj_hash = 201134007; cdat->dobj_2182.obj_len = 2; /*inistring dstr_2183__melt_list_first*/ @@ -18399,7 +18399,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2188__LIST_LAST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2188__LIST_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2188__LIST_LAST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2188__LIST_LAST.obj_hash = 534535386; + cdat->dobj_2188__LIST_LAST.obj_hash = 244955317; cdat->dobj_2188__LIST_LAST.obj_len = 5; /*inimult dtup_2189__LIST_LAST*/ @@ -18417,7 +18417,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2191", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2191.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2191.obj_num = 0; - cdat->dobj_2191.obj_hash = 989442513; + cdat->dobj_2191.obj_hash = 534535386; cdat->dobj_2191.obj_len = 2; /*inistring dstr_2192__melt_list_last_*/ @@ -18450,7 +18450,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2197__LIST_FIRST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2197__LIST_FIRST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2197__LIST_FIRST_ELEMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2197__LIST_FIRST_ELEMENT.obj_hash = 566252245; + cdat->dobj_2197__LIST_FIRST_ELEMENT.obj_hash = 393849832; cdat->dobj_2197__LIST_FIRST_ELEMENT.obj_len = 5; /*inimult dtup_2198__LIST_FIRST_ELEMENT*/ @@ -18468,7 +18468,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2200", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2200.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2200.obj_num = 0; - cdat->dobj_2200.obj_hash = 449759922; + cdat->dobj_2200.obj_hash = 566252245; cdat->dobj_2200.obj_len = 2; /*inistring dstr_2201__melt_pair_head_*/ @@ -18501,7 +18501,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2206__LIST_LAST_ELEMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2206__LIST_LAST_ELEMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2206__LIST_LAST_ELEMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2206__LIST_LAST_ELEMENT.obj_hash = 611396836; + cdat->dobj_2206__LIST_LAST_ELEMENT.obj_hash = 727693125; cdat->dobj_2206__LIST_LAST_ELEMENT.obj_len = 5; /*inimult dtup_2207__LIST_LAST_ELEMENT*/ @@ -18519,7 +18519,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2209", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2209.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2209.obj_num = 0; - cdat->dobj_2209.obj_hash = 905057383; + cdat->dobj_2209.obj_hash = 611396836; cdat->dobj_2209.obj_len = 2; /*inistring dstr_2210__melt_pair_head_*/ @@ -18552,7 +18552,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2215__LIST_LENGTH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2215__LIST_LENGTH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2215__LIST_LENGTH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2215__LIST_LENGTH.obj_hash = 73442574; + cdat->dobj_2215__LIST_LENGTH.obj_hash = 1035037406; cdat->dobj_2215__LIST_LENGTH.obj_len = 5; /*inimult dtup_2216__LIST_LENGTH*/ @@ -18570,7 +18570,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2218", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2218.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2218.obj_num = 0; - cdat->dobj_2218.obj_hash = 87386686; + cdat->dobj_2218.obj_hash = 73442574; cdat->dobj_2218.obj_len = 2; /*inistring dstr_2219__melt_list_lengt*/ @@ -18603,7 +18603,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2224__LIST_APPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2224__LIST_APPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2224__LIST_APPEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2224__LIST_APPEND.obj_hash = 419773015; + cdat->dobj_2224__LIST_APPEND.obj_hash = 409470705; cdat->dobj_2224__LIST_APPEND.obj_len = 5; /*inimult dtup_2225__LIST_APPEND*/ @@ -18621,7 +18621,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2227", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2227.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2227.obj_num = 0; - cdat->dobj_2227.obj_hash = 153947913; + cdat->dobj_2227.obj_hash = 419773015; cdat->dobj_2227.obj_len = 2; /*iniobj dsym_2228__EL*/ @@ -18643,7 +18643,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2230", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2230.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2230.obj_num = 1; - cdat->dobj_2230.obj_hash = 1036984410; + cdat->dobj_2230.obj_hash = 445542870; cdat->dobj_2230.obj_len = 2; /*inistring dstr_2231__meltgc_append_li*/ @@ -18680,7 +18680,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2237__LIST_PREPEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2237__LIST_PREPEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2237__LIST_PREPEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2237__LIST_PREPEND.obj_hash = 653771829; + cdat->dobj_2237__LIST_PREPEND.obj_hash = 33414310; cdat->dobj_2237__LIST_PREPEND.obj_len = 5; /*inimult dtup_2238__LIST_PREPEND*/ @@ -18698,7 +18698,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2240", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2240.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2240.obj_num = 0; - cdat->dobj_2240.obj_hash = 495935198; + cdat->dobj_2240.obj_hash = 653771829; cdat->dobj_2240.obj_len = 2; /*^iniobj*/ @@ -18708,7 +18708,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2241", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2241.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2241.obj_num = 1; - cdat->dobj_2241.obj_hash = 396436348; + cdat->dobj_2241.obj_hash = 682634649; cdat->dobj_2241.obj_len = 2; /*inistring dstr_2242__meltgc_prepend_l*/ @@ -18745,7 +18745,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2248__LIST_POPFIRST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2248__LIST_POPFIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2248__LIST_POPFIRST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2248__LIST_POPFIRST.obj_hash = 148185874; + cdat->dobj_2248__LIST_POPFIRST.obj_hash = 328694492; cdat->dobj_2248__LIST_POPFIRST.obj_len = 5; /*inimult dtup_2249__LIST_POPFIRST*/ @@ -18763,7 +18763,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2251", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2251.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2251.obj_num = 0; - cdat->dobj_2251.obj_hash = 100887632; + cdat->dobj_2251.obj_hash = 148185874; cdat->dobj_2251.obj_len = 2; /*inistring dstr_2252__meltgc_popfirst*/ @@ -18796,7 +18796,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2257__MAKE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2257__MAKE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2257__MAKE_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2257__MAKE_LIST.obj_hash = 821988592; + cdat->dobj_2257__MAKE_LIST.obj_hash = 1032219920; cdat->dobj_2257__MAKE_LIST.obj_len = 5; /*inimult dtup_2258__MAKE_LIST*/ @@ -18814,7 +18814,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2260", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2260.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2260.obj_num = 0; - cdat->dobj_2260.obj_hash = 831574008; + cdat->dobj_2260.obj_hash = 821988592; cdat->dobj_2260.obj_len = 2; /*inistring dstr_2261__meltgc_new_list*/ @@ -18847,7 +18847,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2266__IS_PAIR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2266__IS_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2266__IS_PAIR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2266__IS_PAIR.obj_hash = 385240545; + cdat->dobj_2266__IS_PAIR.obj_hash = 455980812; cdat->dobj_2266__IS_PAIR.obj_len = 5; /*inimult dtup_2267__IS_PAIR*/ @@ -18877,7 +18877,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2271", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2271.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2271.obj_num = 0; - cdat->dobj_2271.obj_hash = 143036527; + cdat->dobj_2271.obj_hash = 385240545; cdat->dobj_2271.obj_len = 2; /*inistring dstr_2272__melt_magic_disc*/ @@ -18910,7 +18910,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2277__PAIR_HEAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2277__PAIR_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2277__PAIR_HEAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2277__PAIR_HEAD.obj_hash = 34965990; + cdat->dobj_2277__PAIR_HEAD.obj_hash = 98921257; cdat->dobj_2277__PAIR_HEAD.obj_len = 5; /*inimult dtup_2278__PAIR_HEAD*/ @@ -18928,7 +18928,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2280", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2280.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2280.obj_num = 0; - cdat->dobj_2280.obj_hash = 381887113; + cdat->dobj_2280.obj_hash = 34965990; cdat->dobj_2280.obj_len = 2; /*inistring dstr_2281__melt_pair_head_*/ @@ -18961,7 +18961,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2286__PAIR_TAIL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2286__PAIR_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2286__PAIR_TAIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2286__PAIR_TAIL.obj_hash = 361973518; + cdat->dobj_2286__PAIR_TAIL.obj_hash = 508242874; cdat->dobj_2286__PAIR_TAIL.obj_len = 5; /*inimult dtup_2287__PAIR_TAIL*/ @@ -18979,7 +18979,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2289", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2289.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2289.obj_num = 0; - cdat->dobj_2289.obj_hash = 590920432; + cdat->dobj_2289.obj_hash = 361973518; cdat->dobj_2289.obj_len = 2; /*inistring dstr_2290__melt_pair_tail_*/ @@ -19012,7 +19012,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2295__WARNINGMSG_STRV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2295__WARNINGMSG_STRV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2295__WARNINGMSG_STRV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2295__WARNINGMSG_STRV.obj_hash = 421525668; + cdat->dobj_2295__WARNINGMSG_STRV.obj_hash = 234472537; cdat->dobj_2295__WARNINGMSG_STRV.obj_len = 5; /*inimult dtup_2296__WARNINGMSG_STRV*/ @@ -19030,7 +19030,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2298", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2298.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2298.obj_num = 0; - cdat->dobj_2298.obj_hash = 358609301; + cdat->dobj_2298.obj_hash = 421525668; cdat->dobj_2298.obj_len = 2; /*^iniobj*/ @@ -19040,7 +19040,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2299", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2299.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2299.obj_num = 1; - cdat->dobj_2299.obj_hash = 882232743; + cdat->dobj_2299.obj_hash = 115252725; cdat->dobj_2299.obj_len = 2; /*inistring dstr_2300__warning_0_MEL*/ @@ -19077,7 +19077,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2306__INFORMSG_LONG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2306__INFORMSG_LONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2306__INFORMSG_LONG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2306__INFORMSG_LONG.obj_hash = 889007280; + cdat->dobj_2306__INFORMSG_LONG.obj_hash = 416123301; cdat->dobj_2306__INFORMSG_LONG.obj_len = 5; /*inimult dtup_2307__INFORMSG_LONG*/ @@ -19095,7 +19095,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2309", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2309.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2309.obj_num = 0; - cdat->dobj_2309.obj_hash = 62817613; + cdat->dobj_2309.obj_hash = 889007280; cdat->dobj_2309.obj_len = 2; /*^iniobj*/ @@ -19105,7 +19105,7 @@ if (((void*)(MELT_PREDEF(CLASS_MELT_MODE))) != (melt_ptr_t)&cdat->dobj_931__CLAS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2310", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2310.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_2310.obj_num = 1; - cdat->dobj_2310.obj_hash = 792326282; + cdat->dobj_2310.obj_hash = 1036522729; cdat->dobj_2310.obj_len = 2; /*inistring dstr_2311__inform_UNKNOWN_L*/ @@ -19146,7 +19146,7 @@ if (((void*)(MELT_PREDEF(DISCR_NAME_STRING))) != (melt_ptr_t)&cdat->dobj_2317__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2317__DISCR_NAME_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2317__DISCR_NAME_STRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2317__DISCR_NAME_STRING.obj_num = MELTOBMAG_STRING; - cdat->dobj_2317__DISCR_NAME_STRING.obj_hash = 51579874; + cdat->dobj_2317__DISCR_NAME_STRING.obj_hash = 469537961; cdat->dobj_2317__DISCR_NAME_STRING.obj_len = 5; /*iniobj dsym_2318__DISCR_STRING*/ @@ -19171,7 +19171,7 @@ if (((void*)(MELT_PREDEF(DISCR_STRING))) != (melt_ptr_t)&cdat->dobj_2320__DISCR_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2320__DISCR_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2320__DISCR_STRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2320__DISCR_STRING.obj_num = MELTOBMAG_STRING; - cdat->dobj_2320__DISCR_STRING.obj_hash = 660861542; + cdat->dobj_2320__DISCR_STRING.obj_hash = 235633497; cdat->dobj_2320__DISCR_STRING.obj_len = 5; /*inistring dstr_2321__DISCR_STRING*/ @@ -19204,7 +19204,7 @@ if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_232 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2325__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2325__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2325__DISCR_VERBATIM_STRING.obj_num = MELTOBMAG_STRING; - cdat->dobj_2325__DISCR_VERBATIM_STRING.obj_hash = 183785754; + cdat->dobj_2325__DISCR_VERBATIM_STRING.obj_hash = 949260101; cdat->dobj_2325__DISCR_VERBATIM_STRING.obj_len = 5; /*inistring dstr_2326__DISCR_VERBATIM_S*/ @@ -19229,7 +19229,7 @@ if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_232 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2329__DISCR_ANY_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2329__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2329__DISCR_ANY_RECEIVER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2329__DISCR_ANY_RECEIVER.obj_hash = 610206343; + cdat->dobj_2329__DISCR_ANY_RECEIVER.obj_hash = 237766278; cdat->dobj_2329__DISCR_ANY_RECEIVER.obj_len = 5; /*inistring dstr_2330__DISCR_ANY_RECEIV*/ @@ -19257,7 +19257,7 @@ if (((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))) != (melt_ptr_t)&cdat->dobj_2333_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2333__DISCR_NULL_RECEIVER", melt_magic_discr (/*_.VALDATA___V45*/ meltfptr[44]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2333__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2333__DISCR_NULL_RECEIVER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); - cdat->dobj_2333__DISCR_NULL_RECEIVER.obj_hash = 69994827; + cdat->dobj_2333__DISCR_NULL_RECEIVER.obj_hash = 927144354; cdat->dobj_2333__DISCR_NULL_RECEIVER.obj_len = 5; /*inistring dstr_2334__DISCR_NULL_RECEI*/ @@ -19286,7 +19286,7 @@ if (((void*)(MELT_PREDEF(DISCR_STRBUF))) != (melt_ptr_t)&cdat->dobj_2337__DISCR_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2337__DISCR_STRBUF", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2337__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2337__DISCR_STRBUF.obj_num = MELTOBMAG_STRBUF; - cdat->dobj_2337__DISCR_STRBUF.obj_hash = 631719217; + cdat->dobj_2337__DISCR_STRBUF.obj_hash = 130979943; cdat->dobj_2337__DISCR_STRBUF.obj_len = 5; /*inistring dstr_2338__DISCR_STRBUF*/ @@ -19315,7 +19315,7 @@ if (((void*)(MELT_PREDEF(DISCR_INTEGER))) != (melt_ptr_t)&cdat->dobj_2341__DISCR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2341__DISCR_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2341__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2341__DISCR_INTEGER.obj_num = MELTOBMAG_INT; - cdat->dobj_2341__DISCR_INTEGER.obj_hash = 457037788; + cdat->dobj_2341__DISCR_INTEGER.obj_hash = 1069255551; cdat->dobj_2341__DISCR_INTEGER.obj_len = 5; /*inistring dstr_2342__DISCR_INTEGER*/ @@ -19344,7 +19344,7 @@ if (((void*)(MELT_PREDEF(DISCR_REAL))) != (melt_ptr_t)&cdat->dobj_2345__DISCR_RE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2345__DISCR_REAL", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2345__DISCR_REAL.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2345__DISCR_REAL.obj_num = MELTOBMAG_REAL; - cdat->dobj_2345__DISCR_REAL.obj_hash = 204893420; + cdat->dobj_2345__DISCR_REAL.obj_hash = 848861160; cdat->dobj_2345__DISCR_REAL.obj_len = 5; /*inistring dstr_2346__DISCR_REAL*/ @@ -19373,7 +19373,7 @@ if (((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))) != (melt_ptr_t)&cdat->dobj_23 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2349__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2349__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2349__DISCR_CONSTANT_INTEGER.obj_num = MELTOBMAG_INT; - cdat->dobj_2349__DISCR_CONSTANT_INTEGER.obj_hash = 742843614; + cdat->dobj_2349__DISCR_CONSTANT_INTEGER.obj_hash = 63274801; cdat->dobj_2349__DISCR_CONSTANT_INTEGER.obj_len = 5; /*inistring dstr_2350__DISCR_CONSTANT_I*/ @@ -19402,7 +19402,7 @@ if (((void*)(MELT_PREDEF(DISCR_LIST))) != (melt_ptr_t)&cdat->dobj_2353__DISCR_LI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2353__DISCR_LIST", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2353__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2353__DISCR_LIST.obj_num = MELTOBMAG_LIST; - cdat->dobj_2353__DISCR_LIST.obj_hash = 617633350; + cdat->dobj_2353__DISCR_LIST.obj_hash = 275734459; cdat->dobj_2353__DISCR_LIST.obj_len = 5; /*inistring dstr_2354__DISCR_LIST*/ @@ -19431,7 +19431,7 @@ if (((void*)(MELT_PREDEF(DISCR_PAIR))) != (melt_ptr_t)&cdat->dobj_2357__DISCR_PA if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2357__DISCR_PAIR", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2357__DISCR_PAIR.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2357__DISCR_PAIR.obj_num = MELTOBMAG_PAIR; - cdat->dobj_2357__DISCR_PAIR.obj_hash = 413267732; + cdat->dobj_2357__DISCR_PAIR.obj_hash = 238861561; cdat->dobj_2357__DISCR_PAIR.obj_len = 5; /*inistring dstr_2358__DISCR_PAIR*/ @@ -19460,7 +19460,7 @@ if (((void*)(MELT_PREDEF(DISCR_MULTIPLE))) != (melt_ptr_t)&cdat->dobj_2361__DISC if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2361__DISCR_MULTIPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2361__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2361__DISCR_MULTIPLE.obj_num = MELTOBMAG_MULTIPLE; - cdat->dobj_2361__DISCR_MULTIPLE.obj_hash = 624422353; + cdat->dobj_2361__DISCR_MULTIPLE.obj_hash = 165302192; cdat->dobj_2361__DISCR_MULTIPLE.obj_len = 5; /*inistring dstr_2362__DISCR_MULTIPLE*/ @@ -19489,7 +19489,7 @@ if (((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2365 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2365__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2365__DISCR_FIELD_SEQUENCE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2365__DISCR_FIELD_SEQUENCE.obj_num = MELTOBMAG_MULTIPLE; - cdat->dobj_2365__DISCR_FIELD_SEQUENCE.obj_hash = 235604704; + cdat->dobj_2365__DISCR_FIELD_SEQUENCE.obj_hash = 96050743; cdat->dobj_2365__DISCR_FIELD_SEQUENCE.obj_len = 5; /*inistring dstr_2366__DISCR_FIELD_SEQU*/ @@ -19518,7 +19518,7 @@ if (((void*)(MELT_PREDEF(DISCR_BOX))) != (melt_ptr_t)&cdat->dobj_2369__DISCR_BOX if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2369__DISCR_BOX", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2369__DISCR_BOX.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2369__DISCR_BOX.obj_num = MELTOBMAG_BOX; - cdat->dobj_2369__DISCR_BOX.obj_hash = 472279487; + cdat->dobj_2369__DISCR_BOX.obj_hash = 309484728; cdat->dobj_2369__DISCR_BOX.obj_len = 5; /*inistring dstr_2370__DISCR_BOX*/ @@ -19547,7 +19547,7 @@ if (((void*)(MELT_PREDEF(DISCR_TREE))) != (melt_ptr_t)&cdat->dobj_2373__DISCR_TR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2373__DISCR_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2373__DISCR_TREE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2373__DISCR_TREE.obj_num = MELTOBMAG_TREE; - cdat->dobj_2373__DISCR_TREE.obj_hash = 769129029; + cdat->dobj_2373__DISCR_TREE.obj_hash = 391615853; cdat->dobj_2373__DISCR_TREE.obj_len = 5; /*inistring dstr_2374__DISCR_TREE*/ @@ -19576,7 +19576,7 @@ if (((void*)(MELT_PREDEF(DISCR_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2377__DISCR_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2377__DISCR_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2377__DISCR_GIMPLE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2377__DISCR_GIMPLE.obj_num = MELTOBMAG_GIMPLE; - cdat->dobj_2377__DISCR_GIMPLE.obj_hash = 938537443; + cdat->dobj_2377__DISCR_GIMPLE.obj_hash = 586258659; cdat->dobj_2377__DISCR_GIMPLE.obj_len = 5; /*inistring dstr_2378__DISCR_GIMPLE*/ @@ -19605,7 +19605,7 @@ if (((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2381__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2381__DISCR_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2381__DISCR_GIMPLE_SEQ.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2381__DISCR_GIMPLE_SEQ.obj_num = MELTOBMAG_GIMPLESEQ; - cdat->dobj_2381__DISCR_GIMPLE_SEQ.obj_hash = 329983205; + cdat->dobj_2381__DISCR_GIMPLE_SEQ.obj_hash = 2995769; cdat->dobj_2381__DISCR_GIMPLE_SEQ.obj_len = 5; /*inistring dstr_2382__DISCR_GIMPLE_SEQ*/ @@ -19634,7 +19634,7 @@ if (((void*)(MELT_PREDEF(DISCR_EDGE))) != (melt_ptr_t)&cdat->dobj_2385__DISCR_ED if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2385__DISCR_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2385__DISCR_EDGE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2385__DISCR_EDGE.obj_num = MELTOBMAG_EDGE; - cdat->dobj_2385__DISCR_EDGE.obj_hash = 568870832; + cdat->dobj_2385__DISCR_EDGE.obj_hash = 909425505; cdat->dobj_2385__DISCR_EDGE.obj_len = 5; /*inistring dstr_2386__DISCR_EDGE*/ @@ -19663,7 +19663,7 @@ if (((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2389__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2389__DISCR_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2389__DISCR_BASIC_BLOCK.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2389__DISCR_BASIC_BLOCK.obj_num = MELTOBMAG_BASICBLOCK; - cdat->dobj_2389__DISCR_BASIC_BLOCK.obj_hash = 236984323; + cdat->dobj_2389__DISCR_BASIC_BLOCK.obj_hash = 100220254; cdat->dobj_2389__DISCR_BASIC_BLOCK.obj_len = 5; /*inistring dstr_2390__DISCR_BASIC_BLOC*/ @@ -19692,7 +19692,7 @@ if (((void*)(MELT_PREDEF(DISCR_LOOP))) != (melt_ptr_t)&cdat->dobj_2393__DISCR_LO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2393__DISCR_LOOP", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2393__DISCR_LOOP.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2393__DISCR_LOOP.obj_num = MELTOBMAG_LOOP; - cdat->dobj_2393__DISCR_LOOP.obj_hash = 284323384; + cdat->dobj_2393__DISCR_LOOP.obj_hash = 699312260; cdat->dobj_2393__DISCR_LOOP.obj_len = 5; /*inistring dstr_2394__DISCR_LOOP*/ @@ -19721,7 +19721,7 @@ if (((void*)(MELT_PREDEF(DISCR_BITMAP))) != (melt_ptr_t)&cdat->dobj_2397__DISCR_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2397__DISCR_BITMAP", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2397__DISCR_BITMAP.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2397__DISCR_BITMAP.obj_num = MELTOBMAG_BITMAP; - cdat->dobj_2397__DISCR_BITMAP.obj_hash = 1005729409; + cdat->dobj_2397__DISCR_BITMAP.obj_hash = 259659963; cdat->dobj_2397__DISCR_BITMAP.obj_len = 5; /*inistring dstr_2398__DISCR_BITMAP*/ @@ -19750,7 +19750,7 @@ if (((void*)(MELT_PREDEF(DISCR_RTX))) != (melt_ptr_t)&cdat->dobj_2401__DISCR_RTX if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2401__DISCR_RTX", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2401__DISCR_RTX.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2401__DISCR_RTX.obj_num = MELTOBMAG_RTX; - cdat->dobj_2401__DISCR_RTX.obj_hash = 366891565; + cdat->dobj_2401__DISCR_RTX.obj_hash = 30276028; cdat->dobj_2401__DISCR_RTX.obj_len = 5; /*inistring dstr_2402__DISCR_RTX*/ @@ -19779,7 +19779,7 @@ if (((void*)(MELT_PREDEF(DISCR_RTVEC))) != (melt_ptr_t)&cdat->dobj_2405__DISCR_R if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2405__DISCR_RTVEC", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2405__DISCR_RTVEC.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2405__DISCR_RTVEC.obj_num = MELTOBMAG_RTVEC; - cdat->dobj_2405__DISCR_RTVEC.obj_hash = 538796258; + cdat->dobj_2405__DISCR_RTVEC.obj_hash = 755068753; cdat->dobj_2405__DISCR_RTVEC.obj_len = 5; /*inistring dstr_2406__DISCR_RTVEC*/ @@ -19808,7 +19808,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))) != (melt_ptr_t)&cdat->dobj_2409__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2409__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2409__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2409__DISCR_MAP_OBJECTS.obj_num = MELTOBMAG_MAPOBJECTS; - cdat->dobj_2409__DISCR_MAP_OBJECTS.obj_hash = 66154978; + cdat->dobj_2409__DISCR_MAP_OBJECTS.obj_hash = 852788633; cdat->dobj_2409__DISCR_MAP_OBJECTS.obj_len = 5; /*inistring dstr_2410__DISCR_MAP_OBJECT*/ @@ -19837,7 +19837,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))) != (melt_ptr_t)&cdat->dobj_2413__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2413__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2413__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2413__DISCR_MAP_STRINGS.obj_num = MELTOBMAG_MAPSTRINGS; - cdat->dobj_2413__DISCR_MAP_STRINGS.obj_hash = 527998280; + cdat->dobj_2413__DISCR_MAP_STRINGS.obj_hash = 28453185; cdat->dobj_2413__DISCR_MAP_STRINGS.obj_len = 5; /*inistring dstr_2414__DISCR_MAP_STRING*/ @@ -19866,7 +19866,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_TREES))) != (melt_ptr_t)&cdat->dobj_2417__DIS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2417__DISCR_MAP_TREES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2417__DISCR_MAP_TREES.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2417__DISCR_MAP_TREES.obj_num = MELTOBMAG_MAPTREES; - cdat->dobj_2417__DISCR_MAP_TREES.obj_hash = 942638410; + cdat->dobj_2417__DISCR_MAP_TREES.obj_hash = 782297035; cdat->dobj_2417__DISCR_MAP_TREES.obj_len = 5; /*inistring dstr_2418__DISCR_MAP_TREES*/ @@ -19895,7 +19895,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))) != (melt_ptr_t)&cdat->dobj_2421__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2421__DISCR_MAP_GIMPLES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2421__DISCR_MAP_GIMPLES.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2421__DISCR_MAP_GIMPLES.obj_num = MELTOBMAG_MAPGIMPLES; - cdat->dobj_2421__DISCR_MAP_GIMPLES.obj_hash = 977977206; + cdat->dobj_2421__DISCR_MAP_GIMPLES.obj_hash = 502495178; cdat->dobj_2421__DISCR_MAP_GIMPLES.obj_len = 5; /*inistring dstr_2422__DISCR_MAP_GIMPLE*/ @@ -19924,7 +19924,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))) != (melt_ptr_t)&cdat->dobj_242 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2425__DISCR_MAP_GIMPLE_SEQS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2425__DISCR_MAP_GIMPLE_SEQS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2425__DISCR_MAP_GIMPLE_SEQS.obj_num = MELTOBMAG_MAPGIMPLESEQS; - cdat->dobj_2425__DISCR_MAP_GIMPLE_SEQS.obj_hash = 568075766; + cdat->dobj_2425__DISCR_MAP_GIMPLE_SEQS.obj_hash = 401213732; cdat->dobj_2425__DISCR_MAP_GIMPLE_SEQS.obj_len = 5; /*inistring dstr_2426__DISCR_MAP_GIMPLE*/ @@ -19953,7 +19953,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_EDGES))) != (melt_ptr_t)&cdat->dobj_2429__DIS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2429__DISCR_MAP_EDGES", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2429__DISCR_MAP_EDGES.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2429__DISCR_MAP_EDGES.obj_num = MELTOBMAG_MAPEDGES; - cdat->dobj_2429__DISCR_MAP_EDGES.obj_hash = 878252238; + cdat->dobj_2429__DISCR_MAP_EDGES.obj_hash = 999644494; cdat->dobj_2429__DISCR_MAP_EDGES.obj_len = 5; /*inistring dstr_2430__DISCR_MAP_EDGES*/ @@ -19982,7 +19982,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))) != (melt_ptr_t)&cdat->dobj_24 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2433__DISCR_MAP_BASIC_BLOCKS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2433__DISCR_MAP_BASIC_BLOCKS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2433__DISCR_MAP_BASIC_BLOCKS.obj_num = MELTOBMAG_MAPBASICBLOCKS; - cdat->dobj_2433__DISCR_MAP_BASIC_BLOCKS.obj_hash = 246839066; + cdat->dobj_2433__DISCR_MAP_BASIC_BLOCKS.obj_hash = 460105619; cdat->dobj_2433__DISCR_MAP_BASIC_BLOCKS.obj_len = 5; /*inistring dstr_2434__DISCR_MAP_BASIC_*/ @@ -20011,7 +20011,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_LOOPS))) != (melt_ptr_t)&cdat->dobj_2437__DIS if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2437__DISCR_MAP_LOOPS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2437__DISCR_MAP_LOOPS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2437__DISCR_MAP_LOOPS.obj_num = MELTOBMAG_MAPLOOPS; - cdat->dobj_2437__DISCR_MAP_LOOPS.obj_hash = 1039136851; + cdat->dobj_2437__DISCR_MAP_LOOPS.obj_hash = 740767053; cdat->dobj_2437__DISCR_MAP_LOOPS.obj_len = 5; /*inistring dstr_2438__DISCR_MAP_LOOPS*/ @@ -20040,7 +20040,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_BITMAPS))) != (melt_ptr_t)&cdat->dobj_2441__D if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2441__DISCR_MAP_BITMAPS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2441__DISCR_MAP_BITMAPS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2441__DISCR_MAP_BITMAPS.obj_num = MELTOBMAG_MAPBITMAPS; - cdat->dobj_2441__DISCR_MAP_BITMAPS.obj_hash = 493800840; + cdat->dobj_2441__DISCR_MAP_BITMAPS.obj_hash = 260759082; cdat->dobj_2441__DISCR_MAP_BITMAPS.obj_len = 5; /*inistring dstr_2442__DISCR_MAP_BITMAP*/ @@ -20069,7 +20069,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTXS))) != (melt_ptr_t)&cdat->dobj_2445__DISC if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2445__DISCR_MAP_RTXS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2445__DISCR_MAP_RTXS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2445__DISCR_MAP_RTXS.obj_num = MELTOBMAG_MAPRTXS; - cdat->dobj_2445__DISCR_MAP_RTXS.obj_hash = 275096231; + cdat->dobj_2445__DISCR_MAP_RTXS.obj_hash = 704658536; cdat->dobj_2445__DISCR_MAP_RTXS.obj_len = 5; /*inistring dstr_2446__DISCR_MAP_RTXS*/ @@ -20098,7 +20098,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTVECS))) != (melt_ptr_t)&cdat->dobj_2449__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2449__DISCR_MAP_RTVECS", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2449__DISCR_MAP_RTVECS.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2449__DISCR_MAP_RTVECS.obj_num = MELTOBMAG_MAPRTVECS; - cdat->dobj_2449__DISCR_MAP_RTVECS.obj_hash = 416700339; + cdat->dobj_2449__DISCR_MAP_RTVECS.obj_hash = 450735384; cdat->dobj_2449__DISCR_MAP_RTVECS.obj_len = 5; /*inistring dstr_2450__DISCR_MAP_RTVECS*/ @@ -20124,7 +20124,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTVECS))) != (melt_ptr_t)&cdat->dobj_2449__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM.obj_num = MELTOBMAG_SPECPPL_CONSTRAINT_SYSTEM; - cdat->dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 278309388; + cdat->dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 477763678; cdat->dobj_2453__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 5; /*inistring dstr_2454__DISCR_PPL_CONSTR*/ @@ -20150,7 +20150,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTVECS))) != (melt_ptr_t)&cdat->dobj_2449__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2457__DISCR_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2457__DISCR_PPL_POLYHEDRON.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2457__DISCR_PPL_POLYHEDRON.obj_num = MELTOBMAG_SPECPPL_POLYHEDRON; - cdat->dobj_2457__DISCR_PPL_POLYHEDRON.obj_hash = 508085676; + cdat->dobj_2457__DISCR_PPL_POLYHEDRON.obj_hash = 37257646; cdat->dobj_2457__DISCR_PPL_POLYHEDRON.obj_len = 5; /*inistring dstr_2458__DISCR_PPL_POLYHE*/ @@ -20176,7 +20176,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTVECS))) != (melt_ptr_t)&cdat->dobj_2449__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2461__DISCR_FILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2461__DISCR_FILE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2461__DISCR_FILE.obj_num = MELTOBMAG_SPEC_FILE; - cdat->dobj_2461__DISCR_FILE.obj_hash = 702332518; + cdat->dobj_2461__DISCR_FILE.obj_hash = 1071472657; cdat->dobj_2461__DISCR_FILE.obj_len = 5; /*inistring dstr_2462__DISCR_FILE*/ @@ -20202,7 +20202,7 @@ if (((void*)(MELT_PREDEF(DISCR_MAP_RTVECS))) != (melt_ptr_t)&cdat->dobj_2449__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2465__DISCR_RAWFILE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2465__DISCR_RAWFILE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2465__DISCR_RAWFILE.obj_num = MELTOBMAG_SPEC_RAWFILE; - cdat->dobj_2465__DISCR_RAWFILE.obj_hash = 298840359; + cdat->dobj_2465__DISCR_RAWFILE.obj_hash = 513719901; cdat->dobj_2465__DISCR_RAWFILE.obj_len = 5; /*inistring dstr_2466__DISCR_RAWFILE*/ @@ -20231,7 +20231,7 @@ if (((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_2469 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2469__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2469__DISCR_CLASS_SEQUENCE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2469__DISCR_CLASS_SEQUENCE.obj_num = MELTOBMAG_MULTIPLE; - cdat->dobj_2469__DISCR_CLASS_SEQUENCE.obj_hash = 872369463; + cdat->dobj_2469__DISCR_CLASS_SEQUENCE.obj_hash = 25174912; cdat->dobj_2469__DISCR_CLASS_SEQUENCE.obj_len = 5; /*inistring dstr_2470__DISCR_CLASS_SEQU*/ @@ -20260,7 +20260,7 @@ if (((void*)(MELT_PREDEF(DISCR_METHOD_MAP))) != (melt_ptr_t)&cdat->dobj_2473__DI if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2473__DISCR_METHOD_MAP", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2473__DISCR_METHOD_MAP.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2473__DISCR_METHOD_MAP.obj_num = MELTOBMAG_MAPOBJECTS; - cdat->dobj_2473__DISCR_METHOD_MAP.obj_hash = 42042742; + cdat->dobj_2473__DISCR_METHOD_MAP.obj_hash = 464208566; cdat->dobj_2473__DISCR_METHOD_MAP.obj_len = 5; /*inistring dstr_2474__DISCR_METHOD_MAP*/ @@ -20289,7 +20289,7 @@ if (((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))) != (melt_ptr_t)&cdat->dobj_2 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2477__DISCR_CHARACTER_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2477__DISCR_CHARACTER_INTEGER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2477__DISCR_CHARACTER_INTEGER.obj_num = MELTOBMAG_INT; - cdat->dobj_2477__DISCR_CHARACTER_INTEGER.obj_hash = 379464097; + cdat->dobj_2477__DISCR_CHARACTER_INTEGER.obj_hash = 9860045; cdat->dobj_2477__DISCR_CHARACTER_INTEGER.obj_len = 5; /*inistring dstr_2478__DISCR_CHARACTER_*/ @@ -20318,7 +20318,7 @@ if (((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))) != (melt_ptr_t)&cdat->dobj_2481_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2481__DISCR_MIXED_INTEGER", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2481__DISCR_MIXED_INTEGER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2481__DISCR_MIXED_INTEGER.obj_num = MELTOBMAG_MIXINT; - cdat->dobj_2481__DISCR_MIXED_INTEGER.obj_hash = 26650508; + cdat->dobj_2481__DISCR_MIXED_INTEGER.obj_hash = 1055519592; cdat->dobj_2481__DISCR_MIXED_INTEGER.obj_len = 5; /*inistring dstr_2482__DISCR_MIXED_INTE*/ @@ -20347,7 +20347,7 @@ if (((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))) != (melt_ptr_t)&cdat->dobj_2485__ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2485__DISCR_MIXED_BIGINT", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2485__DISCR_MIXED_BIGINT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2485__DISCR_MIXED_BIGINT.obj_num = MELTOBMAG_MIXBIGINT; - cdat->dobj_2485__DISCR_MIXED_BIGINT.obj_hash = 1016476774; + cdat->dobj_2485__DISCR_MIXED_BIGINT.obj_hash = 70576952; cdat->dobj_2485__DISCR_MIXED_BIGINT.obj_len = 5; /*inistring dstr_2486__DISCR_MIXED_BIGI*/ @@ -20376,7 +20376,7 @@ if (((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))) != (melt_ptr_t)&cdat->dobj_2489 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2489__DISCR_MIXED_LOCATION", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2489__DISCR_MIXED_LOCATION.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2489__DISCR_MIXED_LOCATION.obj_num = MELTOBMAG_MIXLOC; - cdat->dobj_2489__DISCR_MIXED_LOCATION.obj_hash = 247307770; + cdat->dobj_2489__DISCR_MIXED_LOCATION.obj_hash = 413352516; cdat->dobj_2489__DISCR_MIXED_LOCATION.obj_len = 5; /*inistring dstr_2490__DISCR_MIXED_LOCA*/ @@ -20405,7 +20405,7 @@ if (((void*)(MELT_PREDEF(DISCR_CLOSURE))) != (melt_ptr_t)&cdat->dobj_2493__DISCR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2493__DISCR_CLOSURE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2493__DISCR_CLOSURE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2493__DISCR_CLOSURE.obj_num = MELTOBMAG_CLOSURE; - cdat->dobj_2493__DISCR_CLOSURE.obj_hash = 165676010; + cdat->dobj_2493__DISCR_CLOSURE.obj_hash = 386217250; cdat->dobj_2493__DISCR_CLOSURE.obj_len = 5; /*inistring dstr_2494__DISCR_CLOSURE*/ @@ -20434,7 +20434,7 @@ if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_2497__DISCR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2497__DISCR_ROUTINE", ((meltobject_ptr_t) (/*_.VALDATA___V45*/ meltfptr[44]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2497__DISCR_ROUTINE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ meltfptr[44]); cdat->dobj_2497__DISCR_ROUTINE.obj_num = MELTOBMAG_ROUTINE; - cdat->dobj_2497__DISCR_ROUTINE.obj_hash = 472217844; + cdat->dobj_2497__DISCR_ROUTINE.obj_hash = 513390139; cdat->dobj_2497__DISCR_ROUTINE.obj_len = 5; /*inistring dstr_2498__DISCR_ROUTINE*/ @@ -20459,7 +20459,7 @@ if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_2497__DISCR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2501__CONTAINER_CTYPE_GTY_DICT", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2501__CONTAINER_CTYPE_GTY_DICT", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2501__CONTAINER_CTYPE_GTY_DICT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2501__CONTAINER_CTYPE_GTY_DICT.obj_hash = 644385839; + cdat->dobj_2501__CONTAINER_CTYPE_GTY_DICT.obj_hash = 422352394; cdat->dobj_2501__CONTAINER_CTYPE_GTY_DICT.obj_len = 1; /*iniobj dsym_2502__CONTAINER_CTYPE_DICT*/ @@ -20480,7 +20480,7 @@ if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_2497__DISCR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2504__CONTAINER_CTYPE_DICT", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2504__CONTAINER_CTYPE_DICT", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2504__CONTAINER_CTYPE_DICT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2504__CONTAINER_CTYPE_DICT.obj_hash = 651379589; + cdat->dobj_2504__CONTAINER_CTYPE_DICT.obj_hash = 780200543; cdat->dobj_2504__CONTAINER_CTYPE_DICT.obj_len = 1; /*inirout drout_2505__INSTALL_CTYPE_DESCR*/ @@ -20516,7 +20516,7 @@ if (((void*)(MELT_PREDEF(CTYPE_VALUE))) != (melt_ptr_t)&cdat->dobj_2509__CTYPE_V if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2509__CTYPE_VALUE", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2509__CTYPE_VALUE", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2509__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2509__CTYPE_VALUE.obj_hash = 339429915; + cdat->dobj_2509__CTYPE_VALUE.obj_hash = 863466044; cdat->dobj_2509__CTYPE_VALUE.obj_len = 11; /*inistring dstr_2510__CTYPE_VALUE*/ @@ -20580,7 +20580,7 @@ if (((void*)(MELT_PREDEF(CTYPE_LONG))) != (melt_ptr_t)&cdat->dobj_2521__CTYPE_LO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2521__CTYPE_LONG", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2521__CTYPE_LONG", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2521__CTYPE_LONG.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2521__CTYPE_LONG.obj_hash = 433794874; + cdat->dobj_2521__CTYPE_LONG.obj_hash = 1010952110; cdat->dobj_2521__CTYPE_LONG.obj_len = 11; /*inistring dstr_2522__CTYPE_LONG*/ @@ -20640,7 +20640,7 @@ if (((void*)(MELT_PREDEF(CTYPE_TREE))) != (melt_ptr_t)&cdat->dobj_2532__CTYPE_TR if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2532__CTYPE_TREE", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2532__CTYPE_TREE", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2532__CTYPE_TREE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2532__CTYPE_TREE.obj_hash = 25095723; + cdat->dobj_2532__CTYPE_TREE.obj_hash = 588669342; cdat->dobj_2532__CTYPE_TREE.obj_len = 31; /*inistring dstr_2533__CTYPE_TREE*/ @@ -20776,7 +20776,7 @@ if (((void*)(MELT_PREDEF(CTYPE_GIMPLE))) != (melt_ptr_t)&cdat->dobj_2562__CTYPE_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2562__CTYPE_GIMPLE", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2562__CTYPE_GIMPLE", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2562__CTYPE_GIMPLE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2562__CTYPE_GIMPLE.obj_hash = 548726829; + cdat->dobj_2562__CTYPE_GIMPLE.obj_hash = 632566139; cdat->dobj_2562__CTYPE_GIMPLE.obj_len = 31; /*inistring dstr_2563__CTYPE_GIMPLE*/ @@ -20912,7 +20912,7 @@ if (((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_2592__CT if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2592__CTYPE_GIMPLE_SEQ", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2592__CTYPE_GIMPLE_SEQ", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2592__CTYPE_GIMPLE_SEQ.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2592__CTYPE_GIMPLE_SEQ.obj_hash = 284033789; + cdat->dobj_2592__CTYPE_GIMPLE_SEQ.obj_hash = 521098934; cdat->dobj_2592__CTYPE_GIMPLE_SEQ.obj_len = 31; /*inistring dstr_2593__CTYPE_GIMPLE_SEQ*/ @@ -21048,7 +21048,7 @@ if (((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_2622__C if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2622__CTYPE_BASIC_BLOCK", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2622__CTYPE_BASIC_BLOCK", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2622__CTYPE_BASIC_BLOCK.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2622__CTYPE_BASIC_BLOCK.obj_hash = 423531641; + cdat->dobj_2622__CTYPE_BASIC_BLOCK.obj_hash = 480164666; cdat->dobj_2622__CTYPE_BASIC_BLOCK.obj_len = 31; /*inistring dstr_2623__CTYPE_BASIC_BLOC*/ @@ -21184,7 +21184,7 @@ if (((void*)(MELT_PREDEF(CTYPE_EDGE))) != (melt_ptr_t)&cdat->dobj_2652__CTYPE_ED if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2652__CTYPE_EDGE", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2652__CTYPE_EDGE", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2652__CTYPE_EDGE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2652__CTYPE_EDGE.obj_hash = 712129875; + cdat->dobj_2652__CTYPE_EDGE.obj_hash = 524789630; cdat->dobj_2652__CTYPE_EDGE.obj_len = 31; /*inistring dstr_2653__CTYPE_EDGE*/ @@ -21320,7 +21320,7 @@ if (((void*)(MELT_PREDEF(CTYPE_LOOP))) != (melt_ptr_t)&cdat->dobj_2682__CTYPE_LO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2682__CTYPE_LOOP", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2682__CTYPE_LOOP", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2682__CTYPE_LOOP.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2682__CTYPE_LOOP.obj_hash = 126422561; + cdat->dobj_2682__CTYPE_LOOP.obj_hash = 604343712; cdat->dobj_2682__CTYPE_LOOP.obj_len = 31; /*inistring dstr_2683__CTYPE_LOOP*/ @@ -21456,7 +21456,7 @@ if (((void*)(MELT_PREDEF(CTYPE_RTX))) != (melt_ptr_t)&cdat->dobj_2712__CTYPE_RTX if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2712__CTYPE_RTX", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2712__CTYPE_RTX", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2712__CTYPE_RTX.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2712__CTYPE_RTX.obj_hash = 485015337; + cdat->dobj_2712__CTYPE_RTX.obj_hash = 131908189; cdat->dobj_2712__CTYPE_RTX.obj_len = 31; /*inistring dstr_2713__CTYPE_RTX*/ @@ -21592,7 +21592,7 @@ if (((void*)(MELT_PREDEF(CTYPE_BITMAP))) != (melt_ptr_t)&cdat->dobj_2742__CTYPE_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2742__CTYPE_BITMAP", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2742__CTYPE_BITMAP", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2742__CTYPE_BITMAP.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2742__CTYPE_BITMAP.obj_hash = 428385941; + cdat->dobj_2742__CTYPE_BITMAP.obj_hash = 1027273492; cdat->dobj_2742__CTYPE_BITMAP.obj_len = 31; /*inistring dstr_2743__CTYPE_BITMAP*/ @@ -21728,7 +21728,7 @@ if (((void*)(MELT_PREDEF(CTYPE_RTVEC))) != (melt_ptr_t)&cdat->dobj_2772__CTYPE_R if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2772__CTYPE_RTVEC", melt_magic_discr (/*_.VALDATA___V391*/ meltfptr[390]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2772__CTYPE_RTVEC", ((meltobject_ptr_t) (/*_.VALDATA___V391*/ meltfptr[390]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2772__CTYPE_RTVEC.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]); - cdat->dobj_2772__CTYPE_RTVEC.obj_hash = 548395265; + cdat->dobj_2772__CTYPE_RTVEC.obj_hash = 789922661; cdat->dobj_2772__CTYPE_RTVEC.obj_len = 31; /*inistring dstr_2773__CTYPE_RTVEC*/ @@ -21864,7 +21864,7 @@ if (((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))) != (melt_ptr_t)&cdat->dobj_280 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2802__CTYPE_PPL_COEFFICIENT", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2802__CTYPE_PPL_COEFFICIENT", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2802__CTYPE_PPL_COEFFICIENT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2802__CTYPE_PPL_COEFFICIENT.obj_hash = 824305111; + cdat->dobj_2802__CTYPE_PPL_COEFFICIENT.obj_hash = 205016870; cdat->dobj_2802__CTYPE_PPL_COEFFICIENT.obj_len = 11; /*inistring dstr_2803__CTYPE_PPL_COEFFI*/ @@ -21924,7 +21924,7 @@ if (((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 109811973; + cdat->dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 229957232; cdat->dobj_2813__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 11; /*inistring dstr_2814__CTYPE_PPL_LINEAR*/ @@ -21984,7 +21984,7 @@ if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))) != (melt_ptr_t)&cdat->dobj_2824 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2824__CTYPE_PPL_CONSTRAINT", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2824__CTYPE_PPL_CONSTRAINT", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2824__CTYPE_PPL_CONSTRAINT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2824__CTYPE_PPL_CONSTRAINT.obj_hash = 135361778; + cdat->dobj_2824__CTYPE_PPL_CONSTRAINT.obj_hash = 213693153; cdat->dobj_2824__CTYPE_PPL_CONSTRAINT.obj_len = 11; /*inistring dstr_2825__CTYPE_PPL_CONSTR*/ @@ -22044,7 +22044,7 @@ if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))) != (melt_ptr_t)&cdat->do if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 712385883; + cdat->dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 698850820; cdat->dobj_2835__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 11; /*inistring dstr_2836__CTYPE_PPL_CONSTR*/ @@ -22104,7 +22104,7 @@ if (((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))) != (melt_ptr_t)&cdat->dobj_2846 if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2846__CTYPE_PPL_POLYHEDRON", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2846__CTYPE_PPL_POLYHEDRON", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2846__CTYPE_PPL_POLYHEDRON.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2846__CTYPE_PPL_POLYHEDRON.obj_hash = 165131636; + cdat->dobj_2846__CTYPE_PPL_POLYHEDRON.obj_hash = 723347112; cdat->dobj_2846__CTYPE_PPL_POLYHEDRON.obj_len = 11; /*inistring dstr_2847__CTYPE_PPL_POLYHE*/ @@ -22164,7 +22164,7 @@ if (((void*)(MELT_PREDEF(CTYPE_VOID))) != (melt_ptr_t)&cdat->dobj_2857__CTYPE_VO if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2857__CTYPE_VOID", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2857__CTYPE_VOID", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2857__CTYPE_VOID.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2857__CTYPE_VOID.obj_hash = 368931218; + cdat->dobj_2857__CTYPE_VOID.obj_hash = 773179589; cdat->dobj_2857__CTYPE_VOID.obj_len = 11; /*inistring dstr_2858__CTYPE_VOID*/ @@ -22208,7 +22208,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2864__CTYPE_CSTRING", melt_magic_discr (/*_.VALDATA___V349*/ meltfptr[348]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2864__CTYPE_CSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V349*/ meltfptr[348]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2864__CTYPE_CSTRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V349*/ meltfptr[348]); - cdat->dobj_2864__CTYPE_CSTRING.obj_hash = 223813448; + cdat->dobj_2864__CTYPE_CSTRING.obj_hash = 972240630; cdat->dobj_2864__CTYPE_CSTRING.obj_len = 11; /*inistring dstr_2865__CTYPE_CSTRING*/ @@ -22305,7 +22305,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2881__CONTAINER_CLONEMAPSTRING", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2881__CONTAINER_CLONEMAPSTRING", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2881__CONTAINER_CLONEMAPSTRING.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2881__CONTAINER_CLONEMAPSTRING.obj_hash = 216145803; + cdat->dobj_2881__CONTAINER_CLONEMAPSTRING.obj_hash = 658550609; cdat->dobj_2881__CONTAINER_CLONEMAPSTRING.obj_len = 1; /*inirout drout_2882__CLONE_SYMBOL*/ @@ -22399,7 +22399,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2896__CLASS_DELAYED_QUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2896__CLASS_DELAYED_QUEUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_2896__CLASS_DELAYED_QUEUE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_2896__CLASS_DELAYED_QUEUE.obj_hash = 284012854; + cdat->dobj_2896__CLASS_DELAYED_QUEUE.obj_hash = 981077293; cdat->dobj_2896__CLASS_DELAYED_QUEUE.obj_len = 8; /*inistring dstr_2897__CLASS_DELAYED_QU*/ @@ -22433,7 +22433,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2902__DELQU_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2902__DELQU_FIRST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2902__DELQU_FIRST.obj_num = 2; - cdat->dobj_2902__DELQU_FIRST.obj_hash = 344939097; + cdat->dobj_2902__DELQU_FIRST.obj_hash = 650693146; cdat->dobj_2902__DELQU_FIRST.obj_len = 4; /*inistring dstr_2903__DELQU_FIRST*/ @@ -22459,7 +22459,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2906__DELQU_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2906__DELQU_LAST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2906__DELQU_LAST.obj_num = 3; - cdat->dobj_2906__DELQU_LAST.obj_hash = 692679757; + cdat->dobj_2906__DELQU_LAST.obj_hash = 580130626; cdat->dobj_2906__DELQU_LAST.obj_len = 4; /*inistring dstr_2907__DELQU_LAST*/ @@ -22485,7 +22485,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2910__DELQU_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2910__DELQU_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2910__DELQU_DATA.obj_num = 4; - cdat->dobj_2910__DELQU_DATA.obj_hash = 31255247; + cdat->dobj_2910__DELQU_DATA.obj_hash = 134403468; cdat->dobj_2910__DELQU_DATA.obj_len = 4; /*inistring dstr_2911__DELQU_DATA*/ @@ -22510,7 +22510,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2914__FINAL_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2917*/ meltfptr[2916]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2914__FINAL_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2917*/ meltfptr[2916]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2914__FINAL_DELAYED_QUEUE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V2917*/ meltfptr[2916]); - cdat->dobj_2914__FINAL_DELAYED_QUEUE.obj_hash = 829850667; + cdat->dobj_2914__FINAL_DELAYED_QUEUE.obj_hash = 274990458; cdat->dobj_2914__FINAL_DELAYED_QUEUE.obj_len = 5; /*inistring dstr_2915__final_delayed_qu*/ @@ -22592,7 +22592,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2927__START_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2917*/ meltfptr[2916]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2927__START_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2917*/ meltfptr[2916]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2927__START_UNIT_DELAYED_QUEUE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V2917*/ meltfptr[2916]); - cdat->dobj_2927__START_UNIT_DELAYED_QUEUE.obj_hash = 665732115; + cdat->dobj_2927__START_UNIT_DELAYED_QUEUE.obj_hash = 79040337; cdat->dobj_2927__START_UNIT_DELAYED_QUEUE.obj_len = 5; /*inistring dstr_2928__start_unit_delay*/ @@ -22674,7 +22674,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2940__FINISH_UNIT_DELAYED_QUEUE", melt_magic_discr (/*_.VALDATA___V2917*/ meltfptr[2916]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2940__FINISH_UNIT_DELAYED_QUEUE", ((meltobject_ptr_t) (/*_.VALDATA___V2917*/ meltfptr[2916]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2940__FINISH_UNIT_DELAYED_QUEUE.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V2917*/ meltfptr[2916]); - cdat->dobj_2940__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 374007543; + cdat->dobj_2940__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 690301881; cdat->dobj_2940__FINISH_UNIT_DELAYED_QUEUE.obj_len = 5; /*inistring dstr_2941__finish_unit_dela*/ @@ -22756,7 +22756,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2953__OPTION_MAP_CONTAINER", melt_magic_discr (/*_.VALDATA___V25*/ meltfptr[24]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2953__OPTION_MAP_CONTAINER", ((meltobject_ptr_t) (/*_.VALDATA___V25*/ meltfptr[24]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2953__OPTION_MAP_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ meltfptr[24]); - cdat->dobj_2953__OPTION_MAP_CONTAINER.obj_hash = 24825634; + cdat->dobj_2953__OPTION_MAP_CONTAINER.obj_hash = 42092786; cdat->dobj_2953__OPTION_MAP_CONTAINER.obj_len = 1; /*iniobj dsym_2954__CLASS_OPTION_DESCRIPTOR*/ @@ -22778,7 +22778,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2956__CLASS_OPTION_DESCRIPTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2956__CLASS_OPTION_DESCRIPTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_2956__CLASS_OPTION_DESCRIPTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_2956__CLASS_OPTION_DESCRIPTOR.obj_hash = 338697574; + cdat->dobj_2956__CLASS_OPTION_DESCRIPTOR.obj_hash = 633966803; cdat->dobj_2956__CLASS_OPTION_DESCRIPTOR.obj_len = 8; /*inistring dstr_2957__CLASS_OPTION_DES*/ @@ -22812,7 +22812,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2962__OPTDESC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2962__OPTDESC_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2962__OPTDESC_NAME.obj_num = 0; - cdat->dobj_2962__OPTDESC_NAME.obj_hash = 860351687; + cdat->dobj_2962__OPTDESC_NAME.obj_hash = 833025340; cdat->dobj_2962__OPTDESC_NAME.obj_len = 4; /*inistring dstr_2963__OPTDESC_NAME*/ @@ -22838,7 +22838,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2966__OPTDESC_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2966__OPTDESC_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2966__OPTDESC_FUN.obj_num = 1; - cdat->dobj_2966__OPTDESC_FUN.obj_hash = 950737174; + cdat->dobj_2966__OPTDESC_FUN.obj_hash = 104849350; cdat->dobj_2966__OPTDESC_FUN.obj_len = 4; /*inistring dstr_2967__OPTDESC_FUN*/ @@ -22864,7 +22864,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2970__OPTDESC_HELP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2970__OPTDESC_HELP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_2970__OPTDESC_HELP.obj_num = 2; - cdat->dobj_2970__OPTDESC_HELP.obj_hash = 867580412; + cdat->dobj_2970__OPTDESC_HELP.obj_hash = 868864110; cdat->dobj_2970__OPTDESC_HELP.obj_len = 4; /*inistring dstr_2971__OPTDESC_HELP*/ @@ -22948,7 +22948,7 @@ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_2864__CTYPE if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2984__MELT_ERROR_COUNTER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2984__MELT_ERROR_COUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2984__MELT_ERROR_COUNTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_2984__MELT_ERROR_COUNTER.obj_hash = 238681670; + cdat->dobj_2984__MELT_ERROR_COUNTER.obj_hash = 960524477; cdat->dobj_2984__MELT_ERROR_COUNTER.obj_len = 5; /*inimult dtup_2985__MELT_ERROR_COUNTER*/ @@ -22988,7 +22988,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2991__INITIAL_SYSTEM_DATA", melt_magic_discr (/*_.VALDATA___V477*/ meltfptr[476]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2991__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (/*_.VALDATA___V477*/ meltfptr[476]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2991__INITIAL_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V477*/ meltfptr[476]); - cdat->dobj_2991__INITIAL_SYSTEM_DATA.obj_hash = 347588592; + cdat->dobj_2991__INITIAL_SYSTEM_DATA.obj_hash = 71818267; cdat->dobj_2991__INITIAL_SYSTEM_DATA.obj_len = 29; /*inistring dstr_2992__INITIAL_SYSTEM_D*/ @@ -23025,7 +23025,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_2997__FOREACH_IN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_2997__FOREACH_IN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_2997__FOREACH_IN_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_2997__FOREACH_IN_LIST.obj_hash = 527271156; + cdat->dobj_2997__FOREACH_IN_LIST.obj_hash = 838881923; cdat->dobj_2997__FOREACH_IN_LIST.obj_len = 7; /*inistring dstr_2998__FOREACH_IN_LIST*/ @@ -23051,7 +23051,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3001", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3001.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3001.obj_num = 0; - cdat->dobj_3001.obj_hash = 724909992; + cdat->dobj_3001.obj_hash = 660701799; cdat->dobj_3001.obj_len = 2; /*inimult dtup_3002__FOREACH_IN_LIST*/ @@ -23089,7 +23089,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3007", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3007.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3007.obj_num = 0; - cdat->dobj_3007.obj_hash = 104826566; + cdat->dobj_3007.obj_hash = 783738955; cdat->dobj_3007.obj_len = 2; /*iniobj dsym_3008__CURCOMP*/ @@ -23111,7 +23111,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3010", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3010.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3010.obj_num = 1; - cdat->dobj_3010.obj_hash = 560262884; + cdat->dobj_3010.obj_hash = 283968762; cdat->dobj_3010.obj_len = 2; /*inimult dtup_3011__FOREACH_IN_LIST*/ @@ -23267,7 +23267,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_3040__FOREACH_IN_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3040__FOREACH_IN_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3040__FOREACH_IN_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_3040__FOREACH_IN_MULTIPLE.obj_hash = 43121623; + cdat->dobj_3040__FOREACH_IN_MULTIPLE.obj_hash = 905876235; cdat->dobj_3040__FOREACH_IN_MULTIPLE.obj_len = 7; /*inistring dstr_3041__FOREACH_IN_MULTI*/ @@ -23293,7 +23293,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3044", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3044.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3044.obj_num = 0; - cdat->dobj_3044.obj_hash = 768831758; + cdat->dobj_3044.obj_hash = 187769446; cdat->dobj_3044.obj_len = 2; /*inimult dtup_3045__FOREACH_IN_MULTIPLE*/ @@ -23331,7 +23331,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3050", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3050.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3050.obj_num = 0; - cdat->dobj_3050.obj_hash = 1051153360; + cdat->dobj_3050.obj_hash = 229631623; cdat->dobj_3050.obj_len = 2; /*^iniobj*/ @@ -23341,7 +23341,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3051", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3051.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3051.obj_num = 1; - cdat->dobj_3051.obj_hash = 936421980; + cdat->dobj_3051.obj_hash = 109539974; cdat->dobj_3051.obj_len = 2; /*inimult dtup_3052__FOREACH_IN_MULTIPLE*/ @@ -23422,7 +23422,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CITERATOR)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CITERATOR)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR)))); - cdat->dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 499631282; + cdat->dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 137458238; cdat->dobj_3070__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 7; /*inistring dstr_3071__FOREACH_IN_MULTI*/ @@ -23436,7 +23436,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3072", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3072.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3072.obj_num = 0; - cdat->dobj_3072.obj_hash = 484092394; + cdat->dobj_3072.obj_hash = 377338189; cdat->dobj_3072.obj_len = 2; /*inimult dtup_3073__FOREACH_IN_MULTIPLE_BACKWARD*/ @@ -23462,7 +23462,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3076", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3076.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3076.obj_num = 0; - cdat->dobj_3076.obj_hash = 1011722631; + cdat->dobj_3076.obj_hash = 585656978; cdat->dobj_3076.obj_len = 2; /*^iniobj*/ @@ -23472,7 +23472,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3077", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3077.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_3077.obj_num = 1; - cdat->dobj_3077.obj_hash = 1003242340; + cdat->dobj_3077.obj_hash = 1042880442; cdat->dobj_3077.obj_len = 2; /*inimult dtup_3078__FOREACH_IN_MULTIPLE_BACKWARD*/ @@ -23698,7 +23698,7 @@ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_2991_ if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_3120__INITIAL_ENVIRONMENT", melt_magic_discr (/*_.VALDATA___V609*/ meltfptr[608]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_3120__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (/*_.VALDATA___V609*/ meltfptr[608]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_3120__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); - cdat->dobj_3120__INITIAL_ENVIRONMENT.obj_hash = 264072252; + cdat->dobj_3120__INITIAL_ENVIRONMENT.obj_hash = 639112971; cdat->dobj_3120__INITIAL_ENVIRONMENT.obj_len = 4; /*inistring dstr_3121__Initial_Environm*/ @@ -24369,7 +24369,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -74; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2387; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_first; /**COMMENT: get previous environment **/; @@ -71982,7 +71982,7 @@ static void forward_or_mark_module_start_frame_warmelt_first (struct callframe_m { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -74); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2387); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_first forwarding %d pointers in frame %p", 3289, (void*) framptr_); for (ix = 0; ix < 3289; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-genobj-0+01.c b/gcc/melt/generated/warmelt-genobj-0+01.c index 87d9542e654..4ea4807b366 100644 --- a/gcc/melt/generated/warmelt-genobj-0+01.c +++ b/gcc/melt/generated/warmelt-genobj-0+01.c @@ -4748,7 +4748,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /35715ebd checkpair", melt_magic_discr((melt_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /228e0c1 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OFRESHENV__V69*/ meltfptr[68]))->hd = (melt_ptr_t) (/*_.OFRESHENV__V55*/ meltfptr[54]); ; /*^touch*/ @@ -4923,7 +4923,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /1c68ab4c checkpair", melt_magic_discr((melt_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /325746c4 checkpair", melt_magic_discr((melt_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.BOXLOC__V82*/ meltfptr[81]))->hd = (melt_ptr_t) (/*_.BOXLOC__V54*/ meltfptr[52]); ; /*^touch*/ @@ -5474,7 +5474,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2e4cda25 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /1d03f9d6 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OVALUEIMPORTER__V127*/ meltfptr[126]))->hd = (melt_ptr_t) (/*_.OVALUEIMPORTER__V60*/ meltfptr[59]); ; /*^touch*/ @@ -5809,7 +5809,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /9ad13f4 checkpair", melt_magic_discr((melt_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /1eb2dbae checkpair", melt_magic_discr((melt_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.RETINIT__V150*/ meltfptr[120]))->hd = (melt_ptr_t) (/*_.RETINIT__V51*/ meltfptr[49]); ; /*^touch*/ @@ -7539,7 +7539,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2d4d1099 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /318522 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OIMPLOCV__V14*/ meltfptr[13]))->hd = (melt_ptr_t) (/*_.OIMPLOCV__V12*/ meltfptr[11]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-genobj-0+04.c b/gcc/melt/generated/warmelt-genobj-0+04.c index 930201b9a80..6bc66bc1f51 100644 --- a/gcc/melt/generated/warmelt-genobj-0+04.c +++ b/gcc/melt/generated/warmelt-genobj-0+04.c @@ -9739,7 +9739,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /47fbfc5 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /81c3f5f checkpair", melt_magic_discr((melt_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OCONTENVLOC__V11*/ meltfptr[10]))->hd = (melt_ptr_t) ((/*~OCONTENVLOC*/ meltfclos->tabval[4])); ; /*^touch*/ @@ -21411,12 +21411,12 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /f88cc97 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /1e440f45 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))->hd = (melt_ptr_t) (/*_.OSUCC__V33*/ meltfptr[32]); ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /3b09e2c1 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /1cd3c92b checkpair", melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OSUCC__V41*/ meltfptr[37]))->tl = (meltpair_ptr_t) (/*_.GOTOEND__V42*/ meltfptr[38]); ; /*^touch*/ @@ -21424,7 +21424,7 @@ lab_endgetargs:; ; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /1308d81 checkpair", melt_magic_discr((melt_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /38c809ba checkpair", melt_magic_discr((melt_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.GOTOEND__V42*/ meltfptr[38]))->hd = (melt_ptr_t) (/*_.GOTOEND__V23*/ meltfptr[22]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-genobj-0+05.c b/gcc/melt/generated/warmelt-genobj-0+05.c index f0f27369fd5..fa131804742 100644 --- a/gcc/melt/generated/warmelt-genobj-0+05.c +++ b/gcc/melt/generated/warmelt-genobj-0+05.c @@ -6046,7 +6046,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2a09557b checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /38d9c11a checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OTESTCLOS__V69*/ meltfptr[68]))->hd = (melt_ptr_t) (/*_.OTESTCLOS__V38*/ meltfptr[37]); ; /*^touch*/ @@ -6122,7 +6122,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /43c2070 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /2c25bf71 checkpair", melt_magic_discr((melt_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.OTESTRES__V74*/ meltfptr[73]))->hd = (melt_ptr_t) (/*_.OTESTRES__V37*/ meltfptr[36]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-genobj-0.c b/gcc/melt/generated/warmelt-genobj-0.c index 2f60fbb1952..e5aab635555 100644 --- a/gcc/melt/generated/warmelt-genobj-0.c +++ b/gcc/melt/generated/warmelt-genobj-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -1776,7 +1776,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_genobj iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -807); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2331); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__CLASS_OBJVALUE; @@ -3378,7 +3378,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_OBJVALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__CLASS_OBJVALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_OBJVALUE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 553769565; + cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 771881865; cdat->dobj_5__CLASS_OBJVALUE.obj_len = 8; /*inistring dstr_6__CLASS_OBJVALUE*/ @@ -3412,7 +3412,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__OBV_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_11__OBV_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__OBV_TYPE.obj_num = 0; - cdat->dobj_11__OBV_TYPE.obj_hash = 289415114; + cdat->dobj_11__OBV_TYPE.obj_hash = 195591028; cdat->dobj_11__OBV_TYPE.obj_len = 4; /*inistring dstr_12__OBV_TYPE*/ @@ -3438,7 +3438,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_OBJPUREVALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__CLASS_OBJPUREVALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_OBJPUREVALUE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 887840852; + cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 629371277; cdat->dobj_15__CLASS_OBJPUREVALUE.obj_len = 8; /*inistring dstr_16__CLASS_OBJPUREVAL*/ @@ -3472,7 +3472,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__CLASS_OBJLOCV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_21__CLASS_OBJLOCV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_OBJLOCV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 265698756; + cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 553769565; cdat->dobj_21__CLASS_OBJLOCV.obj_len = 8; /*inistring dstr_22__CLASS_OBJLOCV*/ @@ -3506,7 +3506,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__OBL_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_27__OBL_OFF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_27__OBL_OFF.obj_num = 1; - cdat->dobj_27__OBL_OFF.obj_hash = 461853441; + cdat->dobj_27__OBL_OFF.obj_hash = 289415114; cdat->dobj_27__OBL_OFF.obj_len = 4; /*inistring dstr_28__OBL_OFF*/ @@ -3532,7 +3532,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__OBL_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_31__OBL_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_31__OBL_PROC.obj_num = 2; - cdat->dobj_31__OBL_PROC.obj_hash = 1052597633; + cdat->dobj_31__OBL_PROC.obj_hash = 214678765; cdat->dobj_31__OBL_PROC.obj_len = 4; /*inistring dstr_32__OBL_PROC*/ @@ -3558,7 +3558,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__OBL_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35__OBL_CNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__OBL_CNAME.obj_num = 3; - cdat->dobj_35__OBL_CNAME.obj_hash = 711168366; + cdat->dobj_35__OBL_CNAME.obj_hash = 936087666; cdat->dobj_35__OBL_CNAME.obj_len = 4; /*inistring dstr_36__OBL_CNAME*/ @@ -3584,7 +3584,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__CLASS_OBJCLOCCV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_39__CLASS_OBJCLOCCV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_39__CLASS_OBJCLOCCV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 743862273; + cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 597473789; cdat->dobj_39__CLASS_OBJCLOCCV.obj_len = 8; /*inistring dstr_40__CLASS_OBJCLOCCV*/ @@ -3618,7 +3618,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__OBC_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_45__OBC_OFF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__OBC_OFF.obj_num = 1; - cdat->dobj_45__OBC_OFF.obj_hash = 751307639; + cdat->dobj_45__OBC_OFF.obj_hash = 825129196; cdat->dobj_45__OBC_OFF.obj_len = 4; /*inistring dstr_46__OBC_OFF*/ @@ -3644,7 +3644,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__OBC_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49__OBC_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_49__OBC_PROC.obj_num = 2; - cdat->dobj_49__OBC_PROC.obj_hash = 159528266; + cdat->dobj_49__OBC_PROC.obj_hash = 515132292; cdat->dobj_49__OBC_PROC.obj_len = 4; /*inistring dstr_50__OBC_PROC*/ @@ -3670,7 +3670,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__OBC_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_53__OBC_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__OBC_NAME.obj_num = 3; - cdat->dobj_53__OBC_NAME.obj_hash = 324948869; + cdat->dobj_53__OBC_NAME.obj_hash = 361456471; cdat->dobj_53__OBC_NAME.obj_len = 4; /*inistring dstr_54__OBC_NAME*/ @@ -3696,7 +3696,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_OBJCONSTV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_57__CLASS_OBJCONSTV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_OBJCONSTV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 660816176; + cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 980669303; cdat->dobj_57__CLASS_OBJCONSTV.obj_len = 8; /*inistring dstr_58__CLASS_OBJCONSTV*/ @@ -3730,7 +3730,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__CLASS_OBJPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_63__CLASS_OBJPREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_63__CLASS_OBJPREDEF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 1037423872; + cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 159528266; cdat->dobj_63__CLASS_OBJPREDEF.obj_len = 8; /*inistring dstr_64__CLASS_OBJPREDEF*/ @@ -3764,7 +3764,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_69__OBPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_69__OBPREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_69__OBPREDEF.obj_num = 1; - cdat->dobj_69__OBPREDEF.obj_hash = 616954157; + cdat->dobj_69__OBPREDEF.obj_hash = 324948869; cdat->dobj_69__OBPREDEF.obj_len = 4; /*inistring dstr_70__OBPREDEF*/ @@ -3790,7 +3790,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73__CLASS_OBJNIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_73__CLASS_OBJNIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_73__CLASS_OBJNIL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_73__CLASS_OBJNIL.obj_hash = 718399772; + cdat->dobj_73__CLASS_OBJNIL.obj_hash = 660816176; cdat->dobj_73__CLASS_OBJNIL.obj_len = 8; /*inistring dstr_74__CLASS_OBJNIL*/ @@ -3824,7 +3824,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_79__CLASS_OBJINITELEM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_79__CLASS_OBJINITELEM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_79__CLASS_OBJINITELEM.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 879184756; + cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 1037423872; cdat->dobj_79__CLASS_OBJINITELEM.obj_len = 8; /*inistring dstr_80__CLASS_OBJINITELE*/ @@ -3858,7 +3858,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__OIE_CNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_85__OIE_CNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_85__OIE_CNAME.obj_num = 1; - cdat->dobj_85__OIE_CNAME.obj_hash = 789960051; + cdat->dobj_85__OIE_CNAME.obj_hash = 616954157; cdat->dobj_85__OIE_CNAME.obj_len = 4; /*inistring dstr_86__OIE_CNAME*/ @@ -3884,7 +3884,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_89__OIE_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_89__OIE_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_89__OIE_DATA.obj_num = 2; - cdat->dobj_89__OIE_DATA.obj_hash = 165478149; + cdat->dobj_89__OIE_DATA.obj_hash = 451466287; cdat->dobj_89__OIE_DATA.obj_len = 4; /*inistring dstr_90__OIE_DATA*/ @@ -3910,7 +3910,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_93__OIE_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_93__OIE_DISCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_93__OIE_DISCR.obj_num = 3; - cdat->dobj_93__OIE_DISCR.obj_hash = 574899523; + cdat->dobj_93__OIE_DISCR.obj_hash = 976913334; cdat->dobj_93__OIE_DISCR.obj_len = 4; /*inistring dstr_94__OIE_DISCR*/ @@ -3936,7 +3936,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__OIE_LOCVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_97__OIE_LOCVAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_97__OIE_LOCVAR.obj_num = 4; - cdat->dobj_97__OIE_LOCVAR.obj_hash = 319495975; + cdat->dobj_97__OIE_LOCVAR.obj_hash = 879184756; cdat->dobj_97__OIE_LOCVAR.obj_len = 4; /*inistring dstr_98__OIE_LOCVAR*/ @@ -3962,7 +3962,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_101__CLASS_OBJINITOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_101__CLASS_OBJINITOBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_101__CLASS_OBJINITOBJECT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 402399559; + cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 354156775; cdat->dobj_101__CLASS_OBJINITOBJECT.obj_len = 8; /*inistring dstr_102__CLASS_OBJINITOBJ*/ @@ -3996,7 +3996,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__OIO_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_107__OIO_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_107__OIO_PREDEF.obj_num = 5; - cdat->dobj_107__OIO_PREDEF.obj_hash = 368596832; + cdat->dobj_107__OIO_PREDEF.obj_hash = 560445525; cdat->dobj_107__OIO_PREDEF.obj_len = 4; /*inistring dstr_108__OIO_PREDEF*/ @@ -4022,7 +4022,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111__OIO_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_111__OIO_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_111__OIO_CLASS.obj_num = 6; - cdat->dobj_111__OIO_CLASS.obj_hash = 1049831590; + cdat->dobj_111__OIO_CLASS.obj_hash = 149643602; cdat->dobj_111__OIO_CLASS.obj_len = 4; /*inistring dstr_112__OIO_CLASS*/ @@ -4048,7 +4048,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_115__CLASS_OBJINITUNIQUEOBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_hash = 273417911; + cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_hash = 1056969598; cdat->dobj_115__CLASS_OBJINITUNIQUEOBJECT.obj_len = 8; /*inistring dstr_116__CLASS_OBJINITUNI*/ @@ -4082,7 +4082,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__CLASS_OBJINITMULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_121__CLASS_OBJINITMULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_hash = 481521001; + cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_hash = 368596832; cdat->dobj_121__CLASS_OBJINITMULTIPLE.obj_len = 8; /*inistring dstr_122__CLASS_OBJINITMUL*/ @@ -4116,7 +4116,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_127__OIM_TUPVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_127__OIM_TUPVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_127__OIM_TUPVAL.obj_num = 5; - cdat->dobj_127__OIM_TUPVAL.obj_hash = 735879863; + cdat->dobj_127__OIM_TUPVAL.obj_hash = 1049831590; cdat->dobj_127__OIM_TUPVAL.obj_len = 4; /*inistring dstr_128__OIM_TUPVAL*/ @@ -4142,7 +4142,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_131__CLASS_OBJINITCLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_131__CLASS_OBJINITCLOSURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_hash = 604385543; + cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_hash = 273417911; cdat->dobj_131__CLASS_OBJINITCLOSURE.obj_len = 8; /*inistring dstr_132__CLASS_OBJINITCLO*/ @@ -4176,7 +4176,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__OICLO_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_137__OICLO_ROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_137__OICLO_ROUT.obj_num = 5; - cdat->dobj_137__OICLO_ROUT.obj_hash = 110476743; + cdat->dobj_137__OICLO_ROUT.obj_hash = 172070053; cdat->dobj_137__OICLO_ROUT.obj_len = 4; /*inistring dstr_138__OICLO_ROUT*/ @@ -4202,7 +4202,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_141__CLASS_OBJINITROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_141__CLASS_OBJINITROUTINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_141__CLASS_OBJINITROUTINE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_141__CLASS_OBJINITROUTINE.obj_hash = 890814570; + cdat->dobj_141__CLASS_OBJINITROUTINE.obj_hash = 735879863; cdat->dobj_141__CLASS_OBJINITROUTINE.obj_len = 8; /*inistring dstr_142__CLASS_OBJINITROU*/ @@ -4236,7 +4236,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__OIR_PROCROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_147__OIR_PROCROUTINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__OIR_PROCROUTINE.obj_num = 5; - cdat->dobj_147__OIR_PROCROUTINE.obj_hash = 954997241; + cdat->dobj_147__OIR_PROCROUTINE.obj_hash = 705069409; cdat->dobj_147__OIR_PROCROUTINE.obj_len = 4; /*inistring dstr_148__OIR_PROCROUTINE*/ @@ -4262,7 +4262,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__CLASS_OBJINITSTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_151__CLASS_OBJINITSTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_151__CLASS_OBJINITSTRING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_151__CLASS_OBJINITSTRING.obj_hash = 781521870; + cdat->dobj_151__CLASS_OBJINITSTRING.obj_hash = 110476743; cdat->dobj_151__CLASS_OBJINITSTRING.obj_len = 8; /*inistring dstr_152__CLASS_OBJINITSTR*/ @@ -4296,7 +4296,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__CLASS_OBJINITPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_157__CLASS_OBJINITPAIR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_157__CLASS_OBJINITPAIR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_157__CLASS_OBJINITPAIR.obj_hash = 755231964; + cdat->dobj_157__CLASS_OBJINITPAIR.obj_hash = 890814570; cdat->dobj_157__CLASS_OBJINITPAIR.obj_len = 8; /*inistring dstr_158__CLASS_OBJINITPAI*/ @@ -4330,7 +4330,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_163__CLASS_OBJINITLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_163__CLASS_OBJINITLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_163__CLASS_OBJINITLIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_163__CLASS_OBJINITLIST.obj_hash = 1026291878; + cdat->dobj_163__CLASS_OBJINITLIST.obj_hash = 399692061; cdat->dobj_163__CLASS_OBJINITLIST.obj_len = 8; /*inistring dstr_164__CLASS_OBJINITLIS*/ @@ -4364,7 +4364,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CLASS_OBJINITBOXINTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_169__CLASS_OBJINITBOXINTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_hash = 252825982; + cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_hash = 556679169; cdat->dobj_169__CLASS_OBJINITBOXINTEGER.obj_len = 8; /*inistring dstr_170__CLASS_OBJINITBOX*/ @@ -4398,7 +4398,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_175__CLASS_OBJEXPV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_175__CLASS_OBJEXPV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_175__CLASS_OBJEXPV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_175__CLASS_OBJEXPV.obj_hash = 842080770; + cdat->dobj_175__CLASS_OBJEXPV.obj_hash = 375212478; cdat->dobj_175__CLASS_OBJEXPV.obj_len = 8; /*inistring dstr_176__CLASS_OBJEXPV*/ @@ -4432,7 +4432,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_181__OBX_CONT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_181__OBX_CONT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_181__OBX_CONT.obj_num = 1; - cdat->dobj_181__OBX_CONT.obj_hash = 527706770; + cdat->dobj_181__OBX_CONT.obj_hash = 1026291878; cdat->dobj_181__OBX_CONT.obj_len = 4; /*inistring dstr_182__OBX_CONT*/ @@ -4458,7 +4458,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_185__CLASS_OBJLOCATEDEXPV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_185__CLASS_OBJLOCATEDEXPV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_hash = 11084373; + cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_hash = 252825982; cdat->dobj_185__CLASS_OBJLOCATEDEXPV.obj_len = 8; /*inistring dstr_186__CLASS_OBJLOCATED*/ @@ -4492,7 +4492,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_191__OBCX_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_191__OBCX_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_191__OBCX_LOC.obj_num = 2; - cdat->dobj_191__OBCX_LOC.obj_hash = 721074461; + cdat->dobj_191__OBCX_LOC.obj_hash = 327244455; cdat->dobj_191__OBCX_LOC.obj_len = 4; /*inistring dstr_192__OBCX_LOC*/ @@ -4518,7 +4518,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_195__CLASS_OBJINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_195__CLASS_OBJINSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_195__CLASS_OBJINSTR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_195__CLASS_OBJINSTR.obj_hash = 1004962134; + cdat->dobj_195__CLASS_OBJINSTR.obj_hash = 527706770; cdat->dobj_195__CLASS_OBJINSTR.obj_len = 8; /*inistring dstr_196__CLASS_OBJINSTR*/ @@ -4552,7 +4552,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_201__OBI_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_201__OBI_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_201__OBI_LOC.obj_num = 0; - cdat->dobj_201__OBI_LOC.obj_hash = 869544466; + cdat->dobj_201__OBI_LOC.obj_hash = 821598079; cdat->dobj_201__OBI_LOC.obj_len = 4; /*inistring dstr_202__OBI_LOC*/ @@ -4578,7 +4578,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_205__CLASS_OBJCOMMENTINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_205__CLASS_OBJCOMMENTINSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_hash = 495538569; + cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_hash = 721074461; cdat->dobj_205__CLASS_OBJCOMMENTINSTR.obj_len = 8; /*inistring dstr_206__CLASS_OBJCOMMENT*/ @@ -4612,7 +4612,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_211__OBCI_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_211__OBCI_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_211__OBCI_COMMENT.obj_num = 1; - cdat->dobj_211__OBCI_COMMENT.obj_hash = 1016133802; + cdat->dobj_211__OBCI_COMMENT.obj_hash = 631113888; cdat->dobj_211__OBCI_COMMENT.obj_len = 4; /*inistring dstr_212__OBCI_COMMENT*/ @@ -4638,7 +4638,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_215__CLASS_OBJDESTINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_215__CLASS_OBJDESTINSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_215__CLASS_OBJDESTINSTR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_215__CLASS_OBJDESTINSTR.obj_hash = 38009818; + cdat->dobj_215__CLASS_OBJDESTINSTR.obj_hash = 869544466; cdat->dobj_215__CLASS_OBJDESTINSTR.obj_len = 8; /*inistring dstr_216__CLASS_OBJDESTINS*/ @@ -4672,7 +4672,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_221__OBDI_DESTLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_221__OBDI_DESTLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_221__OBDI_DESTLIST.obj_num = 1; - cdat->dobj_221__OBDI_DESTLIST.obj_hash = 697405826; + cdat->dobj_221__OBDI_DESTLIST.obj_hash = 28356209; cdat->dobj_221__OBDI_DESTLIST.obj_len = 4; /*inistring dstr_222__OBDI_DESTLIST*/ @@ -4698,7 +4698,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_225__CLASS_OBJCOMPUTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_225__CLASS_OBJCOMPUTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_225__CLASS_OBJCOMPUTE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_225__CLASS_OBJCOMPUTE.obj_hash = 1015210544; + cdat->dobj_225__CLASS_OBJCOMPUTE.obj_hash = 1016133802; cdat->dobj_225__CLASS_OBJCOMPUTE.obj_len = 8; /*inistring dstr_226__CLASS_OBJCOMPUTE*/ @@ -4732,7 +4732,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__OBCPT_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_231__OBCPT_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__OBCPT_EXPR.obj_num = 2; - cdat->dobj_231__OBCPT_EXPR.obj_hash = 472025515; + cdat->dobj_231__OBCPT_EXPR.obj_hash = 1028003271; cdat->dobj_231__OBCPT_EXPR.obj_len = 4; /*inistring dstr_232__OBCPT_EXPR*/ @@ -4758,7 +4758,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__CLASS_OBJGETARG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_235__CLASS_OBJGETARG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_235__CLASS_OBJGETARG.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_235__CLASS_OBJGETARG.obj_hash = 609956245; + cdat->dobj_235__CLASS_OBJGETARG.obj_hash = 697405826; cdat->dobj_235__CLASS_OBJGETARG.obj_len = 8; /*inistring dstr_236__CLASS_OBJGETARG*/ @@ -4792,7 +4792,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_241__OBARG_OBLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_241__OBARG_OBLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_241__OBARG_OBLOC.obj_num = 1; - cdat->dobj_241__OBARG_OBLOC.obj_hash = 599328242; + cdat->dobj_241__OBARG_OBLOC.obj_hash = 974652174; cdat->dobj_241__OBARG_OBLOC.obj_len = 4; /*inistring dstr_242__OBARG_OBLOC*/ @@ -4818,7 +4818,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__OBARG_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_245__OBARG_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_245__OBARG_BIND.obj_num = 2; - cdat->dobj_245__OBARG_BIND.obj_hash = 1007439613; + cdat->dobj_245__OBARG_BIND.obj_hash = 864590387; cdat->dobj_245__OBARG_BIND.obj_len = 4; /*inistring dstr_246__OBARG_BIND*/ @@ -4844,7 +4844,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_249__CLASS_OBJPUTXTRARESULT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_249__CLASS_OBJPUTXTRARESULT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_hash = 624274470; + cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_hash = 608013189; cdat->dobj_249__CLASS_OBJPUTXTRARESULT.obj_len = 8; /*inistring dstr_250__CLASS_OBJPUTXTRA*/ @@ -4878,7 +4878,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__OBXRES_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_255__OBXRES_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_255__OBXRES_RANK.obj_num = 1; - cdat->dobj_255__OBXRES_RANK.obj_hash = 917905273; + cdat->dobj_255__OBXRES_RANK.obj_hash = 167370458; cdat->dobj_255__OBXRES_RANK.obj_len = 4; /*inistring dstr_256__OBXRES_RANK*/ @@ -4904,7 +4904,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_259__OBXRES_OBLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_259__OBXRES_OBLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_259__OBXRES_OBLOC.obj_num = 2; - cdat->dobj_259__OBXRES_OBLOC.obj_hash = 811727871; + cdat->dobj_259__OBXRES_OBLOC.obj_hash = 561366388; cdat->dobj_259__OBXRES_OBLOC.obj_len = 4; /*inistring dstr_260__OBXRES_OBLOC*/ @@ -4930,7 +4930,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263__CLASS_OBJFINALRETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_263__CLASS_OBJFINALRETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_263__CLASS_OBJFINALRETURN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_263__CLASS_OBJFINALRETURN.obj_hash = 865249811; + cdat->dobj_263__CLASS_OBJFINALRETURN.obj_hash = 666396190; cdat->dobj_263__CLASS_OBJFINALRETURN.obj_len = 8; /*inistring dstr_264__CLASS_OBJFINALRE*/ @@ -4964,7 +4964,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269__CLASS_OBJCLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_269__CLASS_OBJCLEAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_269__CLASS_OBJCLEAR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_269__CLASS_OBJCLEAR.obj_hash = 874529796; + cdat->dobj_269__CLASS_OBJCLEAR.obj_hash = 917905273; cdat->dobj_269__CLASS_OBJCLEAR.obj_len = 8; /*inistring dstr_270__CLASS_OBJCLEAR*/ @@ -4998,7 +4998,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__OCLR_VLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_275__OCLR_VLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_275__OCLR_VLOC.obj_num = 1; - cdat->dobj_275__OCLR_VLOC.obj_hash = 891836392; + cdat->dobj_275__OCLR_VLOC.obj_hash = 811727871; cdat->dobj_275__OCLR_VLOC.obj_len = 4; /*inistring dstr_276__OCLR_VLOC*/ @@ -5024,7 +5024,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_OBJANYBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_279__CLASS_OBJANYBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_279__CLASS_OBJANYBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_279__CLASS_OBJANYBLOCK.obj_hash = 174378158; + cdat->dobj_279__CLASS_OBJANYBLOCK.obj_hash = 865249811; cdat->dobj_279__CLASS_OBJANYBLOCK.obj_len = 8; /*inistring dstr_280__CLASS_OBJANYBLOC*/ @@ -5058,7 +5058,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__OBLO_BODYL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_285__OBLO_BODYL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_285__OBLO_BODYL.obj_num = 1; - cdat->dobj_285__OBLO_BODYL.obj_hash = 727164337; + cdat->dobj_285__OBLO_BODYL.obj_hash = 186735912; cdat->dobj_285__OBLO_BODYL.obj_len = 4; /*inistring dstr_286__OBLO_BODYL*/ @@ -5084,7 +5084,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_289__OBLO_EPIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_289__OBLO_EPIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_289__OBLO_EPIL.obj_num = 2; - cdat->dobj_289__OBLO_EPIL.obj_hash = 387167450; + cdat->dobj_289__OBLO_EPIL.obj_hash = 884501721; cdat->dobj_289__OBLO_EPIL.obj_len = 4; /*inistring dstr_290__OBLO_EPIL*/ @@ -5110,7 +5110,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_293__CLASS_OBJPLAINBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_293__CLASS_OBJPLAINBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_hash = 959302801; + cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_hash = 755621804; cdat->dobj_293__CLASS_OBJPLAINBLOCK.obj_len = 8; /*inistring dstr_294__CLASS_OBJPLAINBL*/ @@ -5144,7 +5144,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__CLASS_OBJMULTIALLOCBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 990974414; + cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 727164337; cdat->dobj_299__CLASS_OBJMULTIALLOCBLOCK.obj_len = 8; /*inistring dstr_300__CLASS_OBJMULTIAL*/ @@ -5178,7 +5178,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__OMALBLO_ALLSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_305__OMALBLO_ALLSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_num = 3; - cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_hash = 732203680; + cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_hash = 387167450; cdat->dobj_305__OMALBLO_ALLSTRUCT.obj_len = 4; /*inistring dstr_306__OMALBLO_ALLSTRUC*/ @@ -5204,7 +5204,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__OMALBLO_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_309__OMALBLO_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__OMALBLO_NAME.obj_num = 4; - cdat->dobj_309__OMALBLO_NAME.obj_hash = 157533658; + cdat->dobj_309__OMALBLO_NAME.obj_hash = 8061322; cdat->dobj_309__OMALBLO_NAME.obj_len = 4; /*inistring dstr_310__OMALBLO_NAME*/ @@ -5230,7 +5230,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__CLASS_OBJCOMMENTEDBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 50888978; + cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 537114922; cdat->dobj_313__CLASS_OBJCOMMENTEDBLOCK.obj_len = 8; /*inistring dstr_314__CLASS_OBJCOMMENT*/ @@ -5264,7 +5264,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_319__OCOMBLO_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_319__OCOMBLO_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_319__OCOMBLO_COMMENT.obj_num = 3; - cdat->dobj_319__OCOMBLO_COMMENT.obj_hash = 220485919; + cdat->dobj_319__OCOMBLO_COMMENT.obj_hash = 962523666; cdat->dobj_319__OCOMBLO_COMMENT.obj_len = 4; /*inistring dstr_320__OCOMBLO_COMMENT*/ @@ -5290,7 +5290,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__CLASS_OBJMULTIBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_323__CLASS_OBJMULTIBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_hash = 591400669; + cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_hash = 157533658; cdat->dobj_323__CLASS_OBJMULTIBLOCK.obj_len = 8; /*inistring dstr_324__CLASS_OBJMULTIBL*/ @@ -5324,7 +5324,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_329__OMULBLO_SUBCOMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_329__OMULBLO_SUBCOMP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_329__OMULBLO_SUBCOMP.obj_num = 3; - cdat->dobj_329__OMULBLO_SUBCOMP.obj_hash = 539259088; + cdat->dobj_329__OMULBLO_SUBCOMP.obj_hash = 146571016; cdat->dobj_329__OMULBLO_SUBCOMP.obj_len = 4; /*inistring dstr_330__OMULBLO_SUBCOMP*/ @@ -5350,7 +5350,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_333__CLASS_OBJFLAGBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_333__CLASS_OBJFLAGBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_333__CLASS_OBJFLAGBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_333__CLASS_OBJFLAGBLOCK.obj_hash = 1029222830; + cdat->dobj_333__CLASS_OBJFLAGBLOCK.obj_hash = 220485919; cdat->dobj_333__CLASS_OBJFLAGBLOCK.obj_len = 8; /*inistring dstr_334__CLASS_OBJFLAGBLO*/ @@ -5384,7 +5384,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_339__OFLABLO_FLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_339__OFLABLO_FLAGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_339__OFLABLO_FLAGS.obj_num = 3; - cdat->dobj_339__OFLABLO_FLAGS.obj_hash = 129111975; + cdat->dobj_339__OFLABLO_FLAGS.obj_hash = 667320564; cdat->dobj_339__OFLABLO_FLAGS.obj_len = 4; /*inistring dstr_340__OFLABLO_FLAGS*/ @@ -5410,7 +5410,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_343__CLASS_OBJLABELINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_343__CLASS_OBJLABELINSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_343__CLASS_OBJLABELINSTR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_343__CLASS_OBJLABELINSTR.obj_hash = 987737549; + cdat->dobj_343__CLASS_OBJLABELINSTR.obj_hash = 539259088; cdat->dobj_343__CLASS_OBJLABELINSTR.obj_len = 8; /*inistring dstr_344__CLASS_OBJLABELIN*/ @@ -5444,7 +5444,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_349__OBLAB_PREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_349__OBLAB_PREFIX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_349__OBLAB_PREFIX.obj_num = 1; - cdat->dobj_349__OBLAB_PREFIX.obj_hash = 599547589; + cdat->dobj_349__OBLAB_PREFIX.obj_hash = 318480971; cdat->dobj_349__OBLAB_PREFIX.obj_len = 4; /*inistring dstr_350__OBLAB_PREFIX*/ @@ -5470,7 +5470,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_353__OBLAB_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_353__OBLAB_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_353__OBLAB_RANK.obj_num = 2; - cdat->dobj_353__OBLAB_RANK.obj_hash = 756349669; + cdat->dobj_353__OBLAB_RANK.obj_hash = 222559966; cdat->dobj_353__OBLAB_RANK.obj_len = 4; /*inistring dstr_354__OBLAB_RANK*/ @@ -5496,7 +5496,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_357__CLASS_OBJGOTOINSTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_357__CLASS_OBJGOTOINSTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_357__CLASS_OBJGOTOINSTR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_357__CLASS_OBJGOTOINSTR.obj_hash = 743893003; + cdat->dobj_357__CLASS_OBJGOTOINSTR.obj_hash = 331042638; cdat->dobj_357__CLASS_OBJGOTOINSTR.obj_len = 8; /*inistring dstr_358__CLASS_OBJGOTOINS*/ @@ -5530,7 +5530,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_363__OBGOTO_PREFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_363__OBGOTO_PREFIX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_363__OBGOTO_PREFIX.obj_num = 1; - cdat->dobj_363__OBGOTO_PREFIX.obj_hash = 448034847; + cdat->dobj_363__OBGOTO_PREFIX.obj_hash = 231005982; cdat->dobj_363__OBGOTO_PREFIX.obj_len = 4; /*inistring dstr_364__OBGOTO_PREFIX*/ @@ -5556,7 +5556,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_367__OBGOTO_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_367__OBGOTO_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_367__OBGOTO_RANK.obj_num = 2; - cdat->dobj_367__OBGOTO_RANK.obj_hash = 792054563; + cdat->dobj_367__OBGOTO_RANK.obj_hash = 439802645; cdat->dobj_367__OBGOTO_RANK.obj_len = 4; /*inistring dstr_368__OBGOTO_RANK*/ @@ -5582,7 +5582,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_371__CLASS_OBJLOOP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_371__CLASS_OBJLOOP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_371__CLASS_OBJLOOP.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_371__CLASS_OBJLOOP.obj_hash = 1022141198; + cdat->dobj_371__CLASS_OBJLOOP.obj_hash = 859617807; cdat->dobj_371__CLASS_OBJLOOP.obj_len = 8; /*inistring dstr_372__CLASS_OBJLOOP*/ @@ -5616,7 +5616,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__OBLOOP_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_377__OBLOOP_LABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__OBLOOP_LABEL.obj_num = 3; - cdat->dobj_377__OBLOOP_LABEL.obj_hash = 974516927; + cdat->dobj_377__OBLOOP_LABEL.obj_hash = 271186321; cdat->dobj_377__OBLOOP_LABEL.obj_len = 4; /*inistring dstr_378__OBLOOP_LABEL*/ @@ -5642,7 +5642,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__OBLOOP_RESV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_381__OBLOOP_RESV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_381__OBLOOP_RESV.obj_num = 4; - cdat->dobj_381__OBLOOP_RESV.obj_hash = 623233036; + cdat->dobj_381__OBLOOP_RESV.obj_hash = 968268677; cdat->dobj_381__OBLOOP_RESV.obj_len = 4; /*inistring dstr_382__OBLOOP_RESV*/ @@ -5668,7 +5668,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_385__CLASS_OBJEXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_385__CLASS_OBJEXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_385__CLASS_OBJEXIT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_385__CLASS_OBJEXIT.obj_hash = 715359985; + cdat->dobj_385__CLASS_OBJEXIT.obj_hash = 173853552; cdat->dobj_385__CLASS_OBJEXIT.obj_len = 8; /*inistring dstr_386__CLASS_OBJEXIT*/ @@ -5702,7 +5702,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__OBEXIT_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_391__OBEXIT_LABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_391__OBEXIT_LABEL.obj_num = 1; - cdat->dobj_391__OBEXIT_LABEL.obj_hash = 537027609; + cdat->dobj_391__OBEXIT_LABEL.obj_hash = 540977753; cdat->dobj_391__OBEXIT_LABEL.obj_len = 4; /*inistring dstr_392__OBEXIT_LABEL*/ @@ -5728,7 +5728,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__CLASS_OBJCITERBLOCK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_395__CLASS_OBJCITERBLOCK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_395__CLASS_OBJCITERBLOCK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_395__CLASS_OBJCITERBLOCK.obj_hash = 1042189438; + cdat->dobj_395__CLASS_OBJCITERBLOCK.obj_hash = 623233036; cdat->dobj_395__CLASS_OBJCITERBLOCK.obj_len = 8; /*inistring dstr_396__CLASS_OBJCITERBL*/ @@ -5762,7 +5762,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_401__OBCITER_CITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_401__OBCITER_CITER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_401__OBCITER_CITER.obj_num = 3; - cdat->dobj_401__OBCITER_CITER.obj_hash = 548463815; + cdat->dobj_401__OBCITER_CITER.obj_hash = 95574749; cdat->dobj_401__OBCITER_CITER.obj_len = 4; /*inistring dstr_402__OBCITER_CITER*/ @@ -5788,7 +5788,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_405__OBCITER_BEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_405__OBCITER_BEFORE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_405__OBCITER_BEFORE.obj_num = 4; - cdat->dobj_405__OBCITER_BEFORE.obj_hash = 765187659; + cdat->dobj_405__OBCITER_BEFORE.obj_hash = 801546973; cdat->dobj_405__OBCITER_BEFORE.obj_len = 4; /*inistring dstr_406__OBCITER_BEFORE*/ @@ -5814,7 +5814,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409__OBCITER_AFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_409__OBCITER_AFTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_409__OBCITER_AFTER.obj_num = 5; - cdat->dobj_409__OBCITER_AFTER.obj_hash = 469424317; + cdat->dobj_409__OBCITER_AFTER.obj_hash = 437429067; cdat->dobj_409__OBCITER_AFTER.obj_len = 4; /*inistring dstr_410__OBCITER_AFTER*/ @@ -5840,7 +5840,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_413__CLASS_OBJCOND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_413__CLASS_OBJCOND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_413__CLASS_OBJCOND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_413__CLASS_OBJCOND.obj_hash = 226182344; + cdat->dobj_413__CLASS_OBJCOND.obj_hash = 176369244; cdat->dobj_413__CLASS_OBJCOND.obj_len = 8; /*inistring dstr_414__CLASS_OBJCOND*/ @@ -5874,7 +5874,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419__OBCOND_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_419__OBCOND_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_419__OBCOND_TEST.obj_num = 1; - cdat->dobj_419__OBCOND_TEST.obj_hash = 240939363; + cdat->dobj_419__OBCOND_TEST.obj_hash = 864100829; cdat->dobj_419__OBCOND_TEST.obj_len = 4; /*inistring dstr_420__OBCOND_TEST*/ @@ -5900,7 +5900,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__OBCOND_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_423__OBCOND_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_423__OBCOND_THEN.obj_num = 2; - cdat->dobj_423__OBCOND_THEN.obj_hash = 881223595; + cdat->dobj_423__OBCOND_THEN.obj_hash = 855630275; cdat->dobj_423__OBCOND_THEN.obj_len = 4; /*inistring dstr_424__OBCOND_THEN*/ @@ -5926,7 +5926,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__OBCOND_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_427__OBCOND_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_427__OBCOND_ELSE.obj_num = 3; - cdat->dobj_427__OBCOND_ELSE.obj_hash = 514117658; + cdat->dobj_427__OBCOND_ELSE.obj_hash = 57965619; cdat->dobj_427__OBCOND_ELSE.obj_len = 4; /*inistring dstr_428__OBCOND_ELSE*/ @@ -5952,7 +5952,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_431__CLASS_OBJCPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_431__CLASS_OBJCPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_431__CLASS_OBJCPPIF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_431__CLASS_OBJCPPIF.obj_hash = 351480130; + cdat->dobj_431__CLASS_OBJCPPIF.obj_hash = 382575350; cdat->dobj_431__CLASS_OBJCPPIF.obj_len = 8; /*inistring dstr_432__CLASS_OBJCPPIF*/ @@ -5986,7 +5986,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__OBIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_437__OBIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_437__OBIFP_COND.obj_num = 1; - cdat->dobj_437__OBIFP_COND.obj_hash = 12893308; + cdat->dobj_437__OBIFP_COND.obj_hash = 709153061; cdat->dobj_437__OBIFP_COND.obj_len = 4; /*inistring dstr_438__OBIFP_COND*/ @@ -6012,7 +6012,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_441__OBIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_441__OBIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_441__OBIFP_THEN.obj_num = 2; - cdat->dobj_441__OBIFP_THEN.obj_hash = 836527048; + cdat->dobj_441__OBIFP_THEN.obj_hash = 606028909; cdat->dobj_441__OBIFP_THEN.obj_len = 4; /*inistring dstr_442__OBIFP_THEN*/ @@ -6038,7 +6038,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_445__OBIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_445__OBIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_445__OBIFP_ELSE.obj_num = 3; - cdat->dobj_445__OBIFP_ELSE.obj_hash = 965223291; + cdat->dobj_445__OBIFP_ELSE.obj_hash = 492555869; cdat->dobj_445__OBIFP_ELSE.obj_len = 4; /*inistring dstr_446__OBIFP_ELSE*/ @@ -6064,7 +6064,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_449__CLASS_OBJINTERNCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_449__CLASS_OBJINTERNCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_449__CLASS_OBJINTERNCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_449__CLASS_OBJINTERNCOMMON.obj_hash = 417449834; + cdat->dobj_449__CLASS_OBJINTERNCOMMON.obj_hash = 315823036; cdat->dobj_449__CLASS_OBJINTERNCOMMON.obj_len = 8; /*inistring dstr_450__CLASS_OBJINTERNC*/ @@ -6098,7 +6098,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__OBINTERN_IOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_455__OBINTERN_IOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_455__OBINTERN_IOBJ.obj_num = 1; - cdat->dobj_455__OBINTERN_IOBJ.obj_hash = 46015556; + cdat->dobj_455__OBINTERN_IOBJ.obj_hash = 66589502; cdat->dobj_455__OBINTERN_IOBJ.obj_len = 4; /*inistring dstr_456__OBINTERN_IOBJ*/ @@ -6124,7 +6124,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_459__CLASS_OBJINTERNSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_459__CLASS_OBJINTERNSYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_459__CLASS_OBJINTERNSYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_459__CLASS_OBJINTERNSYMBOL.obj_hash = 65621094; + cdat->dobj_459__CLASS_OBJINTERNSYMBOL.obj_hash = 965223291; cdat->dobj_459__CLASS_OBJINTERNSYMBOL.obj_len = 8; /*inistring dstr_460__CLASS_OBJINTERNS*/ @@ -6158,7 +6158,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__CLASS_OBJINTERNKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_465__CLASS_OBJINTERNKEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_465__CLASS_OBJINTERNKEYWORD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_465__CLASS_OBJINTERNKEYWORD.obj_hash = 982018684; + cdat->dobj_465__CLASS_OBJINTERNKEYWORD.obj_hash = 417449834; cdat->dobj_465__CLASS_OBJINTERNKEYWORD.obj_len = 8; /*inistring dstr_466__CLASS_OBJINTERNK*/ @@ -6192,7 +6192,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__CLASS_OBJGETNAMEDCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_471__CLASS_OBJGETNAMEDCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_471__CLASS_OBJGETNAMEDCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_471__CLASS_OBJGETNAMEDCOMMON.obj_hash = 1019975936; + cdat->dobj_471__CLASS_OBJGETNAMEDCOMMON.obj_hash = 23933065; cdat->dobj_471__CLASS_OBJGETNAMEDCOMMON.obj_len = 8; /*inistring dstr_472__CLASS_OBJGETNAME*/ @@ -6226,7 +6226,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_477__OBGNAMED_IOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_477__OBGNAMED_IOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_477__OBGNAMED_IOBJ.obj_num = 1; - cdat->dobj_477__OBGNAMED_IOBJ.obj_hash = 741809708; + cdat->dobj_477__OBGNAMED_IOBJ.obj_hash = 65621094; cdat->dobj_477__OBGNAMED_IOBJ.obj_len = 4; /*inistring dstr_478__OBGNAMED_IOBJ*/ @@ -6252,7 +6252,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__CLASS_OBJGETNAMEDSYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_481__CLASS_OBJGETNAMEDSYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_481__CLASS_OBJGETNAMEDSYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_481__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 162963910; + cdat->dobj_481__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 982018684; cdat->dobj_481__CLASS_OBJGETNAMEDSYMBOL.obj_len = 8; /*inistring dstr_482__CLASS_OBJGETNAME*/ @@ -6286,7 +6286,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__CLASS_OBJGETNAMEDKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_487__CLASS_OBJGETNAMEDKEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_487__CLASS_OBJGETNAMEDKEYWORD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_487__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 344965198; + cdat->dobj_487__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 1019975936; cdat->dobj_487__CLASS_OBJGETNAMEDKEYWORD.obj_len = 8; /*inistring dstr_488__CLASS_OBJGETNAME*/ @@ -6320,7 +6320,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_493__CLASS_OBJAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_493__CLASS_OBJAPPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_493__CLASS_OBJAPPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_493__CLASS_OBJAPPLY.obj_hash = 328895523; + cdat->dobj_493__CLASS_OBJAPPLY.obj_hash = 40122329; cdat->dobj_493__CLASS_OBJAPPLY.obj_len = 8; /*inistring dstr_494__CLASS_OBJAPPLY*/ @@ -6354,7 +6354,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__OBAPP_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_499__OBAPP_CLOS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_499__OBAPP_CLOS.obj_num = 2; - cdat->dobj_499__OBAPP_CLOS.obj_hash = 737028139; + cdat->dobj_499__OBAPP_CLOS.obj_hash = 162963910; cdat->dobj_499__OBAPP_CLOS.obj_len = 4; /*inistring dstr_500__OBAPP_CLOS*/ @@ -6380,7 +6380,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__OBAPP_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_503__OBAPP_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_503__OBAPP_ARGS.obj_num = 3; - cdat->dobj_503__OBAPP_ARGS.obj_hash = 180460371; + cdat->dobj_503__OBAPP_ARGS.obj_hash = 802566406; cdat->dobj_503__OBAPP_ARGS.obj_len = 4; /*inistring dstr_504__OBAPP_ARGS*/ @@ -6406,7 +6406,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__CLASS_OBJMULTIAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_507__CLASS_OBJMULTIAPPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_507__CLASS_OBJMULTIAPPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_507__CLASS_OBJMULTIAPPLY.obj_hash = 106449257; + cdat->dobj_507__CLASS_OBJMULTIAPPLY.obj_hash = 1037913084; cdat->dobj_507__CLASS_OBJMULTIAPPLY.obj_len = 8; /*inistring dstr_508__CLASS_OBJMULTIAP*/ @@ -6440,7 +6440,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_513__OBMULTAPP_XRES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_513__OBMULTAPP_XRES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_513__OBMULTAPP_XRES.obj_num = 4; - cdat->dobj_513__OBMULTAPP_XRES.obj_hash = 902838015; + cdat->dobj_513__OBMULTAPP_XRES.obj_hash = 615594431; cdat->dobj_513__OBMULTAPP_XRES.obj_len = 4; /*inistring dstr_514__OBMULTAPP_XRES*/ @@ -6466,7 +6466,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_517__CLASS_OBJMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_517__CLASS_OBJMSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_517__CLASS_OBJMSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_517__CLASS_OBJMSEND.obj_hash = 821113524; + cdat->dobj_517__CLASS_OBJMSEND.obj_hash = 180460371; cdat->dobj_517__CLASS_OBJMSEND.obj_len = 8; /*inistring dstr_518__CLASS_OBJMSEND*/ @@ -6500,7 +6500,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_523__OBMSND_SEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_523__OBMSND_SEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_523__OBMSND_SEL.obj_num = 2; - cdat->dobj_523__OBMSND_SEL.obj_hash = 1035250866; + cdat->dobj_523__OBMSND_SEL.obj_hash = 625399419; cdat->dobj_523__OBMSND_SEL.obj_len = 4; /*inistring dstr_524__OBMSND_SEL*/ @@ -6526,7 +6526,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_527__OBMSND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_527__OBMSND_RECV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_527__OBMSND_RECV.obj_num = 3; - cdat->dobj_527__OBMSND_RECV.obj_hash = 976881170; + cdat->dobj_527__OBMSND_RECV.obj_hash = 445677850; cdat->dobj_527__OBMSND_RECV.obj_len = 4; /*inistring dstr_528__OBMSND_RECV*/ @@ -6552,7 +6552,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_531__OBMSND_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_531__OBMSND_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_531__OBMSND_ARGS.obj_num = 4; - cdat->dobj_531__OBMSND_ARGS.obj_hash = 875032440; + cdat->dobj_531__OBMSND_ARGS.obj_hash = 765969877; cdat->dobj_531__OBMSND_ARGS.obj_len = 4; /*inistring dstr_532__OBMSND_ARGS*/ @@ -6578,7 +6578,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_535__CLASS_OBJMULTIMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_535__CLASS_OBJMULTIMSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_535__CLASS_OBJMULTIMSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_535__CLASS_OBJMULTIMSEND.obj_hash = 841436187; + cdat->dobj_535__CLASS_OBJMULTIMSEND.obj_hash = 731634062; cdat->dobj_535__CLASS_OBJMULTIMSEND.obj_len = 8; /*inistring dstr_536__CLASS_OBJMULTIMS*/ @@ -6612,7 +6612,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_541__OBMULTSND_XRES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_541__OBMULTSND_XRES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_541__OBMULTSND_XRES.obj_num = 5; - cdat->dobj_541__OBMULTSND_XRES.obj_hash = 623298759; + cdat->dobj_541__OBMULTSND_XRES.obj_hash = 720647333; cdat->dobj_541__OBMULTSND_XRES.obj_len = 4; /*inistring dstr_542__OBMULTSND_XRES*/ @@ -6638,7 +6638,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545__CLASS_OBJRAWALLOCOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_545__CLASS_OBJRAWALLOCOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_545__CLASS_OBJRAWALLOCOBJ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_545__CLASS_OBJRAWALLOCOBJ.obj_hash = 1024462228; + cdat->dobj_545__CLASS_OBJRAWALLOCOBJ.obj_hash = 875032440; cdat->dobj_545__CLASS_OBJRAWALLOCOBJ.obj_len = 8; /*inistring dstr_546__CLASS_OBJRAWALLO*/ @@ -6672,7 +6672,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_551__OBRALLOBJ_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_551__OBRALLOBJ_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_551__OBRALLOBJ_CLASS.obj_num = 2; - cdat->dobj_551__OBRALLOBJ_CLASS.obj_hash = 558269360; + cdat->dobj_551__OBRALLOBJ_CLASS.obj_hash = 1041622385; cdat->dobj_551__OBRALLOBJ_CLASS.obj_len = 4; /*inistring dstr_552__OBRALLOBJ_CLASS*/ @@ -6698,7 +6698,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__OBRALLOBJ_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_555__OBRALLOBJ_LEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_555__OBRALLOBJ_LEN.obj_num = 3; - cdat->dobj_555__OBRALLOBJ_LEN.obj_hash = 815725551; + cdat->dobj_555__OBRALLOBJ_LEN.obj_hash = 617860773; cdat->dobj_555__OBRALLOBJ_LEN.obj_len = 4; /*inistring dstr_556__OBRALLOBJ_LEN*/ @@ -6724,7 +6724,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__OBRALLOBJ_CLASSNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_559__OBRALLOBJ_CLASSNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_559__OBRALLOBJ_CLASSNAME.obj_num = 4; - cdat->dobj_559__OBRALLOBJ_CLASSNAME.obj_hash = 596558776; + cdat->dobj_559__OBRALLOBJ_CLASSNAME.obj_hash = 713941657; cdat->dobj_559__OBRALLOBJ_CLASSNAME.obj_len = 4; /*inistring dstr_560__OBRALLOBJ_CLASSN*/ @@ -6750,7 +6750,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_563__CLASS_OBJNEWCLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_563__CLASS_OBJNEWCLOSURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_563__CLASS_OBJNEWCLOSURE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_563__CLASS_OBJNEWCLOSURE.obj_hash = 65717655; + cdat->dobj_563__CLASS_OBJNEWCLOSURE.obj_hash = 1026415254; cdat->dobj_563__CLASS_OBJNEWCLOSURE.obj_len = 8; /*inistring dstr_564__CLASS_OBJNEWCLOS*/ @@ -6784,7 +6784,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569__OBNCLO_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_569__OBNCLO_DISCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_569__OBNCLO_DISCR.obj_num = 2; - cdat->dobj_569__OBNCLO_DISCR.obj_hash = 768975327; + cdat->dobj_569__OBNCLO_DISCR.obj_hash = 371554104; cdat->dobj_569__OBNCLO_DISCR.obj_len = 4; /*inistring dstr_570__OBNCLO_DISCR*/ @@ -6810,7 +6810,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_573__OBNCLO_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_573__OBNCLO_ROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_573__OBNCLO_ROUT.obj_num = 3; - cdat->dobj_573__OBNCLO_ROUT.obj_hash = 976735738; + cdat->dobj_573__OBNCLO_ROUT.obj_hash = 719149061; cdat->dobj_573__OBNCLO_ROUT.obj_len = 4; /*inistring dstr_574__OBNCLO_ROUT*/ @@ -6836,7 +6836,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__OBNCLO_LEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_577__OBNCLO_LEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_577__OBNCLO_LEN.obj_num = 4; - cdat->dobj_577__OBNCLO_LEN.obj_hash = 62674547; + cdat->dobj_577__OBNCLO_LEN.obj_hash = 994760714; cdat->dobj_577__OBNCLO_LEN.obj_len = 4; /*inistring dstr_578__OBNCLO_LEN*/ @@ -6862,7 +6862,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__CLASS_OBJPUTUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_581__CLASS_OBJPUTUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_581__CLASS_OBJPUTUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_581__CLASS_OBJPUTUPLE.obj_hash = 1027267580; + cdat->dobj_581__CLASS_OBJPUTUPLE.obj_hash = 461660332; cdat->dobj_581__CLASS_OBJPUTUPLE.obj_len = 8; /*inistring dstr_582__CLASS_OBJPUTUPLE*/ @@ -6896,7 +6896,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__OPUTU_TUPLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_587__OPUTU_TUPLED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_587__OPUTU_TUPLED.obj_num = 1; - cdat->dobj_587__OPUTU_TUPLED.obj_hash = 1058681485; + cdat->dobj_587__OPUTU_TUPLED.obj_hash = 723500503; cdat->dobj_587__OPUTU_TUPLED.obj_len = 4; /*inistring dstr_588__OPUTU_TUPLED*/ @@ -6922,7 +6922,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__OPUTU_OFFSET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_591__OPUTU_OFFSET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_591__OPUTU_OFFSET.obj_num = 2; - cdat->dobj_591__OPUTU_OFFSET.obj_hash = 1015016129; + cdat->dobj_591__OPUTU_OFFSET.obj_hash = 854634802; cdat->dobj_591__OPUTU_OFFSET.obj_len = 4; /*inistring dstr_592__OPUTU_OFFSET*/ @@ -6948,7 +6948,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__OPUTU_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_595__OPUTU_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_595__OPUTU_VALUE.obj_num = 3; - cdat->dobj_595__OPUTU_VALUE.obj_hash = 175749318; + cdat->dobj_595__OPUTU_VALUE.obj_hash = 872861604; cdat->dobj_595__OPUTU_VALUE.obj_len = 4; /*inistring dstr_596__OPUTU_VALUE*/ @@ -6974,7 +6974,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__CLASS_OBJPUTPAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_599__CLASS_OBJPUTPAIR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_599__CLASS_OBJPUTPAIR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_599__CLASS_OBJPUTPAIR.obj_hash = 571761042; + cdat->dobj_599__CLASS_OBJPUTPAIR.obj_hash = 363802973; cdat->dobj_599__CLASS_OBJPUTPAIR.obj_len = 8; /*inistring dstr_600__CLASS_OBJPUTPAIR*/ @@ -7008,7 +7008,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__OPUTP_PAIR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_605__OPUTP_PAIR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_605__OPUTP_PAIR.obj_num = 1; - cdat->dobj_605__OPUTP_PAIR.obj_hash = 1016750295; + cdat->dobj_605__OPUTP_PAIR.obj_hash = 373930464; cdat->dobj_605__OPUTP_PAIR.obj_len = 4; /*inistring dstr_606__OPUTP_PAIR*/ @@ -7034,7 +7034,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__CLASS_OBJPUTPAIRHEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_609__CLASS_OBJPUTPAIRHEAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_609__CLASS_OBJPUTPAIRHEAD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_609__CLASS_OBJPUTPAIRHEAD.obj_hash = 855131969; + cdat->dobj_609__CLASS_OBJPUTPAIRHEAD.obj_hash = 175749318; cdat->dobj_609__CLASS_OBJPUTPAIRHEAD.obj_len = 8; /*inistring dstr_610__CLASS_OBJPUTPAIR*/ @@ -7068,7 +7068,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_615__OPUTP_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_615__OPUTP_HEAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_615__OPUTP_HEAD.obj_num = 2; - cdat->dobj_615__OPUTP_HEAD.obj_hash = 888338749; + cdat->dobj_615__OPUTP_HEAD.obj_hash = 539939540; cdat->dobj_615__OPUTP_HEAD.obj_len = 4; /*inistring dstr_616__OPUTP_HEAD*/ @@ -7094,7 +7094,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__CLASS_OBJPUTPAIRTAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_619__CLASS_OBJPUTPAIRTAIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_619__CLASS_OBJPUTPAIRTAIL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_619__CLASS_OBJPUTPAIRTAIL.obj_hash = 960288796; + cdat->dobj_619__CLASS_OBJPUTPAIRTAIL.obj_hash = 1016750295; cdat->dobj_619__CLASS_OBJPUTPAIRTAIL.obj_len = 8; /*inistring dstr_620__CLASS_OBJPUTPAIR*/ @@ -7128,7 +7128,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__OPUTP_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_625__OPUTP_TAIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__OPUTP_TAIL.obj_num = 2; - cdat->dobj_625__OPUTP_TAIL.obj_hash = 527866982; + cdat->dobj_625__OPUTP_TAIL.obj_hash = 724623080; cdat->dobj_625__OPUTP_TAIL.obj_len = 4; /*inistring dstr_626__OPUTP_TAIL*/ @@ -7154,7 +7154,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__CLASS_OBJPUTLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__CLASS_OBJPUTLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_629__CLASS_OBJPUTLIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_629__CLASS_OBJPUTLIST.obj_hash = 680926044; + cdat->dobj_629__CLASS_OBJPUTLIST.obj_hash = 888338749; cdat->dobj_629__CLASS_OBJPUTLIST.obj_len = 8; /*inistring dstr_630__CLASS_OBJPUTLIST*/ @@ -7188,7 +7188,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_635__OPUTL_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_635__OPUTL_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_635__OPUTL_LIST.obj_num = 1; - cdat->dobj_635__OPUTL_LIST.obj_hash = 319272274; + cdat->dobj_635__OPUTL_LIST.obj_hash = 915435825; cdat->dobj_635__OPUTL_LIST.obj_len = 4; /*inistring dstr_636__OPUTL_LIST*/ @@ -7214,7 +7214,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__OPUTL_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_639__OPUTL_FIRST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__OPUTL_FIRST.obj_num = 2; - cdat->dobj_639__OPUTL_FIRST.obj_hash = 428780344; + cdat->dobj_639__OPUTL_FIRST.obj_hash = 994795639; cdat->dobj_639__OPUTL_FIRST.obj_len = 4; /*inistring dstr_640__OPUTL_FIRST*/ @@ -7240,7 +7240,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__OPUTL_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_643__OPUTL_LAST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_643__OPUTL_LAST.obj_num = 3; - cdat->dobj_643__OPUTL_LAST.obj_hash = 371719243; + cdat->dobj_643__OPUTL_LAST.obj_hash = 353422148; cdat->dobj_643__OPUTL_LAST.obj_len = 4; /*inistring dstr_644__OPUTL_LAST*/ @@ -7266,7 +7266,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__CLASS_OBJPUTSLOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_647__CLASS_OBJPUTSLOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_647__CLASS_OBJPUTSLOT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_647__CLASS_OBJPUTSLOT.obj_hash = 322018555; + cdat->dobj_647__CLASS_OBJPUTSLOT.obj_hash = 51482101; cdat->dobj_647__CLASS_OBJPUTSLOT.obj_len = 8; /*inistring dstr_648__CLASS_OBJPUTSLOT*/ @@ -7300,7 +7300,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__OSLOT_ODATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_653__OSLOT_ODATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_653__OSLOT_ODATA.obj_num = 1; - cdat->dobj_653__OSLOT_ODATA.obj_hash = 589263548; + cdat->dobj_653__OSLOT_ODATA.obj_hash = 24717138; cdat->dobj_653__OSLOT_ODATA.obj_len = 4; /*inistring dstr_654__OSLOT_ODATA*/ @@ -7326,7 +7326,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__OSLOT_OFFSET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_657__OSLOT_OFFSET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_657__OSLOT_OFFSET.obj_num = 2; - cdat->dobj_657__OSLOT_OFFSET.obj_hash = 759108251; + cdat->dobj_657__OSLOT_OFFSET.obj_hash = 324764122; cdat->dobj_657__OSLOT_OFFSET.obj_len = 4; /*inistring dstr_658__OSLOT_OFFSET*/ @@ -7352,7 +7352,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_661__OSLOT_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_661__OSLOT_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_661__OSLOT_FIELD.obj_num = 3; - cdat->dobj_661__OSLOT_FIELD.obj_hash = 694420034; + cdat->dobj_661__OSLOT_FIELD.obj_hash = 405773548; cdat->dobj_661__OSLOT_FIELD.obj_len = 4; /*inistring dstr_662__OSLOT_FIELD*/ @@ -7378,7 +7378,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_665__OSLOT_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_665__OSLOT_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_665__OSLOT_VALUE.obj_num = 4; - cdat->dobj_665__OSLOT_VALUE.obj_hash = 465263337; + cdat->dobj_665__OSLOT_VALUE.obj_hash = 322018555; cdat->dobj_665__OSLOT_VALUE.obj_len = 4; /*inistring dstr_666__OSLOT_VALUE*/ @@ -7404,7 +7404,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_669__CLASS_OBJGETSLOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_669__CLASS_OBJGETSLOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_669__CLASS_OBJGETSLOT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_669__CLASS_OBJGETSLOT.obj_hash = 802798203; + cdat->dobj_669__CLASS_OBJGETSLOT.obj_hash = 926216645; cdat->dobj_669__CLASS_OBJGETSLOT.obj_len = 8; /*inistring dstr_670__CLASS_OBJGETSLOT*/ @@ -7438,7 +7438,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_675__OGETSL_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_675__OGETSL_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_675__OGETSL_OBJ.obj_num = 2; - cdat->dobj_675__OGETSL_OBJ.obj_hash = 312290112; + cdat->dobj_675__OGETSL_OBJ.obj_hash = 572446810; cdat->dobj_675__OGETSL_OBJ.obj_len = 4; /*inistring dstr_676__OGETSL_OBJ*/ @@ -7464,7 +7464,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__OGETSL_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_679__OGETSL_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_679__OGETSL_FIELD.obj_num = 3; - cdat->dobj_679__OGETSL_FIELD.obj_hash = 46630208; + cdat->dobj_679__OGETSL_FIELD.obj_hash = 588503896; cdat->dobj_679__OGETSL_FIELD.obj_len = 4; /*inistring dstr_680__OGETSL_FIELD*/ @@ -7490,7 +7490,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__CLASS_OBJPUTCLOSUROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_683__CLASS_OBJPUTCLOSUROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_683__CLASS_OBJPUTCLOSUROUT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_683__CLASS_OBJPUTCLOSUROUT.obj_hash = 18109413; + cdat->dobj_683__CLASS_OBJPUTCLOSUROUT.obj_hash = 549334400; cdat->dobj_683__CLASS_OBJPUTCLOSUROUT.obj_len = 8; /*inistring dstr_684__CLASS_OBJPUTCLOS*/ @@ -7524,7 +7524,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__OPCLOR_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_689__OPCLOR_CLOS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_689__OPCLOR_CLOS.obj_num = 1; - cdat->dobj_689__OPCLOR_CLOS.obj_hash = 370184471; + cdat->dobj_689__OPCLOR_CLOS.obj_hash = 560201906; cdat->dobj_689__OPCLOR_CLOS.obj_len = 4; /*inistring dstr_690__OPCLOR_CLOS*/ @@ -7550,7 +7550,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_693__OPCLOR_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_693__OPCLOR_ROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_693__OPCLOR_ROUT.obj_num = 2; - cdat->dobj_693__OPCLOR_ROUT.obj_hash = 151369805; + cdat->dobj_693__OPCLOR_ROUT.obj_hash = 416461053; cdat->dobj_693__OPCLOR_ROUT.obj_len = 4; /*inistring dstr_694__OPCLOR_ROUT*/ @@ -7576,7 +7576,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_697__CLASS_OBJPUTCLOSEDV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_697__CLASS_OBJPUTCLOSEDV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_697__CLASS_OBJPUTCLOSEDV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_697__CLASS_OBJPUTCLOSEDV.obj_hash = 960769823; + cdat->dobj_697__CLASS_OBJPUTCLOSEDV.obj_hash = 797622857; cdat->dobj_697__CLASS_OBJPUTCLOSEDV.obj_len = 8; /*inistring dstr_698__CLASS_OBJPUTCLOS*/ @@ -7610,7 +7610,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__OPCLOV_CLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_703__OPCLOV_CLOS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_703__OPCLOV_CLOS.obj_num = 1; - cdat->dobj_703__OPCLOV_CLOS.obj_hash = 14438017; + cdat->dobj_703__OPCLOV_CLOS.obj_hash = 709851956; cdat->dobj_703__OPCLOV_CLOS.obj_len = 4; /*inistring dstr_704__OPCLOV_CLOS*/ @@ -7636,7 +7636,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__OPCLOV_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_707__OPCLOV_OFF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_707__OPCLOV_OFF.obj_num = 2; - cdat->dobj_707__OPCLOV_OFF.obj_hash = 116993343; + cdat->dobj_707__OPCLOV_OFF.obj_hash = 367902167; cdat->dobj_707__OPCLOV_OFF.obj_len = 4; /*inistring dstr_708__OPCLOV_OFF*/ @@ -7662,7 +7662,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_711__OPCLOV_CVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_711__OPCLOV_CVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_711__OPCLOV_CVAL.obj_num = 3; - cdat->dobj_711__OPCLOV_CVAL.obj_hash = 1036088169; + cdat->dobj_711__OPCLOV_CVAL.obj_hash = 873340281; cdat->dobj_711__OPCLOV_CVAL.obj_len = 4; /*inistring dstr_712__OPCLOV_CVAL*/ @@ -7688,7 +7688,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 386865115; + cdat->dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 708357525; cdat->dobj_715__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 8; /*inistring dstr_716__CLASS_OBJPUTCLOS*/ @@ -7722,7 +7722,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__CLASS_OBJPUTROUTCONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_721__CLASS_OBJPUTROUTCONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_721__CLASS_OBJPUTROUTCONST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_721__CLASS_OBJPUTROUTCONST.obj_hash = 747399720; + cdat->dobj_721__CLASS_OBJPUTROUTCONST.obj_hash = 116993343; cdat->dobj_721__CLASS_OBJPUTROUTCONST.obj_len = 8; /*inistring dstr_722__CLASS_OBJPUTROUT*/ @@ -7756,7 +7756,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__OPRCONST_ROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_727__OPRCONST_ROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_727__OPRCONST_ROUT.obj_num = 1; - cdat->dobj_727__OPRCONST_ROUT.obj_hash = 778370578; + cdat->dobj_727__OPRCONST_ROUT.obj_hash = 1036088169; cdat->dobj_727__OPRCONST_ROUT.obj_len = 4; /*inistring dstr_728__OPRCONST_ROUT*/ @@ -7782,7 +7782,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__OPRCONST_OFF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_731__OPRCONST_OFF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__OPRCONST_OFF.obj_num = 2; - cdat->dobj_731__OPRCONST_OFF.obj_hash = 693380880; + cdat->dobj_731__OPRCONST_OFF.obj_hash = 12715817; cdat->dobj_731__OPRCONST_OFF.obj_len = 4; /*inistring dstr_732__OPRCONST_OFF*/ @@ -7808,7 +7808,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__OPRCONST_CVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_735__OPRCONST_CVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_735__OPRCONST_CVAL.obj_num = 3; - cdat->dobj_735__OPRCONST_CVAL.obj_hash = 799598149; + cdat->dobj_735__OPRCONST_CVAL.obj_hash = 400560368; cdat->dobj_735__OPRCONST_CVAL.obj_len = 4; /*inistring dstr_736__OPRCONST_CVAL*/ @@ -7834,7 +7834,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 55783366; + cdat->dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 687216957; cdat->dobj_739__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 8; /*inistring dstr_740__CLASS_OBJPUTROUT*/ @@ -7868,7 +7868,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__CLASS_OBJTOUCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_745__CLASS_OBJTOUCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_745__CLASS_OBJTOUCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_745__CLASS_OBJTOUCH.obj_hash = 923699433; + cdat->dobj_745__CLASS_OBJTOUCH.obj_hash = 693380880; cdat->dobj_745__CLASS_OBJTOUCH.obj_len = 8; /*inistring dstr_746__CLASS_OBJTOUCH*/ @@ -7902,7 +7902,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__OTOUCH_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_751__OTOUCH_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_751__OTOUCH_VAL.obj_num = 1; - cdat->dobj_751__OTOUCH_VAL.obj_hash = 836445890; + cdat->dobj_751__OTOUCH_VAL.obj_hash = 799598149; cdat->dobj_751__OTOUCH_VAL.obj_len = 4; /*inistring dstr_752__OTOUCH_VAL*/ @@ -7928,7 +7928,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__OTOUCH_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_755__OTOUCH_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_755__OTOUCH_COMMENT.obj_num = 2; - cdat->dobj_755__OTOUCH_COMMENT.obj_hash = 1035224156; + cdat->dobj_755__OTOUCH_COMMENT.obj_hash = 246931462; cdat->dobj_755__OTOUCH_COMMENT.obj_len = 4; /*inistring dstr_756__OTOUCH_COMMENT*/ @@ -7954,7 +7954,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_759__CLASS_OBJSETPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_759__CLASS_OBJSETPREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_759__CLASS_OBJSETPREDEF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_759__CLASS_OBJSETPREDEF.obj_hash = 21271755; + cdat->dobj_759__CLASS_OBJSETPREDEF.obj_hash = 937701457; cdat->dobj_759__CLASS_OBJSETPREDEF.obj_len = 8; /*inistring dstr_760__CLASS_OBJSETPRED*/ @@ -7988,7 +7988,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__OSPR_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_765__OSPR_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_765__OSPR_OBJECT.obj_num = 1; - cdat->dobj_765__OSPR_OBJECT.obj_hash = 150313703; + cdat->dobj_765__OSPR_OBJECT.obj_hash = 204272900; cdat->dobj_765__OSPR_OBJECT.obj_len = 4; /*inistring dstr_766__OSPR_OBJECT*/ @@ -8014,7 +8014,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769__OSPR_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_769__OSPR_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_769__OSPR_PREDEF.obj_num = 2; - cdat->dobj_769__OSPR_PREDEF.obj_hash = 1029433742; + cdat->dobj_769__OSPR_PREDEF.obj_hash = 733688417; cdat->dobj_769__OSPR_PREDEF.obj_len = 4; /*inistring dstr_770__OSPR_PREDEF*/ @@ -8052,7 +8052,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__CLASS_ROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_775__CLASS_ROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_ROUTINEOBJ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_775__CLASS_ROUTINEOBJ.obj_hash = 114179253; + cdat->dobj_775__CLASS_ROUTINEOBJ.obj_hash = 580539157; cdat->dobj_775__CLASS_ROUTINEOBJ.obj_len = 8; /*inistring dstr_776__CLASS_ROUTINEOBJ*/ @@ -8086,7 +8086,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__OBROUT_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_781__OBROUT_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_781__OBROUT_PROC.obj_num = 2; - cdat->dobj_781__OBROUT_PROC.obj_hash = 936692049; + cdat->dobj_781__OBROUT_PROC.obj_hash = 199477106; cdat->dobj_781__OBROUT_PROC.obj_len = 4; /*inistring dstr_782__OBROUT_PROC*/ @@ -8112,7 +8112,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__OBROUT_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_785__OBROUT_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_785__OBROUT_BODY.obj_num = 3; - cdat->dobj_785__OBROUT_BODY.obj_hash = 939243542; + cdat->dobj_785__OBROUT_BODY.obj_hash = 41006177; cdat->dobj_785__OBROUT_BODY.obj_len = 4; /*inistring dstr_786__OBROUT_BODY*/ @@ -8138,7 +8138,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__OBROUT_NBVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_789__OBROUT_NBVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_789__OBROUT_NBVAL.obj_num = 4; - cdat->dobj_789__OBROUT_NBVAL.obj_hash = 618173475; + cdat->dobj_789__OBROUT_NBVAL.obj_hash = 106565108; cdat->dobj_789__OBROUT_NBVAL.obj_len = 4; /*inistring dstr_790__OBROUT_NBVAL*/ @@ -8164,7 +8164,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_793__OBROUT_NBLONG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_793__OBROUT_NBLONG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_793__OBROUT_NBLONG.obj_num = 5; - cdat->dobj_793__OBROUT_NBLONG.obj_hash = 657675286; + cdat->dobj_793__OBROUT_NBLONG.obj_hash = 114179253; cdat->dobj_793__OBROUT_NBLONG.obj_len = 4; /*inistring dstr_794__OBROUT_NBLONG*/ @@ -8190,7 +8190,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_797__OBROUT_OTHERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_797__OBROUT_OTHERS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_797__OBROUT_OTHERS.obj_num = 6; - cdat->dobj_797__OBROUT_OTHERS.obj_hash = 716346458; + cdat->dobj_797__OBROUT_OTHERS.obj_hash = 936692049; cdat->dobj_797__OBROUT_OTHERS.obj_len = 4; /*inistring dstr_798__OBROUT_OTHERS*/ @@ -8216,7 +8216,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_801__OBROUT_RETVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_801__OBROUT_RETVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_801__OBROUT_RETVAL.obj_num = 7; - cdat->dobj_801__OBROUT_RETVAL.obj_hash = 240961295; + cdat->dobj_801__OBROUT_RETVAL.obj_hash = 939243542; cdat->dobj_801__OBROUT_RETVAL.obj_len = 4; /*inistring dstr_802__OBROUT_RETVAL*/ @@ -8242,7 +8242,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_805__OBROUT_CNTCITER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_805__OBROUT_CNTCITER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_805__OBROUT_CNTCITER.obj_num = 8; - cdat->dobj_805__OBROUT_CNTCITER.obj_hash = 251254279; + cdat->dobj_805__OBROUT_CNTCITER.obj_hash = 618173475; cdat->dobj_805__OBROUT_CNTCITER.obj_len = 4; /*inistring dstr_806__OBROUT_CNTCITER*/ @@ -8268,7 +8268,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__OBROUT_CNTLETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_809__OBROUT_CNTLETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_809__OBROUT_CNTLETREC.obj_num = 9; - cdat->dobj_809__OBROUT_CNTLETREC.obj_hash = 224948477; + cdat->dobj_809__OBROUT_CNTLETREC.obj_hash = 657675286; cdat->dobj_809__OBROUT_CNTLETREC.obj_len = 4; /*inistring dstr_810__OBROUT_CNTLETREC*/ @@ -8294,7 +8294,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__CLASS_PROCROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_813__CLASS_PROCROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_813__CLASS_PROCROUTINEOBJ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_813__CLASS_PROCROUTINEOBJ.obj_hash = 888768285; + cdat->dobj_813__CLASS_PROCROUTINEOBJ.obj_hash = 348154669; cdat->dobj_813__CLASS_PROCROUTINEOBJ.obj_len = 8; /*inistring dstr_814__CLASS_PROCROUTIN*/ @@ -8328,7 +8328,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_819__OPROUT_GETARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_819__OPROUT_GETARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_819__OPROUT_GETARGS.obj_num = 10; - cdat->dobj_819__OPROUT_GETARGS.obj_hash = 587230857; + cdat->dobj_819__OPROUT_GETARGS.obj_hash = 919354513; cdat->dobj_819__OPROUT_GETARGS.obj_len = 4; /*inistring dstr_820__OPROUT_GETARGS*/ @@ -8354,7 +8354,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_823__OPROUT_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_823__OPROUT_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_823__OPROUT_LOC.obj_num = 11; - cdat->dobj_823__OPROUT_LOC.obj_hash = 121736125; + cdat->dobj_823__OPROUT_LOC.obj_hash = 1055393658; cdat->dobj_823__OPROUT_LOC.obj_len = 4; /*inistring dstr_824__OPROUT_LOC*/ @@ -8380,7 +8380,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__OPROUT_FUNAM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_827__OPROUT_FUNAM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_827__OPROUT_FUNAM.obj_num = 12; - cdat->dobj_827__OPROUT_FUNAM.obj_hash = 790051474; + cdat->dobj_827__OPROUT_FUNAM.obj_hash = 701276038; cdat->dobj_827__OPROUT_FUNAM.obj_len = 4; /*inistring dstr_828__OPROUT_FUNAM*/ @@ -8406,7 +8406,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_831__OPROUT_FILENUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_831__OPROUT_FILENUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_831__OPROUT_FILENUM.obj_num = 13; - cdat->dobj_831__OPROUT_FILENUM.obj_hash = 497748844; + cdat->dobj_831__OPROUT_FILENUM.obj_hash = 888768285; cdat->dobj_831__OPROUT_FILENUM.obj_len = 4; /*inistring dstr_832__OPROUT_FILENUM*/ @@ -8432,7 +8432,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835__CLASS_INITIALROUTINEOBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_835__CLASS_INITIALROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_835__CLASS_INITIALROUTINEOBJ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_835__CLASS_INITIALROUTINEOBJ.obj_hash = 1070142430; + cdat->dobj_835__CLASS_INITIALROUTINEOBJ.obj_hash = 736094666; cdat->dobj_835__CLASS_INITIALROUTINEOBJ.obj_len = 8; /*inistring dstr_836__CLASS_INITIALROU*/ @@ -8466,7 +8466,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841__OIROUT_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_841__OIROUT_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_841__OIROUT_DATA.obj_num = 10; - cdat->dobj_841__OIROUT_DATA.obj_hash = 654006057; + cdat->dobj_841__OIROUT_DATA.obj_hash = 483672646; cdat->dobj_841__OIROUT_DATA.obj_len = 4; /*inistring dstr_842__OIROUT_DATA*/ @@ -8492,7 +8492,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_845__OIROUT_PROLOG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_845__OIROUT_PROLOG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_845__OIROUT_PROLOG.obj_num = 11; - cdat->dobj_845__OIROUT_PROLOG.obj_hash = 550202961; + cdat->dobj_845__OIROUT_PROLOG.obj_hash = 144393343; cdat->dobj_845__OIROUT_PROLOG.obj_len = 4; /*inistring dstr_846__OIROUT_PROLOG*/ @@ -8518,7 +8518,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849__OIROUT_FILL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_849__OIROUT_FILL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_849__OIROUT_FILL.obj_num = 12; - cdat->dobj_849__OIROUT_FILL.obj_hash = 238735627; + cdat->dobj_849__OIROUT_FILL.obj_hash = 548548651; cdat->dobj_849__OIROUT_FILL.obj_len = 4; /*inistring dstr_850__OIROUT_FILL*/ @@ -8544,7 +8544,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853__OIROUT_MODULENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_853__OIROUT_MODULENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_853__OIROUT_MODULENAME.obj_num = 13; - cdat->dobj_853__OIROUT_MODULENAME.obj_hash = 923240000; + cdat->dobj_853__OIROUT_MODULENAME.obj_hash = 1070142430; cdat->dobj_853__OIROUT_MODULENAME.obj_len = 4; /*inistring dstr_854__OIROUT_MODULENAM*/ @@ -8606,7 +8606,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_863", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_863.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_863.obj_num = 0; - cdat->dobj_863.obj_hash = 220312671; + cdat->dobj_863.obj_hash = 765423367; cdat->dobj_863.obj_len = 2; /*iniobj dsym_864__SBUF*/ @@ -8628,7 +8628,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_866", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_866.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_866.obj_num = 1; - cdat->dobj_866.obj_hash = 219016851; + cdat->dobj_866.obj_hash = 220312671; cdat->dobj_866.obj_len = 2; /*inimult dtup_867__OUTPUT_C_DECLINIT*/ @@ -8641,7 +8641,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_868__OUTPUT_C_DECLINIT", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_868__OUTPUT_C_DECLINIT", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_868__OUTPUT_C_DECLINIT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_868__OUTPUT_C_DECLINIT.obj_hash = 795292103; + cdat->dobj_868__OUTPUT_C_DECLINIT.obj_hash = 200249957; cdat->dobj_868__OUTPUT_C_DECLINIT.obj_len = 4; /*inistring dstr_869__OUTPUT_C_DECLINI*/ @@ -8666,7 +8666,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_872__PUT_OBJDEST", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_872__PUT_OBJDEST", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_872__PUT_OBJDEST.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_872__PUT_OBJDEST.obj_hash = 481322462; + cdat->dobj_872__PUT_OBJDEST.obj_hash = 174240859; cdat->dobj_872__PUT_OBJDEST.obj_len = 4; /*inistring dstr_873__PUT_OBJDEST*/ @@ -8692,7 +8692,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_876", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_876.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_876.obj_num = 0; - cdat->dobj_876.obj_hash = 246229562; + cdat->dobj_876.obj_hash = 719993856; cdat->dobj_876.obj_len = 2; /*iniobj dsym_877__DECLBUF*/ @@ -8714,7 +8714,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_879", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_879.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_879.obj_num = 1; - cdat->dobj_879.obj_hash = 803601005; + cdat->dobj_879.obj_hash = 124771463; cdat->dobj_879.obj_len = 2; /*iniobj dsym_880__IMPLBUF*/ @@ -8736,7 +8736,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_882", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_882.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_882.obj_num = 2; - cdat->dobj_882.obj_hash = 348240456; + cdat->dobj_882.obj_hash = 803601005; cdat->dobj_882.obj_len = 2; /*iniobj dsym_883__DEPTH*/ @@ -8758,7 +8758,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_885.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_885.obj_num = 3; - cdat->dobj_885.obj_hash = 319736719; + cdat->dobj_885.obj_hash = 348240456; cdat->dobj_885.obj_len = 2; /*inimult dtup_886__OUTPUT_C_CODE*/ @@ -8771,7 +8771,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_887__OUTPUT_C_CODE", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_887__OUTPUT_C_CODE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_887__OUTPUT_C_CODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_887__OUTPUT_C_CODE.obj_hash = 375228594; + cdat->dobj_887__OUTPUT_C_CODE.obj_hash = 481322462; cdat->dobj_887__OUTPUT_C_CODE.obj_len = 4; /*inistring dstr_888__OUTPUT_C_CODE*/ @@ -8797,7 +8797,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_891", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_891.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_891.obj_num = 0; - cdat->dobj_891.obj_hash = 194141776; + cdat->dobj_891.obj_hash = 852556651; cdat->dobj_891.obj_len = 2; /*^iniobj*/ @@ -8807,7 +8807,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_892", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_892.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_892.obj_num = 1; - cdat->dobj_892.obj_hash = 1015732797; + cdat->dobj_892.obj_hash = 1049310901; cdat->dobj_892.obj_len = 2; /*iniobj dsym_893__PTRSTR*/ @@ -8829,7 +8829,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_895", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_895.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_895.obj_num = 2; - cdat->dobj_895.obj_hash = 926280203; + cdat->dobj_895.obj_hash = 194141776; cdat->dobj_895.obj_len = 2; /*^iniobj*/ @@ -8839,7 +8839,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_896", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_896.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_896.obj_num = 3; - cdat->dobj_896.obj_hash = 32040823; + cdat->dobj_896.obj_hash = 926280203; cdat->dobj_896.obj_len = 2; /*inimult dtup_897__OUTPUT_C_INITIAL_FILL*/ @@ -8852,7 +8852,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_898__OUTPUT_C_INITIAL_FILL", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_898__OUTPUT_C_INITIAL_FILL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_898__OUTPUT_C_INITIAL_FILL.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_898__OUTPUT_C_INITIAL_FILL.obj_hash = 319674295; + cdat->dobj_898__OUTPUT_C_INITIAL_FILL.obj_hash = 379347098; cdat->dobj_898__OUTPUT_C_INITIAL_FILL.obj_len = 4; /*inistring dstr_899__OUTPUT_C_INITIAL*/ @@ -8878,7 +8878,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_902", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_902.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_902.obj_num = 0; - cdat->dobj_902.obj_hash = 267893615; + cdat->dobj_902.obj_hash = 830092876; cdat->dobj_902.obj_len = 2; /*^iniobj*/ @@ -8888,7 +8888,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_903", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_903.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_903.obj_num = 1; - cdat->dobj_903.obj_hash = 394338181; + cdat->dobj_903.obj_hash = 257953622; cdat->dobj_903.obj_len = 2; /*iniobj dsym_904__PRTRSTR*/ @@ -8910,7 +8910,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_906", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_906.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_906.obj_num = 2; - cdat->dobj_906.obj_hash = 408761806; + cdat->dobj_906.obj_hash = 267893615; cdat->dobj_906.obj_len = 2; /*^iniobj*/ @@ -8920,7 +8920,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_907", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_907.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_907.obj_num = 3; - cdat->dobj_907.obj_hash = 476710702; + cdat->dobj_907.obj_hash = 408761806; cdat->dobj_907.obj_len = 2; /*inimult dtup_908__OUTPUT_C_INITIAL_PREDEF*/ @@ -8933,7 +8933,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_909__OUTPUT_C_INITIAL_PREDEF", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_909__OUTPUT_C_INITIAL_PREDEF", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_909__OUTPUT_C_INITIAL_PREDEF.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_909__OUTPUT_C_INITIAL_PREDEF.obj_hash = 908898727; + cdat->dobj_909__OUTPUT_C_INITIAL_PREDEF.obj_hash = 28331904; cdat->dobj_909__OUTPUT_C_INITIAL_PREDEF.obj_len = 4; /*inistring dstr_910__OUTPUT_C_INITIAL*/ @@ -9392,7 +9392,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_985__INITIALSYSTEMDATA_OBJPREDEF", melt_magic_discr (/*_.VALDATA___V194*/ meltfptr[193]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_985__INITIALSYSTEMDATA_OBJPREDEF", ((meltobject_ptr_t) (/*_.VALDATA___V194*/ meltfptr[193]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_985__INITIALSYSTEMDATA_OBJPREDEF.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193]); - cdat->dobj_985__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 787765801; + cdat->dobj_985__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 911278129; cdat->dobj_985__INITIALSYSTEMDATA_OBJPREDEF.obj_len = 2; /*iniobj dsym_986__INITIAL_SYSTEM_DATA*/ @@ -10277,7 +10277,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1130", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1130.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1130.obj_num = 0; - cdat->dobj_1130.obj_hash = 1005622292; + cdat->dobj_1130.obj_hash = 276082775; cdat->dobj_1130.obj_len = 2; /*iniobj dsym_1131__OBVA*/ @@ -10299,7 +10299,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1133", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1133.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1133.obj_num = 1; - cdat->dobj_1133.obj_hash = 128567301; + cdat->dobj_1133.obj_hash = 810624098; cdat->dobj_1133.obj_len = 2; /*iniobj dsym_1134__OBODL*/ @@ -10321,7 +10321,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1136", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1136.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1136.obj_num = 2; - cdat->dobj_1136.obj_hash = 94821770; + cdat->dobj_1136.obj_hash = 128567301; cdat->dobj_1136.obj_len = 2; /*iniobj dsym_1137__GCX*/ @@ -10343,7 +10343,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1139", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1139.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1139.obj_num = 3; - cdat->dobj_1139.obj_hash = 851860799; + cdat->dobj_1139.obj_hash = 94821770; cdat->dobj_1139.obj_len = 2; /*iniobj dsym_1140__SLOC*/ @@ -10365,7 +10365,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1142", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1142.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1142.obj_num = 4; - cdat->dobj_1142.obj_hash = 962431682; + cdat->dobj_1142.obj_hash = 851860799; cdat->dobj_1142.obj_len = 2; /*inimult dtup_1143__COMPILE_LETREC_FILL*/ @@ -10378,7 +10378,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1144__COMPILE_LETREC_FILL", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1144__COMPILE_LETREC_FILL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1144__COMPILE_LETREC_FILL.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1144__COMPILE_LETREC_FILL.obj_hash = 812281119; + cdat->dobj_1144__COMPILE_LETREC_FILL.obj_hash = 616076373; cdat->dobj_1144__COMPILE_LETREC_FILL.obj_len = 4; /*inistring dstr_1145__COMPILE_LETREC_F*/ @@ -11445,7 +11445,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1318__DISCRCLOSURE_OBJPREDEF", melt_magic_discr (/*_.VALDATA___V194*/ meltfptr[193]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1318__DISCRCLOSURE_OBJPREDEF", ((meltobject_ptr_t) (/*_.VALDATA___V194*/ meltfptr[193]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1318__DISCRCLOSURE_OBJPREDEF.meltobj_class = (meltobject_ptr_t)(/*_.VALDATA___V194*/ meltfptr[193]); - cdat->dobj_1318__DISCRCLOSURE_OBJPREDEF.obj_hash = 652850246; + cdat->dobj_1318__DISCRCLOSURE_OBJPREDEF.obj_hash = 1052522786; cdat->dobj_1318__DISCRCLOSURE_OBJPREDEF.obj_len = 2; /*iniobj dsym_1319__DISCR_CLOSURE*/ @@ -12062,7 +12062,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1419__COMPILE_MATCHER", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1419__COMPILE_MATCHER", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1419__COMPILE_MATCHER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1419__COMPILE_MATCHER.obj_hash = 582717304; + cdat->dobj_1419__COMPILE_MATCHER.obj_hash = 72665380; cdat->dobj_1419__COMPILE_MATCHER.obj_len = 4; /*inistring dstr_1420__COMPILE_MATCHER*/ @@ -12100,7 +12100,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1425__CLASS_MATCHCOMPILCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1425__CLASS_MATCHCOMPILCONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1425__CLASS_MATCHCOMPILCONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1425__CLASS_MATCHCOMPILCONTEXT.obj_hash = 15736675; + cdat->dobj_1425__CLASS_MATCHCOMPILCONTEXT.obj_hash = 980160015; cdat->dobj_1425__CLASS_MATCHCOMPILCONTEXT.obj_len = 8; /*inistring dstr_1426__CLASS_MATCHCOMPI*/ @@ -12134,7 +12134,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1431__MCX_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1431__MCX_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1431__MCX_LOC.obj_num = 1; - cdat->dobj_1431__MCX_LOC.obj_hash = 790303020; + cdat->dobj_1431__MCX_LOC.obj_hash = 291592383; cdat->dobj_1431__MCX_LOC.obj_len = 4; /*inistring dstr_1432__MCX_LOC*/ @@ -12160,7 +12160,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1435__MCX_NORMTESTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1435__MCX_NORMTESTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1435__MCX_NORMTESTER.obj_num = 2; - cdat->dobj_1435__MCX_NORMTESTER.obj_hash = 140542998; + cdat->dobj_1435__MCX_NORMTESTER.obj_hash = 335419696; cdat->dobj_1435__MCX_NORMTESTER.obj_len = 4; /*inistring dstr_1436__MCX_NORMTESTER*/ @@ -12186,7 +12186,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1439__MCX_GOTOTHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1439__MCX_GOTOTHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1439__MCX_GOTOTHEN.obj_num = 3; - cdat->dobj_1439__MCX_GOTOTHEN.obj_hash = 319922586; + cdat->dobj_1439__MCX_GOTOTHEN.obj_hash = 211501097; cdat->dobj_1439__MCX_GOTOTHEN.obj_len = 4; /*inistring dstr_1440__MCX_GOTOTHEN*/ @@ -12212,7 +12212,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1443__MCX_GOTOELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1443__MCX_GOTOELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1443__MCX_GOTOELSE.obj_num = 4; - cdat->dobj_1443__MCX_GOTOELSE.obj_hash = 78576431; + cdat->dobj_1443__MCX_GOTOELSE.obj_hash = 15736675; cdat->dobj_1443__MCX_GOTOELSE.obj_len = 4; /*inistring dstr_1444__MCX_GOTOELSE*/ @@ -12238,7 +12238,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1447__MCX_OLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1447__MCX_OLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1447__MCX_OLIST.obj_num = 5; - cdat->dobj_1447__MCX_OLIST.obj_hash = 56262400; + cdat->dobj_1447__MCX_OLIST.obj_hash = 790303020; cdat->dobj_1447__MCX_OLIST.obj_len = 4; /*inistring dstr_1448__MCX_OLIST*/ @@ -12264,7 +12264,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1451__MCX_SUFFIX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1451__MCX_SUFFIX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1451__MCX_SUFFIX.obj_num = 6; - cdat->dobj_1451__MCX_SUFFIX.obj_hash = 462017529; + cdat->dobj_1451__MCX_SUFFIX.obj_hash = 140542998; cdat->dobj_1451__MCX_SUFFIX.obj_len = 4; /*inistring dstr_1452__MCX_SUFFIX*/ @@ -12290,7 +12290,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1455__MCX_STATECOUNTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1455__MCX_STATECOUNTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1455__MCX_STATECOUNTER.obj_num = 7; - cdat->dobj_1455__MCX_STATECOUNTER.obj_hash = 496815263; + cdat->dobj_1455__MCX_STATECOUNTER.obj_hash = 319922586; cdat->dobj_1455__MCX_STATECOUNTER.obj_len = 4; /*inistring dstr_1456__MCX_STATECOUNTER*/ @@ -12315,7 +12315,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1459__COMPILE_TESTER", melt_magic_discr (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1459__COMPILE_TESTER", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V9*/ meltfptr[8]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1459__COMPILE_TESTER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ meltfptr[8]); - cdat->dobj_1459__COMPILE_TESTER.obj_hash = 340739377; + cdat->dobj_1459__COMPILE_TESTER.obj_hash = 579010812; cdat->dobj_1459__COMPILE_TESTER.obj_len = 4; /*inistring dstr_1460__COMPILE_TESTER*/ @@ -12341,7 +12341,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1463__CLASS_TESTERCOMPILCONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1463__CLASS_TESTERCOMPILCONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1463__CLASS_TESTERCOMPILCONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1463__CLASS_TESTERCOMPILCONTEXT.obj_hash = 623627330; + cdat->dobj_1463__CLASS_TESTERCOMPILCONTEXT.obj_hash = 660510204; cdat->dobj_1463__CLASS_TESTERCOMPILCONTEXT.obj_len = 8; /*inistring dstr_1464__CLASS_TESTERCOMP*/ @@ -12375,7 +12375,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1469__TCX_NRMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1469__TCX_NRMATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1469__TCX_NRMATCH.obj_num = 1; - cdat->dobj_1469__TCX_NRMATCH.obj_hash = 489483064; + cdat->dobj_1469__TCX_NRMATCH.obj_hash = 633455175; cdat->dobj_1469__TCX_NRMATCH.obj_len = 4; /*inistring dstr_1470__TCX_NRMATCH*/ @@ -12401,7 +12401,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1473__TCX_FREELIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1473__TCX_FREELIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1473__TCX_FREELIST.obj_num = 2; - cdat->dobj_1473__TCX_FREELIST.obj_hash = 582515105; + cdat->dobj_1473__TCX_FREELIST.obj_hash = 617125538; cdat->dobj_1473__TCX_FREELIST.obj_len = 4; /*inistring dstr_1474__TCX_FREELIST*/ @@ -12427,7 +12427,7 @@ static void initialize_module_meltdata_warmelt_genobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1477__TCX_NEXTEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1477__TCX_NEXTEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1477__TCX_NEXTEST.obj_num = 3; - cdat->dobj_1477__TCX_NEXTEST.obj_hash = 938770879; + cdat->dobj_1477__TCX_NEXTEST.obj_hash = 328986783; cdat->dobj_1477__TCX_NEXTEST.obj_len = 4; /*inistring dstr_1478__TCX_NEXTEST*/ @@ -12969,7 +12969,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -807; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2331; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_genobj; /**COMMENT: get previous environment **/; @@ -47522,7 +47522,7 @@ static void forward_or_mark_module_start_frame_warmelt_genobj (struct callframe_ { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -807); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2331); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_genobj forwarding %d pointers in frame %p", 1799, (void*) framptr_); for (ix = 0; ix < 1799; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-macro-0+01.c b/gcc/melt/generated/warmelt-macro-0+01.c index 87fa0c2e34d..28d47e1e391 100644 --- a/gcc/melt/generated/warmelt-macro-0+01.c +++ b/gcc/melt/generated/warmelt-macro-0+01.c @@ -199,52 +199,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -254,222 +254,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -484,17 +484,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -504,12 +504,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -519,12 +519,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -534,142 +534,137 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - - - -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -747,7 +742,7 @@ melt_trace_start("EXPAND_APPLY", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:921:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:900:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -772,17 +767,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:922:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:901:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:922:/ cond"); + MELT_LOCATION("warmelt-macro.melt:901:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:922:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:901:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -793,7 +788,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (922)?(922):__LINE__, __FUNCTION__); + (901)?(901):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -807,7 +802,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:922:/ clear"); + MELT_LOCATION("warmelt-macro.melt:901:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -819,17 +814,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:923:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:902:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:923:/ cond"); + MELT_LOCATION("warmelt-macro.melt:902:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:923:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:902:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -840,7 +835,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (923)?(923):__LINE__, __FUNCTION__); + (902)?(902):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -854,7 +849,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:923:/ clear"); + MELT_LOCATION("warmelt-macro.melt:902:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -866,17 +861,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:924:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:903:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:924:/ cond"); + MELT_LOCATION("warmelt-macro.melt:903:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:924:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:903:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -887,7 +882,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (924)?(924):__LINE__, __FUNCTION__); + (903)?(903):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -901,7 +896,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:924:/ clear"); + MELT_LOCATION("warmelt-macro.melt:903:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -911,14 +906,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:925:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:904:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:926:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:905:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ meltfptr[12] = slot; }; ; @@ -928,7 +923,7 @@ lab_endgetargs:; /*_.SOPER__V15*/ meltfptr[14] = (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:928:/ apply"); + MELT_LOCATION("warmelt-macro.melt:907:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -941,13 +936,13 @@ lab_endgetargs:; ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:929:/ cond"); + MELT_LOCATION("warmelt-macro.melt:908:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:930:/ apply"); + MELT_LOCATION("warmelt-macro.melt:909:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -961,7 +956,7 @@ lab_endgetargs:; /*_.XOPER__V17*/ meltfptr[16] = /*_.MACROEXPAND_1__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:929:/ clear"); + MELT_LOCATION("warmelt-macro.melt:908:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ meltfptr[17] = 0 ;} ; } else {/*^cond.else*/ @@ -969,7 +964,7 @@ lab_endgetargs:; /*_.XOPER__V17*/ meltfptr[16] = /*_.SOPER__V15*/ meltfptr[14];; } ; - MELT_LOCATION("warmelt-macro.melt:933:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:912:/ quasiblock"); /*^rawallocobj*/ @@ -998,7 +993,7 @@ lab_endgetargs:; /*_.LET___V11*/ meltfptr[9] = /*_.INST___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:925:/ clear"); + MELT_LOCATION("warmelt-macro.melt:904:/ clear"); /*clear*/ /*_.SCONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V13*/ meltfptr[12] = 0 ; @@ -1014,11 +1009,11 @@ lab_endgetargs:; /*clear*/ /*_.XOPER__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:921:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:900:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:921:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:900:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1095,7 +1090,7 @@ melt_trace_start("EXPAND_MSEND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:940:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:919:/ getarg"); /*_.OPNAM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1127,17 +1122,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:941:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:920:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:941:/ cond"); + MELT_LOCATION("warmelt-macro.melt:920:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:941:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:920:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1148,7 +1143,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (941)?(941):__LINE__, __FUNCTION__); + (920)?(920):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -1162,7 +1157,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:941:/ clear"); + MELT_LOCATION("warmelt-macro.melt:920:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -1174,17 +1169,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:942:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:921:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:942:/ cond"); + MELT_LOCATION("warmelt-macro.melt:921:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:942:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:921:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1195,7 +1190,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (942)?(942):__LINE__, __FUNCTION__); + (921)?(921):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -1209,7 +1204,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:942:/ clear"); + MELT_LOCATION("warmelt-macro.melt:921:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -1221,17 +1216,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:943:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:922:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:943:/ cond"); + MELT_LOCATION("warmelt-macro.melt:922:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:943:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:922:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1242,7 +1237,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (943)?(943):__LINE__, __FUNCTION__); + (922)?(922):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -1256,7 +1251,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:943:/ clear"); + MELT_LOCATION("warmelt-macro.melt:922:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -1268,17 +1263,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:944:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:923:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OPNAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:944:/ cond"); + MELT_LOCATION("warmelt-macro.melt:923:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:944:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:923:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1289,7 +1284,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check opnam"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (944)?(944):__LINE__, __FUNCTION__); + (923)?(923):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -1303,7 +1298,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:944:/ clear"); + MELT_LOCATION("warmelt-macro.melt:923:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -1315,13 +1310,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:945:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:924:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:945:/ apply"); + MELT_LOCATION("warmelt-macro.melt:924:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1332,14 +1327,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 945; + argtab[3].meltbp_long = 924; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:945:/ clear"); + MELT_LOCATION("warmelt-macro.melt:924:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -1349,14 +1344,14 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:946:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:925:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:947:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:926:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V18*/ meltfptr[17] = slot; }; ; @@ -1374,7 +1369,7 @@ lab_endgetargs:; /*_#NOT__L7*/ meltfnum[6] = (!(/*_#IS_PAIR__L6*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:950:/ cond"); + MELT_LOCATION("warmelt-macro.melt:929:/ cond"); /*cond*/ if (/*_#NOT__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1382,7 +1377,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:951:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:930:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "missing reciever expression in message send"), (melt_ptr_t)0);} ; /*epilog*/ @@ -1390,7 +1385,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:952:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:931:/ quasiblock"); /*_.XRECV__V22*/ meltfptr[21] = @@ -1399,7 +1394,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.SPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION("warmelt-macro.melt:953:/ apply"); + MELT_LOCATION("warmelt-macro.melt:932:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1412,13 +1407,13 @@ lab_endgetargs:; ; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.XRECV__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:957:/ cond"); + MELT_LOCATION("warmelt-macro.melt:936:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:958:/ apply"); + MELT_LOCATION("warmelt-macro.melt:937:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1432,7 +1427,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.MACROEXPAND_1__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:957:/ clear"); + MELT_LOCATION("warmelt-macro.melt:936:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V26*/ meltfptr[25] = 0 ;} ; } else {/*^cond.else*/ @@ -1440,7 +1435,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.XRECV__V22*/ meltfptr[21];; } ; - MELT_LOCATION("warmelt-macro.melt:954:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:933:/ quasiblock"); /*^rawallocobj*/ @@ -1472,13 +1467,13 @@ lab_endgetargs:; /*_.RES__V27*/ meltfptr[25] = /*_.INST__V28*/ meltfptr[27];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:963:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:942:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:963:/ apply"); + MELT_LOCATION("warmelt-macro.melt:942:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1489,14 +1484,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 963; + argtab[3].meltbp_long = 942; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V27*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:963:/ clear"); + MELT_LOCATION("warmelt-macro.melt:942:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -1510,7 +1505,7 @@ lab_endgetargs:; /*_.LET___V21*/ meltfptr[20] = /*_.RES__V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:952:/ clear"); + MELT_LOCATION("warmelt-macro.melt:931:/ clear"); /*clear*/ /*_.XRECV__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V23*/ meltfptr[22] = 0 ; @@ -1526,7 +1521,7 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:946:/ clear"); + MELT_LOCATION("warmelt-macro.melt:925:/ clear"); /*clear*/ /*_.SCONT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V18*/ meltfptr[17] = 0 ; @@ -1540,11 +1535,11 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:940:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:919:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:940:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:919:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1625,7 +1620,7 @@ melt_trace_start("EXPAND_FIELDEXPR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:970:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:949:/ getarg"); /*_.FLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1657,17 +1652,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:971:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:950:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:971:/ cond"); + MELT_LOCATION("warmelt-macro.melt:950:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:971:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:950:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1678,7 +1673,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (971)?(971):__LINE__, __FUNCTION__); + (950)?(950):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -1692,7 +1687,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:971:/ clear"); + MELT_LOCATION("warmelt-macro.melt:950:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -1704,17 +1699,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:972:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:951:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:972:/ cond"); + MELT_LOCATION("warmelt-macro.melt:951:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:972:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:951:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1725,7 +1720,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (972)?(972):__LINE__, __FUNCTION__); + (951)?(951):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -1739,7 +1734,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:972:/ clear"); + MELT_LOCATION("warmelt-macro.melt:951:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -1751,17 +1746,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:973:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:952:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:973:/ cond"); + MELT_LOCATION("warmelt-macro.melt:952:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:973:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:952:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1772,7 +1767,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (973)?(973):__LINE__, __FUNCTION__); + (952)?(952):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -1786,7 +1781,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:973:/ clear"); + MELT_LOCATION("warmelt-macro.melt:952:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -1798,17 +1793,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:974:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:953:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:974:/ cond"); + MELT_LOCATION("warmelt-macro.melt:953:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:974:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:953:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1819,7 +1814,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (974)?(974):__LINE__, __FUNCTION__); + (953)?(953):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -1833,7 +1828,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:974:/ clear"); + MELT_LOCATION("warmelt-macro.melt:953:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -1845,13 +1840,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:975:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:954:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:975:/ apply"); + MELT_LOCATION("warmelt-macro.melt:954:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1862,14 +1857,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 975; + argtab[3].meltbp_long = 954; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:975:/ clear"); + MELT_LOCATION("warmelt-macro.melt:954:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -1879,18 +1874,18 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:976:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:955:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:977:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:956:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:998:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:977:/ quasiblock"); /*^apply*/ @@ -1910,13 +1905,13 @@ lab_endgetargs:; (melt_multiple_nth((melt_ptr_t)(/*_.SCONTUP__V20*/ meltfptr[19]), (1)));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1002:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:981:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1002:/ apply"); + MELT_LOCATION("warmelt-macro.melt:981:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1927,14 +1922,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1002; + argtab[3].meltbp_long = 981; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SCONTUP__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1002:/ clear"); + MELT_LOCATION("warmelt-macro.melt:981:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = 0 ;} @@ -1952,7 +1947,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = ((/*_#LIST_LENGTH__L7*/ meltfnum[0]) != (2));; - MELT_LOCATION("warmelt-macro.melt:1003:/ cond"); + MELT_LOCATION("warmelt-macro.melt:982:/ cond"); /*cond*/ if (/*_#I__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1960,17 +1955,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1005:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:984:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "expecting one argument in (:field )"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:1006:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:985:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1006:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:985:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1004:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:983:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; @@ -1979,7 +1974,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1003:/ clear"); + MELT_LOCATION("warmelt-macro.melt:982:/ clear"); /*clear*/ /*_.RETURN___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V27*/ meltfptr[26] = 0 ;} @@ -1991,17 +1986,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1007:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:986:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L9*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.OPEREXP__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:1007:/ cond"); + MELT_LOCATION("warmelt-macro.melt:986:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V29*/ meltfptr[26] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1007:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:986:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2012,7 +2007,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check operexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1007)?(1007):__LINE__, __FUNCTION__); + (986)?(986):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V29*/ meltfptr[26] = 0 ; @@ -2026,7 +2021,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[25] = /*_.IFELSE___V29*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1007:/ clear"); + MELT_LOCATION("warmelt-macro.melt:986:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V29*/ meltfptr[26] = 0 ;} @@ -2038,11 +2033,11 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1008:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:987:/ cppif.then"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1009:/ cond"); + MELT_LOCATION("warmelt-macro.melt:988:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -2054,7 +2049,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1009:/ cond"); + MELT_LOCATION("warmelt-macro.melt:988:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OPEREXP__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -2070,11 +2065,11 @@ lab_endgetargs:; /*_#STRING___L10*/ meltfnum[8] = melt_string_same((/*_.NAMED_NAME__V31*/ meltfptr[30]), (/*_.NAMED_NAME__V32*/ meltfptr[31]));; - MELT_LOCATION("warmelt-macro.melt:1008:/ cond"); + MELT_LOCATION("warmelt-macro.melt:987:/ cond"); /*cond*/ if (/*_#STRING___L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V33*/ meltfptr[32] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1008:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:987:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2085,7 +2080,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "same oper as field"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1008)?(1008):__LINE__, __FUNCTION__); + (987)?(987):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V33*/ meltfptr[32] = 0 ; @@ -2099,7 +2094,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[26] = /*_.IFELSE___V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1008:/ clear"); + MELT_LOCATION("warmelt-macro.melt:987:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[31] = 0 ; @@ -2113,10 +2108,10 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1010:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:989:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:1011:/ apply"); + MELT_LOCATION("warmelt-macro.melt:990:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2127,7 +2122,7 @@ lab_endgetargs:; /*_.MEXP__V35*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SUBSEXP__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1012:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:991:/ quasiblock"); /*^rawallocobj*/ @@ -2154,13 +2149,13 @@ lab_endgetargs:; /*_.RES__V36*/ meltfptr[32] = /*_.INST__V37*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1017:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:996:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1017:/ apply"); + MELT_LOCATION("warmelt-macro.melt:996:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2171,14 +2166,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1017; + argtab[3].meltbp_long = 996; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V36*/ meltfptr[32]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1017:/ clear"); + MELT_LOCATION("warmelt-macro.melt:996:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} @@ -2188,16 +2183,16 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1018:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:997:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V36*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:1018:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:997:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[30] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:1010:/ clear"); + MELT_LOCATION("warmelt-macro.melt:989:/ clear"); /*clear*/ /*_.MEXP__V35*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V36*/ meltfptr[32] = 0 ; @@ -2207,7 +2202,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*_.LET___V19*/ meltfptr[18] = /*_.LET___V34*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:998:/ clear"); + MELT_LOCATION("warmelt-macro.melt:977:/ clear"); /*clear*/ /*_.SCONTUP__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.OPEREXP__V21*/ meltfptr[20] = 0 ; @@ -2229,17 +2224,17 @@ lab_endgetargs:; /*clear*/ /*_.LET___V34*/ meltfptr[30] = 0 ; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:976:/ clear"); + MELT_LOCATION("warmelt-macro.melt:955:/ clear"); /*clear*/ /*_.SCONT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:970:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:949:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:970:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:949:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2320,7 +2315,7 @@ melt_trace_start("EXPAND_CITERATION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1027:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1006:/ getarg"); /*_.CITER__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2352,17 +2347,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1028:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1007:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1028:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1007:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1028:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1007:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2373,7 +2368,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1028)?(1028):__LINE__, __FUNCTION__); + (1007)?(1007):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -2387,7 +2382,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1028:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1007:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -2399,17 +2394,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1029:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1008:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1029:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1008:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1029:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1008:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2420,7 +2415,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1029)?(1029):__LINE__, __FUNCTION__); + (1008)?(1008):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -2434,7 +2429,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1029:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1008:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -2446,17 +2441,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1030:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1009:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1030:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1009:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1030:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1009:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2467,7 +2462,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1030)?(1030):__LINE__, __FUNCTION__); + (1009)?(1009):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -2481,7 +2476,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1030:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1009:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -2493,17 +2488,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1031:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1010:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CITER__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1031:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1010:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1031:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1010:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2514,7 +2509,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check citer"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1031)?(1031):__LINE__, __FUNCTION__); + (1010)?(1010):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -2528,7 +2523,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1031:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1010:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -2540,13 +2535,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1032:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1011:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1032:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1011:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2557,14 +2552,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1032; + argtab[3].meltbp_long = 1011; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1032:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1011:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -2574,14 +2569,14 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1033:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1012:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1034:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1013:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V18*/ meltfptr[17] = slot; }; ; @@ -2604,13 +2599,13 @@ lab_endgetargs:; /*_#IS_PAIR__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SPAIR__V20*/ meltfptr[19])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1041:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1020:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1042:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1021:/ quasiblock"); /*_.STAREXP__V26*/ meltfptr[25] = @@ -2619,13 +2614,13 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.STAREXP__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1043:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1022:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1044:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1023:/ quasiblock"); /*^getslot*/ @@ -2634,7 +2629,7 @@ lab_endgetargs:; ; /*_.LIST_FIRST__V30*/ meltfptr[29] = (melt_list_first((melt_ptr_t)(/*_.STACONT__V29*/ meltfptr[28])));; - MELT_LOCATION("warmelt-macro.melt:1046:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1025:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2649,7 +2644,7 @@ lab_endgetargs:; /*_.STARGS__V21*/ meltfptr[20] = /*_.SETQ___V32*/ meltfptr[31] = /*_.EXPAND_PAIRLIST_AS_TUPLE__V31*/ meltfptr[30];; /*_.LET___V28*/ meltfptr[27] = /*_.SETQ___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:1044:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1023:/ clear"); /*clear*/ /*_.STACONT__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V30*/ meltfptr[29] = 0 ; @@ -2660,7 +2655,7 @@ lab_endgetargs:; /*_.IFELSE___V27*/ meltfptr[26] = /*_.LET___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1043:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1022:/ clear"); /*clear*/ /*_.LET___V28*/ meltfptr[27] = 0 ;} ; } else {/*^cond.else*/ @@ -2668,13 +2663,13 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1048:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1027:/ cond"); /*cond*/ if (/*_.STAREXP__V26*/ meltfptr[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1049:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1028:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2685,7 +2680,7 @@ lab_endgetargs:; /*_.MACROEXPAND_1__V34*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.STAREXP__V26*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1048:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:1027:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(1) rtup_0__TUPLREC__x1; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -2699,8 +2694,8 @@ lab_endgetargs:; /*^putuple*/ /*putupl#1*/ - melt_assertmsg("putupl [:1048] #1 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V36*/ meltfptr[31]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:1048] #1 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V36*/ meltfptr[31])))); + melt_assertmsg("putupl [:1027] #1 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V36*/ meltfptr[31]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:1027] #1 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V36*/ meltfptr[31])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V36*/ meltfptr[31]))->tabval[0] = (melt_ptr_t)(/*_.MACROEXPAND_1__V34*/ meltfptr[29]); ; /*^touch*/ @@ -2709,7 +2704,7 @@ lab_endgetargs:; /*_.TUPLE___V35*/ meltfptr[30] = /*_.TUPLREC___V36*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1048:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1027:/ clear"); /*clear*/ /*_.TUPLREC___V36*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V36*/ meltfptr[31] = 0 ;} /*end multiallocblock*/ @@ -2717,7 +2712,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[28] = /*_.TUPLE___V35*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1048:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1027:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V34*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V35*/ meltfptr[30] = 0 ;} @@ -2727,12 +2722,12 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1048:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1027:/ compute"); /*_.STARGS__V21*/ meltfptr[20] = /*_.SETQ___V37*/ meltfptr[27] = /*_.IF___V33*/ meltfptr[28];; /*_.IFELSE___V27*/ meltfptr[26] = /*_.SETQ___V37*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1043:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1022:/ clear"); /*clear*/ /*_.IF___V33*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V37*/ meltfptr[27] = 0 ;} @@ -2741,11 +2736,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V38*/ meltfptr[31] = (melt_pair_tail((melt_ptr_t)(/*_.SPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION("warmelt-macro.melt:1051:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1030:/ compute"); /*_.SPAIR__V20*/ meltfptr[19] = /*_.SETQ___V39*/ meltfptr[29] = /*_.PAIR_TAIL__V38*/ meltfptr[31];; /*_.LET___V25*/ meltfptr[24] = /*_.SETQ___V39*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:1042:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1021:/ clear"); /*clear*/ /*_.STAREXP__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; @@ -2758,7 +2753,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[23] = /*_.LET___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1041:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1020:/ clear"); /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ;} ; } else {/*^cond.else*/ @@ -2766,23 +2761,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1055:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1034:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ meltfptr[30] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1054:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1033:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "missing startargs expression in citeration"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ meltfptr[30]));} ; - MELT_LOCATION("warmelt-macro.melt:1056:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1035:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1056:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1035:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1053:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1032:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[27] = /*_.RETURN___V41*/ meltfptr[28];; @@ -2791,7 +2786,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[23] = /*_.PROGN___V42*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1041:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1020:/ clear"); /*clear*/ /*_.NAMED_NAME__V40*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V41*/ meltfptr[28] = 0 ; @@ -2802,13 +2797,13 @@ lab_endgetargs:; ; /*_#IS_PAIR__L8*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.SPAIR__V20*/ meltfptr[19])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1059:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1038:/ cond"); /*cond*/ if (/*_#IS_PAIR__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1060:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1039:/ quasiblock"); /*_.VAREXP__V45*/ meltfptr[31] = @@ -2817,9 +2812,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V46*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.SPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION("warmelt-macro.melt:1061:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1040:/ compute"); /*_.SPAIR__V20*/ meltfptr[19] = /*_.SETQ___V47*/ meltfptr[24] = /*_.PAIR_TAIL__V46*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:1062:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1041:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V48*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.VAREXP__V45*/ meltfptr[31]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -2828,7 +2823,7 @@ lab_endgetargs:; /*_.VARFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V49*/ meltfptr[28] = /*_.LAMBDA_ARG_BINDINGS__V48*/ meltfptr[30];; /*_.LET___V44*/ meltfptr[26] = /*_.SETQ___V49*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:1060:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1039:/ clear"); /*clear*/ /*_.VAREXP__V45*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V46*/ meltfptr[29] = 0 ; @@ -2841,7 +2836,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[25] = /*_.LET___V44*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1059:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1038:/ clear"); /*clear*/ /*_.LET___V44*/ meltfptr[26] = 0 ;} ; } else {/*^cond.else*/ @@ -2849,23 +2844,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1066:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1045:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ meltfptr[27] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1065:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1044:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "missing varformals in citeration"), (melt_ptr_t)(/*_.NAMED_NAME__V50*/ meltfptr[27]));} ; - MELT_LOCATION("warmelt-macro.melt:1067:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1046:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1067:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1046:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1064:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1043:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[29] = /*_.RETURN___V51*/ meltfptr[31];; @@ -2874,7 +2869,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[25] = /*_.PROGN___V52*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1059:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1038:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V51*/ meltfptr[31] = 0 ; @@ -2883,7 +2878,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-macro.melt:1070:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1049:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2896,7 +2891,7 @@ lab_endgetargs:; ; /*^compute*/ /*_.BODYTUP__V23*/ meltfptr[22] = /*_.SETQ___V54*/ meltfptr[30] = /*_.EXPAND_PAIRLIST_AS_TUPLE__V53*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:1072:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1051:/ quasiblock"); /*^quasiblock*/ @@ -2936,13 +2931,13 @@ lab_endgetargs:; /*_.SCITER__V56*/ meltfptr[26] = /*_.INST__V57*/ meltfptr[27];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1079:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1058:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1079:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1058:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2953,14 +2948,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1079; + argtab[3].meltbp_long = 1058; /*_.DEBUG_MSG_FUN__V59*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SCITER__V56*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V58*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1079:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1058:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[29] = 0 ;} @@ -2970,16 +2965,16 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1080:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1059:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SCITER__V56*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:1080:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1059:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V55*/ meltfptr[28] = /*_.RETURN___V60*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:1072:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1051:/ clear"); /*clear*/ /*_.SCITER__V56*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V58*/ meltfptr[31] = 0 ; @@ -2987,7 +2982,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V60*/ meltfptr[29] = 0 ; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V55*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:1033:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1012:/ clear"); /*clear*/ /*_.SCONT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V18*/ meltfptr[17] = 0 ; @@ -3015,11 +3010,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V54*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V55*/ meltfptr[28] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1027:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1006:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1027:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1006:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3100,7 +3095,7 @@ melt_trace_start("EXPAND_CMATCHEXPR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1086:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1065:/ getarg"); /*_.CMAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3132,17 +3127,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1087:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1066:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1087:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1066:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1087:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1066:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3153,7 +3148,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1087)?(1087):__LINE__, __FUNCTION__); + (1066)?(1066):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -3167,7 +3162,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1087:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1066:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -3179,17 +3174,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1088:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1067:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1088:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1067:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1088:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1067:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3200,7 +3195,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1088)?(1088):__LINE__, __FUNCTION__); + (1067)?(1067):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -3214,7 +3209,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1088:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1067:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -3226,17 +3221,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1089:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1068:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1089:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1068:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1089:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1068:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3247,7 +3242,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1089)?(1089):__LINE__, __FUNCTION__); + (1068)?(1068):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -3261,7 +3256,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1089:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1068:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -3273,17 +3268,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1090:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1069:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1090:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1069:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1090:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1069:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3294,7 +3289,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cmat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1090)?(1090):__LINE__, __FUNCTION__); + (1069)?(1069):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -3308,7 +3303,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1090:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1069:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -3320,13 +3315,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1091:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1070:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1091:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1070:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3337,14 +3332,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1091; + argtab[3].meltbp_long = 1070; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1091:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1070:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -3354,14 +3349,14 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1092:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1071:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1093:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1072:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V18*/ meltfptr[17] = slot; }; ; @@ -3379,7 +3374,7 @@ lab_endgetargs:; /*_.SOPER__V22*/ meltfptr[21] = (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION("warmelt-macro.melt:1096:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1075:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -3390,11 +3385,11 @@ lab_endgetargs:; /*_.XARGTUP__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SCONT__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1097:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1076:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ meltfptr[1]), 2, "AMATCH_IN");/*_.CMATIN__V24*/ meltfptr[23] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1098:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1077:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ meltfptr[1]), 8, "CMATCH_EXPOPER");/*_.CMATEXP__V25*/ meltfptr[24] = slot; }; ; @@ -3408,7 +3403,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = ((/*_#MULTIPLE_LENGTH__L6*/ meltfnum[0]) != (/*_#MULTIPLE_LENGTH__L7*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:1100:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1079:/ cond"); /*cond*/ if (/*_#I__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3416,13 +3411,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1103:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1082:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1103:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1082:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3433,14 +3428,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1103; + argtab[3].meltbp_long = 1082; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.XARGTUP__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1103:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1082:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} @@ -3452,13 +3447,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1104:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1083:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1104:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1083:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3469,14 +3464,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1104; + argtab[3].meltbp_long = 1083; /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CMATIN__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V28*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1104:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1083:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} @@ -3486,21 +3481,21 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1107:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1086:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ meltfptr[28] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1105:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1084:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "bad argument number for cmatcher expression"), (melt_ptr_t)(/*_.NAMED_NAME__V30*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:1102:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1081:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1100:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1079:/ clear"); /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; @@ -3511,29 +3506,29 @@ lab_endgetargs:; ; /*_#NULL__L11*/ meltfnum[8] = ((/*_.CMATEXP__V25*/ meltfptr[24]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1108:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1087:/ cond"); /*cond*/ if (/*_#NULL__L11*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1112:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1091:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ meltfptr[26] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1110:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1089:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "cmatcher used without operation expansion"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[26]));} ; - MELT_LOCATION("warmelt-macro.melt:1113:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1092:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1113:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1092:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1109:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1088:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[28];; @@ -3542,7 +3537,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[25] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1108:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1087:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V33*/ meltfptr[28] = 0 ; @@ -3554,10 +3549,10 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1115:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1094:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:1116:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1095:/ quasiblock"); /*^rawallocobj*/ @@ -3584,13 +3579,13 @@ lab_endgetargs:; /*_.RES__V36*/ meltfptr[28] = /*_.INST__V37*/ meltfptr[33];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1121:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1100:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1121:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1100:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3601,14 +3596,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1121; + argtab[3].meltbp_long = 1100; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V36*/ meltfptr[28]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1121:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1100:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} @@ -3618,16 +3613,16 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1122:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1101:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V36*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:1122:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1101:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V35*/ meltfptr[26] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:1115:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1094:/ clear"); /*clear*/ /*_.RES__V36*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; @@ -3635,7 +3630,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V35*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:1092:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1071:/ clear"); /*clear*/ /*_.SCONT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V18*/ meltfptr[17] = 0 ; @@ -3665,11 +3660,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V31*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V35*/ meltfptr[26] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1086:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1065:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1086:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1065:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3750,7 +3745,7 @@ melt_trace_start("EXPAND_FUNMATCHEXPR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1128:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1107:/ getarg"); /*_.FMAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3789,13 +3784,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1129:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1108:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1129:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1108:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3806,14 +3801,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1129; + argtab[3].meltbp_long = 1108; /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1129:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1108:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} @@ -3825,13 +3820,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1130:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1109:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1130:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1109:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3842,14 +3837,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1130; + argtab[3].meltbp_long = 1109; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FMAT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1130:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1109:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -3861,17 +3856,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1131:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1110:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1131:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1110:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1131:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1110:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3882,7 +3877,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1131)?(1131):__LINE__, __FUNCTION__); + (1110)?(1110):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -3896,7 +3891,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1131:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1110:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} @@ -3908,17 +3903,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1132:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1111:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1132:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1111:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1132:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1111:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3929,7 +3924,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1132)?(1132):__LINE__, __FUNCTION__); + (1111)?(1111):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; @@ -3943,7 +3938,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1132:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1111:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ;} @@ -3955,17 +3950,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1133:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1112:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L5*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1133:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1112:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1133:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1112:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3976,7 +3971,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1133)?(1133):__LINE__, __FUNCTION__); + (1112)?(1112):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; @@ -3990,7 +3985,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1133:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1112:/ clear"); /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} @@ -4002,17 +3997,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1134:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1113:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FMAT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:1134:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1113:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1134:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1113:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4023,7 +4018,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fmat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1134)?(1134):__LINE__, __FUNCTION__); + (1113)?(1113):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; @@ -4037,7 +4032,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1134:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1113:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} @@ -4047,14 +4042,14 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1135:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1114:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V20*/ meltfptr[19] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1136:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1115:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V21*/ meltfptr[20] = slot; }; ; @@ -4072,7 +4067,7 @@ lab_endgetargs:; /*_.SOPER__V25*/ meltfptr[24] = (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:1139:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1118:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4083,19 +4078,19 @@ lab_endgetargs:; /*_.XARGTUP__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SCONT__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1140:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1119:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ meltfptr[1]), 6, "FMATCH_APPLYF");/*_.FMATAPP__V27*/ meltfptr[26] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1142:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1121:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1142:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1121:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4106,14 +4101,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1142; + argtab[3].meltbp_long = 1121; /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.XARGTUP__V26*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V28*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1142:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1121:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} @@ -4125,13 +4120,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1143:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1122:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1143:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1122:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4142,14 +4137,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1143; + argtab[3].meltbp_long = 1122; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FMATAPP__V27*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1143:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1122:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} @@ -4161,13 +4156,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1144:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1123:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1144:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1123:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4178,14 +4173,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1144; + argtab[3].meltbp_long = 1123; /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPBIND__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1144:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1123:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = 0 ;} @@ -4195,7 +4190,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1147:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1126:/ quasiblock"); /*^quasiblock*/ @@ -4230,13 +4225,13 @@ lab_endgetargs:; /*_.RES__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1152:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1131:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1152:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1131:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4247,14 +4242,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1152; + argtab[3].meltbp_long = 1131; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V35*/ meltfptr[34]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1152:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1131:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} @@ -4264,16 +4259,16 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1153:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1132:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V35*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:1153:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1132:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[32] = /*_.RETURN___V39*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:1147:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1126:/ clear"); /*clear*/ /*_.RES__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ; @@ -4281,7 +4276,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V39*/ meltfptr[37] = 0 ; /*_.LET___V19*/ meltfptr[17] = /*_.LET___V34*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:1135:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1114:/ clear"); /*clear*/ /*_.SCONT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V21*/ meltfptr[20] = 0 ; @@ -4305,11 +4300,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V34*/ meltfptr[32] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1128:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1107:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:1128:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1107:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4392,7 +4387,7 @@ melt_trace_start("EXPAND_KEYWORDFUN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1160:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1139:/ getarg"); /*_.SOPER__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4424,17 +4419,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1161:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1140:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1161:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1140:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1161:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1140:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4445,7 +4440,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1161)?(1161):__LINE__, __FUNCTION__); + (1140)?(1140):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -4459,7 +4454,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1161:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1140:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -4471,17 +4466,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1162:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1141:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1162:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1141:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1162:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1141:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4492,7 +4487,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1162)?(1162):__LINE__, __FUNCTION__); + (1141)?(1141):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -4506,7 +4501,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1162:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1141:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -4518,17 +4513,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1163:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1142:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1163:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1142:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1163:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1142:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4539,7 +4534,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1163)?(1163):__LINE__, __FUNCTION__); + (1142)?(1142):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -4553,7 +4548,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1163:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1142:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -4565,13 +4560,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1164:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1143:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1164:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1143:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4582,14 +4577,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1164; + argtab[3].meltbp_long = 1143; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1164:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1143:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -4601,13 +4596,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1165:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1144:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1165:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1144:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4618,14 +4613,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1165; + argtab[3].meltbp_long = 1144; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SOPER__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1165:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1144:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -4635,18 +4630,18 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1166:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1145:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1167:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1146:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1168:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1147:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -4657,12 +4652,12 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1170:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1149:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V18*/ meltfptr[17]), ( "expand_keywordfun not implemented"), (melt_ptr_t)0);} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1171:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1150:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -4670,7 +4665,7 @@ lab_endgetargs:; /*cond*/ if (0) /*then*/ { /*^cond.then*/ /*_.IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1171:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1150:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4681,7 +4676,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "@@@ expand_keywordfun NOT IMPLEMENTED"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1171)?(1171):__LINE__, __FUNCTION__); + (1150)?(1150):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ; @@ -4695,7 +4690,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1171:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1150:/ clear"); /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -4707,7 +4702,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1166:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1145:/ clear"); /*clear*/ /*_.SCONT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V18*/ meltfptr[17] = 0 ; @@ -4715,11 +4710,11 @@ lab_endgetargs:; /*clear*/ /*_.TUPCONT__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1160:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1139:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1160:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1139:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4800,7 +4795,7 @@ melt_trace_start("MACROEXPAND_1", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1178:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1157:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4825,7 +4820,7 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1179:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1158:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4836,7 +4831,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.SETQ___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1179:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1158:/ clear"); /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -4846,17 +4841,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1180:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1159:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1180:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1159:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1180:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1159:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4867,7 +4862,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1180)?(1180):__LINE__, __FUNCTION__); + (1159)?(1159):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4881,7 +4876,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1180:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1159:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4893,17 +4888,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1181:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1160:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1181:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1160:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1181:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1160:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4914,7 +4909,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1181)?(1181):__LINE__, __FUNCTION__); + (1160)?(1160):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -4928,7 +4923,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1181:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1160:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -4942,20 +4937,20 @@ lab_endgetargs:; /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1182:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1161:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1183:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1162:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1184:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1163:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V14*/ meltfptr[13] = slot; }; ; @@ -4967,13 +4962,13 @@ lab_endgetargs:; (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V15*/ meltfptr[14])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1186:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1165:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1186:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1165:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4984,14 +4979,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1186; + argtab[3].meltbp_long = 1165; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1186:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1165:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -5003,13 +4998,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1187:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1166:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1187:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1166:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5020,14 +5015,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1187; + argtab[3].meltbp_long = 1166; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SOPER__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1187:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1166:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -5041,13 +5036,13 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:1190:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1169:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1191:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1170:/ quasiblock"); /*^apply*/ @@ -5065,13 +5060,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1192:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1171:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1192:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1171:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5082,14 +5077,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1192; + argtab[3].meltbp_long = 1171; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESK__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1192:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1171:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} @@ -5099,16 +5094,16 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1193:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1172:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESK__V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:1193:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1172:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V22*/ meltfptr[21] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:1191:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1170:/ clear"); /*clear*/ /*_.RESK__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; @@ -5117,7 +5112,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[19] = /*_.LET___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1190:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1169:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ @@ -5127,13 +5122,13 @@ lab_endgetargs:; /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:1195:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1174:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1196:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1175:/ quasiblock"); /*^apply*/ @@ -5147,13 +5142,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1197:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1176:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1197:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1176:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5164,14 +5159,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1197; + argtab[3].meltbp_long = 1176; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1197:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1176:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} @@ -5185,13 +5180,13 @@ lab_endgetargs:; /*_#IS_A__L11*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_MACRO_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:1198:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1177:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1199:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1178:/ quasiblock"); /*^getslot*/ @@ -5200,17 +5195,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1200:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1179:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L12*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.MEXP__V34*/ meltfptr[33])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1200:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1179:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1200:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1179:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5221,7 +5216,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1200)?(1200):__LINE__, __FUNCTION__); + (1179)?(1179):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ; @@ -5235,7 +5230,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.IFELSE___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1200:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1179:/ clear"); /*clear*/ /*_#IS_CLOSURE__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V36*/ meltfptr[35] = 0 ;} @@ -5245,7 +5240,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1201:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1180:/ quasiblock"); /*^apply*/ @@ -5261,13 +5256,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1202:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1181:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1202:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1181:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5278,14 +5273,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1202; + argtab[3].meltbp_long = 1181; /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESM__V38*/ meltfptr[37]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V39*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1202:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1181:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} @@ -5295,16 +5290,16 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1203:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1182:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESM__V38*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:1203:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1182:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V37*/ meltfptr[35] = /*_.RETURN___V41*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:1201:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1180:/ clear"); /*clear*/ /*_.RESM__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; @@ -5312,7 +5307,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V41*/ meltfptr[39] = 0 ; /*_.LET___V33*/ meltfptr[32] = /*_.LET___V37*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:1199:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1178:/ clear"); /*clear*/ /*_.MEXP__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; @@ -5321,7 +5316,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[30] = /*_.LET___V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1198:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1177:/ clear"); /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ;} ; } else {/*^cond.else*/ @@ -5331,13 +5326,13 @@ lab_endgetargs:; /*_#IS_A__L14*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:1205:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1184:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1206:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1185:/ quasiblock"); /*^apply*/ @@ -5355,13 +5350,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1207:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1186:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1207:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1186:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5372,14 +5367,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1207; + argtab[3].meltbp_long = 1186; /*_.DEBUG_MSG_FUN__V46*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESS__V44*/ meltfptr[39]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V45*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1207:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1186:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[34] = 0 ;} @@ -5389,16 +5384,16 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1208:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1187:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESS__V44*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:1208:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1187:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V43*/ meltfptr[38] = /*_.RETURN___V47*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:1206:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1185:/ clear"); /*clear*/ /*_.RESS__V44*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V45*/ meltfptr[33] = 0 ; @@ -5407,7 +5402,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[37] = /*_.LET___V43*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1205:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_.LET___V43*/ meltfptr[38] = 0 ;} ; } else {/*^cond.else*/ @@ -5417,13 +5412,13 @@ lab_endgetargs:; /*_#IS_A__L16*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:1210:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1189:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1211:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1190:/ quasiblock"); /*^getslot*/ @@ -5445,13 +5440,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1213:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1192:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1213:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1192:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5462,14 +5457,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1213; + argtab[3].meltbp_long = 1192; /*_.DEBUG_MSG_FUN__V53*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESP__V51*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V52*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V53*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1213:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1192:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ meltfptr[38] = 0 ;} @@ -5479,16 +5474,16 @@ lab_endgetargs:; /*_.IFCPP___V52*/ meltfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1214:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1193:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V51*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:1214:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1193:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V49*/ meltfptr[34] = /*_.RETURN___V54*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:1211:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1190:/ clear"); /*clear*/ /*_.PBIND_PRIMITIVE__V50*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.RESP__V51*/ meltfptr[33] = 0 ; @@ -5499,7 +5494,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[32] = /*_.LET___V49*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1210:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1189:/ clear"); /*clear*/ /*_.LET___V49*/ meltfptr[34] = 0 ;} ; } else {/*^cond.else*/ @@ -5509,20 +5504,20 @@ lab_endgetargs:; /*_#IS_A__L18*/ meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:1216:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1195:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1217:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1196:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), 3, "CBIND_CITERATOR");/*_.CITER__V57*/ meltfptr[35] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1218:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1197:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5537,13 +5532,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1220:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1199:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1220:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1199:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5554,14 +5549,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1220; + argtab[3].meltbp_long = 1199; /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESC__V58*/ meltfptr[38]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V59*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1220:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1199:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = 0 ;} @@ -5571,16 +5566,16 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1221:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1200:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESC__V58*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:1221:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1200:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V56*/ meltfptr[33] = /*_.RETURN___V61*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:1217:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1196:/ clear"); /*clear*/ /*_.CITER__V57*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.RESC__V58*/ meltfptr[38] = 0 ; @@ -5591,7 +5586,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[39] = /*_.LET___V56*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1216:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1195:/ clear"); /*clear*/ /*_.LET___V56*/ meltfptr[33] = 0 ;} ; } else {/*^cond.else*/ @@ -5601,20 +5596,20 @@ lab_endgetargs:; /*_#IS_A__L20*/ meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-macro.melt:1223:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1202:/ cond"); /*cond*/ if (/*_#IS_A__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1224:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1203:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), 2, "CMBIND_MATCHER");/*_.CMATCH__V64*/ meltfptr[34] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1225:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1204:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5629,13 +5624,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1227:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1206:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1227:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1206:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5646,14 +5641,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1227; + argtab[3].meltbp_long = 1206; /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESC__V65*/ meltfptr[59]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V66*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1227:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1206:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} @@ -5663,16 +5658,16 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1228:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1207:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESC__V65*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:1228:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1207:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V63*/ meltfptr[38] = /*_.RETURN___V68*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:1224:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1203:/ clear"); /*clear*/ /*_.CMATCH__V64*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.RESC__V65*/ meltfptr[59] = 0 ; @@ -5683,7 +5678,7 @@ lab_endgetargs:; /*_.IFELSE___V62*/ meltfptr[35] = /*_.LET___V63*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1223:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1202:/ clear"); /*clear*/ /*_.LET___V63*/ meltfptr[38] = 0 ;} ; } else {/*^cond.else*/ @@ -5693,20 +5688,20 @@ lab_endgetargs:; /*_#IS_A__L22*/ meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[17])));; - MELT_LOCATION("warmelt-macro.melt:1230:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1209:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1231:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1210:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), 2, "FMBIND_FUNMATCHER");/*_.FMATCH__V71*/ meltfptr[33] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1232:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1211:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5723,13 +5718,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1234:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1213:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[22] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1234:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1213:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5740,14 +5735,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1234; + argtab[3].meltbp_long = 1213; /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESF__V72*/ meltfptr[66]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V73*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1234:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = 0 ;} @@ -5757,16 +5752,16 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1235:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1214:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESF__V72*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:1235:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1214:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V70*/ meltfptr[59] = /*_.RETURN___V75*/ meltfptr[73];; - MELT_LOCATION("warmelt-macro.melt:1231:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1210:/ clear"); /*clear*/ /*_.FMATCH__V71*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.RESF__V72*/ meltfptr[66] = 0 ; @@ -5777,7 +5772,7 @@ lab_endgetargs:; /*_.IFELSE___V69*/ meltfptr[34] = /*_.LET___V70*/ meltfptr[59];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1230:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1209:/ clear"); /*clear*/ /*_.LET___V70*/ meltfptr[59] = 0 ;} ; } else {/*^cond.else*/ @@ -5787,20 +5782,20 @@ lab_endgetargs:; /*_#IS_A__L24*/ meltfnum[22] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[19])));; - MELT_LOCATION("warmelt-macro.melt:1237:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1216:/ cond"); /*cond*/ if (/*_#IS_A__L24*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1238:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1217:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), 3, "FLBIND_FIELD");/*_.FIELD__V78*/ meltfptr[38] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1239:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1218:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5815,13 +5810,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1241:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1220:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1241:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1220:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5832,14 +5827,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1241; + argtab[3].meltbp_long = 1220; /*_.DEBUG_MSG_FUN__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESF__V79*/ meltfptr[73]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V80*/ meltfptr[59] = /*_.DEBUG_MSG_FUN__V81*/ meltfptr[80];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1241:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1220:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ meltfptr[80] = 0 ;} @@ -5849,16 +5844,16 @@ lab_endgetargs:; /*_.IFCPP___V80*/ meltfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1242:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1221:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESF__V79*/ meltfptr[73];; - MELT_LOCATION("warmelt-macro.melt:1242:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1221:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V77*/ meltfptr[66] = /*_.RETURN___V82*/ meltfptr[80];; - MELT_LOCATION("warmelt-macro.melt:1238:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1217:/ clear"); /*clear*/ /*_.FIELD__V78*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.RESF__V79*/ meltfptr[73] = 0 ; @@ -5869,7 +5864,7 @@ lab_endgetargs:; /*_.IFELSE___V76*/ meltfptr[33] = /*_.LET___V77*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1237:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1216:/ clear"); /*clear*/ /*_.LET___V77*/ meltfptr[66] = 0 ;} ; } else {/*^cond.else*/ @@ -5879,13 +5874,13 @@ lab_endgetargs:; /*_#IS_A__L26*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V29*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[21])));; - MELT_LOCATION("warmelt-macro.melt:1244:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1223:/ cond"); /*cond*/ if (/*_#IS_A__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1245:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1224:/ quasiblock"); /*^getslot*/ @@ -5894,13 +5889,13 @@ lab_endgetargs:; ; /*_#IS_CLOSURE__L27*/ meltfnum[26] = (melt_magic_discr((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1248:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1227:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1249:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1228:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5914,7 +5909,7 @@ lab_endgetargs:; /*_.IFELSE___V86*/ meltfptr[80] = /*_.EXPAND_APPLY__V87*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1248:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_.EXPAND_APPLY__V87*/ meltfptr[66] = 0 ;} ; } else {/*^cond.else*/ @@ -5924,13 +5919,13 @@ lab_endgetargs:; /*_#IS_A__L28*/ meltfnum[27] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[23])));; - MELT_LOCATION("warmelt-macro.melt:1251:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1230:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1252:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1231:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5946,7 +5941,7 @@ lab_endgetargs:; /*_.IFELSE___V88*/ meltfptr[66] = /*_.EXPAND_PRIMITIVE__V89*/ meltfptr[88];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1251:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1230:/ clear"); /*clear*/ /*_.EXPAND_PRIMITIVE__V89*/ meltfptr[88] = 0 ;} ; } else {/*^cond.else*/ @@ -5956,13 +5951,13 @@ lab_endgetargs:; /*_#IS_A__L29*/ meltfnum[28] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[24])));; - MELT_LOCATION("warmelt-macro.melt:1254:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1233:/ cond"); /*cond*/ if (/*_#IS_A__L29*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1255:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1234:/ quasiblock"); /*^apply*/ @@ -5980,13 +5975,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1256:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1235:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1256:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1235:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5997,14 +5992,14 @@ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ -argtab[3].meltbp_long = 1256; +argtab[3].meltbp_long = 1235; /*_.DEBUG_MSG_FUN__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESS__V92*/ meltfptr[91]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V93*/ meltfptr[92] = /*_.DEBUG_MSG_FUN__V94*/ meltfptr[93];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1256:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1235:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V94*/ meltfptr[93] = 0 ;} @@ -6014,16 +6009,16 @@ argtab[3].meltbp_long = 1256; /*_.IFCPP___V93*/ meltfptr[92] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1257:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1236:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESS__V92*/ meltfptr[91];; - MELT_LOCATION("warmelt-macro.melt:1257:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1236:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V91*/ meltfptr[90] = /*_.RETURN___V95*/ meltfptr[93];; - MELT_LOCATION("warmelt-macro.melt:1255:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1234:/ clear"); /*clear*/ /*_.RESS__V92*/ meltfptr[91] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V93*/ meltfptr[92] = 0 ; @@ -6032,7 +6027,7 @@ argtab[3].meltbp_long = 1256; /*_.IFELSE___V90*/ meltfptr[88] = /*_.LET___V91*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1254:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1233:/ clear"); /*clear*/ /*_.LET___V91*/ meltfptr[90] = 0 ;} ; } else {/*^cond.else*/ @@ -6042,13 +6037,13 @@ argtab[3].meltbp_long = 1256; /*_#IS_A__L31*/ meltfnum[29] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ meltfrout->tabval[25])));; - MELT_LOCATION("warmelt-macro.melt:1260:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1239:/ cond"); /*cond*/ if (/*_#IS_A__L31*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1261:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1240:/ quasiblock"); /*^apply*/ @@ -6066,13 +6061,13 @@ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; ; #if ENABLE_CHECKING -MELT_LOCATION("warmelt-macro.melt:1262:/ cppif.then"); +MELT_LOCATION("warmelt-macro.melt:1241:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1262:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1241:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6083,14 +6078,14 @@ MELT_LOCATION("warmelt-macro.melt:1262:/ cppif.then"); /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1262; + argtab[3].meltbp_long = 1241; /*_.DEBUG_MSG_FUN__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESC__V98*/ meltfptr[93]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V99*/ meltfptr[90] = /*_.DEBUG_MSG_FUN__V100*/ meltfptr[99];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1262:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1241:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ meltfptr[99] = 0 ;} @@ -6100,16 +6095,16 @@ MELT_LOCATION("warmelt-macro.melt:1262:/ cppif.then"); /*_.IFCPP___V99*/ meltfptr[90] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1263:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1242:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESC__V98*/ meltfptr[93];; - MELT_LOCATION("warmelt-macro.melt:1263:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1242:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V97*/ meltfptr[92] = /*_.RETURN___V101*/ meltfptr[99];; - MELT_LOCATION("warmelt-macro.melt:1261:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_.RESC__V98*/ meltfptr[93] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V99*/ meltfptr[90] = 0 ; @@ -6118,7 +6113,7 @@ MELT_LOCATION("warmelt-macro.melt:1262:/ cppif.then"); /*_.IFELSE___V96*/ meltfptr[91] = /*_.LET___V97*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1260:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1239:/ clear"); /*clear*/ /*_.LET___V97*/ meltfptr[92] = 0 ;} ; } else {/*^cond.else*/ @@ -6128,13 +6123,13 @@ MELT_LOCATION("warmelt-macro.melt:1262:/ cppif.then"); /*_#IS_A__L33*/ meltfnum[31] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[26])));; - MELT_LOCATION("warmelt-macro.melt:1264:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1243:/ cond"); /*cond*/ if (/*_#IS_A__L33*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1265:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1244:/ quasiblock"); /*^apply*/ @@ -6152,13 +6147,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1266:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1245:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[33] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1266:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1245:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6169,14 +6164,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1266; + argtab[3].meltbp_long = 1245; /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESC__V104*/ meltfptr[99]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V105*/ meltfptr[92] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1266:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1245:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = 0 ;} @@ -6186,16 +6181,16 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V105*/ meltfptr[92] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1267:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1246:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESC__V104*/ meltfptr[99];; - MELT_LOCATION("warmelt-macro.melt:1267:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1246:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V103*/ meltfptr[90] = /*_.RETURN___V107*/ meltfptr[105];; - MELT_LOCATION("warmelt-macro.melt:1265:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1244:/ clear"); /*clear*/ /*_.RESC__V104*/ meltfptr[99] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V105*/ meltfptr[92] = 0 ; @@ -6204,7 +6199,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V102*/ meltfptr[93] = /*_.LET___V103*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1264:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1243:/ clear"); /*clear*/ /*_.LET___V103*/ meltfptr[90] = 0 ;} ; } else {/*^cond.else*/ @@ -6214,13 +6209,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IS_A__L35*/ meltfnum[33] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[27])));; - MELT_LOCATION("warmelt-macro.melt:1268:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1247:/ cond"); /*cond*/ if (/*_#IS_A__L35*/ meltfnum[33]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1269:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1248:/ quasiblock"); /*^apply*/ @@ -6240,13 +6235,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1270:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1249:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[35] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1270:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1249:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6257,14 +6252,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1270; + argtab[3].meltbp_long = 1249; /*_.DEBUG_MSG_FUN__V112*/ meltfptr[111] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESF__V110*/ meltfptr[105]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V111*/ meltfptr[90] = /*_.DEBUG_MSG_FUN__V112*/ meltfptr[111];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1270:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1249:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[35] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ meltfptr[111] = 0 ;} @@ -6274,16 +6269,16 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V111*/ meltfptr[90] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1271:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1250:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESF__V110*/ meltfptr[105];; - MELT_LOCATION("warmelt-macro.melt:1271:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1250:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V109*/ meltfptr[92] = /*_.RETURN___V113*/ meltfptr[111];; - MELT_LOCATION("warmelt-macro.melt:1269:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1248:/ clear"); /*clear*/ /*_.RESF__V110*/ meltfptr[105] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V111*/ meltfptr[90] = 0 ; @@ -6292,7 +6287,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V108*/ meltfptr[99] = /*_.LET___V109*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1268:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1247:/ clear"); /*clear*/ /*_.LET___V109*/ meltfptr[92] = 0 ;} ; } else {/*^cond.else*/ @@ -6302,13 +6297,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IS_A__L37*/ meltfnum[35] = melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[28])));; - MELT_LOCATION("warmelt-macro.melt:1272:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1251:/ cond"); /*cond*/ if (/*_#IS_A__L37*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1273:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1252:/ quasiblock"); /*^apply*/ @@ -6326,13 +6321,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1274:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1253:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[37] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1274:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1253:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6343,14 +6338,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1274; + argtab[3].meltbp_long = 1253; /*_.DEBUG_MSG_FUN__V118*/ meltfptr[117] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESF__V116*/ meltfptr[111]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V117*/ meltfptr[92] = /*_.DEBUG_MSG_FUN__V118*/ meltfptr[117];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1274:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1253:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[37] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V118*/ meltfptr[117] = 0 ;} @@ -6360,16 +6355,16 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V117*/ meltfptr[92] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1275:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1254:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESF__V116*/ meltfptr[111];; - MELT_LOCATION("warmelt-macro.melt:1275:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1254:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V115*/ meltfptr[90] = /*_.RETURN___V119*/ meltfptr[117];; - MELT_LOCATION("warmelt-macro.melt:1273:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1252:/ clear"); /*clear*/ /*_.RESF__V116*/ meltfptr[111] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V117*/ meltfptr[92] = 0 ; @@ -6378,7 +6373,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V114*/ meltfptr[105] = /*_.LET___V115*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1272:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1251:/ clear"); /*clear*/ /*_.LET___V115*/ meltfptr[90] = 0 ;} ; } else {/*^cond.else*/ @@ -6386,34 +6381,34 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1278:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1257:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V120*/ meltfptr[111] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1277:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1256:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V14*/ meltfptr[13]), ( "macroexpand_1 bad valued operation symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V120*/ meltfptr[111]));} ; /*_.DISCRIM__V121*/ meltfptr[92] = (melt_discr((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59])));; - MELT_LOCATION("warmelt-macro.melt:1280:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1259:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V121*/ meltfptr[92]), 1, "NAMED_NAME");/*_.NAMED_NAME__V122*/ meltfptr[117] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1279:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1258:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.SLOC__V14*/ meltfptr[13]), ( "macroexpand_1 bad symbol value discr"), (melt_ptr_t)(/*_.NAMED_NAME__V122*/ meltfptr[117]));} ; - MELT_LOCATION("warmelt-macro.melt:1281:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1260:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1281:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1260:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1276:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1255:/ quasiblock"); /*_.PROGN___V124*/ meltfptr[123] = /*_.RETURN___V123*/ meltfptr[90];; @@ -6422,7 +6417,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V114*/ meltfptr[105] = /*_.PROGN___V124*/ meltfptr[123];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1272:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1251:/ clear"); /*clear*/ /*_.NAMED_NAME__V120*/ meltfptr[111] = 0 ; /*^clear*/ /*clear*/ /*_.DISCRIM__V121*/ meltfptr[92] = 0 ; @@ -6438,7 +6433,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V108*/ meltfptr[99] = /*_.IFELSE___V114*/ meltfptr[105];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1268:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1247:/ clear"); /*clear*/ /*_#IS_A__L37*/ meltfnum[35] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V114*/ meltfptr[105] = 0 ;} @@ -6448,7 +6443,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V102*/ meltfptr[93] = /*_.IFELSE___V108*/ meltfptr[99];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1264:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1243:/ clear"); /*clear*/ /*_#IS_A__L35*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V108*/ meltfptr[99] = 0 ;} @@ -6458,7 +6453,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V96*/ meltfptr[91] = /*_.IFELSE___V102*/ meltfptr[93];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1260:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1239:/ clear"); /*clear*/ /*_#IS_A__L33*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V102*/ meltfptr[93] = 0 ;} @@ -6468,7 +6463,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V90*/ meltfptr[88] = /*_.IFELSE___V96*/ meltfptr[91];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1254:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1233:/ clear"); /*clear*/ /*_#IS_A__L31*/ meltfnum[29] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V96*/ meltfptr[91] = 0 ;} @@ -6478,7 +6473,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V88*/ meltfptr[66] = /*_.IFELSE___V90*/ meltfptr[88];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1251:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1230:/ clear"); /*clear*/ /*_#IS_A__L29*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V90*/ meltfptr[88] = 0 ;} @@ -6488,7 +6483,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V86*/ meltfptr[80] = /*_.IFELSE___V88*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1248:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_#IS_A__L28*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V88*/ meltfptr[66] = 0 ;} @@ -6497,7 +6492,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; /*_.LET___V84*/ meltfptr[73] = /*_.IFELSE___V86*/ meltfptr[80];; - MELT_LOCATION("warmelt-macro.melt:1245:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1224:/ clear"); /*clear*/ /*_.VAL__V85*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_#IS_CLOSURE__L27*/ meltfnum[26] = 0 ; @@ -6506,7 +6501,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V83*/ meltfptr[38] = /*_.LET___V84*/ meltfptr[73];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1244:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1223:/ clear"); /*clear*/ /*_.LET___V84*/ meltfptr[73] = 0 ;} ; } else {/*^cond.else*/ @@ -6516,7 +6511,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#NULL__L39*/ meltfnum[37] = ((/*_.OPBIND__V29*/ meltfptr[24]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1284:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1263:/ cond"); /*cond*/ if (/*_#NULL__L39*/ meltfnum[37]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6533,7 +6528,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IF___L40*/ meltfnum[35] = /*_#NOT__L42*/ meltfnum[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1284:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1263:/ clear"); /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L41*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L42*/ meltfnum[31] = 0 ;} @@ -6543,13 +6538,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IF___L40*/ meltfnum[35] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:1284:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1263:/ cond"); /*cond*/ if (/*_#IF___L40*/ meltfnum[35]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1288:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1267:/ quasiblock"); /*^quasiblock*/ @@ -6578,7 +6573,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ((meltclosure_ptr_t)/*_.LAMBDA___V128*/ meltfptr[90])->tabval[2] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.MACTHUNK__V127*/ meltfptr[117] = /*_.LAMBDA___V128*/ meltfptr[90];; - MELT_LOCATION("warmelt-macro.melt:1291:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1270:/ quasiblock"); /*^rawallocobj*/ @@ -6605,13 +6600,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.LAZYMAC__V129*/ meltfptr[123] = /*_.INST__V130*/ meltfptr[105];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1297:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1276:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[29] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1297:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1276:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6622,14 +6617,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1297; + argtab[3].meltbp_long = 1276; /*_.DEBUG_MSG_FUN__V132*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LAZYMAC__V129*/ meltfptr[123]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V131*/ meltfptr[99] = /*_.DEBUG_MSG_FUN__V132*/ meltfptr[93];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1297:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1276:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[29] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V132*/ meltfptr[93] = 0 ;} @@ -6639,16 +6634,16 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V131*/ meltfptr[99] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1298:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1277:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LAZYMAC__V129*/ meltfptr[123];; - MELT_LOCATION("warmelt-macro.melt:1298:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1277:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V126*/ meltfptr[92] = /*_.RETURN___V133*/ meltfptr[91];; - MELT_LOCATION("warmelt-macro.melt:1288:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1267:/ clear"); /*clear*/ /*_.MACTHUNK__V127*/ meltfptr[117] = 0 ; /*^clear*/ /*clear*/ /*_.LAZYMAC__V129*/ meltfptr[123] = 0 ; @@ -6659,7 +6654,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V125*/ meltfptr[111] = /*_.LET___V126*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1284:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1263:/ clear"); /*clear*/ /*_.LET___V126*/ meltfptr[92] = 0 ;} ; } else {/*^cond.else*/ @@ -6669,7 +6664,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#MELT_IS_BOOTSTRAPPING__L44*/ meltfnum[28] = (flag_melt_bootstrapping);; - MELT_LOCATION("warmelt-macro.melt:1301:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1280:/ cond"); /*cond*/ if (/*_#MELT_IS_BOOTSTRAPPING__L44*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6682,7 +6677,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IF___L45*/ meltfnum[27] = /*_#NULL__L46*/ meltfnum[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1301:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1280:/ clear"); /*clear*/ /*_#NULL__L46*/ meltfnum[26] = 0 ;} ; } else {/*^cond.else*/ @@ -6690,13 +6685,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#IF___L45*/ meltfnum[27] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:1301:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1280:/ cond"); /*cond*/ if (/*_#IF___L45*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1307:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1286:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[32])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -6710,17 +6705,17 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; { - MELT_LOCATION("warmelt-macro.melt:1304:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1283:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V14*/ meltfptr[13]), ( "forward referenced operator handled as application when bootstrapping MELT"), (melt_ptr_t)(/*_.NAMED_NAME__V134*/ meltfptr[88]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1301:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1280:/ clear"); /*clear*/ /*_.NAMED_NAME__V134*/ meltfptr[88] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:1310:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1289:/ quasiblock"); /*^apply*/ @@ -6736,13 +6731,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1311:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1290:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[33] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1311:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1290:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6753,14 +6748,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1311; + argtab[3].meltbp_long = 1290; /*_.DEBUG_MSG_FUN__V138*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESA__V136*/ meltfptr[59]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V137*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V138*/ meltfptr[73];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1311:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1290:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L47*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V138*/ meltfptr[73] = 0 ;} @@ -6770,22 +6765,22 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V137*/ meltfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1312:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1291:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESA__V136*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:1312:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1291:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V135*/ meltfptr[66] = /*_.RETURN___V139*/ meltfptr[93];; - MELT_LOCATION("warmelt-macro.melt:1310:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1289:/ clear"); /*clear*/ /*_.RESA__V136*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V137*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V139*/ meltfptr[93] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1300:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1279:/ quasiblock"); /*_.PROGN___V140*/ meltfptr[117] = /*_.LET___V135*/ meltfptr[66];; @@ -6794,7 +6789,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V125*/ meltfptr[111] = /*_.PROGN___V140*/ meltfptr[117];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1284:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1263:/ clear"); /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L44*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L45*/ meltfnum[27] = 0 ; @@ -6808,7 +6803,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V83*/ meltfptr[38] = /*_.IFELSE___V125*/ meltfptr[111];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1244:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1223:/ clear"); /*clear*/ /*_#NULL__L39*/ meltfnum[37] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L40*/ meltfnum[35] = 0 ; @@ -6820,7 +6815,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V76*/ meltfptr[33] = /*_.IFELSE___V83*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1237:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1216:/ clear"); /*clear*/ /*_#IS_A__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V83*/ meltfptr[38] = 0 ;} @@ -6830,7 +6825,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V69*/ meltfptr[34] = /*_.IFELSE___V76*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1230:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1209:/ clear"); /*clear*/ /*_#IS_A__L24*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V76*/ meltfptr[33] = 0 ;} @@ -6840,7 +6835,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V62*/ meltfptr[35] = /*_.IFELSE___V69*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1223:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1202:/ clear"); /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V69*/ meltfptr[34] = 0 ;} @@ -6850,7 +6845,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V55*/ meltfptr[39] = /*_.IFELSE___V62*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1216:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1195:/ clear"); /*clear*/ /*_#IS_A__L20*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V62*/ meltfptr[35] = 0 ;} @@ -6860,7 +6855,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V48*/ meltfptr[32] = /*_.IFELSE___V55*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1210:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1189:/ clear"); /*clear*/ /*_#IS_A__L18*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V55*/ meltfptr[39] = 0 ;} @@ -6870,7 +6865,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V42*/ meltfptr[37] = /*_.IFELSE___V48*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1205:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_#IS_A__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V48*/ meltfptr[32] = 0 ;} @@ -6880,7 +6875,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V32*/ meltfptr[30] = /*_.IFELSE___V42*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1198:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1177:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V42*/ meltfptr[37] = 0 ;} @@ -6889,7 +6884,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; /*_.LET___V28*/ meltfptr[23] = /*_.IFELSE___V32*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:1196:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1175:/ clear"); /*clear*/ /*_.OPBIND__V29*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V30*/ meltfptr[21] = 0 ; @@ -6900,7 +6895,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V27*/ meltfptr[22] = /*_.LET___V28*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1195:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1174:/ clear"); /*clear*/ /*_.LET___V28*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -6914,7 +6909,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_#I__L49*/ meltfnum[29] = ((/*_#LIST_LENGTH__L48*/ meltfnum[31]) == (0));; - MELT_LOCATION("warmelt-macro.melt:1316:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1295:/ cond"); /*cond*/ if (/*_#I__L49*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6922,13 +6917,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1317:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1296:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L50*/ meltfnum[26] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1317:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1296:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6939,14 +6934,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1317; + argtab[3].meltbp_long = 1296; /*_.DEBUG_MSG_FUN__V143*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V142*/ meltfptr[99] = /*_.DEBUG_MSG_FUN__V143*/ meltfptr[91];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1317:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1296:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L50*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V143*/ meltfptr[91] = 0 ;} @@ -6956,14 +6951,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V142*/ meltfptr[99] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1318:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1297:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:1318:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1297:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1316:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1295:/ quasiblock"); /*_.PROGN___V145*/ meltfptr[88] = /*_.RETURN___V144*/ meltfptr[92];; @@ -6972,7 +6967,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V141*/ meltfptr[123] = /*_.PROGN___V145*/ meltfptr[88];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1316:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1295:/ clear"); /*clear*/ /*_.IFCPP___V142*/ meltfptr[99] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V144*/ meltfptr[92] = 0 ; @@ -6984,7 +6979,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1320:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1299:/ quasiblock"); /*^apply*/ @@ -7000,13 +6995,13 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1321:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1300:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[33] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1321:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1300:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7017,14 +7012,14 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1321; + argtab[3].meltbp_long = 1300; /*_.DEBUG_MSG_FUN__V149*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESCA__V147*/ meltfptr[59]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V148*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V149*/ meltfptr[93];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1321:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1300:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[33] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V149*/ meltfptr[93] = 0 ;} @@ -7034,22 +7029,22 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFCPP___V148*/ meltfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1322:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1301:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESCA__V147*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:1322:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1301:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V146*/ meltfptr[73] = /*_.RETURN___V150*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:1320:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1299:/ clear"); /*clear*/ /*_.RESCA__V147*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V148*/ meltfptr[80] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V150*/ meltfptr[66] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1319:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1298:/ quasiblock"); /*_.PROGN___V151*/ meltfptr[117] = /*_.LET___V146*/ meltfptr[73];; @@ -7058,7 +7053,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V141*/ meltfptr[123] = /*_.PROGN___V151*/ meltfptr[117];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1316:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1295:/ clear"); /*clear*/ /*_.LET___V146*/ meltfptr[73] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V151*/ meltfptr[117] = 0 ;} @@ -7068,7 +7063,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V27*/ meltfptr[22] = /*_.IFELSE___V141*/ meltfptr[123];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1195:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1174:/ clear"); /*clear*/ /*_#LIST_LENGTH__L48*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_#I__L49*/ meltfnum[29] = 0 ; @@ -7080,7 +7075,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V21*/ meltfptr[19] = /*_.IFELSE___V27*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1190:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1169:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V27*/ meltfptr[22] = 0 ;} @@ -7089,7 +7084,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! ; /*_.LET___V12*/ meltfptr[11] = /*_.IFELSE___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1183:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1162:/ clear"); /*clear*/ /*_.SCONT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V14*/ meltfptr[13] = 0 ; @@ -7108,7 +7103,7 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*_.IFELSE___V11*/ meltfptr[9] = /*_.LET___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1182:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1161:/ clear"); /*clear*/ /*_.LET___V12*/ meltfptr[11] = 0 ;} ; } else {/*^cond.else*/ @@ -7116,26 +7111,26 @@ melt_is_instance_of((melt_ptr_t)(/*_.VAL__V85*/ meltfptr[59]), (melt_ptr_t)((/*! /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1325:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1304:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SEXPR__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:1325:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1304:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IFELSE___V11*/ meltfptr[9] = /*_.RETURN___V152*/ meltfptr[111];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1182:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1161:/ clear"); /*clear*/ /*_.RETURN___V152*/ meltfptr[111] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:1178:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1157:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:1178:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1157:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7218,10 +7213,10 @@ melt_trace_start("LAMBDA_", meltcallcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -MELT_LOCATION("warmelt-macro.melt:1288:/ block"); +MELT_LOCATION("warmelt-macro.melt:1267:/ block"); /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1289:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1268:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7232,11 +7227,11 @@ MELT_LOCATION("warmelt-macro.melt:1288:/ block"); /*_.MACROEXPAND_1__V2*/ meltfptr[1] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~SEXPR*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1288:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1267:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:1288:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1267:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7307,7 +7302,7 @@ melt_trace_start("EXPAND_PRIMITIVE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1328:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1307:/ getarg"); /*_.SPRIM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7339,17 +7334,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1329:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1308:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SPRIM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1329:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1308:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1329:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1308:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7360,7 +7355,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sprim"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1329)?(1329):__LINE__, __FUNCTION__); + (1308)?(1308):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -7374,7 +7369,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1329:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1308:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -7386,17 +7381,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1330:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1309:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1330:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1309:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1330:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1309:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7407,7 +7402,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1330)?(1330):__LINE__, __FUNCTION__); + (1309)?(1309):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -7421,7 +7416,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1309:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -7433,17 +7428,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1331:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1310:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1331:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1310:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1331:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1310:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7454,7 +7449,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1331)?(1331):__LINE__, __FUNCTION__); + (1310)?(1310):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -7468,7 +7463,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1331:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1310:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -7480,17 +7475,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1332:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1311:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1332:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1311:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1332:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1311:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7501,7 +7496,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1332)?(1332):__LINE__, __FUNCTION__); + (1311)?(1311):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -7515,7 +7510,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1332:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1311:/ clear"); /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -7525,14 +7520,14 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1333:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1312:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 2, "SEXP_CONTENTS");/*_.SCONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1334:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1313:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V3*/ meltfptr[2]), 1, "LOCA_LOCATION");/*_.SLOC__V16*/ meltfptr[15] = slot; }; ; @@ -7542,7 +7537,7 @@ lab_endgetargs:; /*_.SOPER__V18*/ meltfptr[17] = (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:1336:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1315:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7553,7 +7548,7 @@ lab_endgetargs:; /*_.XARGTUP__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SCONT__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1338:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1317:/ quasiblock"); /*^rawallocobj*/ @@ -7582,7 +7577,7 @@ lab_endgetargs:; /*_.LET___V14*/ meltfptr[12] = /*_.INST___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1333:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1312:/ clear"); /*clear*/ /*_.SCONT__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V16*/ meltfptr[15] = 0 ; @@ -7594,11 +7589,11 @@ lab_endgetargs:; /*clear*/ /*_.XARGTUP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1328:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1307:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:1328:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1307:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7677,7 +7672,7 @@ melt_trace_start("PATTERNEXPAND_PAIRLIST_AS_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1357:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1336:/ getarg"); /*_.PAIRLIST__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7709,13 +7704,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1358:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1337:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1358:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1337:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7726,14 +7721,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1358; + argtab[3].meltbp_long = 1337; /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PAIRLIST__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V6*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1358:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1337:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = 0 ;} @@ -7743,10 +7738,10 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1359:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1338:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:1361:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1340:/ quasiblock"); /*^newclosure*/ @@ -7772,7 +7767,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[2] = (melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:1359:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1338:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7785,13 +7780,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1363:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1342:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1363:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1342:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7802,14 +7797,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1363; + argtab[3].meltbp_long = 1342; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RESTUP__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1363:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1342:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -7819,16 +7814,16 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1364:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1343:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESTUP__V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-macro.melt:1364:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1343:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V8*/ meltfptr[6] = /*_.RETURN___V14*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:1359:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1338:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.RESTUP__V11*/ meltfptr[10] = 0 ; @@ -7836,11 +7831,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V14*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1357:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1336:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:1357:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1336:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7913,7 +7908,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1361:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1340:/ getarg"); /*_.X__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -7939,7 +7934,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATTERNEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:1361:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1340:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8010,7 +8005,7 @@ melt_trace_start("PATMACEXPAND_FOR_MATCHER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1371:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1350:/ getarg"); /*_.PAIRS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8049,17 +8044,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1372:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1351:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1372:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1351:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1372:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1351:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8070,7 +8065,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check matcher"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1372)?(1372):__LINE__, __FUNCTION__); + (1351)?(1351):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -8084,7 +8079,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1372:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1351:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -8096,17 +8091,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1373:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1352:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1373:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1352:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1373:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1352:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8117,7 +8112,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1373)?(1373):__LINE__, __FUNCTION__); + (1352)?(1352):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -8131,7 +8126,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1373:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1352:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -8143,17 +8138,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1374:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1353:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1374:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1353:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1374:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1353:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8164,7 +8159,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1374)?(1374):__LINE__, __FUNCTION__); + (1353)?(1353):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -8178,7 +8173,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1374:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1353:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} @@ -8188,18 +8183,18 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1375:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1354:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]), 2, "AMATCH_IN");/*_.MINS__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1376:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1355:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]), 4, "AMATCH_OUT");/*_.MOUTS__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1377:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1356:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.PCTX__V6*/ meltfptr[5]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V16*/ meltfptr[15] = slot; }; ; @@ -8213,7 +8208,7 @@ lab_endgetargs:; /*_.PAIRBOX__V17*/ meltfptr[16] = meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAIRS__V2*/ meltfptr[1]));; - MELT_LOCATION("warmelt-macro.melt:1383:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1362:/ quasiblock"); /*^newclosure*/ @@ -8251,7 +8246,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ meltfptr[18])->tabval[4] = (melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]); ; /*_.LAMBDA___V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:1381:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1360:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -8260,7 +8255,7 @@ lab_endgetargs:; /*_.INARGS__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.MINS__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1395:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1374:/ quasiblock"); /*^newclosure*/ @@ -8298,7 +8293,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[4] = (melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]); ; /*_.LAMBDA___V21*/ meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:1393:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1372:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -8307,7 +8302,7 @@ lab_endgetargs:; /*_.OUTPATS__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.MOUTS__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1405:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1384:/ quasiblock"); /*_.CURPAIR__V24*/ meltfptr[23] = @@ -8316,7 +8311,7 @@ lab_endgetargs:; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1406:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1385:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8324,13 +8319,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1408:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1387:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1408:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1387:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8341,14 +8336,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1408; + argtab[3].meltbp_long = 1387; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1408:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1387:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} @@ -8358,7 +8353,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1410:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1389:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCHER__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[13])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8372,15 +8367,15 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1409:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1388:/ locexp"); melt_error_str((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4]), ( "ignored extra sub-{pattern | expression} in matcher"), (melt_ptr_t)(/*_.NAMED_NAME__V27*/ meltfptr[25]));} ; - MELT_LOCATION("warmelt-macro.melt:1407:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1386:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1406:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1385:/ clear"); /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V27*/ meltfptr[25] = 0 ;} @@ -8388,15 +8383,15 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:1405:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1384:/ clear"); /*clear*/ /*_.CURPAIR__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#IS_PAIR__L6*/ meltfnum[5] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1411:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1390:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.INARGS__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1411:/ putxtraresult"); + MELT_LOCATION("warmelt-macro.melt:1390:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != MELTBPAR_PTR) goto labend_rout; if (xrestab_[0].meltbp_aptr) *(xrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.OUTPATS__V23*/ meltfptr[22]); @@ -8406,7 +8401,7 @@ lab_endgetargs:; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V28*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:1375:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1354:/ clear"); /*clear*/ /*_.MINS__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.MOUTS__V15*/ meltfptr[14] = 0 ; @@ -8428,11 +8423,11 @@ lab_endgetargs:; /*clear*/ /*_.OUTPATS__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V28*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1371:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1350:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:1371:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1350:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8509,7 +8504,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1383:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1362:/ getarg"); /*_.CURFBIND__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8525,17 +8520,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1384:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1363:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1384:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1363:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1384:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1363:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8546,7 +8541,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curfbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1384)?(1384):__LINE__, __FUNCTION__); + (1363)?(1363):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -8560,7 +8555,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1384:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1363:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -8570,7 +8565,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1385:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1364:/ quasiblock"); /*_.CURPAIR__V6*/ meltfptr[5] = @@ -8579,13 +8574,13 @@ lab_endgetargs:; /*_#IS_PAIR__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V6*/ meltfptr[5])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1386:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1365:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1387:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1366:/ quasiblock"); /*_.CURIN__V9*/ meltfptr[8] = @@ -8596,10 +8591,10 @@ lab_endgetargs:; (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V6*/ meltfptr[5])));; { - MELT_LOCATION("warmelt-macro.melt:1388:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1367:/ locexp"); meltgc_box_put((melt_ptr_t)((/*~PAIRBOX*/ meltfclos->tabval[0])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ meltfptr[9]));} ; - MELT_LOCATION("warmelt-macro.melt:1389:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1368:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8612,7 +8607,7 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[7] = /*_.MACROEXPAND_1__V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-macro.melt:1387:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1366:/ clear"); /*clear*/ /*_.CURIN__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V10*/ meltfptr[9] = 0 ; @@ -8621,7 +8616,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.LET___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1386:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1365:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[7] = 0 ;} ; } else {/*^cond.else*/ @@ -8629,7 +8624,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1391:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1370:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MATCHER*/ meltfclos->tabval[4])), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8645,30 +8640,30 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1390:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1369:/ locexp"); melt_error_str((melt_ptr_t)((/*~PSLOC*/ meltfclos->tabval[3])), ( "missing in argument for matcher"), (melt_ptr_t)(/*_.NAMED_NAME__V12*/ meltfptr[8]));} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1386:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1365:/ clear"); /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[8] = 0 ;} ; } ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:1385:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1364:/ clear"); /*clear*/ /*_.CURPAIR__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1383:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1362:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:1383:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1362:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8741,7 +8736,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1395:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1374:/ getarg"); /*_.CURFORMAL__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8755,7 +8750,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1396:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1375:/ quasiblock"); /*_.CURPAIR__V4*/ meltfptr[3] = @@ -8764,13 +8759,13 @@ lab_endgetargs:; /*_#IS_PAIR__L2*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V4*/ meltfptr[3])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1397:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1376:/ cond"); /*cond*/ if (/*_#IS_PAIR__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1398:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1377:/ quasiblock"); /*_.CUROUT__V7*/ meltfptr[6] = @@ -8781,10 +8776,10 @@ lab_endgetargs:; (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V4*/ meltfptr[3])));; { - MELT_LOCATION("warmelt-macro.melt:1399:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1378:/ locexp"); meltgc_box_put((melt_ptr_t)((/*~PAIRBOX*/ meltfclos->tabval[0])), (melt_ptr_t)(/*_.PAIR_TAIL__V8*/ meltfptr[7]));} ; - MELT_LOCATION("warmelt-macro.melt:1400:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1379:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -8799,7 +8794,7 @@ lab_endgetargs:; ; /*_.LET___V6*/ meltfptr[5] = /*_.PATTERNEXPAND_1__V9*/ meltfptr[8];; - MELT_LOCATION("warmelt-macro.melt:1398:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1377:/ clear"); /*clear*/ /*_.CUROUT__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V8*/ meltfptr[7] = 0 ; @@ -8808,7 +8803,7 @@ lab_endgetargs:; /*_.IFELSE___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1397:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1376:/ clear"); /*clear*/ /*_.LET___V6*/ meltfptr[5] = 0 ;} ; } else {/*^cond.else*/ @@ -8816,7 +8811,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1402:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1381:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MATCHER*/ meltfclos->tabval[4])), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8832,30 +8827,30 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1401:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1380:/ locexp"); melt_error_str((melt_ptr_t)((/*~PSLOC*/ meltfclos->tabval[3])), ( "missing out argument for matcher"), (melt_ptr_t)(/*_.NAMED_NAME__V10*/ meltfptr[6]));} ; /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1397:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1376:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ meltfptr[6] = 0 ;} ; } ; /*_.LET___V3*/ meltfptr[2] = /*_.IFELSE___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-macro.melt:1396:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1375:/ clear"); /*clear*/ /*_.CURPAIR__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_PAIR__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V5*/ meltfptr[4] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1395:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1374:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:1395:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1374:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8926,7 +8921,7 @@ melt_trace_start("PATTERN_WEIGHT_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1414:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1393:/ getarg"); /*_.SPATS__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -8937,17 +8932,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1419:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1398:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MULTIPLE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SPATS__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:1419:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1398:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1419:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1398:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8958,7 +8953,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check spats"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1419)?(1419):__LINE__, __FUNCTION__); + (1398)?(1398):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -8972,7 +8967,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1419:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1398:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -8982,7 +8977,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1420:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1399:/ quasiblock"); /*_.BSUM__V6*/ meltfptr[5] = @@ -8995,7 +8990,7 @@ lab_endgetargs:; /*_.BMIN__V8*/ meltfptr[7] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[0])), (0)));; - MELT_LOCATION("warmelt-macro.melt:1427:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1406:/ quasiblock"); /*^newclosure*/ @@ -9021,7 +9016,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[2] = (melt_ptr_t)(/*_.BMAX__V7*/ meltfptr[6]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:1425:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1404:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9040,11 +9035,11 @@ lab_endgetargs:; /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.BSUM__V6*/ meltfptr[5])));; - MELT_LOCATION("warmelt-macro.melt:1444:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1423:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESTUP__V11*/ meltfptr[10];; - MELT_LOCATION("warmelt-macro.melt:1444:/ putxtraresult"); + MELT_LOCATION("warmelt-macro.melt:1423:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != MELTBPAR_LONG) goto labend_rout; if (xrestab_[0].meltbp_longptr) *(xrestab_[0].meltbp_longptr) = (/*_#GET_INT__L2*/ meltfnum[0]); @@ -9064,7 +9059,7 @@ lab_endgetargs:; /*finalret*/ goto labend_rout ; /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:1420:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1399:/ clear"); /*clear*/ /*_.BSUM__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.BMAX__V7*/ meltfptr[6] = 0 ; @@ -9082,11 +9077,11 @@ lab_endgetargs:; /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1414:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1393:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:1414:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1393:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9159,7 +9154,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1427:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1406:/ getarg"); /*_.SUBPAT__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9173,7 +9168,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1428:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1407:/ quasiblock"); /*^cond*/ @@ -9204,7 +9199,7 @@ lab_endgetargs:; /*_#IMAX__L5*/ meltfnum[4] = (melt_get_int((melt_ptr_t)((/*~BMAX*/ meltfclos->tabval[2]))));; - MELT_LOCATION("warmelt-macro.melt:1434:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1413:/ cond"); /*cond*/ if (/*_#SUBW__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9212,41 +9207,41 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = ((/*_#ISUM__L3*/ meltfnum[2]) + (/*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION("warmelt-macro.melt:1436:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1415:/ compute"); /*_#ISUM__L3*/ meltfnum[2] = /*_#SETQ___L7*/ meltfnum[6] = /*_#I__L6*/ meltfnum[5];; /*_#MINI__L8*/ meltfnum[7] = MIN((/*_#IMIN__L4*/ meltfnum[3]),(/*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION("warmelt-macro.melt:1437:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1416:/ compute"); /*_#IMIN__L4*/ meltfnum[3] = /*_#SETQ___L9*/ meltfnum[8] = /*_#MINI__L8*/ meltfnum[7];; /*_#MAXI__L10*/ meltfnum[9] = MAX((/*_#IMAX__L5*/ meltfnum[4]),(/*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION("warmelt-macro.melt:1438:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1417:/ compute"); /*_#IMAX__L5*/ meltfnum[4] = /*_#SETQ___L11*/ meltfnum[10] = /*_#MAXI__L10*/ meltfnum[9];; { - MELT_LOCATION("warmelt-macro.melt:1439:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1418:/ locexp"); melt_put_int((melt_ptr_t)((/*~BSUM*/ meltfclos->tabval[0])), (/*_#ISUM__L3*/ meltfnum[2]));} ; { - MELT_LOCATION("warmelt-macro.melt:1440:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1419:/ locexp"); melt_put_int((melt_ptr_t)((/*~BMIN*/ meltfclos->tabval[1])), (/*_#IMIN__L4*/ meltfnum[3]));} ; { - MELT_LOCATION("warmelt-macro.melt:1441:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1420:/ locexp"); melt_put_int((melt_ptr_t)((/*~BMAX*/ meltfclos->tabval[2])), (/*_#IMAX__L5*/ meltfnum[4]));} ; /*_.MAKE_INTEGERBOX__V6*/ meltfptr[5] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[1])), (/*_#SUBW__L2*/ meltfnum[1])));; - MELT_LOCATION("warmelt-macro.melt:1442:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1421:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MAKE_INTEGERBOX__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:1442:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1421:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1435:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1414:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[6];; @@ -9255,7 +9250,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1434:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1413:/ clear"); /*clear*/ /*_#I__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L7*/ meltfnum[6] = 0 ; @@ -9283,7 +9278,7 @@ lab_endgetargs:; /*_.LET___V3*/ meltfptr[2] = /*_.IF___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-macro.melt:1428:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1407:/ clear"); /*clear*/ /*_.BOXSUBW__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#SUBW__L2*/ meltfnum[1] = 0 ; @@ -9295,11 +9290,11 @@ lab_endgetargs:; /*clear*/ /*_#IMAX__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V5*/ meltfptr[4] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1427:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1406:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:1427:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1406:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9370,7 +9365,7 @@ melt_trace_start("PATTERNEXPAND_EXPR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1448:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1427:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9402,17 +9397,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1449:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1428:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1449:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1428:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1449:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1428:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9423,7 +9418,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1449)?(1449):__LINE__, __FUNCTION__); + (1428)?(1428):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -9437,7 +9432,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1449:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -9449,17 +9444,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1450:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1429:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1450:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1429:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1450:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1429:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9470,7 +9465,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1450)?(1450):__LINE__, __FUNCTION__); + (1429)?(1429):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -9484,7 +9479,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1450:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1429:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -9496,17 +9491,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1451:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1430:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1451:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1430:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1451:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1430:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9517,7 +9512,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1451)?(1451):__LINE__, __FUNCTION__); + (1430)?(1430):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -9531,7 +9526,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1451:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1430:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -9543,13 +9538,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1452:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1431:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1452:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1431:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9560,14 +9555,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1452; + argtab[3].meltbp_long = 1431; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1452:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1431:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -9577,14 +9572,14 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1453:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1432:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1454:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1433:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V16*/ meltfptr[15] = slot; }; ; @@ -9598,7 +9593,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:1457:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1436:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9606,13 +9601,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1459:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1438:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1459:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1438:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9623,14 +9618,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1459; + argtab[3].meltbp_long = 1438; /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SOPER__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V20*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1459:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1438:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = 0 ;} @@ -9642,17 +9637,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1460:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1439:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "pattern expression requires symbol operator"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:1461:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1440:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1461:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1440:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1458:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1437:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[20];; @@ -9661,7 +9656,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1457:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1436:/ clear"); /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[20] = 0 ; @@ -9673,7 +9668,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1462:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1441:/ quasiblock"); /*^apply*/ @@ -9685,19 +9680,19 @@ lab_endgetargs:; /*_.OPBIND__V25*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1463:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1442:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V18*/ meltfptr[17]), 1, "NAMED_NAME");/*_.OPNAM__V26*/ meltfptr[22] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1465:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1444:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1465:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1444:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9708,14 +9703,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1465; + argtab[3].meltbp_long = 1444; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1465:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1444:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -9729,7 +9724,7 @@ lab_endgetargs:; /*_#NULL__L8*/ meltfnum[5] = ((/*_.OPBIND__V25*/ meltfptr[20]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1467:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1446:/ cond"); /*cond*/ if (/*_#NULL__L8*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9739,27 +9734,27 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1468:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1447:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "unbound pattern operator"), (melt_ptr_t)(/*_.OPNAM__V26*/ meltfptr[22]));} ; /*clear*/ /*_.IFELSE___V29*/ meltfptr[27] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1467:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1446:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L9*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_PATMACRO_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:1470:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1449:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1471:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1450:/ quasiblock"); /*^getslot*/ @@ -9768,17 +9763,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1472:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1451:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L10*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.PATEXP__V32*/ meltfptr[31])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1472:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1451:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V34*/ meltfptr[33] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1472:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1451:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9789,7 +9784,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check patexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1472)?(1472):__LINE__, __FUNCTION__); + (1451)?(1451):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ; @@ -9803,7 +9798,7 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[32] = /*_.IFELSE___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1472:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1451:/ clear"); /*clear*/ /*_#IS_CLOSURE__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V34*/ meltfptr[33] = 0 ;} @@ -9813,7 +9808,7 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1473:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1452:/ quasiblock"); /*^apply*/ @@ -9829,13 +9824,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1474:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1453:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1474:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1453:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9846,14 +9841,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1474; + argtab[3].meltbp_long = 1453; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RESP__V36*/ meltfptr[35]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1474:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1453:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} @@ -9863,16 +9858,16 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1475:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1454:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:1475:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1454:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V35*/ meltfptr[33] = /*_.RETURN___V39*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:1473:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1452:/ clear"); /*clear*/ /*_.RESP__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ; @@ -9880,7 +9875,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V39*/ meltfptr[37] = 0 ; /*_.LET___V31*/ meltfptr[30] = /*_.LET___V35*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:1471:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1450:/ clear"); /*clear*/ /*_.PATEXP__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; @@ -9889,7 +9884,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.LET___V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1470:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.LET___V31*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -9899,13 +9894,13 @@ lab_endgetargs:; /*_#IS_A__L12*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:1477:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1456:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1478:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1457:/ quasiblock"); /*^getslot*/ @@ -9914,13 +9909,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1479:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1458:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1479:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1458:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9931,14 +9926,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1479; + argtab[3].meltbp_long = 1458; /*_.DEBUG_MSG_FUN__V44*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CMAT__V42*/ meltfptr[37]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V43*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1479:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[32] = 0 ;} @@ -9950,17 +9945,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1480:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1459:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L14*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.CMAT__V42*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:1480:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1459:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V46*/ meltfptr[30] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1480:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1459:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9971,7 +9966,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cmat-cher"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1480)?(1480):__LINE__, __FUNCTION__); + (1459)?(1459):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V46*/ meltfptr[30] = 0 ; @@ -9985,7 +9980,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[33] = /*_.IFELSE___V46*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1480:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1459:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V46*/ meltfptr[30] = 0 ;} @@ -9999,7 +9994,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V47*/ meltfptr[32] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:1481:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1460:/ quasiblock"); /*^multiapply*/ @@ -10025,13 +10020,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1484:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1463:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1484:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1463:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10042,14 +10037,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1484; + argtab[3].meltbp_long = 1463; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V49*/ meltfptr[48]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1484:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1463:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} @@ -10061,13 +10056,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1485:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1464:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1485:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1464:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10078,14 +10073,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1485; + argtab[3].meltbp_long = 1464; /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATS__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V53*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1485:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53] = 0 ;} @@ -10095,7 +10090,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1486:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1465:/ quasiblock"); /*^multiapply*/ @@ -10116,7 +10111,7 @@ lab_endgetargs:; /*^quasiblock*/ - MELT_LOCATION("warmelt-macro.melt:1489:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1468:/ quasiblock"); /*_#I__L20*/ meltfnum[19] = @@ -10125,7 +10120,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V58*/ meltfptr[57] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[12])), (/*_#I__L20*/ meltfnum[19])));; - MELT_LOCATION("warmelt-macro.melt:1489:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1468:/ quasiblock"); /*^rawallocobj*/ @@ -10167,13 +10162,13 @@ lab_endgetargs:; /*_.PCOMP__V59*/ meltfptr[58] = /*_.INST__V60*/ meltfptr[59];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1499:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1478:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1499:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1478:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10184,14 +10179,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1499; + argtab[3].meltbp_long = 1478; /*_.DEBUG_MSG_FUN__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PCOMP__V59*/ meltfptr[58]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V61*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1499:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1478:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ meltfptr[61] = 0 ;} @@ -10201,16 +10196,16 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1500:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1479:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PCOMP__V59*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:1500:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1479:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V57*/ meltfptr[56] = /*_.RETURN___V63*/ meltfptr[61];; - MELT_LOCATION("warmelt-macro.melt:1489:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1468:/ clear"); /*clear*/ /*_#I__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V58*/ meltfptr[57] = 0 ; @@ -10222,7 +10217,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V63*/ meltfptr[61] = 0 ; /*_.MULTI___V55*/ meltfptr[53] = /*_.LET___V57*/ meltfptr[56];; - MELT_LOCATION("warmelt-macro.melt:1486:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.LET___V57*/ meltfptr[56] = 0 ; /*^clear*/ @@ -10233,7 +10228,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L19*/ meltfnum[18] = 0 ; /*_.MULTI___V48*/ meltfptr[30] = /*_.MULTI___V55*/ meltfptr[53];; - MELT_LOCATION("warmelt-macro.melt:1481:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1460:/ clear"); /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V53*/ meltfptr[51] = 0 ; @@ -10244,7 +10239,7 @@ lab_endgetargs:; /*clear*/ /*_.PATS__V50*/ meltfptr[49] = 0 ; /*_.LET___V41*/ meltfptr[36] = /*_.MULTI___V48*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:1478:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1457:/ clear"); /*clear*/ /*_.CMAT__V42*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V43*/ meltfptr[31] = 0 ; @@ -10257,7 +10252,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.LET___V41*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1456:/ clear"); /*clear*/ /*_.LET___V41*/ meltfptr[36] = 0 ;} ; } else {/*^cond.else*/ @@ -10267,32 +10262,32 @@ lab_endgetargs:; /*_#IS_A__L22*/ meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:1503:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1482:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1504:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1483:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), 2, "FMBIND_FUNMATCHER");/*_.FMAT__V66*/ meltfptr[60] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1505:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1484:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), 3, "FMBIND_DEFUNMATCHER");/*_.DEFM__V67*/ meltfptr[61] = slot; }; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1507:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1486:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1507:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1486:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10303,14 +10298,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1507; + argtab[3].meltbp_long = 1486; /*_.DEBUG_MSG_FUN__V69*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FMAT__V66*/ meltfptr[60]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V68*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1507:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1486:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[55] = 0 ;} @@ -10322,13 +10317,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1508:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1487:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1508:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1487:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10339,14 +10334,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1508; + argtab[3].meltbp_long = 1487; /*_.DEBUG_MSG_FUN__V71*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.DEFM__V67*/ meltfptr[61]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V70*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V71*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1508:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1487:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ meltfptr[51] = 0 ;} @@ -10358,13 +10353,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1509:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1488:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[17] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1509:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1488:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10375,14 +10370,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1509; + argtab[3].meltbp_long = 1488; /*_.DEBUG_MSG_FUN__V73*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V72*/ meltfptr[53] = /*_.DEBUG_MSG_FUN__V73*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1509:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1488:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ meltfptr[48] = 0 ;} @@ -10394,17 +10389,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1510:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1489:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L26*/ meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.FMAT__V66*/ meltfptr[60]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-macro.melt:1510:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1489:/ cond"); /*cond*/ if (/*_#IS_A__L26*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V75*/ meltfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1510:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1489:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10415,7 +10410,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fmat-cher"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1510)?(1510):__LINE__, __FUNCTION__); + (1489)?(1489):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V75*/ meltfptr[37] = 0 ; @@ -10429,7 +10424,7 @@ lab_endgetargs:; /*_.IFCPP___V74*/ meltfptr[49] = /*_.IFELSE___V75*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1510:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1489:/ clear"); /*clear*/ /*_#IS_A__L26*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V75*/ meltfptr[37] = 0 ;} @@ -10443,7 +10438,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V76*/ meltfptr[31] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:1511:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1490:/ quasiblock"); /*^multiapply*/ @@ -10469,13 +10464,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1514:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1493:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1514:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1493:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10486,14 +10481,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1514; + argtab[3].meltbp_long = 1493; /*_.DEBUG_MSG_FUN__V81*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V78*/ meltfptr[32]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V80*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V81*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1514:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1493:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ meltfptr[55] = 0 ;} @@ -10505,13 +10500,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1515:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1494:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1515:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1494:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10522,14 +10517,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1515; + argtab[3].meltbp_long = 1494; /*_.DEBUG_MSG_FUN__V83*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATS__V79*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V82*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V83*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1515:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1494:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ meltfptr[48] = 0 ;} @@ -10539,7 +10534,7 @@ lab_endgetargs:; /*_.IFCPP___V82*/ meltfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1516:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1495:/ quasiblock"); /*^multiapply*/ @@ -10560,7 +10555,7 @@ lab_endgetargs:; /*^quasiblock*/ - MELT_LOCATION("warmelt-macro.melt:1519:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1498:/ quasiblock"); /*_#I__L32*/ meltfnum[12] = @@ -10569,7 +10564,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V87*/ meltfptr[86] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[12])), (/*_#I__L32*/ meltfnum[12])));; - MELT_LOCATION("warmelt-macro.melt:1519:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1498:/ quasiblock"); /*^rawallocobj*/ @@ -10611,13 +10606,13 @@ lab_endgetargs:; /*_.PCOMP__V88*/ meltfptr[87] = /*_.INST__V89*/ meltfptr[88];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1528:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1507:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1528:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1507:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10628,14 +10623,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1528; + argtab[3].meltbp_long = 1507; /*_.DEBUG_MSG_FUN__V91*/ meltfptr[90] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PCOMP__V88*/ meltfptr[87]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V90*/ meltfptr[89] = /*_.DEBUG_MSG_FUN__V91*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1528:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1507:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ meltfptr[90] = 0 ;} @@ -10645,16 +10640,16 @@ lab_endgetargs:; /*_.IFCPP___V90*/ meltfptr[89] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1529:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1508:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PCOMP__V88*/ meltfptr[87];; - MELT_LOCATION("warmelt-macro.melt:1529:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1508:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V86*/ meltfptr[48] = /*_.RETURN___V92*/ meltfptr[90];; - MELT_LOCATION("warmelt-macro.melt:1519:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1498:/ clear"); /*clear*/ /*_#I__L32*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V87*/ meltfptr[86] = 0 ; @@ -10666,7 +10661,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V92*/ meltfptr[90] = 0 ; /*_.MULTI___V84*/ meltfptr[37] = /*_.LET___V86*/ meltfptr[48];; - MELT_LOCATION("warmelt-macro.melt:1516:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1495:/ clear"); /*clear*/ /*_.LET___V86*/ meltfptr[48] = 0 ; /*^clear*/ @@ -10677,7 +10672,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L31*/ meltfnum[19] = 0 ; /*_.MULTI___V77*/ meltfptr[33] = /*_.MULTI___V84*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:1511:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1490:/ clear"); /*clear*/ /*_.IFCPP___V80*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V82*/ meltfptr[51] = 0 ; @@ -10688,7 +10683,7 @@ lab_endgetargs:; /*clear*/ /*_.PATS__V79*/ meltfptr[30] = 0 ; /*_.LET___V65*/ meltfptr[58] = /*_.MULTI___V77*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:1504:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1483:/ clear"); /*clear*/ /*_.FMAT__V66*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_.DEFM__V67*/ meltfptr[61] = 0 ; @@ -10707,7 +10702,7 @@ lab_endgetargs:; /*_.IFELSE___V64*/ meltfptr[57] = /*_.LET___V65*/ meltfptr[58];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1503:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1482:/ clear"); /*clear*/ /*_.LET___V65*/ meltfptr[58] = 0 ;} ; } else {/*^cond.else*/ @@ -10717,13 +10712,13 @@ lab_endgetargs:; /*_#IS_A__L34*/ meltfnum[32] = melt_is_instance_of((melt_ptr_t)(/*_.OPBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[16])));; - MELT_LOCATION("warmelt-macro.melt:1532:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1511:/ cond"); /*cond*/ if (/*_#IS_A__L34*/ meltfnum[32]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1533:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1512:/ quasiblock"); /*^getslot*/ @@ -10732,13 +10727,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1534:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1513:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1534:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1513:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10749,14 +10744,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1534; + argtab[3].meltbp_long = 1513; /*_.DEBUG_MSG_FUN__V97*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V96*/ meltfptr[90] = /*_.DEBUG_MSG_FUN__V97*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1534:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1513:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ meltfptr[48] = 0 ;} @@ -10770,7 +10765,7 @@ lab_endgetargs:; /*_#IS_A__L36*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:1536:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1515:/ cond"); /*cond*/ if (/*_#IS_A__L36*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10778,7 +10773,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V99*/ meltfptr[36] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:1537:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1516:/ quasiblock"); /*^multiapply*/ @@ -10804,13 +10799,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1540:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1519:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[18] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1540:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1519:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10821,14 +10816,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1540; + argtab[3].meltbp_long = 1519; /*_.DEBUG_MSG_FUN__V104*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V101*/ meltfptr[37]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V103*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V104*/ meltfptr[60];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1540:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1519:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V104*/ meltfptr[60] = 0 ;} @@ -10840,13 +10835,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1541:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1520:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1541:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1520:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10857,14 +10852,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1541; + argtab[3].meltbp_long = 1520; /*_.DEBUG_MSG_FUN__V106*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATS__V102*/ meltfptr[32]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V105*/ meltfptr[61] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1541:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1520:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[56] = 0 ;} @@ -10874,7 +10869,7 @@ lab_endgetargs:; /*_.IFCPP___V105*/ meltfptr[61] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1542:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1521:/ quasiblock"); /*^multiapply*/ @@ -10895,7 +10890,7 @@ lab_endgetargs:; /*^quasiblock*/ - MELT_LOCATION("warmelt-macro.melt:1545:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1524:/ quasiblock"); /*_#I__L42*/ meltfnum[41] = @@ -10904,7 +10899,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V110*/ meltfptr[31] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[12])), (/*_#I__L42*/ meltfnum[41])));; - MELT_LOCATION("warmelt-macro.melt:1545:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1524:/ quasiblock"); /*^rawallocobj*/ @@ -10944,7 +10939,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V112*/ meltfptr[58]), (8), (/*_.PATS__V102*/ meltfptr[32]), "SPAC_OUTARGS"); ; /*_.PCOMP__V111*/ meltfptr[33] = /*_.INST__V112*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:1554:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1533:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ meltfrout->tabval[17])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -10958,13 +10953,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1556:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1535:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1556:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1535:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10975,14 +10970,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1556; + argtab[3].meltbp_long = 1535; /*_.DEBUG_MSG_FUN__V115*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATS__V102*/ meltfptr[32]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V114*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V115*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1556:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1535:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ meltfptr[56] = 0 ;} @@ -10994,13 +10989,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1557:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1536:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[42] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1557:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1536:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11011,14 +11006,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1557; + argtab[3].meltbp_long = 1536; /*_.DEBUG_MSG_FUN__V117*/ meltfptr[116] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.AOUTS__V113*/ meltfptr[48]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V116*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V117*/ meltfptr[116];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1557:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1536:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[42] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V117*/ meltfptr[116] = 0 ;} @@ -11040,13 +11035,13 @@ lab_endgetargs:; /*_#I__L47*/ meltfnum[46] = ((/*_#MULTIPLE_LENGTH__L45*/ meltfnum[42]) != (/*_#MULTIPLE_LENGTH__L46*/ meltfnum[45]));; - MELT_LOCATION("warmelt-macro.melt:1558:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1537:/ cond"); /*cond*/ if (/*_#I__L47*/ meltfnum[46]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1560:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1539:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[18])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11060,25 +11055,25 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1559:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1538:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "incompatible number of formal and actual subpatterns of cmatcher"), (melt_ptr_t)(/*_.NAMED_NAME__V118*/ meltfptr[116]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1558:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1537:/ clear"); /*clear*/ /*_.NAMED_NAME__V118*/ meltfptr[116] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1561:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1540:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L48*/ meltfnum[47] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1561:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1540:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11089,14 +11084,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1561; + argtab[3].meltbp_long = 1540; /*_.DEBUG_MSG_FUN__V120*/ meltfptr[119] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PCOMP__V111*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V119*/ meltfptr[116] = /*_.DEBUG_MSG_FUN__V120*/ meltfptr[119];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1561:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1540:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L48*/ meltfnum[47] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V120*/ meltfptr[119] = 0 ;} @@ -11106,16 +11101,16 @@ lab_endgetargs:; /*_.IFCPP___V119*/ meltfptr[116] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1562:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1541:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PCOMP__V111*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:1562:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1541:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V109*/ meltfptr[49] = /*_.RETURN___V121*/ meltfptr[119];; - MELT_LOCATION("warmelt-macro.melt:1545:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1524:/ clear"); /*clear*/ /*_#I__L42*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V110*/ meltfptr[31] = 0 ; @@ -11139,7 +11134,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V121*/ meltfptr[119] = 0 ; /*_.MULTI___V107*/ meltfptr[50] = /*_.LET___V109*/ meltfptr[49];; - MELT_LOCATION("warmelt-macro.melt:1542:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1521:/ clear"); /*clear*/ /*_.LET___V109*/ meltfptr[49] = 0 ; /*^clear*/ @@ -11150,7 +11145,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L41*/ meltfnum[19] = 0 ; /*_.MULTI___V100*/ meltfptr[51] = /*_.MULTI___V107*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:1537:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1516:/ clear"); /*clear*/ /*_.IFCPP___V103*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V105*/ meltfptr[61] = 0 ; @@ -11162,7 +11157,7 @@ lab_endgetargs:; /*_.IFELSE___V98*/ meltfptr[55] = /*_.MULTI___V100*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1536:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1515:/ clear"); /*clear*/ /*_.PAIR_TAIL__V99*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V100*/ meltfptr[51] = 0 ;} @@ -11174,7 +11169,7 @@ lab_endgetargs:; /*_#IS_A__L49*/ meltfnum[47] = melt_is_instance_of((melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-macro.melt:1564:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1543:/ cond"); /*cond*/ if (/*_#IS_A__L49*/ meltfnum[47]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11182,13 +11177,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1565:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1544:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L50*/ meltfnum[41] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1565:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1544:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11199,14 +11194,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1565; + argtab[3].meltbp_long = 1544; /*_.DEBUG_MSG_FUN__V124*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPVAL__V95*/ meltfptr[89]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V123*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V124*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1565:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1544:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L50*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V124*/ meltfptr[48] = 0 ;} @@ -11220,7 +11215,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V125*/ meltfptr[60] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:1566:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1545:/ quasiblock"); /*^multiapply*/ @@ -11246,13 +11241,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1569:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1548:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[42] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1569:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1548:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11263,14 +11258,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1569; + argtab[3].meltbp_long = 1548; /*_.DEBUG_MSG_FUN__V130*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V127*/ meltfptr[116]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V129*/ meltfptr[49] = /*_.DEBUG_MSG_FUN__V130*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1569:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1548:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L51*/ meltfnum[42] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V130*/ meltfptr[53] = 0 ;} @@ -11282,13 +11277,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1570:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1549:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L52*/ meltfnum[45] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1570:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1549:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11299,14 +11294,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1570; + argtab[3].meltbp_long = 1549; /*_.DEBUG_MSG_FUN__V132*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATS__V128*/ meltfptr[119]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V131*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V132*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1570:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1549:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L52*/ meltfnum[45] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V132*/ meltfptr[61] = 0 ;} @@ -11316,7 +11311,7 @@ lab_endgetargs:; /*_.IFCPP___V131*/ meltfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1571:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1550:/ quasiblock"); /*^multiapply*/ @@ -11337,7 +11332,7 @@ lab_endgetargs:; /*^quasiblock*/ - MELT_LOCATION("warmelt-macro.melt:1574:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1553:/ quasiblock"); /*_#I__L56*/ meltfnum[19] = @@ -11346,7 +11341,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V136*/ meltfptr[36] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[12])), (/*_#I__L56*/ meltfnum[19])));; - MELT_LOCATION("warmelt-macro.melt:1574:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1553:/ quasiblock"); /*^rawallocobj*/ @@ -11388,13 +11383,13 @@ lab_endgetargs:; /*_.PCOMP__V137*/ meltfptr[51] = /*_.INST__V138*/ meltfptr[48];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1584:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1563:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L57*/ meltfnum[41] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1584:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1563:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11405,14 +11400,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1584; + argtab[3].meltbp_long = 1563; /*_.DEBUG_MSG_FUN__V140*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PCOMP__V137*/ meltfptr[51]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V139*/ meltfptr[53] = /*_.DEBUG_MSG_FUN__V140*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1563:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L57*/ meltfnum[41] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V140*/ meltfptr[61] = 0 ;} @@ -11422,16 +11417,16 @@ lab_endgetargs:; /*_.IFCPP___V139*/ meltfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1585:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1564:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PCOMP__V137*/ meltfptr[51];; - MELT_LOCATION("warmelt-macro.melt:1585:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1564:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V135*/ meltfptr[32] = /*_.RETURN___V141*/ meltfptr[61];; - MELT_LOCATION("warmelt-macro.melt:1574:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1553:/ clear"); /*clear*/ /*_#I__L56*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V136*/ meltfptr[36] = 0 ; @@ -11443,7 +11438,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V141*/ meltfptr[61] = 0 ; /*_.MULTI___V133*/ meltfptr[50] = /*_.LET___V135*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:1571:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1550:/ clear"); /*clear*/ /*_.LET___V135*/ meltfptr[32] = 0 ; /*^clear*/ @@ -11454,7 +11449,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L55*/ meltfnum[18] = 0 ; /*_.MULTI___V126*/ meltfptr[56] = /*_.MULTI___V133*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:1566:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1545:/ clear"); /*clear*/ /*_.IFCPP___V129*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V131*/ meltfptr[30] = 0 ; @@ -11463,7 +11458,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.PATS__V128*/ meltfptr[119] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1564:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1543:/ quasiblock"); /*_.PROGN___V142*/ meltfptr[36] = /*_.MULTI___V126*/ meltfptr[56];; @@ -11472,7 +11467,7 @@ lab_endgetargs:; /*_.IFELSE___V122*/ meltfptr[31] = /*_.PROGN___V142*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1564:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1543:/ clear"); /*clear*/ /*_.IFCPP___V123*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V125*/ meltfptr[60] = 0 ; @@ -11488,17 +11483,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1589:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1568:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "invalid pattern operator value"), (melt_ptr_t)(/*_.OPNAM__V26*/ meltfptr[22]));} ; - MELT_LOCATION("warmelt-macro.melt:1590:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1569:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1590:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1569:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1588:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1567:/ quasiblock"); /*_.PROGN___V144*/ meltfptr[53] = /*_.RETURN___V143*/ meltfptr[51];; @@ -11507,7 +11502,7 @@ lab_endgetargs:; /*_.IFELSE___V122*/ meltfptr[31] = /*_.PROGN___V144*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1564:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1543:/ clear"); /*clear*/ /*_.RETURN___V143*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V144*/ meltfptr[53] = 0 ;} @@ -11517,7 +11512,7 @@ lab_endgetargs:; /*_.IFELSE___V98*/ meltfptr[55] = /*_.IFELSE___V122*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1536:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1515:/ clear"); /*clear*/ /*_#IS_A__L49*/ meltfnum[47] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V122*/ meltfptr[31] = 0 ;} @@ -11526,7 +11521,7 @@ lab_endgetargs:; ; /*_.LET___V94*/ meltfptr[87] = /*_.IFELSE___V98*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:1533:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1512:/ clear"); /*clear*/ /*_.OPVAL__V95*/ meltfptr[89] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V96*/ meltfptr[90] = 0 ; @@ -11537,7 +11532,7 @@ lab_endgetargs:; /*_.IFELSE___V93*/ meltfptr[86] = /*_.LET___V94*/ meltfptr[87];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1532:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1511:/ clear"); /*clear*/ /*_.LET___V94*/ meltfptr[87] = 0 ;} ; } else {/*^cond.else*/ @@ -11547,10 +11542,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1592:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1571:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V16*/ meltfptr[15]), ( "pattern operator badly bound - patternmacro expected"), (melt_ptr_t)(/*_.OPNAM__V26*/ meltfptr[22]));} ; - MELT_LOCATION("warmelt-macro.melt:1591:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1570:/ quasiblock"); /*epilog*/ @@ -11561,7 +11556,7 @@ lab_endgetargs:; /*_.IFELSE___V64*/ meltfptr[57] = /*_.IFELSE___V93*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1503:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1482:/ clear"); /*clear*/ /*_#IS_A__L34*/ meltfnum[32] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V93*/ meltfptr[86] = 0 ;} @@ -11571,7 +11566,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35] = /*_.IFELSE___V64*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1456:/ clear"); /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V64*/ meltfptr[57] = 0 ;} @@ -11581,7 +11576,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.IFELSE___V40*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1470:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V40*/ meltfptr[35] = 0 ;} @@ -11591,7 +11586,7 @@ lab_endgetargs:; /*_.IFELSE___V29*/ meltfptr[27] = /*_.IFELSE___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1467:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1446:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V30*/ meltfptr[29] = 0 ;} @@ -11600,7 +11595,7 @@ lab_endgetargs:; ; /*_.LET___V24*/ meltfptr[19] = /*_.IFELSE___V29*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:1462:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1441:/ clear"); /*clear*/ /*_.OPBIND__V25*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.OPNAM__V26*/ meltfptr[22] = 0 ; @@ -11612,7 +11607,7 @@ lab_endgetargs:; /*clear*/ /*_.IFELSE___V29*/ meltfptr[27] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V24*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1453:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1432:/ clear"); /*clear*/ /*_.SCONT__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V16*/ meltfptr[15] = 0 ; @@ -11626,11 +11621,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V24*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1448:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1427:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:1448:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1427:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11709,7 +11704,7 @@ melt_trace_start("PATTERNEXPAND_1", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1601:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1580:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -11741,17 +11736,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1602:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1581:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1602:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1581:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1602:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1581:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11762,7 +11757,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1602)?(1602):__LINE__, __FUNCTION__); + (1581)?(1581):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -11776,7 +11771,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1602:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1581:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -11788,17 +11783,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1603:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1582:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1603:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1582:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1603:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1582:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11809,7 +11804,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1603)?(1603):__LINE__, __FUNCTION__); + (1582)?(1582):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; @@ -11823,7 +11818,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1603:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1582:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} @@ -11837,20 +11832,20 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1605:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1584:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1606:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1585:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1607:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1586:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ meltfptr[12] = slot; }; ; @@ -11862,13 +11857,13 @@ lab_endgetargs:; (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V14*/ meltfptr[13])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1610:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1589:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1610:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1589:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11879,14 +11874,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1610; + argtab[3].meltbp_long = 1589; /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V16*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1610:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1589:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} @@ -11898,13 +11893,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1611:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1590:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1611:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1590:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11915,14 +11910,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1611; + argtab[3].meltbp_long = 1590; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SOPER__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1611:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1590:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -11936,20 +11931,20 @@ lab_endgetargs:; /*_#__L6*/ meltfnum[3] = ((/*_.SOPER__V15*/ meltfptr[14]) != ((/*!konst_4_QUESTION*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:1612:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1591:/ cond"); /*cond*/ if (/*_#__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1614:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1593:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V22*/ meltfptr[21] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1615:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1594:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11960,7 +11955,7 @@ lab_endgetargs:; /*_.EXP__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1616:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1595:/ quasiblock"); /*^rawallocobj*/ @@ -11987,13 +11982,13 @@ lab_endgetargs:; /*_.PAT__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1621:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1600:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1621:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1600:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12004,14 +11999,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1621; + argtab[3].meltbp_long = 1600; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAT__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1621:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1600:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} @@ -12021,16 +12016,16 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1622:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1601:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PAT__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:1622:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1601:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V21*/ meltfptr[20] = /*_.RETURN___V28*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:1614:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1593:/ clear"); /*clear*/ /*_.MEXPANDER__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.EXP__V23*/ meltfptr[22] = 0 ; @@ -12043,7 +12038,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[18] = /*_.LET___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1612:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1591:/ clear"); /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ;} ; } else {/*^cond.else*/ @@ -12051,12 +12046,12 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1625:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1604:/ quasiblock"); /*_.PAIR_TAIL__V30*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:1625:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1604:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V31*/ meltfptr[23] = /*_.PAIR_TAIL__V30*/ meltfptr[22];; /*_.PARG1__V32*/ meltfptr[25] = (melt_pair_head((melt_ptr_t)(/*_.SETQ___V31*/ meltfptr[23])));; @@ -12064,7 +12059,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V33*/ meltfptr[26] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:1626:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1605:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V33*/ meltfptr[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12072,7 +12067,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1627:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1606:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "QUESTION should have one argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12082,18 +12077,18 @@ lab_endgetargs:; ; /*_#__L8*/ meltfnum[6] = ((/*_.PARG1__V32*/ meltfptr[25]) == ((/*!konst_8_*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:1629:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1608:/ cond"); /*cond*/ if (/*_#__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1630:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1609:/ quasiblock"); /*_.MAKE_INTEGERBOX__V36*/ meltfptr[35] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[11])), (0)));; - MELT_LOCATION("warmelt-macro.melt:1630:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1609:/ quasiblock"); /*^rawallocobj*/ @@ -12125,13 +12120,13 @@ lab_endgetargs:; /*_.JOKP__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1636:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1615:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1636:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1615:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12142,14 +12137,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1636; + argtab[3].meltbp_long = 1615; /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.JOKP__V37*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V39*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1636:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1615:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} @@ -12159,16 +12154,16 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1637:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1616:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.JOKP__V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:1637:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1616:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V35*/ meltfptr[34] = /*_.RETURN___V41*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:1630:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1609:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.JOKP__V37*/ meltfptr[36] = 0 ; @@ -12179,7 +12174,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[20] = /*_.LET___V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1629:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1608:/ clear"); /*clear*/ /*_.LET___V35*/ meltfptr[34] = 0 ;} ; } else {/*^cond.else*/ @@ -12189,13 +12184,13 @@ lab_endgetargs:; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.PARG1__V32*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:1639:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1618:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1642:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1621:/ quasiblock"); /*^getslot*/ @@ -12204,7 +12199,7 @@ lab_endgetargs:; ; /*_.PAVR__V45*/ meltfptr[39] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VAMP__V44*/ meltfptr[38]), (meltobject_ptr_t)(/*_.PARG1__V32*/ meltfptr[25]));; - MELT_LOCATION("warmelt-macro.melt:1645:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1624:/ cond"); /*cond*/ if (/*_.PAVR__V45*/ meltfptr[39]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12212,13 +12207,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1647:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1626:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1647:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1626:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12229,14 +12224,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1647; + argtab[3].meltbp_long = 1626; /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAVR__V45*/ meltfptr[39]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V47*/ meltfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1647:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1626:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = 0 ;} @@ -12246,14 +12241,14 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1648:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1627:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PAVR__V45*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:1648:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1627:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1646:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1625:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[49] = /*_.RETURN___V49*/ meltfptr[47];; @@ -12262,7 +12257,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[34] = /*_.PROGN___V50*/ meltfptr[49];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1645:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1624:/ clear"); /*clear*/ /*_.IFCPP___V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V49*/ meltfptr[47] = 0 ; @@ -12274,12 +12269,12 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1650:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1629:/ quasiblock"); /*_.MAKE_INTEGERBOX__V52*/ meltfptr[47] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[11])), (0)));; - MELT_LOCATION("warmelt-macro.melt:1650:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1629:/ quasiblock"); /*^rawallocobj*/ @@ -12311,20 +12306,20 @@ lab_endgetargs:; /*_.NEWPAVR__V53*/ meltfptr[49] = /*_.INST__V54*/ meltfptr[53];; { - MELT_LOCATION("warmelt-macro.melt:1657:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1636:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VAMP__V44*/ meltfptr[38]), (meltobject_ptr_t) (/*_.PARG1__V32*/ meltfptr[25]), (melt_ptr_t)(/*_.NEWPAVR__V53*/ meltfptr[49]));} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1658:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1637:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1658:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1637:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12335,14 +12330,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1658; + argtab[3].meltbp_long = 1637; /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEWPAVR__V53*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V55*/ meltfptr[54] = /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1658:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1637:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ meltfptr[55] = 0 ;} @@ -12352,16 +12347,16 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1659:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1638:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NEWPAVR__V53*/ meltfptr[49];; - MELT_LOCATION("warmelt-macro.melt:1659:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1638:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V51*/ meltfptr[46] = /*_.RETURN___V57*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:1650:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1629:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.NEWPAVR__V53*/ meltfptr[49] = 0 ; @@ -12372,14 +12367,14 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[34] = /*_.LET___V51*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1645:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1624:/ clear"); /*clear*/ /*_.LET___V51*/ meltfptr[46] = 0 ;} ; } ; /*_.LET___V43*/ meltfptr[36] = /*_.IFELSE___V46*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:1642:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1621:/ clear"); /*clear*/ /*_.VAMP__V44*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.PAVR__V45*/ meltfptr[39] = 0 ; @@ -12388,7 +12383,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[35] = /*_.LET___V43*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1639:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1618:/ clear"); /*clear*/ /*_.LET___V43*/ meltfptr[36] = 0 ;} ; } else {/*^cond.else*/ @@ -12398,7 +12393,7 @@ lab_endgetargs:; /*_#IS_A__L13*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.PARG1__V32*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1662:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1641:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12406,13 +12401,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1663:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1642:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1663:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1642:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12423,14 +12418,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1663; + argtab[3].meltbp_long = 1642; /*_.DEBUG_MSG_FUN__V60*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PARG1__V32*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V59*/ meltfptr[49] = /*_.DEBUG_MSG_FUN__V60*/ meltfptr[54];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1663:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1642:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ meltfptr[54] = 0 ;} @@ -12440,7 +12435,7 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1643:/ quasiblock"); /*^apply*/ @@ -12458,13 +12453,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1665:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1644:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1665:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1644:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12475,14 +12470,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1665; + argtab[3].meltbp_long = 1644; /*_.DEBUG_MSG_FUN__V64*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PATEX__V62*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V63*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V64*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1665:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1644:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ meltfptr[39] = 0 ;} @@ -12492,22 +12487,22 @@ lab_endgetargs:; /*_.IFCPP___V63*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1666:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1645:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATEX__V62*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:1666:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1645:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V61*/ meltfptr[55] = /*_.RETURN___V65*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:1664:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1643:/ clear"); /*clear*/ /*_.PATEX__V62*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V63*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V65*/ meltfptr[34] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1662:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1641:/ quasiblock"); /*_.PROGN___V66*/ meltfptr[36] = /*_.LET___V61*/ meltfptr[55];; @@ -12516,7 +12511,7 @@ lab_endgetargs:; /*_.IFELSE___V58*/ meltfptr[47] = /*_.PROGN___V66*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1662:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1641:/ clear"); /*clear*/ /*_.IFCPP___V59*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V61*/ meltfptr[55] = 0 ; @@ -12530,10 +12525,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1669:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1648:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "unexpected pattern QUESTION - neither symbol nor pattern expr"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:1668:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1647:/ quasiblock"); /*epilog*/ @@ -12544,7 +12539,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[35] = /*_.IFELSE___V58*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1639:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1618:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V58*/ meltfptr[47] = 0 ;} @@ -12554,7 +12549,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[20] = /*_.IFELSE___V42*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1629:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1608:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V42*/ meltfptr[35] = 0 ;} @@ -12563,7 +12558,7 @@ lab_endgetargs:; ; /*_.LET___V29*/ meltfptr[21] = /*_.IFELSE___V34*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:1625:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1604:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V31*/ meltfptr[23] = 0 ; @@ -12578,14 +12573,14 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[18] = /*_.LET___V29*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1612:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1591:/ clear"); /*clear*/ /*_.LET___V29*/ meltfptr[21] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[10] = /*_.IFELSE___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:1606:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1585:/ clear"); /*clear*/ /*_.SCONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.SLOC__V13*/ meltfptr[12] = 0 ; @@ -12604,7 +12599,7 @@ lab_endgetargs:; /*_.IFELSE___V10*/ meltfptr[8] = /*_.LET___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1605:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1584:/ clear"); /*clear*/ /*_.LET___V11*/ meltfptr[10] = 0 ;} ; } else {/*^cond.else*/ @@ -12612,14 +12607,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1675:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1654:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V68*/ meltfptr[39] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1676:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1655:/ quasiblock"); /*^rawallocobj*/ @@ -12646,13 +12641,13 @@ lab_endgetargs:; /*_.PAT__V69*/ meltfptr[46] = /*_.INST__V70*/ meltfptr[38];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1681:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1660:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1681:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1660:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12663,14 +12658,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1681; + argtab[3].meltbp_long = 1660; /*_.DEBUG_MSG_FUN__V72*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAT__V69*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V71*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V72*/ meltfptr[49];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1681:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1660:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ meltfptr[49] = 0 ;} @@ -12680,16 +12675,16 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1682:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1661:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PAT__V69*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:1682:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1661:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V67*/ meltfptr[54] = /*_.RETURN___V73*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:1675:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1654:/ clear"); /*clear*/ /*_.MEXPANDER__V68*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.PAT__V69*/ meltfptr[46] = 0 ; @@ -12697,7 +12692,7 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V71*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V73*/ meltfptr[55] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1673:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1652:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[36] = /*_.LET___V67*/ meltfptr[54];; @@ -12706,18 +12701,18 @@ lab_endgetargs:; /*_.IFELSE___V10*/ meltfptr[8] = /*_.PROGN___V74*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1605:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1584:/ clear"); /*clear*/ /*_.LET___V67*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V74*/ meltfptr[36] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:1601:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1580:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V10*/ meltfptr[8];; - MELT_LOCATION("warmelt-macro.melt:1601:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1580:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12794,7 +12789,7 @@ melt_trace_start("MACROEXPAND_TOPLEVEL_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1691:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1670:/ getarg"); /*_.SLIST__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -12819,13 +12814,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1694:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1673:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1694:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1673:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12836,14 +12831,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1694; + argtab[3].meltbp_long = 1673; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SLIST__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1694:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1673:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -12855,17 +12850,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1695:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1674:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1695:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1674:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1695:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1674:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12876,7 +12871,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1695)?(1695):__LINE__, __FUNCTION__); + (1674)?(1674):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12890,7 +12885,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1695:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1674:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12902,17 +12897,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1696:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1675:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.SLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:1696:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1675:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1696:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1675:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12923,7 +12918,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check slist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1696)?(1696):__LINE__, __FUNCTION__); + (1675)?(1675):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -12937,7 +12932,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1696:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1675:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -12951,7 +12946,7 @@ lab_endgetargs:; /*_#NULL__L4*/ meltfnum[0] = ((/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1697:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1676:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12962,7 +12957,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[9] = /*_.SETQ___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1697:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1676:/ clear"); /*clear*/ /*_.SETQ___V12*/ meltfptr[11] = 0 ;} ; } else {/*^cond.else*/ @@ -12970,7 +12965,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1698:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1677:/ quasiblock"); /*_.RESLIST__V14*/ meltfptr[13] = @@ -12988,13 +12983,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1704:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1683:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1704:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1683:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -13005,14 +13000,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1704; + argtab[3].meltbp_long = 1683; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1704:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1683:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -13026,20 +13021,20 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:1708:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1687:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1709:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1688:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V17*/ meltfptr[16]), 1, "LOCA_LOCATION");/*_.SEXPLOC__V22*/ meltfptr[21] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1710:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1689:/ cond"); /*cond*/ if (/*_.SEXPLOC__V22*/ meltfptr[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13050,7 +13045,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = /*_.SETQ___V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1710:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1689:/ clear"); /*clear*/ /*_.SETQ___V24*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -13062,14 +13057,14 @@ lab_endgetargs:; /*_.LET___V21*/ meltfptr[20] = /*_.IF___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:1709:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1688:/ clear"); /*clear*/ /*_.SEXPLOC__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V23*/ meltfptr[22] = 0 ; /*_.IFELSE___V20*/ meltfptr[18] = /*_.LET___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1708:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1687:/ clear"); /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ;} ; } else {/*^cond.else*/ @@ -13081,7 +13076,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1711:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1690:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.PREVLOC__V15*/ meltfptr[14]), ( "Top-level s-expression followed by an unexpected atom"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[18] = 0 ; @@ -13090,7 +13085,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-macro.melt:1714:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1693:/ quasiblock"); /*^apply*/ @@ -13106,13 +13101,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1716:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1695:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1716:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1695:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -13123,14 +13118,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1716; + argtab[3].meltbp_long = 1695; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MEX__V25*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1716:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1695:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[22] = 0 ;} @@ -13144,7 +13139,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L8*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.MEX__V25*/ meltfptr[23])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:1718:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1697:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13162,7 +13157,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1722:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1701:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V14*/ meltfptr[13]), (melt_ptr_t)(/*_.CURM__V28*/ meltfptr[20]));} ; if (/*_#CURIX__L9*/ meltfnum[8]<0) break; @@ -13170,7 +13165,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:1719:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1698:/ clear"); /*clear*/ /*_.CURM__V28*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#CURIX__L9*/ meltfnum[8] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ @@ -13178,14 +13173,14 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1718:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1697:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:1724:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1703:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V14*/ meltfptr[13]), (melt_ptr_t)(/*_.MEX__V25*/ meltfptr[23]));} ; /*^quasiblock*/ @@ -13197,7 +13192,7 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-macro.melt:1714:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1693:/ clear"); /*clear*/ /*_.MEX__V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[21] = 0 ; @@ -13207,7 +13202,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:1701:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1680:/ clear"); /*clear*/ /*_.CURPAIR__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP__V17*/ meltfptr[16] = 0 ; @@ -13220,13 +13215,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1726:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1705:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1726:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1705:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -13237,14 +13232,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1726; + argtab[3].meltbp_long = 1705; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RESLIST__V14*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1726:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1705:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[23] = 0 ;} @@ -13254,16 +13249,16 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1727:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1706:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESLIST__V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:1727:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1706:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V31*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:1698:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1677:/ clear"); /*clear*/ /*_.RESLIST__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.PREVLOC__V15*/ meltfptr[14] = 0 ; @@ -13271,11 +13266,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V29*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V31*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1691:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1670:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:1691:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1670:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13356,7 +13351,7 @@ melt_trace_start("LAMBDA_ARG_BINDINGS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1736:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1715:/ getarg"); /*_.FORMALSEXP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13374,7 +13369,7 @@ lab_endgetargs:; /*_#NULL__L1*/ meltfnum[0] = ((/*_.FORMALSEXP__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1738:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1717:/ cond"); /*cond*/ if (/*_#NULL__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13382,14 +13377,14 @@ lab_endgetargs:; /*_.MAKE_MULTIPLE__V5*/ meltfptr[4] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[0])), (0)));; - MELT_LOCATION("warmelt-macro.melt:1740:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1719:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MAKE_MULTIPLE__V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-macro.melt:1740:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1719:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1739:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1718:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[6] = /*_.RETURN___V6*/ meltfptr[5];; @@ -13398,7 +13393,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1738:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1717:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V6*/ meltfptr[5] = 0 ; @@ -13412,17 +13407,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1741:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1720:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FORMALSEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1741:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1720:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1741:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1720:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13433,7 +13428,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check formalsexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1741)?(1741):__LINE__, __FUNCTION__); + (1720)?(1720):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[5] = 0 ; @@ -13447,7 +13442,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1741:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1720:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[5] = 0 ;} @@ -13457,18 +13452,18 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1742:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1721:/ quasiblock"); /*_#ARGRK__L3*/ meltfnum[1] = 0;; /*^compute*/ /*_.ARGTYPE__V11*/ meltfptr[5] = (/*!CTYPE_VALUE*/ meltfrout->tabval[2]);; - MELT_LOCATION("warmelt-macro.melt:1744:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1723:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMALSEXP__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.ARGLIST__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1745:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1724:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMALSEXP__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.ARGLOC__V13*/ meltfptr[12] = slot; }; ; @@ -13490,7 +13485,7 @@ lab_endgetargs:; /*_.CURPAIR__V16*/ meltfptr[15] = (melt_list_first((melt_ptr_t)(/*_.ARGLIST__V12*/ meltfptr[11])));; - MELT_LOCATION("warmelt-macro.melt:1751:/ loop"); + MELT_LOCATION("warmelt-macro.melt:1730:/ loop"); /*loop*/{ labloop_ARGLOOP_1:;/*^loopbody*/ /*^block*/ @@ -13498,7 +13493,7 @@ lab_endgetargs:; /*_#NULL__L6*/ meltfnum[5] = ((/*_.CURPAIR__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1752:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1731:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13521,17 +13516,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1753:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1732:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_PAIR__L7*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1753:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1732:/ cond"); /*cond*/ if (/*_#IS_PAIR__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1753:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1732:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13542,7 +13537,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1753)?(1753):__LINE__, __FUNCTION__); + (1732)?(1732):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; @@ -13556,7 +13551,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1753:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1732:/ clear"); /*clear*/ /*_#IS_PAIR__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} @@ -13566,7 +13561,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1754:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1733:/ quasiblock"); /*_.CURARG__V22*/ meltfptr[21] = @@ -13575,26 +13570,26 @@ lab_endgetargs:; /*_#IS_A__L8*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:1756:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1735:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1757:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1736:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), 2, "SYMB_DATA");/*_.CTY__V25*/ meltfptr[24] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1758:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1737:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), 1, "NAMED_NAME");/*_.CURARGNAME__V26*/ meltfptr[25] = slot; }; ; /*_#IS_NOT_A__L9*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:1761:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1740:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13604,36 +13599,36 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1762:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1741:/ locexp"); melt_error_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "invalid keyword in formal arglist"), (melt_ptr_t)(/*_.CURARGNAME__V26*/ meltfptr[25]));} ; /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1761:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1740:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1764:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1743:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V25*/ meltfptr[24]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V28*/ meltfptr[27] = slot; }; ; /*_#__L10*/ meltfnum[9] = ((/*_.CTYPE_KEYWORD__V28*/ meltfptr[27]) == (/*_.CURARG__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-macro.melt:1764:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1743:/ cond"); /*cond*/ if (/*_#__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1765:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1744:/ compute"); /*_.ARGTYPE__V11*/ meltfptr[5] = /*_.SETQ___V30*/ meltfptr[29] = /*_.CTY__V25*/ meltfptr[24];; /*_.IFELSE___V29*/ meltfptr[28] = /*_.SETQ___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1764:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1743:/ clear"); /*clear*/ /*_.SETQ___V30*/ meltfptr[29] = 0 ;} ; } else {/*^cond.else*/ @@ -13641,13 +13636,13 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1766:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1745:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V25*/ meltfptr[24]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V31*/ meltfptr[29] = slot; }; ; /*_#__L11*/ meltfnum[10] = ((/*_.CTYPE_ALTKEYWORD__V31*/ meltfptr[29]) == (/*_.CURARG__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-macro.melt:1766:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1745:/ cond"); /*cond*/ if (/*_#__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13655,10 +13650,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1767:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1746:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "usage of alternate keyword as formal\'s ctype is deprecated"), (melt_ptr_t)(/*_.CURARGNAME__V26*/ meltfptr[25]));} ; - MELT_LOCATION("warmelt-macro.melt:1770:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1749:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTY__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -13670,7 +13665,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1770:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1749:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V33*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -13684,12 +13679,12 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1769:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1748:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "prefered ctype keyword is"), (melt_ptr_t)(/*_.NAMED_NAME__V34*/ meltfptr[33]));} ; - MELT_LOCATION("warmelt-macro.melt:1771:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1750:/ compute"); /*_.ARGTYPE__V11*/ meltfptr[5] = /*_.SETQ___V35*/ meltfptr[34] = /*_.CTY__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:1766:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1745:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.SETQ___V35*/ meltfptr[34];; @@ -13698,7 +13693,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1766:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1745:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[33] = 0 ; @@ -13712,16 +13707,16 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1774:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1753:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ meltfptr[32] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1773:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1752:/ locexp"); melt_error_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "invalid keyword in formal arglist"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ meltfptr[32]));} ; - MELT_LOCATION("warmelt-macro.melt:1772:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1751:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[33] = (/*nil*/NULL);; @@ -13730,7 +13725,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1766:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1745:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V38*/ meltfptr[33] = 0 ;} @@ -13740,7 +13735,7 @@ lab_endgetargs:; /*_.IFELSE___V29*/ meltfptr[28] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1764:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1743:/ clear"); /*clear*/ /*_.CTYPE_ALTKEYWORD__V31*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#__L11*/ meltfnum[10] = 0 ; @@ -13752,7 +13747,7 @@ lab_endgetargs:; /*_.IFELSE___V27*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1761:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1740:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#__L10*/ meltfnum[9] = 0 ; @@ -13763,7 +13758,7 @@ lab_endgetargs:; ; /*_.LET___V24*/ meltfptr[23] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:1757:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1736:/ clear"); /*clear*/ /*_.CTY__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.CURARGNAME__V26*/ meltfptr[25] = 0 ; @@ -13774,7 +13769,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22] = /*_.LET___V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1756:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1735:/ clear"); /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -13784,7 +13779,7 @@ lab_endgetargs:; /*_#IS_A__L12*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:1779:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1758:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13792,32 +13787,32 @@ lab_endgetargs:; /*_.MAPOBJECT_GET__V40*/ meltfptr[35] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ARGMAP__V14*/ meltfptr[13]), (meltobject_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]));; - MELT_LOCATION("warmelt-macro.melt:1780:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1759:/ cond"); /*cond*/ if (/*_.MAPOBJECT_GET__V40*/ meltfptr[35]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1782:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1761:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ meltfptr[32] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1781:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1760:/ locexp"); melt_error_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "duplicate argument in formal arglist"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ meltfptr[32]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1780:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1759:/ clear"); /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[32] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:1783:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1762:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:1784:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1763:/ quasiblock"); /*^rawallocobj*/ @@ -13837,7 +13832,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V43*/ meltfptr[29]), (1), (/*_.ARGTYPE__V11*/ meltfptr[5]), "FBIND_TYPE"); ; /*_.CURBIND__V42*/ meltfptr[33] = /*_.INST__V43*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:1787:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1766:/ cond"); /*cond*/ if (/*_.CHECKARGS__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13849,16 +13844,16 @@ lab_endgetargs:; /*_#NOT__L15*/ meltfnum[14] = (!(/*_#IS_A__L14*/ meltfnum[8]));; - MELT_LOCATION("warmelt-macro.melt:1788:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1767:/ cond"); /*cond*/ if (/*_#NOT__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_#OR___L16*/ meltfnum[15] = /*_#NOT__L15*/ meltfnum[14];; - } else {MELT_LOCATION("warmelt-macro.melt:1788:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1767:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1789:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1768:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ARGTYPE__V11*/ meltfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V44*/ meltfptr[31] = slot; }; ; @@ -13873,7 +13868,7 @@ lab_endgetargs:; /*_#OR___L16*/ meltfnum[15] = /*_#NOT__L18*/ meltfnum[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1788:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1767:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V44*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L17*/ meltfnum[16] = 0 ; @@ -13888,25 +13883,25 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1791:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1770:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V45*/ meltfptr[27] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1790:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1769:/ locexp"); melt_error_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "invalid argument type in formal arglist"), (melt_ptr_t)(/*_.NAMED_NAME__V45*/ meltfptr[27]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1788:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1767:/ clear"); /*clear*/ /*_.NAMED_NAME__V45*/ meltfptr[27] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1787:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1766:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L15*/ meltfnum[14] = 0 ; @@ -13917,34 +13912,34 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1792:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1771:/ locexp"); melt_put_int((melt_ptr_t)(/*_.CURBIND__V42*/ meltfptr[33]), (/*_#ARGRK__L3*/ meltfnum[1]));} ; { - MELT_LOCATION("warmelt-macro.melt:1793:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1772:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.ARGMAP__V14*/ meltfptr[13]), (meltobject_ptr_t) (/*_.CURARG__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.CURBIND__V42*/ meltfptr[33]));} ; { - MELT_LOCATION("warmelt-macro.melt:1794:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1773:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BNDLIST__V15*/ meltfptr[14]), (melt_ptr_t)(/*_.CURBIND__V42*/ meltfptr[33]));} ; /*_#I__L19*/ meltfnum[16] = ((/*_#ARGRK__L3*/ meltfnum[1]) + (1));; - MELT_LOCATION("warmelt-macro.melt:1795:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1774:/ compute"); /*_#ARGRK__L3*/ meltfnum[1] = /*_#SETQ___L20*/ meltfnum[17] = /*_#I__L19*/ meltfnum[16];; /*_#LET___L13*/ meltfnum[9] = /*_#SETQ___L20*/ meltfnum[17];; - MELT_LOCATION("warmelt-macro.melt:1783:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1762:/ clear"); /*clear*/ /*_.CURBIND__V42*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_#I__L19*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L20*/ meltfnum[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1779:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1758:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[28] = (/*nil*/NULL);; @@ -13953,7 +13948,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[34] = /*_.PROGN___V46*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1779:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1758:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V40*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#LET___L13*/ meltfnum[9] = 0 ; @@ -13967,13 +13962,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1800:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1779:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1800:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1779:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -13984,14 +13979,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1800; + argtab[3].meltbp_long = 1779; /*_.DEBUG_MSG_FUN__V48*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V47*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1800:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1779:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[25] = 0 ;} @@ -14001,26 +13996,26 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1801:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1780:/ quasiblock"); /*_.DISCRARG__V49*/ meltfptr[26] = (melt_discr((melt_ptr_t)(/*_.CURARG__V22*/ meltfptr[21])));; - MELT_LOCATION("warmelt-macro.melt:1803:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1782:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRARG__V49*/ meltfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ meltfptr[23] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1802:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1781:/ locexp"); melt_error_str((melt_ptr_t)(/*_.ARGLOC__V13*/ meltfptr[12]), ( "unexpected argument in formal arglist"), (melt_ptr_t)(/*_.NAMED_NAME__V50*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:1801:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1780:/ clear"); /*clear*/ /*_.DISCRARG__V49*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[23] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1799:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1778:/ quasiblock"); /*_.PROGN___V51*/ meltfptr[32] = (/*nil*/NULL);; @@ -14029,7 +14024,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[34] = /*_.PROGN___V51*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1779:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1758:/ clear"); /*clear*/ /*_.IFCPP___V47*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V51*/ meltfptr[32] = 0 ;} @@ -14039,7 +14034,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22] = /*_.IFELSE___V39*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1756:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1735:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V39*/ meltfptr[34] = 0 ;} @@ -14048,11 +14043,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V52*/ meltfptr[31] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:1807:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1786:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V53*/ meltfptr[27] = /*_.PAIR_TAIL__V52*/ meltfptr[31];; /*_.LET___V21*/ meltfptr[19] = /*_.SETQ___V53*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:1754:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1733:/ clear"); /*clear*/ /*_.CURARG__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L8*/ meltfnum[6] = 0 ; @@ -14064,7 +14059,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V53*/ meltfptr[27] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1751:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1730:/ clear"); /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; @@ -14078,7 +14073,7 @@ lab_endgetargs:; /*_.FOREVER___V17*/ meltfptr[16] = /*_.ARGLOOP__V18*/ meltfptr[17];; } ; - MELT_LOCATION("warmelt-macro.melt:1809:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1788:/ quasiblock"); /*_.BNDTUP__V55*/ meltfptr[35] = @@ -14090,7 +14085,7 @@ lab_endgetargs:; /*_.BNDPAIR__V56*/ meltfptr[28] = (melt_list_first((melt_ptr_t)(/*_.BNDLIST__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:1813:/ loop"); + MELT_LOCATION("warmelt-macro.melt:1792:/ loop"); /*loop*/{ labloop_BNDLOOP_1:;/*^loopbody*/ /*^block*/ @@ -14098,7 +14093,7 @@ lab_endgetargs:; /*_#NULL__L23*/ meltfnum[15] = ((/*_.BNDPAIR__V56*/ meltfptr[28]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1814:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1793:/ cond"); /*cond*/ if (/*_#NULL__L23*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14121,17 +14116,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1815:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1794:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_PAIR__L24*/ meltfnum[16] = (melt_magic_discr((melt_ptr_t)(/*_.BNDPAIR__V56*/ meltfptr[28])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:1815:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1794:/ cond"); /*cond*/ if (/*_#IS_PAIR__L24*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V60*/ meltfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1815:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1794:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14142,7 +14137,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check bndpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1815)?(1815):__LINE__, __FUNCTION__); + (1794)?(1794):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V60*/ meltfptr[24] = 0 ; @@ -14156,7 +14151,7 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[23] = /*_.IFELSE___V60*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1815:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1794:/ clear"); /*clear*/ /*_#IS_PAIR__L24*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V60*/ meltfptr[24] = 0 ;} @@ -14166,24 +14161,24 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1816:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1795:/ quasiblock"); /*_.CURBND__V61*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.BNDPAIR__V56*/ meltfptr[28])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1817:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1796:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L25*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CURBND__V61*/ meltfptr[32]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:1817:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1796:/ cond"); /*cond*/ if (/*_#IS_A__L25*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V63*/ meltfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1817:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1796:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14194,7 +14189,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curbnd"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1817)?(1817):__LINE__, __FUNCTION__); + (1796)?(1796):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V63*/ meltfptr[21] = 0 ; @@ -14208,7 +14203,7 @@ lab_endgetargs:; /*_.IFCPP___V62*/ meltfptr[34] = /*_.IFELSE___V63*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1817:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1796:/ clear"); /*clear*/ /*_#IS_A__L25*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V63*/ meltfptr[21] = 0 ;} @@ -14220,25 +14215,25 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1818:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1797:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.BNDTUP__V55*/ meltfptr[35]), (/*_#IX__L22*/ meltfnum[14]), (melt_ptr_t)(/*_.CURBND__V61*/ meltfptr[32]));} ; - MELT_LOCATION("warmelt-macro.melt:1816:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1795:/ clear"); /*clear*/ /*_.CURBND__V61*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V62*/ meltfptr[34] = 0 ; /*_#I__L26*/ meltfnum[9] = ((/*_#IX__L22*/ meltfnum[14]) + (1));; - MELT_LOCATION("warmelt-macro.melt:1820:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1799:/ compute"); /*_#IX__L22*/ meltfnum[14] = /*_#SETQ___L27*/ meltfnum[8] = /*_#I__L26*/ meltfnum[9];; /*_.PAIR_TAIL__V64*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.BNDPAIR__V56*/ meltfptr[28])));; - MELT_LOCATION("warmelt-macro.melt:1821:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1800:/ compute"); /*_.BNDPAIR__V56*/ meltfptr[28] = /*_.SETQ___V65*/ meltfptr[31] = /*_.PAIR_TAIL__V64*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1813:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1792:/ clear"); /*clear*/ /*_#NULL__L23*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V59*/ meltfptr[23] = 0 ; @@ -14258,16 +14253,16 @@ lab_endgetargs:; /*_.FOREVER___V57*/ meltfptr[25] = /*_.BNDLOOP__V58*/ meltfptr[26];; } ; - MELT_LOCATION("warmelt-macro.melt:1823:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1802:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.BNDTUP__V55*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:1823:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1802:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V54*/ meltfptr[33] = /*_.RETURN___V66*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:1809:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1788:/ clear"); /*clear*/ /*_.BNDTUP__V55*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L22*/ meltfnum[14] = 0 ; @@ -14279,7 +14274,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V66*/ meltfptr[27] = 0 ; /*_.LET___V10*/ meltfptr[6] = /*_.LET___V54*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:1742:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1721:/ clear"); /*clear*/ /*_#ARGRK__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.ARGTYPE__V11*/ meltfptr[5] = 0 ; @@ -14301,11 +14296,11 @@ lab_endgetargs:; /*clear*/ /*_.FOREVER___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V54*/ meltfptr[33] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1736:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1715:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:1736:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1715:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14382,7 +14377,7 @@ melt_trace_start("INSTALL_INITIAL_MACRO", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1830:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1809:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14400,13 +14395,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1831:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1810:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1831:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1810:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14417,14 +14412,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1831; + argtab[3].meltbp_long = 1810; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1831:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1810:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -14438,7 +14433,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L2*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1832:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1811:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14446,7 +14441,7 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1834:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1813:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -14456,7 +14451,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1834:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1813:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14467,14 +14462,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1834; + argtab[3].meltbp_long = 1813; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DISCRIM__V8*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1834:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1813:/ clear"); /*clear*/ /*_.DISCRIM__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0 ; @@ -14488,13 +14483,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1835:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1814:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1835:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1814:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14505,14 +14500,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1835; + argtab[3].meltbp_long = 1814; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1835:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1814:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[8] = 0 ;} @@ -14524,13 +14519,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1836:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1815:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1836:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1815:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14541,14 +14536,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1836; + argtab[3].meltbp_long = 1815; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!INSTALL_INITIAL_MACRO*/ meltfrout->tabval[2])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1836:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1815:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -14560,7 +14555,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1837:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1816:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -14570,7 +14565,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1837:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1816:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14581,14 +14576,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1837; + argtab[3].meltbp_long = 1816; /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CLOSURE_ROUTINE__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1837:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1816:/ clear"); /*clear*/ /*_.CLOSURE_ROUTINE__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[2] = 0 ; @@ -14602,39 +14597,39 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1838:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1817:/ locexp"); debugvalue(( "install_initial_macro bad symb is"), ((void*)(/*_.SYMB__V2*/ meltfptr[1])));} ; /*_.DISCRIM__V17*/ meltfptr[14] = (melt_discr((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1])));; { - MELT_LOCATION("warmelt-macro.melt:1839:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1818:/ locexp"); debugvalue(( "install_initial_macro bad symb class is"), ((void*)(/*_.DISCRIM__V17*/ meltfptr[14])));} ; { - MELT_LOCATION("warmelt-macro.melt:1840:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1819:/ locexp"); debugvalue(( "install_initial_macro bad class_symbol is"), ((void*)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1]))));} ; { - MELT_LOCATION("warmelt-macro.melt:1841:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1820:/ locexp"); debugvalue(( "install_initial_macro itself is Install_Initial_Macro"), ((void*)((/*!INSTALL_INITIAL_MACRO*/ meltfrout->tabval[2]))));} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1842:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1821:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1842:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1821:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1842:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1821:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14645,7 +14640,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check good symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1842)?(1842):__LINE__, __FUNCTION__); + (1821)?(1821):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; @@ -14659,7 +14654,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[15] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1842:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1821:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ;} @@ -14669,7 +14664,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1833:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1812:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[18] = /*_.IFCPP___V18*/ meltfptr[15];; @@ -14678,7 +14673,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[4] = /*_.PROGN___V20*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1832:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1811:/ clear"); /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[7] = 0 ; @@ -14700,17 +14695,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1844:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1823:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1844:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1823:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1844:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1823:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14721,7 +14716,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1844)?(1844):__LINE__, __FUNCTION__); + (1823)?(1823):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[7] = 0 ; @@ -14735,7 +14730,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[6] = /*_.IFELSE___V22*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1844:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1823:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[7] = 0 ;} @@ -14747,17 +14742,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1845:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1824:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L9*/ meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.EXPANDER__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1845:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1824:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L9*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V24*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1845:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1824:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14768,7 +14763,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check expander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1845)?(1845):__LINE__, __FUNCTION__); + (1824)?(1824):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ meltfptr[12] = 0 ; @@ -14782,7 +14777,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[8] = /*_.IFELSE___V24*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1845:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1824:/ clear"); /*clear*/ /*_#IS_CLOSURE__L9*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[12] = 0 ;} @@ -14792,7 +14787,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1847:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1826:/ quasiblock"); /*^quasiblock*/ @@ -14815,7 +14810,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V27*/ meltfptr[18]), (1), (/*_.EXPANDER__V3*/ meltfptr[2]), "MBIND_EXPANSER"); ; /*_.MBIND__V26*/ meltfptr[15] = /*_.INST__V27*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:1851:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1830:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -14826,13 +14821,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1852:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1831:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[2] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1852:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1831:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14843,14 +14838,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1852; + argtab[3].meltbp_long = 1831; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1852:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1831:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -14864,17 +14859,17 @@ lab_endgetargs:; /*_.LET___V25*/ meltfptr[14] = /*_.IFCPP___V29*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:1847:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1826:/ clear"); /*clear*/ /*_.MBIND__V26*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V28*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V29*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1830:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1809:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V25*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1830:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1809:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14955,7 +14950,7 @@ melt_trace_start("INSTALL_INITIAL_PATMACRO", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1856:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1835:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14980,13 +14975,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1857:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1836:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1857:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1836:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14997,14 +14992,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1857; + argtab[3].meltbp_long = 1836; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1857:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1836:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -15016,17 +15011,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1858:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1837:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1858:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1837:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1858:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1837:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15037,7 +15032,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1858)?(1858):__LINE__, __FUNCTION__); + (1837)?(1837):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -15051,7 +15046,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1858:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1837:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -15063,17 +15058,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1859:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1838:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.PATEXPANDER__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1859:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1838:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1859:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1838:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15084,7 +15079,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check patexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1859)?(1859):__LINE__, __FUNCTION__); + (1838)?(1838):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -15098,7 +15093,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1859:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1838:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -15110,17 +15105,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1860:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1839:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MACEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:1860:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1839:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1860:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1839:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15131,7 +15126,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check macexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1860)?(1860):__LINE__, __FUNCTION__); + (1839)?(1839):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -15145,7 +15140,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1860:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1839:/ clear"); /*clear*/ /*_#IS_CLOSURE__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} @@ -15155,7 +15150,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1862:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1841:/ quasiblock"); /*^quasiblock*/ @@ -15183,7 +15178,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (2), (/*_.PATEXPANDER__V3*/ meltfptr[2]), "PATBIND_EXPANSER"); ; /*_.MBIND__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1867:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1846:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -15194,13 +15189,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1868:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1847:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1868:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1847:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15211,14 +15206,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1868; + argtab[3].meltbp_long = 1847; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1868:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1847:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -15230,13 +15225,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1869:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1848:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1869:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1848:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15247,14 +15242,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1869; + argtab[3].meltbp_long = 1848; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MBIND__V14*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1869:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1848:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -15268,7 +15263,7 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[11] = /*_.IFCPP___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:1862:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1841:/ clear"); /*clear*/ /*_.MBIND__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V16*/ meltfptr[15] = 0 ; @@ -15276,11 +15271,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1856:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1835:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:1856:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1835:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -15359,7 +15354,7 @@ melt_trace_start("WARN_IF_REDEFINED", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1878:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1857:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -15384,17 +15379,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1879:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1858:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1879:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1858:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1879:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1858:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15405,7 +15400,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1879)?(1879):__LINE__, __FUNCTION__); + (1858)?(1858):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -15419,7 +15414,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1879:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1858:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -15431,17 +15426,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1880:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1859:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1880:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1859:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1880:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1859:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15452,7 +15447,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1880)?(1880):__LINE__, __FUNCTION__); + (1859)?(1859):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -15466,7 +15461,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1880:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1859:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -15480,13 +15475,13 @@ lab_endgetargs:; /*_#WARN_SHADOW__L3*/ meltfnum[0] = warn_shadow;; - MELT_LOCATION("warmelt-macro.melt:1881:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1860:/ cond"); /*cond*/ if (/*_#WARN_SHADOW__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1883:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1862:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -15495,24 +15490,24 @@ lab_endgetargs:; /*_.FIND_ENV__V9*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:1881:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1860:/ cond"); /*cond*/ if (/*_.FIND_ENV__V9*/ meltfptr[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1885:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1864:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ meltfptr[9] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:1884:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1863:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V4*/ meltfptr[3]), ( "symbol redefinition masks previous"), (melt_ptr_t)(/*_.NAMED_NAME__V10*/ meltfptr[9]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1881:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1860:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ meltfptr[9] = 0 ;} ; } /*noelse*/ @@ -15526,7 +15521,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1878:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1857:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; @@ -15596,7 +15591,7 @@ melt_trace_start("FLATTEN_FOR_C_CODE_EXPANSION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1891:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1870:/ getarg"); /*_.LOC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -15621,17 +15616,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1892:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1871:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FLATLIST__V4*/ meltfptr[3])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:1892:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1871:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1892:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1871:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15642,7 +15637,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check flatlist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1892)?(1892):__LINE__, __FUNCTION__); + (1871)?(1871):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -15656,7 +15651,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1892:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -15670,7 +15665,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[0] = ((/*_.COMP__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1896:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1875:/ cond"); /*cond*/ if (/*_#NULL__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15678,17 +15673,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1898:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1877:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V2*/ meltfptr[1]), ( "null component for C chunk"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:1899:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1878:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:1899:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1878:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:1896:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1875:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[8] = /*_.RETURN___V8*/ meltfptr[7];; @@ -15697,7 +15692,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1896:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1875:/ clear"); /*clear*/ /*_.RETURN___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V9*/ meltfptr[8] = 0 ;} @@ -15709,7 +15704,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:1900:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1879:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15719,21 +15714,21 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1901:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1880:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLATLIST__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2]));} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[5] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1900:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1879:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:1903:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1882:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15746,13 +15741,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1904:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1883:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLATLIST__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.MAKE_STRING__V10*/ meltfptr[7]));} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[5] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1903:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1882:/ clear"); /*clear*/ /*_.MAKE_STRING__V10*/ meltfptr[7] = 0 ;} ; } else {/*^cond.else*/ @@ -15762,7 +15757,7 @@ lab_endgetargs:; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:1906:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1885:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15776,7 +15771,7 @@ lab_endgetargs:; /*_.CURCOMP__V12*/ meltfptr[7] = melt_pair_head(/*_.CURPAIR__V11*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1911:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1890:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -15792,7 +15787,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:1907:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1886:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.CURCOMP__V12*/ meltfptr[7] = 0 ; @@ -15802,20 +15797,20 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1906:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1885:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:1915:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1894:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1916:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1895:/ quasiblock"); /*^cond*/ @@ -15830,7 +15825,7 @@ lab_endgetargs:; /*_.SUBLOC__V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:1917:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1896:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[3])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -15850,7 +15845,7 @@ lab_endgetargs:; /*_.CURSUBCOMP__V17*/ meltfptr[16] = melt_pair_head(/*_.CURSUBPAIR__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:1923:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1902:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -15866,7 +15861,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:1919:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1898:/ clear"); /*clear*/ /*_.CURSUBPAIR__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CURSUBCOMP__V17*/ meltfptr[16] = 0 ; @@ -15874,21 +15869,21 @@ lab_endgetargs:; /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V18*/ meltfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-macro.melt:1916:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1895:/ clear"); /*clear*/ /*_.SUBLOC__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.SUBCONTENT__V15*/ meltfptr[14] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1915:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1894:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:1928:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1907:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) @@ -15898,7 +15893,7 @@ lab_endgetargs:; ; /*_.DISCRIM__V19*/ meltfptr[13] = (melt_discr((melt_ptr_t)(/*_.COMP__V3*/ meltfptr[2])));; - MELT_LOCATION("warmelt-macro.melt:1930:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1909:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V19*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -15912,15 +15907,15 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1929:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1908:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V2*/ meltfptr[1]), ( "unexpected component for C chunk of discriminant "), (melt_ptr_t)(/*_.NAMED_NAME__V20*/ meltfptr[14]));} ; - MELT_LOCATION("warmelt-macro.melt:1927:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1906:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1915:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1894:/ clear"); /*clear*/ /*_.DISCRIM__V19*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V20*/ meltfptr[14] = 0 ;} @@ -15929,37 +15924,37 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1906:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1885:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ;} ; } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1903:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1882:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ meltfnum[4] = 0 ;} ; } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1900:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1879:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[3] = 0 ;} ; } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1896:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1875:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[2] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:1891:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1870:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:1891:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1870:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -16034,7 +16029,7 @@ melt_trace_start("PARSE_PAIRLIST_C_CODE_EXPANSION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1937:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1916:/ getarg"); /*_.LOC__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -16052,13 +16047,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1938:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1917:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1938:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1917:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16069,14 +16064,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1938; + argtab[3].meltbp_long = 1917; /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1938:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = 0 ;} @@ -16088,13 +16083,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1939:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1918:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1939:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1918:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16105,14 +16100,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1939; + argtab[3].meltbp_long = 1918; /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURPAIR__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V6*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1939:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1918:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = 0 ;} @@ -16122,12 +16117,12 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1940:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1919:/ quasiblock"); /*_.FLATLIST__V9*/ meltfptr[8] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[1]))));; - MELT_LOCATION("warmelt-macro.melt:1941:/ loop"); + MELT_LOCATION("warmelt-macro.melt:1920:/ loop"); /*loop*/{ labloop_COMPLOOP_1:;/*^loopbody*/ /*^block*/ @@ -16139,7 +16134,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_PAIR__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:1943:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1922:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16160,20 +16155,20 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:1944:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1923:/ quasiblock"); /*_.PAIRHD__V13*/ meltfptr[12] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V3*/ meltfptr[2])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1945:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1924:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1945:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1924:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16184,14 +16179,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1945; + argtab[3].meltbp_long = 1924; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PAIRHD__V13*/ meltfptr[12]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1945:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1924:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} @@ -16201,7 +16196,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1946:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1925:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -16214,7 +16209,7 @@ lab_endgetargs:; ; /*_.LET___V12*/ meltfptr[11] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:1944:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1923:/ clear"); /*clear*/ /*_.PAIRHD__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; @@ -16222,11 +16217,11 @@ lab_endgetargs:; /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ meltfptr[14] = 0 ; /*_.PAIR_TAIL__V17*/ meltfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V3*/ meltfptr[2])));; - MELT_LOCATION("warmelt-macro.melt:1947:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1926:/ compute"); /*_.CURPAIR__V3*/ meltfptr[2] = /*_.SETQ___V18*/ meltfptr[13] = /*_.PAIR_TAIL__V17*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1941:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1920:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -16246,13 +16241,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1949:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1928:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1949:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1928:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16263,14 +16258,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1949; + argtab[3].meltbp_long = 1928; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLATLIST__V9*/ meltfptr[8]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1949:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1928:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[11] = 0 ;} @@ -16280,7 +16275,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1950:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1929:/ quasiblock"); /*^apply*/ @@ -16294,13 +16289,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1951:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1930:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1951:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1930:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16311,14 +16306,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1951; + argtab[3].meltbp_long = 1930; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.TUPEXP__V22*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1951:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1930:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = 0 ;} @@ -16330,17 +16325,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1952:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1931:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MULTIPLE__L8*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.TUPEXP__V22*/ meltfptr[13])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:1952:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1931:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L8*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1952:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1931:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -16351,7 +16346,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check tupexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1952)?(1952):__LINE__, __FUNCTION__); + (1931)?(1931):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; @@ -16365,7 +16360,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1952:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} @@ -16375,16 +16370,16 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1953:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1932:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.TUPEXP__V22*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:1953:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1932:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V21*/ meltfptr[12] = /*_.RETURN___V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:1950:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1929:/ clear"); /*clear*/ /*_.TUPEXP__V22*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[11] = 0 ; @@ -16394,7 +16389,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; /*_.LET___V8*/ meltfptr[6] = /*_.LET___V21*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:1940:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1919:/ clear"); /*clear*/ /*_.FLATLIST__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V10*/ meltfptr[9] = 0 ; @@ -16402,11 +16397,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V19*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1937:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1916:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:1937:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1916:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -16481,7 +16476,7 @@ melt_trace_start("CHECK_C_EXPANSION", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1958:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1937:/ getarg"); /*_.ETUPLE__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -16506,13 +16501,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1959:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1938:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1959:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1938:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16523,14 +16518,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1959; + argtab[3].meltbp_long = 1938; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ETUPLE__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1959:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1938:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -16542,13 +16537,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1960:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1939:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1960:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1939:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16559,14 +16554,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1960; + argtab[3].meltbp_long = 1939; /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1960:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1939:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} @@ -16588,7 +16583,7 @@ lab_endgetargs:; /*_#NULL__L4*/ meltfnum[3] = ((/*_.ECOMP__V9*/ meltfptr[7]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1965:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1944:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16598,21 +16593,21 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1966:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1945:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "null component in C expansion"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:1965:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1944:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.ECOMP__V9*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1967:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1946:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16624,13 +16619,13 @@ lab_endgetargs:; /*_#NULL__L6*/ meltfnum[5] = ((/*_.MAPOBJECT_GET__V12*/ meltfptr[11]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:1968:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1947:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:1970:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1949:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ECOMP__V9*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -16644,17 +16639,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1969:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1948:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "unexpected symbol in C expansion"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1968:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1947:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:1967:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1946:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = (/*nil*/NULL);; @@ -16663,7 +16658,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[10] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1967:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1946:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; @@ -16677,18 +16672,18 @@ lab_endgetargs:; /*_#IS_STRING__L7*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.ECOMP__V9*/ meltfptr[7])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:1973:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1952:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V15*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1973:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1952:/ cond.else"); /*^block*/ /*anyblock*/{ /*_.DISCRIM__V16*/ meltfptr[12] = (melt_discr((melt_ptr_t)(/*_.ECOMP__V9*/ meltfptr[7])));; - MELT_LOCATION("warmelt-macro.melt:1978:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1957:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V16*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -16702,10 +16697,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:1977:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1956:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "unexpected C expansion component of "), (melt_ptr_t)(/*_.NAMED_NAME__V17*/ meltfptr[16]));} ; - MELT_LOCATION("warmelt-macro.melt:1976:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1955:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = (/*nil*/NULL);; @@ -16714,7 +16709,7 @@ lab_endgetargs:; /*_.IFELSE___V15*/ meltfptr[11] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1973:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1952:/ clear"); /*clear*/ /*_.DISCRIM__V16*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V17*/ meltfptr[16] = 0 ; @@ -16726,7 +16721,7 @@ lab_endgetargs:; /*_.IFELSE___V11*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1967:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1946:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V15*/ meltfptr[11] = 0 ;} @@ -16736,7 +16731,7 @@ lab_endgetargs:; /*_.IFELSE___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1965:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1944:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -16748,7 +16743,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:1961:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1940:/ clear"); /*clear*/ /*_.ECOMP__V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L3*/ meltfnum[0] = 0 ; @@ -16759,7 +16754,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1958:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1937:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;} @@ -16827,7 +16822,7 @@ melt_trace_start("MEXPAND_DEFPRIMITIVE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:1986:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:1965:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -16852,13 +16847,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1987:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1966:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:1987:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1966:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16869,14 +16864,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 1987; + argtab[3].meltbp_long = 1966; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1987:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1966:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -16888,17 +16883,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1988:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1967:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:1988:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1967:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1988:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1967:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -16909,7 +16904,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1988)?(1988):__LINE__, __FUNCTION__); + (1967)?(1967):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -16923,7 +16918,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1988:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1967:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -16935,17 +16930,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:1989:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1968:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:1989:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1968:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:1989:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1968:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -16956,7 +16951,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (1989)?(1989):__LINE__, __FUNCTION__); + (1968)?(1968):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -16970,7 +16965,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:1989:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1968:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -16980,14 +16975,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:1990:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1969:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:1991:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1970:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -17008,7 +17003,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:1996:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1975:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17016,7 +17011,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:1997:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1976:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for (DEFPRIMITIVE symb args type [:doc documentation] expansion...)"), (melt_ptr_t)0);} ; /*epilog*/ @@ -17026,14 +17021,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:1998:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1977:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_TAIL__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:2000:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1979:/ quasiblock"); /*_.PAIR_HEAD__V21*/ meltfptr[20] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2000:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1979:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -17044,9 +17039,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2001:/ compute"); + MELT_LOCATION("warmelt-macro.melt:1980:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:2003:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1982:/ quasiblock"); /*_.TYPKW__V26*/ meltfptr[25] = @@ -17055,7 +17050,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.TYPKW__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2004:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1983:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17063,7 +17058,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2005:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1984:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing type keyword for (DEFPRIMITIVE symb args type [:doc documentation] expansion...)"), (melt_ptr_t)0);} ; /*epilog*/ @@ -17071,20 +17066,20 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2006:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1985:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.TYPKW__V26*/ meltfptr[25]), 2, "SYMB_DATA");/*_.CTY__V28*/ meltfptr[27] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2007:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1986:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.TYPKW__V26*/ meltfptr[25]), 1, "NAMED_NAME");/*_.TYPKNAM__V29*/ meltfptr[28] = slot; }; ; /*_#IS_NOT_A__L6*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:2009:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1988:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17092,13 +17087,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2011:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:1990:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2011:/ apply"); + MELT_LOCATION("warmelt-macro.melt:1990:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17109,14 +17104,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2011; + argtab[3].meltbp_long = 1990; /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.TYPKW__V26*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V31*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2011:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1990:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} @@ -17128,17 +17123,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2012:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1991:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad type keyword for "), (melt_ptr_t)(/*_.TYPKNAM__V29*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:2013:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1992:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:2013:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1992:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2010:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1989:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[31];; @@ -17147,7 +17142,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2009:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1988:/ clear"); /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V33*/ meltfptr[31] = 0 ; @@ -17159,28 +17154,28 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2015:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1994:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V28*/ meltfptr[27]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V35*/ meltfptr[30] = slot; }; ; /*_#__L8*/ meltfnum[6] = ((/*_.CTYPE_KEYWORD__V35*/ meltfptr[30]) == (/*_.TYPKW__V26*/ meltfptr[25]));; - MELT_LOCATION("warmelt-macro.melt:2015:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1994:/ cond"); /*cond*/ if (/*_#__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V36*/ meltfptr[31] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2015:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:1994:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2018:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:1997:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V28*/ meltfptr[27]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V37*/ meltfptr[33] = slot; }; ; /*_#__L9*/ meltfnum[8] = ((/*_.CTYPE_ALTKEYWORD__V37*/ meltfptr[33]) == (/*_.TYPKW__V26*/ meltfptr[25]));; - MELT_LOCATION("warmelt-macro.melt:2018:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1997:/ cond"); /*cond*/ if (/*_#__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17188,10 +17183,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2019:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1998:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "using obsolete ctype keyword"), (melt_ptr_t)(/*_.TYPKNAM__V29*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:2020:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1999:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTY__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -17203,7 +17198,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2020:/ cond"); + MELT_LOCATION("warmelt-macro.melt:1999:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V39*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -17217,10 +17212,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2020:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:1999:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "prefererd ctype is"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ meltfptr[39]));} ; - MELT_LOCATION("warmelt-macro.melt:2018:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1997:/ quasiblock"); /*epilog*/ @@ -17237,13 +17232,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2023:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2002:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2023:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2002:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17254,14 +17249,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2023; + argtab[3].meltbp_long = 2002; /*_.DEBUG_MSG_FUN__V42*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.TYPKW__V26*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V41*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V42*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2023:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2002:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ meltfptr[39] = 0 ;} @@ -17273,17 +17268,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2024:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2003:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid type keyword for DEFPRIMITIVE"), (melt_ptr_t)(/*_.TYPKNAM__V29*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:2026:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2005:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:2026:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2005:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2022:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2001:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[39];; @@ -17292,7 +17287,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[37] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2018:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1997:/ clear"); /*clear*/ /*_.IFCPP___V41*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V43*/ meltfptr[39] = 0 ; @@ -17304,7 +17299,7 @@ lab_endgetargs:; /*_.IFELSE___V36*/ meltfptr[31] = /*_.IFELSE___V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2015:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1994:/ clear"); /*clear*/ /*_.CTYPE_ALTKEYWORD__V37*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_#__L9*/ meltfnum[8] = 0 ; @@ -17315,7 +17310,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V45*/ meltfptr[38] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2029:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2008:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V46*/ meltfptr[39] = /*_.PAIR_TAIL__V45*/ meltfptr[38];; /*_.PAIR_HEAD__V47*/ meltfptr[43] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; @@ -17323,7 +17318,7 @@ lab_endgetargs:; /*_#__L11*/ meltfnum[9] = ((/*_.PAIR_HEAD__V47*/ meltfptr[43]) == ((/*!konst_8_DOC*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:2030:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2009:/ cond"); /*cond*/ if (/*_#__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17331,9 +17326,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V49*/ meltfptr[37] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2032:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2011:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:2033:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2012:/ cond"); /*cond*/ if (/*_.DOCV__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17351,13 +17346,13 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V51*/ meltfptr[50] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2034:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2013:/ compute"); /*_.DOCV__V17*/ meltfptr[16] = /*_.SETQ___V52*/ meltfptr[51] = /*_.PAIR_HEAD__V51*/ meltfptr[50];; /*_.PAIR_TAIL__V53*/ meltfptr[52] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2035:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2014:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V54*/ meltfptr[53] = /*_.PAIR_TAIL__V53*/ meltfptr[52];; - MELT_LOCATION("warmelt-macro.melt:2031:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2010:/ quasiblock"); /*_.PROGN___V55*/ meltfptr[54] = /*_.SETQ___V54*/ meltfptr[53];; @@ -17366,7 +17361,7 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[33] = /*_.PROGN___V55*/ meltfptr[54];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2030:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2009:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V50*/ meltfptr[49] = 0 ; @@ -17386,10 +17381,10 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2037:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2016:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:2038:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2017:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -17412,7 +17407,7 @@ lab_endgetargs:; /*_.SUBSTMAP__V58*/ meltfptr[50] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[10])), (/*_#I__L14*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:2042:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2021:/ quasiblock"); /*^rawallocobj*/ @@ -17452,11 +17447,11 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V60*/ meltfptr[52]), (6), (/*_.ETUPLE__V57*/ meltfptr[49]), "SPRIM_EXPANSION"); ; /*_.SDEFPRI__V59*/ meltfptr[51] = /*_.INST__V60*/ meltfptr[52];; - MELT_LOCATION("warmelt-macro.melt:2051:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2030:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V61*/ meltfptr[53] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2050:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2029:/ quasiblock"); /*^rawallocobj*/ @@ -17486,7 +17481,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (4), (/*_.ETUPLE__V57*/ meltfptr[49]), "PRIM_EXPANSION"); ; /*_.PRIMIT__V62*/ meltfptr[54] = /*_.INST__V63*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:2056:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2035:/ quasiblock"); /*^rawallocobj*/ @@ -17523,17 +17518,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2066:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2045:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L16*/ meltfnum[15] = melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V66*/ meltfptr[65]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-macro.melt:2066:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2045:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V68*/ meltfptr[67] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2066:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2045:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -17544,7 +17539,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2066)?(2066):__LINE__, __FUNCTION__); + (2045)?(2045):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V68*/ meltfptr[67] = 0 ; @@ -17558,7 +17553,7 @@ lab_endgetargs:; /*_.IFCPP___V67*/ meltfptr[66] = /*_.IFELSE___V68*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2066:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2045:/ clear"); /*clear*/ /*_#IS_A__L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V68*/ meltfptr[67] = 0 ;} @@ -17568,7 +17563,7 @@ lab_endgetargs:; /*_.IFCPP___V67*/ meltfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2067:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2046:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V66*/ meltfptr[65]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -17582,7 +17577,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2067:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2046:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V58*/ meltfptr[50]), (meltobject_ptr_t) (/*_.BINDER__V69*/ meltfptr[67]), (melt_ptr_t)(/*_.CURBIND__V66*/ meltfptr[65]));} @@ -17592,7 +17587,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:2063:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2042:/ clear"); /*clear*/ /*_.CURBIND__V66*/ meltfptr[65] = 0 ; /*^clear*/ /*clear*/ /*_#BIX__L15*/ meltfnum[14] = 0 ; @@ -17603,13 +17598,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2069:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2048:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[15] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2069:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2048:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17620,14 +17615,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2069; + argtab[3].meltbp_long = 2048; /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PRIMIT__V62*/ meltfptr[54]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V70*/ meltfptr[69] = /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2069:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2048:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ meltfptr[70] = 0 ;} @@ -17637,7 +17632,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[69] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2070:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2049:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -17648,7 +17643,7 @@ lab_endgetargs:; /*_.CHECK_C_EXPANSION__V72*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.ETUPLE__V57*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2072:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2051:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -17659,7 +17654,7 @@ lab_endgetargs:; /*_.WARN_IF_REDEFINED__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2073:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2052:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -17670,13 +17665,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2074:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2053:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2074:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2053:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17687,14 +17682,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2074; + argtab[3].meltbp_long = 2053; /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEFPRI__V59*/ meltfptr[51]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V75*/ meltfptr[74] = /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2074:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2053:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = 0 ;} @@ -17704,16 +17699,16 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2075:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2054:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFPRI__V59*/ meltfptr[51];; - MELT_LOCATION("warmelt-macro.melt:2075:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2054:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V56*/ meltfptr[37] = /*_.RETURN___V77*/ meltfptr[75];; - MELT_LOCATION("warmelt-macro.melt:2037:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2016:/ clear"); /*clear*/ /*_.ETUPLE__V57*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ meltfnum[8] = 0 ; @@ -17745,7 +17740,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V77*/ meltfptr[75] = 0 ; /*_.LET___V27*/ meltfptr[26] = /*_.LET___V56*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:2006:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1985:/ clear"); /*clear*/ /*_.CTY__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.TYPKNAM__V29*/ meltfptr[28] = 0 ; @@ -17773,7 +17768,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V56*/ meltfptr[37] = 0 ; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:2003:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1982:/ clear"); /*clear*/ /*_.TYPKW__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[4] = 0 ; @@ -17781,7 +17776,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:2000:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1979:/ clear"); /*clear*/ /*_.PAIR_HEAD__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.BTUP__V22*/ meltfptr[21] = 0 ; @@ -17793,7 +17788,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:1990:/ clear"); + MELT_LOCATION("warmelt-macro.melt:1969:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -17813,11 +17808,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:1986:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:1965:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:1986:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:1965:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -17894,7 +17889,7 @@ melt_trace_start("MEXPAND_DEFCITERATOR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2094:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2073:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -17919,13 +17914,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2095:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2074:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2095:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2074:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17936,14 +17931,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2095; + argtab[3].meltbp_long = 2074; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2095:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2074:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -17955,17 +17950,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2096:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2075:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2096:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2075:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2096:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2075:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -17976,7 +17971,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2096)?(2096):__LINE__, __FUNCTION__); + (2075)?(2075):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -17990,7 +17985,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2096:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2075:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -18002,17 +17997,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2097:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2076:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2097:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2076:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2097:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2076:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18023,7 +18018,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2097)?(2097):__LINE__, __FUNCTION__); + (2076)?(2076):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -18037,7 +18032,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2097:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2076:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -18047,14 +18042,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2098:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2077:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2099:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2078:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -18090,7 +18085,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2110:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2089:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18098,17 +18093,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2112:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2091:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2114:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2093:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2114:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2093:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2111:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2090:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -18117,7 +18112,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2110:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2089:/ clear"); /*clear*/ /*_.RETURN___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V25*/ meltfptr[24] = 0 ;} @@ -18131,11 +18126,11 @@ lab_endgetargs:; /*_.PAIR_TAIL__V26*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2116:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2095:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V27*/ meltfptr[24] = /*_.PAIR_TAIL__V26*/ meltfptr[23];; /*_.PAIR_HEAD__V28*/ meltfptr[27] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2118:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2097:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V28*/ meltfptr[27]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -18144,15 +18139,15 @@ lab_endgetargs:; /*_.BSTARTUP__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] = /*_.LAMBDA_ARG_BINDINGS__V29*/ meltfptr[28];; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2119:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2098:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; /*_.PAIR_HEAD__V33*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2120:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2099:/ compute"); /*_.STATSYMB__V18*/ meltfptr[17] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_HEAD__V33*/ meltfptr[32];; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.STATSYMB__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2121:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2100:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18160,17 +18155,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2123:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2102:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing statsymb for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2125:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2104:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2125:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2104:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2122:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2101:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = /*_.RETURN___V36*/ meltfptr[35];; @@ -18179,7 +18174,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[34] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2121:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2100:/ clear"); /*clear*/ /*_.RETURN___V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V37*/ meltfptr[36] = 0 ;} @@ -18193,11 +18188,11 @@ lab_endgetargs:; /*_.PAIR_TAIL__V38*/ meltfptr[35] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2126:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2105:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V39*/ meltfptr[36] = /*_.PAIR_TAIL__V38*/ meltfptr[35];; /*_.PAIR_HEAD__V40*/ meltfptr[39] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2127:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2106:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V40*/ meltfptr[39]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -18206,7 +18201,7 @@ lab_endgetargs:; /*_.BLOCVTUP__V19*/ meltfptr[18] = /*_.SETQ___V42*/ meltfptr[41] = /*_.LAMBDA_ARG_BINDINGS__V41*/ meltfptr[40];; /*_.PAIR_TAIL__V43*/ meltfptr[42] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2128:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2107:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIR_TAIL__V43*/ meltfptr[42];; /*_.PAIR_HEAD__V45*/ meltfptr[44] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; @@ -18214,7 +18209,7 @@ lab_endgetargs:; /*_#__L6*/ meltfnum[5] = ((/*_.PAIR_HEAD__V45*/ meltfptr[44]) == ((/*!konst_5_DOC*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2130:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2109:/ cond"); /*cond*/ if (/*_#__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18222,9 +18217,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V47*/ meltfptr[46] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2132:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2111:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V48*/ meltfptr[47] = /*_.PAIR_TAIL__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:2133:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2112:/ cond"); /*cond*/ if (/*_.DOCV__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18242,13 +18237,13 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V49*/ meltfptr[48] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2135:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2114:/ compute"); /*_.DOCV__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_HEAD__V49*/ meltfptr[48];; /*_.PAIR_TAIL__V51*/ meltfptr[50] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2136:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2115:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V52*/ meltfptr[51] = /*_.PAIR_TAIL__V51*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:2131:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2110:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[52] = /*_.SETQ___V52*/ meltfptr[51];; @@ -18257,7 +18252,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = /*_.PROGN___V53*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2130:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2109:/ clear"); /*clear*/ /*_.PAIR_TAIL__V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V48*/ meltfptr[47] = 0 ; @@ -18277,7 +18272,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2138:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2117:/ quasiblock"); /*_.SEXPBEF__V55*/ meltfptr[47] = @@ -18286,7 +18281,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L7*/ meltfnum[6] = !melt_is_instance_of((melt_ptr_t)(/*_.SEXPBEF__V55*/ meltfptr[47]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2139:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2118:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18294,17 +18289,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2141:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2120:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing before expansion for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2142:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2121:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2142:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2121:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2140:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2119:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[50] = /*_.RETURN___V57*/ meltfptr[49];; @@ -18313,7 +18308,7 @@ lab_endgetargs:; /*_.IF___V56*/ meltfptr[48] = /*_.PROGN___V58*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2139:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2118:/ clear"); /*clear*/ /*_.RETURN___V57*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V58*/ meltfptr[50] = 0 ;} @@ -18323,13 +18318,13 @@ lab_endgetargs:; /*_.IF___V56*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2143:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2122:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPBEF__V55*/ meltfptr[47]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V59*/ meltfptr[51] = slot; }; ; /*_.LIST_FIRST__V60*/ meltfptr[52] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V59*/ meltfptr[51])));; - MELT_LOCATION("warmelt-macro.melt:2143:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2122:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -18342,7 +18337,7 @@ lab_endgetargs:; /*_.EXPBEF__V21*/ meltfptr[20] = /*_.SETQ___V62*/ meltfptr[50] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V61*/ meltfptr[49];; /*_.LET___V54*/ meltfptr[46] = /*_.SETQ___V62*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:2138:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2117:/ clear"); /*clear*/ /*_.SEXPBEF__V55*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[6] = 0 ; @@ -18358,9 +18353,9 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V62*/ meltfptr[50] = 0 ; /*_.PAIR_TAIL__V63*/ meltfptr[47] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2145:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2124:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V64*/ meltfptr[48] = /*_.PAIR_TAIL__V63*/ meltfptr[47];; - MELT_LOCATION("warmelt-macro.melt:2147:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2126:/ quasiblock"); /*_.SEXPAFT__V66*/ meltfptr[52] = @@ -18369,7 +18364,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L8*/ meltfnum[6] = !melt_is_instance_of((melt_ptr_t)(/*_.SEXPAFT__V66*/ meltfptr[52]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2148:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2127:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18377,17 +18372,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2150:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2129:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing after expansion for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2151:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2130:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2151:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2130:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2149:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2128:/ quasiblock"); /*_.PROGN___V69*/ meltfptr[68] = /*_.RETURN___V68*/ meltfptr[50];; @@ -18396,7 +18391,7 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[49] = /*_.PROGN___V69*/ meltfptr[68];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2148:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2127:/ clear"); /*clear*/ /*_.RETURN___V68*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V69*/ meltfptr[68] = 0 ;} @@ -18406,13 +18401,13 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2152:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2131:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPAFT__V66*/ meltfptr[52]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V70*/ meltfptr[50] = slot; }; ; /*_.LIST_FIRST__V71*/ meltfptr[68] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V70*/ meltfptr[50])));; - MELT_LOCATION("warmelt-macro.melt:2152:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2131:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -18425,7 +18420,7 @@ lab_endgetargs:; /*_.EXPAFT__V22*/ meltfptr[21] = /*_.SETQ___V73*/ meltfptr[72] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V72*/ meltfptr[71];; /*_.LET___V65*/ meltfptr[51] = /*_.SETQ___V73*/ meltfptr[72];; - MELT_LOCATION("warmelt-macro.melt:2147:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2126:/ clear"); /*clear*/ /*_.SEXPAFT__V66*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L8*/ meltfnum[6] = 0 ; @@ -18439,14 +18434,14 @@ lab_endgetargs:; /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V72*/ meltfptr[71] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V73*/ meltfptr[72] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2155:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2134:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:2156:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2135:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V75*/ meltfptr[49] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2155:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2134:/ quasiblock"); /*^rawallocobj*/ @@ -18486,7 +18481,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V77*/ meltfptr[68]), (6), (/*_.EXPAFT__V22*/ meltfptr[21]), "CITER_EXPAFTER"); ; /*_.CITER__V76*/ meltfptr[50] = /*_.INST__V77*/ meltfptr[68];; - MELT_LOCATION("warmelt-macro.melt:2163:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2142:/ quasiblock"); /*^rawallocobj*/ @@ -18506,7 +18501,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V79*/ meltfptr[72]), (3), (/*_.CITER__V76*/ meltfptr[50]), "CBIND_CITERATOR"); ; /*_.CITBIND__V78*/ meltfptr[71] = /*_.INST__V79*/ meltfptr[72];; - MELT_LOCATION("warmelt-macro.melt:2168:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2147:/ quasiblock"); /*^rawallocobj*/ @@ -18571,13 +18566,13 @@ lab_endgetargs:; (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[10])), (/*_#I__L14*/ meltfnum[13])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2179:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2158:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2179:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2158:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -18588,14 +18583,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2179; + argtab[3].meltbp_long = 2158; /*_.DEBUG_MSG_FUN__V84*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SRCIT__V80*/ meltfptr[79]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V83*/ meltfptr[82] = /*_.DEBUG_MSG_FUN__V84*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2179:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2158:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ meltfptr[83] = 0 ;} @@ -18607,20 +18602,20 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2180:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2159:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V82*/ meltfptr[81]), (meltobject_ptr_t) (/*_.STATSYMB__V18*/ meltfptr[17]), (melt_ptr_t)(/*_.STATSYMB__V18*/ meltfptr[17]));} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2181:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2160:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2181:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2160:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -18631,14 +18626,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2181; + argtab[3].meltbp_long = 2160; /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.BSTARTUP__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V85*/ meltfptr[83] = /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2181:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2160:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ meltfptr[85] = 0 ;} @@ -18660,17 +18655,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2185:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2164:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L18*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V87*/ meltfptr[85]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:2185:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2164:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V89*/ meltfptr[88] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2185:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2164:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18681,7 +18676,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check start cursbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2185)?(2185):__LINE__, __FUNCTION__); + (2164)?(2164):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V89*/ meltfptr[88] = 0 ; @@ -18695,7 +18690,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[87] = /*_.IFELSE___V89*/ meltfptr[88];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2185:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2164:/ clear"); /*clear*/ /*_#IS_A__L18*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V89*/ meltfptr[88] = 0 ;} @@ -18705,7 +18700,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[87] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2186:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2165:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V87*/ meltfptr[85]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[12])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -18719,7 +18714,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2186:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2165:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V82*/ meltfptr[81]), (meltobject_ptr_t) (/*_.BINDER__V90*/ meltfptr[88]), (melt_ptr_t)(/*_.CURSBIND__V87*/ meltfptr[85]));} @@ -18729,7 +18724,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:2182:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2161:/ clear"); /*clear*/ /*_.CURSBIND__V87*/ meltfptr[85] = 0 ; /*^clear*/ /*clear*/ /*_#BSIX__L17*/ meltfnum[14] = 0 ; @@ -18740,13 +18735,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2187:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2166:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2187:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2166:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -18757,14 +18752,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2187; + argtab[3].meltbp_long = 2166; /*_.DEBUG_MSG_FUN__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.BLOCVTUP__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V91*/ meltfptr[90] = /*_.DEBUG_MSG_FUN__V92*/ meltfptr[91];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2187:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2166:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V92*/ meltfptr[91] = 0 ;} @@ -18786,13 +18781,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2191:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2170:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2191:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2170:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -18803,14 +18798,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2191; + argtab[3].meltbp_long = 2170; /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURLBIND__V93*/ meltfptr[91]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V94*/ meltfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2191:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2170:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ meltfptr[94] = 0 ;} @@ -18822,17 +18817,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2192:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2171:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L22*/ meltfnum[20] = melt_is_instance_of((melt_ptr_t)(/*_.CURLBIND__V93*/ meltfptr[91]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:2192:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2171:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V97*/ meltfptr[96] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2192:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2171:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18843,7 +18838,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check local curlbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2192)?(2192):__LINE__, __FUNCTION__); + (2171)?(2171):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V97*/ meltfptr[96] = 0 ; @@ -18857,7 +18852,7 @@ lab_endgetargs:; /*_.IFCPP___V96*/ meltfptr[94] = /*_.IFELSE___V97*/ meltfptr[96];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2192:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2171:/ clear"); /*clear*/ /*_#IS_A__L22*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V97*/ meltfptr[96] = 0 ;} @@ -18867,7 +18862,7 @@ lab_endgetargs:; /*_.IFCPP___V96*/ meltfptr[94] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2193:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2172:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURLBIND__V93*/ meltfptr[91]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[12])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -18881,7 +18876,7 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2193:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2172:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V82*/ meltfptr[81]), (meltobject_ptr_t) (/*_.BINDER__V98*/ meltfptr[96]), (melt_ptr_t)(/*_.CURLBIND__V93*/ meltfptr[91]));} @@ -18891,7 +18886,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:2188:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2167:/ clear"); /*clear*/ /*_.CURLBIND__V93*/ meltfptr[91] = 0 ; /*^clear*/ /*clear*/ /*_#BLIX__L20*/ meltfnum[17] = 0 ; @@ -18902,7 +18897,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.BINDER__V98*/ meltfptr[96] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-macro.melt:2195:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2174:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -18913,7 +18908,7 @@ lab_endgetargs:; /*_.CHECK_C_EXPANSION__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.EXPBEF__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2196:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2175:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -18924,7 +18919,7 @@ lab_endgetargs:; /*_.CHECK_C_EXPANSION__V100*/ meltfptr[99] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.EXPAFT__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2198:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2177:/ quasiblock"); /*^putslot*/ @@ -18936,7 +18931,7 @@ lab_endgetargs:; meltgc_touch(/*_.CITBIND__V78*/ meltfptr[71]); ; - MELT_LOCATION("warmelt-macro.melt:2199:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2178:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -18947,13 +18942,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2200:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2179:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[20] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2200:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2179:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -18964,14 +18959,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2200; + argtab[3].meltbp_long = 2179; /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CITER__V76*/ meltfptr[50]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V102*/ meltfptr[101] = /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2200:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2179:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V103*/ meltfptr[102] = 0 ;} @@ -18981,16 +18976,16 @@ lab_endgetargs:; /*_.IFCPP___V102*/ meltfptr[101] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2201:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2180:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SRCIT__V80*/ meltfptr[79];; - MELT_LOCATION("warmelt-macro.melt:2201:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2180:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V74*/ meltfptr[52] = /*_.RETURN___V104*/ meltfptr[102];; - MELT_LOCATION("warmelt-macro.melt:2155:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2134:/ clear"); /*clear*/ /*_.NAMED_NAME__V75*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.CITER__V76*/ meltfptr[50] = 0 ; @@ -19030,7 +19025,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V104*/ meltfptr[102] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V74*/ meltfptr[52];; - MELT_LOCATION("warmelt-macro.melt:2098:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2077:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -19108,11 +19103,11 @@ lab_endgetargs:; /*clear*/ /*_.LET___V65*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V74*/ meltfptr[52] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2094:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2073:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2094:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2073:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -19142,7 +19137,7 @@ melt_trace_end("MEXPAND_DEFCITERATOR", meltcallcount); melt_topframe = (struct melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19155,7 +19150,7 @@ meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC_st { + struct frame_meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -19163,10 +19158,10 @@ meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 14 - void* mcfr_varptr[14]; -#define MELTFRAM_NBVARNUM 3 - long mcfr_varnum[3]; +#define MELTFRAM_NBVARPTR 155 + void* mcfr_varptr[155]; +#define MELTFRAM_NBVARNUM 39 + long mcfr_varnum[39]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -19175,21 +19170,21 @@ meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<14; ix++) + for(ix=0; ix<155; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 14; + meltfram__.mcfr_nbvar = 155; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_DEFVARIADIC", meltcallcount); +melt_trace_start("MEXPAND_DEFCMATCHER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2217:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2196:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19214,31 +19209,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2218:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2197:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2218:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2197:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defvariadic sexpr"; + argtab[0].meltbp_cstring = "mexpand_defcmatcher sexpr"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2218; + argtab[3].meltbp_long = 2197; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2218:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2197:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -19250,17 +19245,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2219:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2198:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2219:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2198:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2219:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2198:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19271,7 +19266,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2219)?(2219):__LINE__, __FUNCTION__); + (2198)?(2198):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -19285,7 +19280,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2219:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2198:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -19297,17 +19292,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2220:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2199:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2220:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2199:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2220:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2199:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19318,7 +19313,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2220)?(2220):__LINE__, __FUNCTION__); + (2199)?(2199):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -19332,7 +19327,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2220:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2199:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -19342,42 +19337,1844 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2221:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2200:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2222:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2201:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; + /*_.LIST_FIRST__V14*/ meltfptr[13] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; + /*^compute*/ + + /*_.CURPAIR__V15*/ meltfptr[14] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; + /*^compute*/ + + /*_.SYMB__V16*/ meltfptr[15] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ + + /*_.SFORMALS__V17*/ meltfptr[16] = (/*nil*/NULL);; + /*^compute*/ + + /*_.MATCHFORMAL__V18*/ meltfptr[17] = (/*nil*/NULL);; + /*^compute*/ + + /*_.INFORMALS__V19*/ meltfptr[18] = (/*nil*/NULL);; + /*^compute*/ + + /*_.OUTFORMALS__V20*/ meltfptr[19] = (/*nil*/NULL);; + /*^compute*/ + + /*_.STATESYM__V21*/ meltfptr[20] = (/*nil*/NULL);; + /*^compute*/ + + /*_.EXPTEST__V22*/ meltfptr[21] = (/*nil*/NULL);; + /*^compute*/ + + /*_.EXPFILL__V23*/ meltfptr[22] = (/*nil*/NULL);; + /*^compute*/ + + /*_.EXPOPER__V24*/ meltfptr[23] = (/*nil*/NULL);; + /*^compute*/ + + /*_.DOCV__V25*/ meltfptr[24] = (/*nil*/NULL);; - { - MELT_LOCATION("warmelt-macro.melt:2224:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(DEFVARIADIC...) is phased out "), (melt_ptr_t)0);} + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2216:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2216:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher symb"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2216; + /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2216:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#IS_NOT_A__L5*/ meltfnum[0] = + !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-macro.melt:2217:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2219:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "symbol expected for (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2222:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2222:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2218:/ quasiblock"); + + + /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[28];; + /*^compute*/ + + /*_.IF___V28*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[29];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2217:/ clear"); + /*clear*/ /*_.RETURN___V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V28*/ meltfptr[26] = NULL;; + } ; - MELT_LOCATION("warmelt-macro.melt:2226:/ quasiblock"); + /*^compute*/ + + /*_.PAIR_TAIL__V31*/ meltfptr[28] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2223:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[29] = /*_.PAIR_TAIL__V31*/ meltfptr[28];; + MELT_LOCATION("warmelt-macro.melt:2225:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2226:/ finalreturn"); + /*_.PAIR_HEAD__V34*/ meltfptr[33] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2225:/ apply"); + /*apply*/{ + /*_.MATINFORMALS__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V34*/ meltfptr[33]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V14*/ meltfptr[13];; + /*_#NBMATINFORMALS__L6*/ meltfnum[5] = + (melt_multiple_length((melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34])));; + /*^compute*/ + + /*_#I__L7*/ meltfnum[6] = + ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) < (1));; + MELT_LOCATION("warmelt-macro.melt:2228:/ cond"); + /*cond*/ if (/*_#I__L7*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2230:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "empty ins for (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2231:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2231:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2229:/ quasiblock"); + + + /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];; + /*^compute*/ + + /*_.IF___V36*/ meltfptr[35] = /*_.PROGN___V38*/ meltfptr[37];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2228:/ clear"); + /*clear*/ /*_.RETURN___V37*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V38*/ meltfptr[37] = 0 ;} + ; + } else {/*^cond.else*/ - MELT_LOCATION("warmelt-macro.melt:2221:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; + /*_.IF___V36*/ meltfptr[35] = NULL;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2232:/ compute"); + /*_.SFORMALS__V17*/ meltfptr[16] = /*_.SETQ___V39*/ meltfptr[36] = /*_.MATINFORMALS__V35*/ meltfptr[34];; + /*_.MULTIPLE_NTH__V40*/ meltfptr[37] = + (melt_multiple_nth((melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34]), (0)));; + MELT_LOCATION("warmelt-macro.melt:2233:/ compute"); + /*_.MATCHFORMAL__V18*/ meltfptr[17] = /*_.SETQ___V41*/ meltfptr[40] = /*_.MULTIPLE_NTH__V40*/ meltfptr[37];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2234:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2234:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher matchformal"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2234; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2234:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2235:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L9*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-macro.melt:2235:/ cond"); + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V45*/ meltfptr[44] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2235:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check matchformal"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2235)?(2235):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V44*/ meltfptr[42] = /*_.IFELSE___V45*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2235:/ clear"); + /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#I__L10*/ meltfnum[7] = + ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) - (1));; + /*^compute*/ + + /*_.MAKE_MULTIPLE__V46*/ meltfptr[44] = + (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[6])), (/*_#I__L10*/ meltfnum[7])));; + MELT_LOCATION("warmelt-macro.melt:2236:/ compute"); + /*_.INFORMALS__V19*/ meltfptr[18] = /*_.SETQ___V47*/ meltfptr[46] = /*_.MAKE_MULTIPLE__V46*/ meltfptr[44];; + MELT_LOCATION("warmelt-macro.melt:2239:/ quasiblock"); + + + /*^newclosure*/ + /*newclosure*/ /*_.LAMBDA___V49*/ meltfptr[48] = + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (1)); + ; + /*^putclosedv*/ + /*putclosv*/ + melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48]))); + ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[0] = (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]); + ; + /*_.LAMBDA___V48*/ meltfptr[47] = /*_.LAMBDA___V49*/ meltfptr[48];; + MELT_LOCATION("warmelt-macro.melt:2237:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[47]; + /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2240:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2240:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher informals"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2240; + /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2240:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V51*/ meltfptr[50] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.LET___V33*/ meltfptr[32] = /*_.IFCPP___V51*/ meltfptr[50];; + + MELT_LOCATION("warmelt-macro.melt:2225:/ clear"); + /*clear*/ /*_.PAIR_HEAD__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MATINFORMALS__V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#NBMATINFORMALS__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V36*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V39*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTIPLE_NTH__V40*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L10*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.MAKE_MULTIPLE__V46*/ meltfptr[44] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V47*/ meltfptr[46] = 0 ; + /*^clear*/ + /*clear*/ /*_.LAMBDA___V48*/ meltfptr[47] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; + /*_.PAIR_TAIL__V53*/ meltfptr[51] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2243:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V54*/ meltfptr[33] = /*_.PAIR_TAIL__V53*/ meltfptr[51];; + /*_.PAIR_HEAD__V55*/ meltfptr[34] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2244:/ apply"); + /*apply*/{ + /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V55*/ meltfptr[34]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*^compute*/ + /*_.OUTFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V57*/ meltfptr[36] = /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2245:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2245:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher outformals"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2245; + /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V58*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2245:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V58*/ meltfptr[37] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#IS_MULTIPLE__L13*/ meltfnum[5] = + (melt_magic_discr((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19])) == MELTOBMAG_MULTIPLE);; + /*^compute*/ + + /*_#NOT__L14*/ meltfnum[6] = + (!(/*_#IS_MULTIPLE__L13*/ meltfnum[5]));; + MELT_LOCATION("warmelt-macro.melt:2246:/ cond"); + /*cond*/ if (/*_#NOT__L14*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2248:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad outs for (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2249:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2249:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2247:/ quasiblock"); + + + /*_.PROGN___V62*/ meltfptr[44] = /*_.RETURN___V61*/ meltfptr[42];; + /*^compute*/ + + /*_.IF___V60*/ meltfptr[41] = /*_.PROGN___V62*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2246:/ clear"); + /*clear*/ /*_.RETURN___V61*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V62*/ meltfptr[44] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V60*/ meltfptr[41] = NULL;; + } + ; + /*^compute*/ + + /*_.PAIR_TAIL__V63*/ meltfptr[46] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2251:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V64*/ meltfptr[47] = /*_.PAIR_TAIL__V63*/ meltfptr[46];; + /*_.PAIR_HEAD__V65*/ meltfptr[49] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2252:/ compute"); + /*_.STATESYM__V21*/ meltfptr[20] = /*_.SETQ___V66*/ meltfptr[50] = /*_.PAIR_HEAD__V65*/ meltfptr[49];; + /*_#IS_NOT_A__L15*/ meltfnum[7] = + !melt_is_instance_of((melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-macro.melt:2253:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L15*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2255:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2255:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher bad statesym"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2255; + /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V68*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2255:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V68*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-macro.melt:2256:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad statesym for (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2257:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2257:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2254:/ quasiblock"); + + + /*_.PROGN___V71*/ meltfptr[70] = /*_.RETURN___V70*/ meltfptr[44];; + /*^compute*/ + + /*_.IF___V67*/ meltfptr[40] = /*_.PROGN___V71*/ meltfptr[70];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2253:/ clear"); + /*clear*/ /*_.IFCPP___V68*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V70*/ meltfptr[44] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V71*/ meltfptr[70] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V67*/ meltfptr[40] = NULL;; + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2258:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2258:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher statesym"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2258; + /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V72*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2258:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V72*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.PAIR_TAIL__V74*/ meltfptr[70] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2259:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V75*/ meltfptr[44] = /*_.PAIR_TAIL__V74*/ meltfptr[70];; + /*_.PAIR_HEAD__V76*/ meltfptr[75] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ + + /*_#__L18*/ meltfnum[10] = + ((/*_.PAIR_HEAD__V76*/ meltfptr[75]) == ((/*!konst_9_DOC*/ meltfrout->tabval[9])));; + MELT_LOCATION("warmelt-macro.melt:2261:/ cond"); + /*cond*/ if (/*_#__L18*/ meltfnum[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.PAIR_TAIL__V78*/ meltfptr[77] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2263:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V79*/ meltfptr[78] = /*_.PAIR_TAIL__V78*/ meltfptr[77];; + MELT_LOCATION("warmelt-macro.melt:2264:/ cond"); + /*cond*/ if (/*_.DOCV__V25*/ meltfptr[24]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + /*^locexp*/ + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate documentation in DEFCMATCHER"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + /*_.PAIR_HEAD__V80*/ meltfptr[79] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2265:/ compute"); + /*_.DOCV__V25*/ meltfptr[24] = /*_.SETQ___V81*/ meltfptr[80] = /*_.PAIR_HEAD__V80*/ meltfptr[79];; + /*_.PAIR_TAIL__V82*/ meltfptr[81] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2266:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V83*/ meltfptr[82] = /*_.PAIR_TAIL__V82*/ meltfptr[81];; + MELT_LOCATION("warmelt-macro.melt:2262:/ quasiblock"); + + + /*_.PROGN___V84*/ meltfptr[83] = /*_.SETQ___V83*/ meltfptr[82];; + /*^compute*/ + + /*_.IF___V77*/ meltfptr[76] = /*_.PROGN___V84*/ meltfptr[83];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2261:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V78*/ meltfptr[77] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V79*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V80*/ meltfptr[79] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V81*/ meltfptr[80] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V82*/ meltfptr[81] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V83*/ meltfptr[82] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V84*/ meltfptr[83] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V77*/ meltfptr[76] = NULL;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2269:/ quasiblock"); + + + /*_.SEXPTEST__V86*/ meltfptr[78] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2270:/ cond"); + /*cond*/ if (/*_.SEXPTEST__V86*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#IS_NOT_A__L20*/ meltfnum[19] = + !melt_is_instance_of((melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; + /*^compute*/ + + /*_#IF___L19*/ meltfnum[18] = /*_#IS_NOT_A__L20*/ meltfnum[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2270:/ clear"); + /*clear*/ /*_#IS_NOT_A__L20*/ meltfnum[19] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L19*/ meltfnum[18] = 0;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2270:/ cond"); + /*cond*/ if (/*_#IF___L19*/ meltfnum[18]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2272:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2272:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher bad sexptest"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2272; + /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V88*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2272:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V88*/ meltfptr[80] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-macro.melt:2273:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad test expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2274:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2274:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2271:/ quasiblock"); + + + /*_.PROGN___V91*/ meltfptr[83] = /*_.RETURN___V90*/ meltfptr[82];; + /*^compute*/ + + /*_.IFELSE___V87*/ meltfptr[79] = /*_.PROGN___V91*/ meltfptr[83];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2270:/ clear"); + /*clear*/ /*_.IFCPP___V88*/ meltfptr[80] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V90*/ meltfptr[82] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V91*/ meltfptr[83] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2275:/ cond"); + /*cond*/ if (/*_.SEXPTEST__V86*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2279:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V93*/ meltfptr[80] = slot; }; + ; + /*_.LIST_FIRST__V94*/ meltfptr[82] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V93*/ meltfptr[80])));; + MELT_LOCATION("warmelt-macro.melt:2277:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V94*/ meltfptr[82]; + /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:2276:/ compute"); + /*_.EXPTEST__V22*/ meltfptr[21] = /*_.SETQ___V96*/ meltfptr[95] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83];; + /*_.IF___V92*/ meltfptr[81] = /*_.SETQ___V96*/ meltfptr[95];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2275:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V93*/ meltfptr[80] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V94*/ meltfptr[82] = 0 ; + /*^clear*/ + /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V96*/ meltfptr[95] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V92*/ meltfptr[81] = NULL;; + } + ; + /*^compute*/ + + /*_.IFELSE___V87*/ meltfptr[79] = /*_.IF___V92*/ meltfptr[81];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2270:/ clear"); + /*clear*/ /*_.IF___V92*/ meltfptr[81] = 0 ;} + ; + } + ; + /*_.LET___V85*/ meltfptr[77] = /*_.IFELSE___V87*/ meltfptr[79];; + + MELT_LOCATION("warmelt-macro.melt:2269:/ clear"); + /*clear*/ /*_.SEXPTEST__V86*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L19*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V87*/ meltfptr[79] = 0 ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2281:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2281:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher exptest"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2281; + /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTEST__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V97*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2281:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V97*/ meltfptr[80] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.PAIR_TAIL__V99*/ meltfptr[83] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2283:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V100*/ meltfptr[95] = /*_.PAIR_TAIL__V99*/ meltfptr[83];; + MELT_LOCATION("warmelt-macro.melt:2284:/ quasiblock"); + + + /*_.SEXPFILL__V102*/ meltfptr[78] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2285:/ cond"); + /*cond*/ if (/*_.SEXPFILL__V102*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#IS_NOT_A__L24*/ meltfnum[19] = + !melt_is_instance_of((melt_ptr_t)(/*_.SEXPFILL__V102*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; + /*^compute*/ + + /*_#IF___L23*/ meltfnum[18] = /*_#IS_NOT_A__L24*/ meltfnum[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2285:/ clear"); + /*clear*/ /*_#IS_NOT_A__L24*/ meltfnum[19] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L23*/ meltfnum[18] = 0;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2285:/ cond"); + /*cond*/ if (/*_#IF___L23*/ meltfnum[18]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2287:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad fill expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2288:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2288:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2286:/ quasiblock"); + + + /*_.PROGN___V105*/ meltfptr[104] = /*_.RETURN___V104*/ meltfptr[82];; + /*^compute*/ + + /*_.IFELSE___V103*/ meltfptr[79] = /*_.PROGN___V105*/ meltfptr[104];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2285:/ clear"); + /*clear*/ /*_.RETURN___V104*/ meltfptr[82] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V105*/ meltfptr[104] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2289:/ cond"); + /*cond*/ if (/*_.SEXPFILL__V102*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2292:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPFILL__V102*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V107*/ meltfptr[104] = slot; }; + ; + /*_.LIST_FIRST__V108*/ meltfptr[107] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V107*/ meltfptr[104])));; + MELT_LOCATION("warmelt-macro.melt:2291:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V108*/ meltfptr[107]; + /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:2290:/ compute"); + /*_.EXPFILL__V23*/ meltfptr[22] = /*_.SETQ___V110*/ meltfptr[109] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108];; + /*_.IF___V106*/ meltfptr[82] = /*_.SETQ___V110*/ meltfptr[109];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2289:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V107*/ meltfptr[104] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V108*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V110*/ meltfptr[109] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V106*/ meltfptr[82] = NULL;; + } + ; + /*^compute*/ + + /*_.IFELSE___V103*/ meltfptr[79] = /*_.IF___V106*/ meltfptr[82];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2285:/ clear"); + /*clear*/ /*_.IF___V106*/ meltfptr[82] = 0 ;} + ; + } + ; + /*_.LET___V101*/ meltfptr[81] = /*_.IFELSE___V103*/ meltfptr[79];; + + MELT_LOCATION("warmelt-macro.melt:2284:/ clear"); + /*clear*/ /*_.SEXPFILL__V102*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L23*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V103*/ meltfptr[79] = 0 ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2294:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2294:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher expfill"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2294; + /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPFILL__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V111*/ meltfptr[104] = /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2294:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V111*/ meltfptr[104] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.PAIR_TAIL__V113*/ meltfptr[108] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2296:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V114*/ meltfptr[109] = /*_.PAIR_TAIL__V113*/ meltfptr[108];; + MELT_LOCATION("warmelt-macro.melt:2297:/ quasiblock"); + + + /*_.SEXPOPER__V116*/ meltfptr[78] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2298:/ cond"); + /*cond*/ if (/*_.SEXPOPER__V116*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#IS_NOT_A__L27*/ meltfnum[19] = + !melt_is_instance_of((melt_ptr_t)(/*_.SEXPOPER__V116*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; + /*^compute*/ + + /*_#IF___L26*/ meltfnum[18] = /*_#IS_NOT_A__L27*/ meltfnum[19];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2298:/ clear"); + /*clear*/ /*_#IS_NOT_A__L27*/ meltfnum[19] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_#IF___L26*/ meltfnum[18] = 0;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2298:/ cond"); + /*cond*/ if (/*_#IF___L26*/ meltfnum[18]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2300:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad oper expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2301:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2301:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:2299:/ quasiblock"); + + + /*_.PROGN___V119*/ meltfptr[118] = /*_.RETURN___V118*/ meltfptr[107];; + /*^compute*/ + + /*_.IFELSE___V117*/ meltfptr[79] = /*_.PROGN___V119*/ meltfptr[118];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2298:/ clear"); + /*clear*/ /*_.RETURN___V118*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V119*/ meltfptr[118] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2303:/ cond"); + /*cond*/ if (/*_.SEXPOPER__V116*/ meltfptr[78]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2304:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPOPER__V116*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V121*/ meltfptr[118] = slot; }; + ; + /*_.LIST_FIRST__V122*/ meltfptr[121] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V121*/ meltfptr[118])));; + MELT_LOCATION("warmelt-macro.melt:2304:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V122*/ meltfptr[121]; + /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IF___V120*/ meltfptr[107] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2303:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V121*/ meltfptr[118] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V122*/ meltfptr[121] = 0 ; + /*^clear*/ + /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V120*/ meltfptr[107] = NULL;; + } + ; + MELT_LOCATION("warmelt-macro.melt:2302:/ compute"); + /*_.EXPOPER__V24*/ meltfptr[23] = /*_.SETQ___V124*/ meltfptr[118] = /*_.IF___V120*/ meltfptr[107];; + /*_.IFELSE___V117*/ meltfptr[79] = /*_.SETQ___V124*/ meltfptr[118];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2298:/ clear"); + /*clear*/ /*_.IF___V120*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V124*/ meltfptr[118] = 0 ;} + ; + } + ; + /*_.LET___V115*/ meltfptr[82] = /*_.IFELSE___V117*/ meltfptr[79];; + + MELT_LOCATION("warmelt-macro.melt:2297:/ clear"); + /*clear*/ /*_.SEXPOPER__V116*/ meltfptr[78] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L26*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V117*/ meltfptr[79] = 0 ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2306:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2306:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher expfill"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2306; + /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPOPER__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V125*/ meltfptr[121] = /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2306:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V125*/ meltfptr[121] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.PAIR_TAIL__V127*/ meltfptr[107] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2308:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V128*/ meltfptr[118] = /*_.PAIR_TAIL__V127*/ meltfptr[107];; + MELT_LOCATION("warmelt-macro.melt:2309:/ cond"); + /*cond*/ if (/*_.CURPAIR__V15*/ meltfptr[14]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2310:/ locexp"); + melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "extra in (DEFCMATCHER )"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2311:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L29*/ meltfnum[18] = + melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-macro.melt:2311:/ cond"); + /*cond*/ if (/*_#IS_A__L29*/ meltfnum[18]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V130*/ meltfptr[79] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2311:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check matchformal again"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2311)?(2311):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V130*/ meltfptr[79] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V129*/ meltfptr[78] = /*_.IFELSE___V130*/ meltfptr[79];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2311:/ clear"); + /*clear*/ /*_#IS_A__L29*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V130*/ meltfptr[79] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V129*/ meltfptr[78] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:2313:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:2315:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V132*/ meltfptr[79] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:2314:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[11])), (9), "CLASS_CMATCHER"); + /*_.INST__V134*/ meltfptr[133] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (1), (/*_.NAMED_NAME__V132*/ meltfptr[79]), "NAMED_NAME"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @AMATCH_IN", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (2), (/*_.INFORMALS__V19*/ meltfptr[18]), "AMATCH_IN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (3), (/*_.MATCHFORMAL__V18*/ meltfptr[17]), "AMATCH_MATCHBIND"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @AMATCH_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (4), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "AMATCH_OUT"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @CMATCH_STATE", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (5), (/*_.STATESYM__V21*/ meltfptr[20]), "CMATCH_STATE"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @CMATCH_EXPTEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (6), (/*_.EXPTEST__V22*/ meltfptr[21]), "CMATCH_EXPTEST"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @CMATCH_EXPFILL", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (7), (/*_.EXPFILL__V23*/ meltfptr[22]), "CMATCH_EXPFILL"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @CMATCH_EXPOPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (8), (/*_.EXPOPER__V24*/ meltfptr[23]), "CMATCH_EXPOPER"); + ; + /*_.CMATCH__V133*/ meltfptr[132] = /*_.INST__V134*/ meltfptr[133];; + MELT_LOCATION("warmelt-macro.melt:2324:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[12])), (6), "CLASS_SOURCE_DEFCMATCHER"); + /*_.INST__V136*/ meltfptr[135] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (3), (/*_.DOCV__V25*/ meltfptr[24]), "SDEF_DOC"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (4), (/*_.SFORMALS__V17*/ meltfptr[16]), "SFORMAL_ARGS"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SCMATDEF_CMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (5), (/*_.CMATCH__V133*/ meltfptr[132]), "SCMATDEF_CMATCHER"); + ; + /*_.SDEFCMATCH__V135*/ meltfptr[134] = /*_.INST__V136*/ meltfptr[135];; + MELT_LOCATION("warmelt-macro.melt:2330:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ meltfrout->tabval[13])), (3), "CLASS_CMATCHER_BINDING"); + /*_.INST__V138*/ meltfptr[137] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V138*/ meltfptr[137]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @CMBIND_MATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V138*/ meltfptr[137]), (2), (/*_.CMATCH__V133*/ meltfptr[132]), "CMBIND_MATCHER"); + ; + /*_.CMBIND__V137*/ meltfptr[136] = /*_.INST__V138*/ meltfptr[137];; + /*^compute*/ + + /*_#MULTIPLE_LENGTH__L30*/ meltfnum[19] = + (melt_multiple_length((melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18])));; + /*^compute*/ + + /*_#MULTIPLE_LENGTH__L31*/ meltfnum[18] = + (melt_multiple_length((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19])));; + /*^compute*/ + + /*_#I__L32*/ meltfnum[31] = + ((/*_#MULTIPLE_LENGTH__L30*/ meltfnum[19]) + (/*_#MULTIPLE_LENGTH__L31*/ meltfnum[18]));; + /*^compute*/ + + /*_#I__L33*/ meltfnum[32] = + ((2) * (/*_#I__L32*/ meltfnum[31]));; + /*^compute*/ + + /*_#I__L34*/ meltfnum[33] = + ((7) + (/*_#I__L33*/ meltfnum[32]));; + /*^compute*/ + + /*_.SUBSTMAP__V139*/ meltfptr[138] = + (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (/*_#I__L34*/ meltfnum[33])));; + + { + MELT_LOCATION("warmelt-macro.melt:2340:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), + (meltobject_ptr_t) (/*_.STATESYM__V21*/ meltfptr[20]), + (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]));} + ; + MELT_LOCATION("warmelt-macro.melt:2341:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), 0, "BINDER");/*_.BINDER__V140*/ meltfptr[139] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.BINDER__V140*/ meltfptr[139] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-macro.melt:2341:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), + (meltobject_ptr_t) (/*_.BINDER__V140*/ meltfptr[139]), + (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]));} + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit1__EACHTUP: */ + long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.INFORMALS__V19*/ meltfptr[18]); + for (/*_#IBIX__L35*/ meltfnum[34] = 0; + (/*_#IBIX__L35*/ meltfnum[34] >= 0) && (/*_#IBIX__L35*/ meltfnum[34] < cit1__EACHTUP_ln); + /*_#IBIX__L35*/ meltfnum[34]++) { + /*_.CURIBIND__V141*/ meltfptr[140] = melt_multiple_nth((melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), /*_#IBIX__L35*/ meltfnum[34]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2345:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L36*/ meltfnum[35] = + melt_is_instance_of((melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-macro.melt:2345:/ cond"); + /*cond*/ if (/*_#IS_A__L36*/ meltfnum[35]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V143*/ meltfptr[142] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2345:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check input curibind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2345)?(2345):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V143*/ meltfptr[142] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V142*/ meltfptr[141] = /*_.IFELSE___V143*/ meltfptr[142];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2345:/ clear"); + /*clear*/ /*_#IS_A__L36*/ meltfnum[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V143*/ meltfptr[142] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V142*/ meltfptr[141] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:2346:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), 0, "BINDER");/*_.BINDER__V144*/ meltfptr[142] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.BINDER__V144*/ meltfptr[142] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-macro.melt:2346:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), + (meltobject_ptr_t) (/*_.BINDER__V144*/ meltfptr[142]), + (melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]));} + ; + if (/*_#IBIX__L35*/ meltfnum[34]<0) break; + } /* end cit1__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-macro.melt:2342:/ clear"); + /*clear*/ /*_.CURIBIND__V141*/ meltfptr[140] = 0 ; + /*^clear*/ + /*clear*/ /*_#IBIX__L35*/ meltfnum[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V142*/ meltfptr[141] = 0 ; + /*^clear*/ + /*clear*/ /*_.BINDER__V144*/ meltfptr[142] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + /*citerblock FOREACH_IN_MULTIPLE*/ { + /* start cit2__EACHTUP: */ + long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTFORMALS__V20*/ meltfptr[19]); + for (/*_#OBIX__L37*/ meltfnum[35] = 0; + (/*_#OBIX__L37*/ meltfnum[35] >= 0) && (/*_#OBIX__L37*/ meltfnum[35] < cit2__EACHTUP_ln); + /*_#OBIX__L37*/ meltfnum[35]++) { + /*_.CUROBIND__V145*/ meltfptr[144] = melt_multiple_nth((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19]), /*_#OBIX__L37*/ meltfnum[35]); + + + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2350:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L38*/ meltfnum[37] = + melt_is_instance_of((melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-macro.melt:2350:/ cond"); + /*cond*/ if (/*_#IS_A__L38*/ meltfnum[37]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V147*/ meltfptr[146] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2350:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check output curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2350)?(2350):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V147*/ meltfptr[146] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V146*/ meltfptr[145] = /*_.IFELSE___V147*/ meltfptr[146];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2350:/ clear"); + /*clear*/ /*_#IS_A__L38*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V147*/ meltfptr[146] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V146*/ meltfptr[145] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:2351:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), 0, "BINDER");/*_.BINDER__V148*/ meltfptr[146] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.BINDER__V148*/ meltfptr[146] = NULL;; + } + ; + + { + MELT_LOCATION("warmelt-macro.melt:2351:/ locexp"); + meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), + (meltobject_ptr_t) (/*_.BINDER__V148*/ meltfptr[146]), + (melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]));} + ; + if (/*_#OBIX__L37*/ meltfnum[35]<0) break; + } /* end cit2__EACHTUP */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-macro.melt:2347:/ clear"); + /*clear*/ /*_.CUROBIND__V145*/ meltfptr[144] = 0 ; + /*^clear*/ + /*clear*/ /*_#OBIX__L37*/ meltfnum[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V146*/ meltfptr[145] = 0 ; + /*^clear*/ + /*clear*/ /*_.BINDER__V148*/ meltfptr[146] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ + ; + MELT_LOCATION("warmelt-macro.melt:2353:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; + /*_.CHECK_C_EXPANSION__V149*/ meltfptr[148] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPTEST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:2354:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; + /*_.CHECK_C_EXPANSION__V150*/ meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPFILL__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:2355:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; + /*_.CHECK_C_EXPANSION__V151*/ meltfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPOPER__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2356:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2356:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defcmatcher sdefcmatch"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2356; + /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEFCMATCH__V135*/ meltfptr[134]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V152*/ meltfptr[151] = /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2356:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V152*/ meltfptr[151] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:2357:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMBIND__V137*/ meltfptr[136]; + /*_.PUT_ENV__V154*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:2358:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFCMATCH__V135*/ meltfptr[134];; + MELT_LOCATION("warmelt-macro.melt:2358:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V131*/ meltfptr[122] = /*_.RETURN___V155*/ meltfptr[154];; + + MELT_LOCATION("warmelt-macro.melt:2313:/ clear"); + /*clear*/ /*_.NAMED_NAME__V132*/ meltfptr[79] = 0 ; + /*^clear*/ + /*clear*/ /*_.CMATCH__V133*/ meltfptr[132] = 0 ; + /*^clear*/ + /*clear*/ /*_.SDEFCMATCH__V135*/ meltfptr[134] = 0 ; + /*^clear*/ + /*clear*/ /*_.CMBIND__V137*/ meltfptr[136] = 0 ; + /*^clear*/ + /*clear*/ /*_#MULTIPLE_LENGTH__L30*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_#MULTIPLE_LENGTH__L31*/ meltfnum[18] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L32*/ meltfnum[31] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L33*/ meltfnum[32] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L34*/ meltfnum[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.SUBSTMAP__V139*/ meltfptr[138] = 0 ; + /*^clear*/ + /*clear*/ /*_.BINDER__V140*/ meltfptr[139] = 0 ; + /*^clear*/ + /*clear*/ /*_.CHECK_C_EXPANSION__V149*/ meltfptr[148] = 0 ; + /*^clear*/ + /*clear*/ /*_.CHECK_C_EXPANSION__V150*/ meltfptr[149] = 0 ; + /*^clear*/ + /*clear*/ /*_.CHECK_C_EXPANSION__V151*/ meltfptr[150] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V152*/ meltfptr[151] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ENV__V154*/ meltfptr[152] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V155*/ meltfptr[154] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V131*/ meltfptr[122];; + + MELT_LOCATION("warmelt-macro.melt:2200:/ clear"); + /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.SYMB__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.SFORMALS__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.MATCHFORMAL__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.INFORMALS__V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.OUTFORMALS__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.STATESYM__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.EXPTEST__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.EXPFILL__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.EXPOPER__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.DOCV__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V28*/ meltfptr[26] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V31*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V32*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V53*/ meltfptr[51] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V54*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V55*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V57*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V58*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_MULTIPLE__L13*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L14*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V60*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V63*/ meltfptr[46] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V64*/ meltfptr[47] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V65*/ meltfptr[49] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V66*/ meltfptr[50] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V67*/ meltfptr[40] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V72*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V74*/ meltfptr[70] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V75*/ meltfptr[44] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V76*/ meltfptr[75] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L18*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V77*/ meltfptr[76] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V85*/ meltfptr[77] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V97*/ meltfptr[80] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V99*/ meltfptr[83] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V100*/ meltfptr[95] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V101*/ meltfptr[81] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V111*/ meltfptr[104] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V113*/ meltfptr[108] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V114*/ meltfptr[109] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V115*/ meltfptr[82] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V125*/ meltfptr[121] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V127*/ meltfptr[107] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V128*/ meltfptr[118] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V129*/ meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V14*/ meltfptr[13] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2217:/ quasiblock"); + /*clear*/ /*_.LET___V131*/ meltfptr[122] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2196:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2217:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2196:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -19394,13 +21191,13 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_DEFVARIADIC", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_DEFCMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC*/ +} /*end meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER*/ diff --git a/gcc/melt/generated/warmelt-macro-0+02.c b/gcc/melt/generated/warmelt-macro-0+02.c index 588dcee679b..9f98c0a03e6 100644 --- a/gcc/melt/generated/warmelt-macro-0+02.c +++ b/gcc/melt/generated/warmelt-macro-0+02.c @@ -199,52 +199,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -254,222 +254,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -484,17 +484,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -504,12 +504,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -519,12 +519,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -534,142 +534,137 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - - - -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -700,7 +695,111 @@ static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_m melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_35_warmelt_macro_LAMBDA__st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 2 + void* mcfr_varptr[2]; +#define MELTFRAM_NBVARNUM 3 + long mcfr_varnum[3]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<2; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 2; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("LAMBDA_", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:2239:/ getarg"); + /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + /*_#I__L2*/ meltfnum[1] = + ((/*_#IX__L1*/ meltfnum[0]) > (0));; + MELT_LOCATION("warmelt-macro.melt:2239:/ cond"); + /*cond*/ if (/*_#I__L2*/ meltfnum[1]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#I__L3*/ meltfnum[2] = + ((/*_#IX__L1*/ meltfnum[0]) - (1));; + + { + MELT_LOCATION("warmelt-macro.melt:2239:/ locexp"); + meltgc_multiple_put_nth((melt_ptr_t)((/*~INFORMALS*/ meltfclos->tabval[0])), (/*_#I__L3*/ meltfnum[2]), (melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]));} + ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_#I__L3*/ meltfnum[2] = 0 ;} + ; + } /*noelse*/ + ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_#I__L2*/ meltfnum[1] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*noretval*/ NULL); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_35_warmelt_macro_LAMBDA_*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -713,7 +812,7 @@ meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER_st { + struct frame_meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -721,10 +820,10 @@ meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 155 - void* mcfr_varptr[155]; -#define MELTFRAM_NBVARNUM 39 - long mcfr_varnum[39]; +#define MELTFRAM_NBVARPTR 111 + void* mcfr_varptr[111]; +#define MELTFRAM_NBVARNUM 19 + long mcfr_varnum[19]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -733,21 +832,21 @@ meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<155; ix++) + for(ix=0; ix<111; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 155; + meltfram__.mcfr_nbvar = 111; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_DEFCMATCHER", meltcallcount); +melt_trace_start("MEXPAND_DEFUNMATCHER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2238:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2372:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -772,31 +871,31 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2239:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2373:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2239:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2373:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher sexpr"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher sexpr"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2239; + argtab[3].meltbp_long = 2373; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2239:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -808,17 +907,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2240:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2374:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2240:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2374:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2240:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2374:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -829,7 +928,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2240)?(2240):__LINE__, __FUNCTION__); + (2374)?(2374):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -843,7 +942,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2240:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2374:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -855,17 +954,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2241:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2375:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2241:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2375:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2241:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2375:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -876,7 +975,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2241)?(2241):__LINE__, __FUNCTION__); + (2375)?(2375):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -890,7 +989,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2241:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2375:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -900,14 +999,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2242:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2376:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2243:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2377:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -935,60 +1034,57 @@ lab_endgetargs:; /*_.OUTFORMALS__V20*/ meltfptr[19] = (/*nil*/NULL);; /*^compute*/ - /*_.STATESYM__V21*/ meltfptr[20] = (/*nil*/NULL);; - /*^compute*/ - - /*_.EXPTEST__V22*/ meltfptr[21] = (/*nil*/NULL);; + /*_.MATCHFUNX__V21*/ meltfptr[20] = (/*nil*/NULL);; /*^compute*/ - /*_.EXPFILL__V23*/ meltfptr[22] = (/*nil*/NULL);; + /*_.APPLYFUNX__V22*/ meltfptr[21] = (/*nil*/NULL);; /*^compute*/ - /*_.EXPOPER__V24*/ meltfptr[23] = (/*nil*/NULL);; + /*_.DATAX__V23*/ meltfptr[22] = (/*nil*/NULL);; /*^compute*/ - /*_.DOCV__V25*/ meltfptr[24] = (/*nil*/NULL);; + /*_.DOCV__V24*/ meltfptr[23] = (/*nil*/NULL);; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2258:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2391:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2258:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2391:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher symb"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher symb"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2258; - /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2391; + /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; + /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2258:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2391:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); + /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2259:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2392:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -996,58 +1092,58 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2261:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "symbol expected for (DEFCMATCHER )"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:2394:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "symbol expected for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2264:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2397:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2264:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2397:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2260:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2393:/ quasiblock"); - /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[28];; + /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; /*^compute*/ - /*_.IF___V28*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[29];; + /*_.IF___V27*/ meltfptr[25] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2259:/ clear"); - /*clear*/ /*_.RETURN___V29*/ meltfptr[28] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2392:/ clear"); + /*clear*/ /*_.RETURN___V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ;} + /*clear*/ /*_.PROGN___V29*/ meltfptr[28] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V28*/ meltfptr[26] = NULL;; + /*_.IF___V27*/ meltfptr[25] = NULL;; } ; /*^compute*/ - /*_.PAIR_TAIL__V31*/ meltfptr[28] = + /*_.PAIR_TAIL__V30*/ meltfptr[27] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2265:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[29] = /*_.PAIR_TAIL__V31*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:2267:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2398:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V31*/ meltfptr[28] = /*_.PAIR_TAIL__V30*/ meltfptr[27];; + MELT_LOCATION("warmelt-macro.melt:2400:/ quasiblock"); - /*_.PAIR_HEAD__V34*/ meltfptr[33] = + /*_.PAIR_HEAD__V33*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2267:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2400:/ apply"); /*apply*/{ - /*_.MATINFORMALS__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V34*/ meltfptr[33]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + /*_.MATINFORMALS__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V33*/ meltfptr[32]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#NBMATINFORMALS__L6*/ meltfnum[5] = - (melt_multiple_length((melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34])));; + (melt_multiple_length((melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33])));; /*^compute*/ /*_#I__L7*/ meltfnum[6] = ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) < (1));; - MELT_LOCATION("warmelt-macro.melt:2270:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2403:/ cond"); /*cond*/ if (/*_#I__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1055,470 +1151,260 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2272:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "empty ins for (DEFCMATCHER )"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:2405:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "empty ins for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2273:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2406:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2273:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2406:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2271:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2404:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];; + /*_.PROGN___V37*/ meltfptr[36] = /*_.RETURN___V36*/ meltfptr[35];; /*^compute*/ - /*_.IF___V36*/ meltfptr[35] = /*_.PROGN___V38*/ meltfptr[37];; + /*_.IF___V35*/ meltfptr[34] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2270:/ clear"); - /*clear*/ /*_.RETURN___V37*/ meltfptr[36] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2403:/ clear"); + /*clear*/ /*_.RETURN___V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V38*/ meltfptr[37] = 0 ;} + /*clear*/ /*_.PROGN___V37*/ meltfptr[36] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V36*/ meltfptr[35] = NULL;; + /*_.IF___V35*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2274:/ compute"); - /*_.SFORMALS__V17*/ meltfptr[16] = /*_.SETQ___V39*/ meltfptr[36] = /*_.MATINFORMALS__V35*/ meltfptr[34];; - /*_.MULTIPLE_NTH__V40*/ meltfptr[37] = - (melt_multiple_nth((melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34]), (0)));; - MELT_LOCATION("warmelt-macro.melt:2275:/ compute"); - /*_.MATCHFORMAL__V18*/ meltfptr[17] = /*_.SETQ___V41*/ meltfptr[40] = /*_.MULTIPLE_NTH__V40*/ meltfptr[37];; + MELT_LOCATION("warmelt-macro.melt:2407:/ compute"); + /*_.SFORMALS__V17*/ meltfptr[16] = /*_.SETQ___V38*/ meltfptr[35] = /*_.MATINFORMALS__V34*/ meltfptr[33];; + /*_.MULTIPLE_NTH__V39*/ meltfptr[36] = + (melt_multiple_nth((melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33]), (0)));; + MELT_LOCATION("warmelt-macro.melt:2408:/ compute"); + /*_.MATCHFORMAL__V18*/ meltfptr[17] = /*_.SETQ___V40*/ meltfptr[39] = /*_.MULTIPLE_NTH__V39*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2276:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2409:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2276:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2409:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher matchformal"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher matchformal"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2276; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2409; + /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*_.IFCPP___V41*/ meltfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2276:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2409:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2277:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L9*/ meltfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2277:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V45*/ meltfptr[44] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2277:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check matchformal"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2277)?(2277):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V44*/ meltfptr[42] = /*_.IFELSE___V45*/ meltfptr[44];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2277:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V45*/ meltfptr[44] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); + /*_.IFCPP___V41*/ meltfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_#I__L10*/ meltfnum[7] = + /*_#I__L9*/ meltfnum[7] = ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) - (1));; /*^compute*/ - /*_.MAKE_MULTIPLE__V46*/ meltfptr[44] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[6])), (/*_#I__L10*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:2278:/ compute"); - /*_.INFORMALS__V19*/ meltfptr[18] = /*_.SETQ___V47*/ meltfptr[46] = /*_.MAKE_MULTIPLE__V46*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:2281:/ quasiblock"); + /*_.MAKE_MULTIPLE__V43*/ meltfptr[41] = + (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#I__L9*/ meltfnum[7])));; + MELT_LOCATION("warmelt-macro.melt:2410:/ compute"); + /*_.INFORMALS__V19*/ meltfptr[18] = /*_.SETQ___V44*/ meltfptr[43] = /*_.MAKE_MULTIPLE__V43*/ meltfptr[41];; + MELT_LOCATION("warmelt-macro.melt:2413:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V49*/ meltfptr[48] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (1)); + /*newclosure*/ /*_.LAMBDA___V46*/ meltfptr[45] = + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (1)); ; /*^putclosedv*/ /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ meltfptr[48])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ meltfptr[48]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ meltfptr[48])->tabval[0] = (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]); + melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V46*/ meltfptr[45])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V46*/ meltfptr[45]))); + ((meltclosure_ptr_t)/*_.LAMBDA___V46*/ meltfptr[45])->tabval[0] = (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]); ; - /*_.LAMBDA___V48*/ meltfptr[47] = /*_.LAMBDA___V49*/ meltfptr[48];; - MELT_LOCATION("warmelt-macro.melt:2279:/ apply"); + /*_.LAMBDA___V45*/ meltfptr[44] = /*_.LAMBDA___V46*/ meltfptr[45];; + MELT_LOCATION("warmelt-macro.melt:2411:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[47]; - /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.MATINFORMALS__V35*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V45*/ meltfptr[44]; + /*_.MULTIPLE_EVERY__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2282:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2414:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2282:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2414:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher informals"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher informals"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2282; - /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2414; + /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; + /*_.IFCPP___V48*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2282:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2414:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V51*/ meltfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V48*/ meltfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_.LET___V33*/ meltfptr[32] = /*_.IFCPP___V51*/ meltfptr[50];; + /*_.LET___V32*/ meltfptr[31] = /*_.IFCPP___V48*/ meltfptr[47];; - MELT_LOCATION("warmelt-macro.melt:2267:/ clear"); - /*clear*/ /*_.PAIR_HEAD__V34*/ meltfptr[33] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2400:/ clear"); + /*clear*/ /*_.PAIR_HEAD__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.MATINFORMALS__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MATINFORMALS__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_#NBMATINFORMALS__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V36*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V39*/ meltfptr[36] = 0 ; + /*clear*/ /*_.IF___V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V40*/ meltfptr[37] = 0 ; + /*clear*/ /*_.SETQ___V38*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.MULTIPLE_NTH__V39*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.SETQ___V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.IFCPP___V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#I__L10*/ meltfnum[7] = 0 ; + /*clear*/ /*_#I__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V46*/ meltfptr[44] = 0 ; + /*clear*/ /*_.MAKE_MULTIPLE__V43*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.LAMBDA___V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.MULTIPLE_EVERY__V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; - /*_.PAIR_TAIL__V53*/ meltfptr[51] = + /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; + /*_.PAIR_TAIL__V50*/ meltfptr[48] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2285:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V54*/ meltfptr[33] = /*_.PAIR_TAIL__V53*/ meltfptr[51];; - /*_.PAIR_HEAD__V55*/ meltfptr[34] = + MELT_LOCATION("warmelt-macro.melt:2417:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V51*/ meltfptr[32] = /*_.PAIR_TAIL__V50*/ meltfptr[48];; + /*_.PAIR_HEAD__V52*/ meltfptr[33] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2286:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2418:/ apply"); /*apply*/{ - /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V55*/ meltfptr[34]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V52*/ meltfptr[33]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.OUTFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V57*/ meltfptr[36] = /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2287:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2287:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher outformals"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2287; - /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V58*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2287:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[40] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V58*/ meltfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_MULTIPLE__L13*/ meltfnum[5] = + /*_.OUTFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[35] = /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34];; + /*_#IS_MULTIPLE__L11*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19])) == MELTOBMAG_MULTIPLE);; /*^compute*/ - /*_#NOT__L14*/ meltfnum[6] = - (!(/*_#IS_MULTIPLE__L13*/ meltfnum[5]));; - MELT_LOCATION("warmelt-macro.melt:2288:/ cond"); - /*cond*/ if (/*_#NOT__L14*/ meltfnum[6]) /*then*/ { + /*_#NOT__L12*/ meltfnum[5] = + (!(/*_#IS_MULTIPLE__L11*/ meltfnum[9]));; + MELT_LOCATION("warmelt-macro.melt:2419:/ cond"); + /*cond*/ if (/*_#NOT__L12*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:2290:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad outs for (DEFCMATCHER )"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:2421:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad outs for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2291:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2422:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2291:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2422:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2289:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2420:/ quasiblock"); - /*_.PROGN___V62*/ meltfptr[44] = /*_.RETURN___V61*/ meltfptr[42];; + /*_.PROGN___V57*/ meltfptr[40] = /*_.RETURN___V56*/ meltfptr[39];; /*^compute*/ - /*_.IF___V60*/ meltfptr[41] = /*_.PROGN___V62*/ meltfptr[44];; + /*_.IF___V55*/ meltfptr[36] = /*_.PROGN___V57*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2288:/ clear"); - /*clear*/ /*_.RETURN___V61*/ meltfptr[42] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2419:/ clear"); + /*clear*/ /*_.RETURN___V56*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V62*/ meltfptr[44] = 0 ;} + /*clear*/ /*_.PROGN___V57*/ meltfptr[40] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V60*/ meltfptr[41] = NULL;; - } - ; - /*^compute*/ - - /*_.PAIR_TAIL__V63*/ meltfptr[46] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2293:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V64*/ meltfptr[47] = /*_.PAIR_TAIL__V63*/ meltfptr[46];; - /*_.PAIR_HEAD__V65*/ meltfptr[49] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2294:/ compute"); - /*_.STATESYM__V21*/ meltfptr[20] = /*_.SETQ___V66*/ meltfptr[50] = /*_.PAIR_HEAD__V65*/ meltfptr[49];; - /*_#IS_NOT_A__L15*/ meltfnum[7] = - !melt_is_instance_of((melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2295:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L15*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2297:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2297:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher bad statesym"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2297; - /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V68*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2297:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V68*/ meltfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-macro.melt:2298:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad statesym for (DEFCMATCHER )"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2299:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2299:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2296:/ quasiblock"); - - - /*_.PROGN___V71*/ meltfptr[70] = /*_.RETURN___V70*/ meltfptr[44];; - /*^compute*/ - - /*_.IF___V67*/ meltfptr[40] = /*_.PROGN___V71*/ meltfptr[70];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2295:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V70*/ meltfptr[44] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V71*/ meltfptr[70] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V67*/ meltfptr[40] = NULL;; + /*_.IF___V55*/ meltfptr[36] = NULL;; } ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2300:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2300:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher statesym"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2300; - /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V72*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2300:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ meltfptr[44] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V72*/ meltfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; /*^compute*/ - /*_.PAIR_TAIL__V74*/ meltfptr[70] = + /*_.PAIR_TAIL__V58*/ meltfptr[41] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2301:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V75*/ meltfptr[44] = /*_.PAIR_TAIL__V74*/ meltfptr[70];; - /*_.PAIR_HEAD__V76*/ meltfptr[75] = + MELT_LOCATION("warmelt-macro.melt:2423:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V59*/ meltfptr[43] = /*_.PAIR_TAIL__V58*/ meltfptr[41];; + /*_.PAIR_HEAD__V60*/ meltfptr[44] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; /*^compute*/ - /*_#__L18*/ meltfnum[10] = - ((/*_.PAIR_HEAD__V76*/ meltfptr[75]) == ((/*!konst_9_DOC*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:2303:/ cond"); - /*cond*/ if (/*_#__L18*/ meltfnum[10]) /*then*/ { + /*_#__L13*/ meltfnum[6] = + ((/*_.PAIR_HEAD__V60*/ meltfptr[44]) == ((/*!konst_8_DOC*/ meltfrout->tabval[8])));; + MELT_LOCATION("warmelt-macro.melt:2425:/ cond"); + /*cond*/ if (/*_#__L13*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.PAIR_TAIL__V78*/ meltfptr[77] = + /*_.PAIR_TAIL__V62*/ meltfptr[47] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2305:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V79*/ meltfptr[78] = /*_.PAIR_TAIL__V78*/ meltfptr[77];; - MELT_LOCATION("warmelt-macro.melt:2306:/ cond"); - /*cond*/ if (/*_.DOCV__V25*/ meltfptr[24]) /*then*/ { + MELT_LOCATION("warmelt-macro.melt:2427:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V63*/ meltfptr[39] = /*_.PAIR_TAIL__V62*/ meltfptr[47];; + MELT_LOCATION("warmelt-macro.melt:2428:/ cond"); + /*cond*/ if (/*_.DOCV__V24*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ @@ -1526,576 +1412,325 @@ lab_endgetargs:; { /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate documentation in DEFCMATCHER"), (melt_ptr_t)0);} + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate documentation for DEFUNMATCHER"), (melt_ptr_t)0);} ; /*epilog*/ } ; } /*noelse*/ ; - /*_.PAIR_HEAD__V80*/ meltfptr[79] = + /*_.PAIR_HEAD__V64*/ meltfptr[40] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2307:/ compute"); - /*_.DOCV__V25*/ meltfptr[24] = /*_.SETQ___V81*/ meltfptr[80] = /*_.PAIR_HEAD__V80*/ meltfptr[79];; - /*_.PAIR_TAIL__V82*/ meltfptr[81] = + MELT_LOCATION("warmelt-macro.melt:2429:/ compute"); + /*_.DOCV__V24*/ meltfptr[23] = /*_.SETQ___V65*/ meltfptr[64] = /*_.PAIR_HEAD__V64*/ meltfptr[40];; + /*_.PAIR_TAIL__V66*/ meltfptr[65] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2308:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V83*/ meltfptr[82] = /*_.PAIR_TAIL__V82*/ meltfptr[81];; - MELT_LOCATION("warmelt-macro.melt:2304:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2430:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V67*/ meltfptr[66] = /*_.PAIR_TAIL__V66*/ meltfptr[65];; + MELT_LOCATION("warmelt-macro.melt:2426:/ quasiblock"); - /*_.PROGN___V84*/ meltfptr[83] = /*_.SETQ___V83*/ meltfptr[82];; + /*_.PROGN___V68*/ meltfptr[67] = /*_.SETQ___V67*/ meltfptr[66];; /*^compute*/ - /*_.IF___V77*/ meltfptr[76] = /*_.PROGN___V84*/ meltfptr[83];; + /*_.IF___V61*/ meltfptr[46] = /*_.PROGN___V68*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2303:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V78*/ meltfptr[77] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2425:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V62*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.SETQ___V63*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V64*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.SETQ___V65*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V66*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.SETQ___V67*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V84*/ meltfptr[83] = 0 ;} + /*clear*/ /*_.PROGN___V68*/ meltfptr[67] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V77*/ meltfptr[76] = NULL;; + /*_.IF___V61*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2311:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2433:/ quasiblock"); - /*_.SEXPTEST__V86*/ meltfptr[78] = + /*_.MFA__V70*/ meltfptr[39] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2312:/ cond"); - /*cond*/ if (/*_.SEXPTEST__V86*/ meltfptr[78]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_#IS_NOT_A__L20*/ meltfnum[19] = - !melt_is_instance_of((melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - /*^compute*/ - - /*_#IF___L19*/ meltfnum[18] = /*_#IS_NOT_A__L20*/ meltfnum[19];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2312:/ clear"); - /*clear*/ /*_#IS_NOT_A__L20*/ meltfnum[19] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L19*/ meltfnum[18] = 0;; - } - ; - MELT_LOCATION("warmelt-macro.melt:2312:/ cond"); - /*cond*/ if (/*_#IF___L19*/ meltfnum[18]) /*then*/ { + MELT_LOCATION("warmelt-macro.melt:2434:/ cond"); + /*cond*/ if (/*_.MFA__V70*/ meltfptr[39]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2314:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2314:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher bad sexptest"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2314; - /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V88*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2314:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ meltfptr[81] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V88*/ meltfptr[80] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-macro.melt:2315:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad test expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2316:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2316:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2435:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V72*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MFA__V70*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2313:/ quasiblock"); - - - /*_.PROGN___V91*/ meltfptr[83] = /*_.RETURN___V90*/ meltfptr[82];; /*^compute*/ - - /*_.IFELSE___V87*/ meltfptr[79] = /*_.PROGN___V91*/ meltfptr[83];; + /*_.MATCHFUNX__V21*/ meltfptr[20] = /*_.SETQ___V73*/ meltfptr[65] = /*_.MACROEXPAND_1__V72*/ meltfptr[64];; + /*_.IFELSE___V71*/ meltfptr[40] = /*_.SETQ___V73*/ meltfptr[65];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2312:/ clear"); - /*clear*/ /*_.IFCPP___V88*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V90*/ meltfptr[82] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2434:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V72*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V91*/ meltfptr[83] = 0 ;} + /*clear*/ /*_.SETQ___V73*/ meltfptr[65] = 0 ;} ; } else {/*^cond.else*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2317:/ cond"); - /*cond*/ if (/*_.SEXPTEST__V86*/ meltfptr[78]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2321:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPTEST__V86*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V93*/ meltfptr[80] = slot; }; - ; - /*_.LIST_FIRST__V94*/ meltfptr[82] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V93*/ meltfptr[80])));; - MELT_LOCATION("warmelt-macro.melt:2319:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V94*/ meltfptr[82]; - /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2318:/ compute"); - /*_.EXPTEST__V22*/ meltfptr[21] = /*_.SETQ___V96*/ meltfptr[95] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83];; - /*_.IF___V92*/ meltfptr[81] = /*_.SETQ___V96*/ meltfptr[95];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2317:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V93*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V94*/ meltfptr[82] = 0 ; - /*^clear*/ - /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V95*/ meltfptr[83] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V96*/ meltfptr[95] = 0 ;} - ; - } else {/*^cond.else*/ - /*_.IF___V92*/ meltfptr[81] = NULL;; - } + + + { + MELT_LOCATION("warmelt-macro.melt:2436:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad matchfun for (DEFUNMATCHER [])"), (melt_ptr_t)0);} ; - /*^compute*/ - - /*_.IFELSE___V87*/ meltfptr[79] = /*_.IF___V92*/ meltfptr[81];; + /*clear*/ /*_.IFELSE___V71*/ meltfptr[40] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2312:/ clear"); - /*clear*/ /*_.IF___V92*/ meltfptr[81] = 0 ;} + } ; } ; - /*_.LET___V85*/ meltfptr[77] = /*_.IFELSE___V87*/ meltfptr[79];; + /*^compute*/ + + /*_.LET___V69*/ meltfptr[47] = /*_.IFELSE___V71*/ meltfptr[40];; - MELT_LOCATION("warmelt-macro.melt:2311:/ clear"); - /*clear*/ /*_.SEXPTEST__V86*/ meltfptr[78] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L19*/ meltfnum[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2433:/ clear"); + /*clear*/ /*_.MFA__V70*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V87*/ meltfptr[79] = 0 ; + /*clear*/ /*_.IFELSE___V71*/ meltfptr[40] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2323:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2438:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = + /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2323:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2438:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher exptest"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher matchfunx"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2323; - /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTEST__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2438; + /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFUNX__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V97*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82];; + /*_.IFCPP___V74*/ meltfptr[66] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2323:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2438:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ meltfptr[82] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V97*/ meltfptr[80] = (/*nil*/NULL); + /*_.IFCPP___V74*/ meltfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_.PAIR_TAIL__V99*/ meltfptr[83] = + /*_.PAIR_TAIL__V76*/ meltfptr[64] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2325:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V100*/ meltfptr[95] = /*_.PAIR_TAIL__V99*/ meltfptr[83];; - MELT_LOCATION("warmelt-macro.melt:2326:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2440:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V77*/ meltfptr[65] = /*_.PAIR_TAIL__V76*/ meltfptr[64];; + MELT_LOCATION("warmelt-macro.melt:2441:/ quasiblock"); - /*_.SEXPFILL__V102*/ meltfptr[78] = + /*_.AFA__V79*/ meltfptr[40] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2327:/ cond"); - /*cond*/ if (/*_.SEXPFILL__V102*/ meltfptr[78]) /*then*/ { + MELT_LOCATION("warmelt-macro.melt:2442:/ cond"); + /*cond*/ if (/*_.AFA__V79*/ meltfptr[40]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_NOT_A__L24*/ meltfnum[19] = - !melt_is_instance_of((melt_ptr_t)(/*_.SEXPFILL__V102*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:2443:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.AFA__V79*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; /*^compute*/ - - /*_#IF___L23*/ meltfnum[18] = /*_#IS_NOT_A__L24*/ meltfnum[19];; + /*_.APPLYFUNX__V22*/ meltfptr[21] = /*_.SETQ___V82*/ meltfptr[81] = /*_.MACROEXPAND_1__V81*/ meltfptr[80];; + /*_.IF___V80*/ meltfptr[67] = /*_.SETQ___V82*/ meltfptr[81];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2327:/ clear"); - /*clear*/ /*_#IS_NOT_A__L24*/ meltfnum[19] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:2442:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V81*/ meltfptr[80] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V82*/ meltfptr[81] = 0 ;} ; } else {/*^cond.else*/ - /*_#IF___L23*/ meltfnum[18] = 0;; + /*_.IF___V80*/ meltfptr[67] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2327:/ cond"); - /*cond*/ if (/*_#IF___L23*/ meltfnum[18]) /*then*/ { - /*^cond.then*/ + /*^compute*/ + + /*_.LET___V78*/ meltfptr[39] = /*_.IF___V80*/ meltfptr[67];; + + MELT_LOCATION("warmelt-macro.melt:2441:/ clear"); + /*clear*/ /*_.AFA__V79*/ meltfptr[40] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V80*/ meltfptr[67] = 0 ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2447:/ cppif.then"); /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-macro.melt:2329:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad fill expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2330:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2330:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2328:/ quasiblock"); - - - /*_.PROGN___V105*/ meltfptr[104] = /*_.RETURN___V104*/ meltfptr[82];; - /*^compute*/ - - /*_.IFELSE___V103*/ meltfptr[79] = /*_.PROGN___V105*/ meltfptr[104];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2327:/ clear"); - /*clear*/ /*_.RETURN___V104*/ meltfptr[82] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V105*/ meltfptr[104] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2331:/ cond"); - /*cond*/ if (/*_.SEXPFILL__V102*/ meltfptr[78]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2334:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPFILL__V102*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V107*/ meltfptr[104] = slot; }; - ; - /*_.LIST_FIRST__V108*/ meltfptr[107] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V107*/ meltfptr[104])));; - MELT_LOCATION("warmelt-macro.melt:2333:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V108*/ meltfptr[107]; - /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2332:/ compute"); - /*_.EXPFILL__V23*/ meltfptr[22] = /*_.SETQ___V110*/ meltfptr[109] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108];; - /*_.IF___V106*/ meltfptr[82] = /*_.SETQ___V110*/ meltfptr[109];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2331:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V107*/ meltfptr[104] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V108*/ meltfptr[107] = 0 ; - /*^clear*/ - /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V109*/ meltfptr[108] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V110*/ meltfptr[109] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V106*/ meltfptr[82] = NULL;; - } - ; - /*^compute*/ - - /*_.IFELSE___V103*/ meltfptr[79] = /*_.IF___V106*/ meltfptr[82];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2327:/ clear"); - /*clear*/ /*_.IF___V106*/ meltfptr[82] = 0 ;} - ; - } - ; - /*_.LET___V101*/ meltfptr[81] = /*_.IFELSE___V103*/ meltfptr[79];; - - MELT_LOCATION("warmelt-macro.melt:2326:/ clear"); - /*clear*/ /*_.SEXPFILL__V102*/ meltfptr[78] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L23*/ meltfnum[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V103*/ meltfptr[79] = 0 ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2336:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2336:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2447:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher expfill"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher applyfunx"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2336; - /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPFILL__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2447; + /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.APPLYFUNX__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V111*/ meltfptr[104] = /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107];; + /*_.IFCPP___V83*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2336:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2447:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ meltfptr[107] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V111*/ meltfptr[104] = (/*nil*/NULL); + /*_.IFCPP___V83*/ meltfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_.PAIR_TAIL__V113*/ meltfptr[108] = + /*_.PAIR_TAIL__V85*/ meltfptr[40] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2338:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V114*/ meltfptr[109] = /*_.PAIR_TAIL__V113*/ meltfptr[108];; - MELT_LOCATION("warmelt-macro.melt:2339:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2449:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V86*/ meltfptr[67] = /*_.PAIR_TAIL__V85*/ meltfptr[40];; + MELT_LOCATION("warmelt-macro.melt:2450:/ quasiblock"); - /*_.SEXPOPER__V116*/ meltfptr[78] = + /*_.DTA__V88*/ meltfptr[87] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2340:/ cond"); - /*cond*/ if (/*_.SEXPOPER__V116*/ meltfptr[78]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_#IS_NOT_A__L27*/ meltfnum[19] = - !melt_is_instance_of((melt_ptr_t)(/*_.SEXPOPER__V116*/ meltfptr[78]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - /*^compute*/ - - /*_#IF___L26*/ meltfnum[18] = /*_#IS_NOT_A__L27*/ meltfnum[19];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2340:/ clear"); - /*clear*/ /*_#IS_NOT_A__L27*/ meltfnum[19] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L26*/ meltfnum[18] = 0;; - } - ; - MELT_LOCATION("warmelt-macro.melt:2340:/ cond"); - /*cond*/ if (/*_#IF___L26*/ meltfnum[18]) /*then*/ { + MELT_LOCATION("warmelt-macro.melt:2451:/ cond"); + /*cond*/ if (/*_.DTA__V88*/ meltfptr[87]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-macro.melt:2342:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad oper expansion in (DEFCMATCHER )"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2343:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2343:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2452:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DTA__V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2341:/ quasiblock"); - - - /*_.PROGN___V119*/ meltfptr[118] = /*_.RETURN___V118*/ meltfptr[107];; /*^compute*/ - - /*_.IFELSE___V117*/ meltfptr[79] = /*_.PROGN___V119*/ meltfptr[118];; + /*_.DATAX__V23*/ meltfptr[22] = /*_.SETQ___V91*/ meltfptr[90] = /*_.MACROEXPAND_1__V90*/ meltfptr[89];; + /*_.IF___V89*/ meltfptr[88] = /*_.SETQ___V91*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2340:/ clear"); - /*clear*/ /*_.RETURN___V118*/ meltfptr[107] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2451:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V90*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V119*/ meltfptr[118] = 0 ;} + /*clear*/ /*_.SETQ___V91*/ meltfptr[90] = 0 ;} ; } else {/*^cond.else*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2345:/ cond"); - /*cond*/ if (/*_.SEXPOPER__V116*/ meltfptr[78]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2346:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPOPER__V116*/ meltfptr[78]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V121*/ meltfptr[118] = slot; }; - ; - /*_.LIST_FIRST__V122*/ meltfptr[121] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V121*/ meltfptr[118])));; - MELT_LOCATION("warmelt-macro.melt:2346:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LIST_FIRST__V122*/ meltfptr[121]; - /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IF___V120*/ meltfptr[107] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2345:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V121*/ meltfptr[118] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V122*/ meltfptr[121] = 0 ; - /*^clear*/ - /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V123*/ meltfptr[122] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V120*/ meltfptr[107] = NULL;; - } - ; - MELT_LOCATION("warmelt-macro.melt:2344:/ compute"); - /*_.EXPOPER__V24*/ meltfptr[23] = /*_.SETQ___V124*/ meltfptr[118] = /*_.IF___V120*/ meltfptr[107];; - /*_.IFELSE___V117*/ meltfptr[79] = /*_.SETQ___V124*/ meltfptr[118];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2340:/ clear"); - /*clear*/ /*_.IF___V120*/ meltfptr[107] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V124*/ meltfptr[118] = 0 ;} - ; + /*_.IF___V89*/ meltfptr[88] = NULL;; } ; - /*_.LET___V115*/ meltfptr[82] = /*_.IFELSE___V117*/ meltfptr[79];; + /*^compute*/ + + /*_.LET___V87*/ meltfptr[81] = /*_.IF___V89*/ meltfptr[88];; - MELT_LOCATION("warmelt-macro.melt:2339:/ clear"); - /*clear*/ /*_.SEXPOPER__V116*/ meltfptr[78] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L26*/ meltfnum[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2450:/ clear"); + /*clear*/ /*_.DTA__V88*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V117*/ meltfptr[79] = 0 ; + /*clear*/ /*_.IF___V89*/ meltfptr[88] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2348:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2455:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19] = + /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2348:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2455:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher expfill"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher datax"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2348; - /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPOPER__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2455; + /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DATAX__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V125*/ meltfptr[121] = /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122];; + /*_.IFCPP___V92*/ meltfptr[89] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2348:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2455:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V126*/ meltfptr[122] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V125*/ meltfptr[121] = (/*nil*/NULL); + /*_.IFCPP___V92*/ meltfptr[89] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_.PAIR_TAIL__V127*/ meltfptr[107] = + /*_.PAIR_TAIL__V94*/ meltfptr[87] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2350:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V128*/ meltfptr[118] = /*_.PAIR_TAIL__V127*/ meltfptr[107];; - MELT_LOCATION("warmelt-macro.melt:2351:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2457:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V95*/ meltfptr[88] = /*_.PAIR_TAIL__V94*/ meltfptr[87];; + MELT_LOCATION("warmelt-macro.melt:2458:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2103,527 +1738,293 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2352:/ locexp"); - melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "extra in (DEFCMATCHER )"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:2459:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "extra for (DEFUNMATCHER [ []])"), (melt_ptr_t)0);} ; /*epilog*/ } ; } /*noelse*/ ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2353:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L29*/ meltfnum[18] = - melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2353:/ cond"); - /*cond*/ if (/*_#IS_A__L29*/ meltfnum[18]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V130*/ meltfptr[79] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2353:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check matchformal again"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2353)?(2353):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V130*/ meltfptr[79] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V129*/ meltfptr[78] = /*_.IFELSE___V130*/ meltfptr[79];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2353:/ clear"); - /*clear*/ /*_#IS_A__L29*/ meltfnum[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V130*/ meltfptr[79] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V129*/ meltfptr[78] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2355:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2460:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:2357:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V132*/ meltfptr[79] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:2356:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2464:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CMATCHER*/ meltfrout->tabval[11])), (9), "CLASS_CMATCHER"); - /*_.INST__V134*/ meltfptr[133] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ meltfrout->tabval[10])), (10), "CLASS_SOURCE_DEFUNMATCHER"); + /*_.INST__V98*/ meltfptr[97] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (1), (/*_.NAMED_NAME__V132*/ meltfptr[79]), "NAMED_NAME"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_IN", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (2), (/*_.INFORMALS__V19*/ meltfptr[18]), "AMATCH_IN"); + melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (3), (/*_.DOCV__V24*/ meltfptr[23]), "SDEF_DOC"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (3), (/*_.MATCHFORMAL__V18*/ meltfptr[17]), "AMATCH_MATCHBIND"); + melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (4), (/*_.SFORMALS__V17*/ meltfptr[16]), "SFORMAL_ARGS"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (4), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "AMATCH_OUT"); + melt_assertmsg("putslot checkobj @SFUMATDEF_INS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (5), (/*_.INFORMALS__V19*/ meltfptr[18]), "SFUMATDEF_INS"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @CMATCH_STATE", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (5), (/*_.STATESYM__V21*/ meltfptr[20]), "CMATCH_STATE"); + melt_assertmsg("putslot checkobj @SFUMATDEF_OUTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (6), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "SFUMATDEF_OUTS"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @CMATCH_EXPTEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (6), (/*_.EXPTEST__V22*/ meltfptr[21]), "CMATCH_EXPTEST"); + melt_assertmsg("putslot checkobj @SFUMATDEF_MATCHF", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (7), (/*_.MATCHFUNX__V21*/ meltfptr[20]), "SFUMATDEF_MATCHF"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @CMATCH_EXPFILL", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (7), (/*_.EXPFILL__V23*/ meltfptr[22]), "CMATCH_EXPFILL"); + melt_assertmsg("putslot checkobj @SFUMATDEF_APPLYF", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (8), (/*_.APPLYFUNX__V22*/ meltfptr[21]), "SFUMATDEF_APPLYF"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @CMATCH_EXPOPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V134*/ meltfptr[133]), (8), (/*_.EXPOPER__V24*/ meltfptr[23]), "CMATCH_EXPOPER"); + melt_assertmsg("putslot checkobj @SFUMATDEF_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (9), (/*_.DATAX__V23*/ meltfptr[22]), "SFUMATDEF_DATA"); + ; + /*_.SDFUM__V97*/ meltfptr[96] = /*_.INST__V98*/ meltfptr[97];; + MELT_LOCATION("warmelt-macro.melt:2476:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V99*/ meltfptr[98] = slot; }; ; - /*_.CMATCH__V133*/ meltfptr[132] = /*_.INST__V134*/ meltfptr[133];; - MELT_LOCATION("warmelt-macro.melt:2366:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2475:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ meltfrout->tabval[12])), (6), "CLASS_SOURCE_DEFCMATCHER"); - /*_.INST__V136*/ meltfptr[135] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[11])), (8), "CLASS_FUNMATCHER"); + /*_.INST__V101*/ meltfptr[100] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (1), (/*_.NAMED_NAME__V99*/ meltfptr[98]), "NAMED_NAME"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @AMATCH_IN", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (2), (/*_.INFORMALS__V19*/ meltfptr[18]), "AMATCH_IN"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); + melt_assertmsg("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (3), (/*_.MATCHFORMAL__V18*/ meltfptr[17]), "AMATCH_MATCHBIND"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (3), (/*_.DOCV__V25*/ meltfptr[24]), "SDEF_DOC"); + melt_assertmsg("putslot checkobj @AMATCH_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (4), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "AMATCH_OUT"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (4), (/*_.SFORMALS__V17*/ meltfptr[16]), "SFORMAL_ARGS"); + melt_assertmsg("putslot checkobj @FMATCH_MATCHF", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (5), ((/*nil*/NULL)), "FMATCH_MATCHF"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SCMATDEF_CMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V136*/ meltfptr[135]), (5), (/*_.CMATCH__V133*/ meltfptr[132]), "SCMATDEF_CMATCHER"); + melt_assertmsg("putslot checkobj @FMATCH_APPLYF", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (6), ((/*nil*/NULL)), "FMATCH_APPLYF"); ; - /*_.SDEFCMATCH__V135*/ meltfptr[134] = /*_.INST__V136*/ meltfptr[135];; - MELT_LOCATION("warmelt-macro.melt:2372:/ quasiblock"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @FMATCH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (7), ((/*nil*/NULL)), "FMATCH_DATA"); + ; + /*_.FUMA__V100*/ meltfptr[99] = /*_.INST__V101*/ meltfptr[100];; + MELT_LOCATION("warmelt-macro.melt:2485:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ meltfrout->tabval[13])), (3), "CLASS_CMATCHER_BINDING"); - /*_.INST__V138*/ meltfptr[137] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_FUNMATCHER_BINDING"); + /*_.INST__V103*/ meltfptr[102] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V138*/ meltfptr[137]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); + melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @CMBIND_MATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V138*/ meltfptr[137]), (2), (/*_.CMATCH__V133*/ meltfptr[132]), "CMBIND_MATCHER"); + melt_assertmsg("putslot checkobj @FMBIND_FUNMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (2), (/*_.FUMA__V100*/ meltfptr[99]), "FMBIND_FUNMATCHER"); ; - /*_.CMBIND__V137*/ meltfptr[136] = /*_.INST__V138*/ meltfptr[137];; - /*^compute*/ - - /*_#MULTIPLE_LENGTH__L30*/ meltfnum[19] = - (melt_multiple_length((melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18])));; - /*^compute*/ - - /*_#MULTIPLE_LENGTH__L31*/ meltfnum[18] = - (melt_multiple_length((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19])));; - /*^compute*/ - - /*_#I__L32*/ meltfnum[31] = - ((/*_#MULTIPLE_LENGTH__L30*/ meltfnum[19]) + (/*_#MULTIPLE_LENGTH__L31*/ meltfnum[18]));; - /*^compute*/ - - /*_#I__L33*/ meltfnum[32] = - ((2) * (/*_#I__L32*/ meltfnum[31]));; - /*^compute*/ - - /*_#I__L34*/ meltfnum[33] = - ((7) + (/*_#I__L33*/ meltfnum[32]));; - /*^compute*/ - - /*_.SUBSTMAP__V139*/ meltfptr[138] = - (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[14])), (/*_#I__L34*/ meltfnum[33])));; - - { - MELT_LOCATION("warmelt-macro.melt:2382:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), - (meltobject_ptr_t) (/*_.STATESYM__V21*/ meltfptr[20]), - (melt_ptr_t)(/*_.STATESYM__V21*/ meltfptr[20]));} + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @FMBIND_DEFUNMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (3), (/*_.SDFUM__V97*/ meltfptr[96]), "FMBIND_DEFUNMATCHER"); ; - MELT_LOCATION("warmelt-macro.melt:2383:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), 0, "BINDER");/*_.BINDER__V140*/ meltfptr[139] = slot; }; - ; - } else {/*^cond.else*/ - - /*_.BINDER__V140*/ meltfptr[139] = NULL;; + /*_.FMBIND__V102*/ meltfptr[101] = /*_.INST__V103*/ meltfptr[102];; + MELT_LOCATION("warmelt-macro.melt:2491:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FMBIND__V102*/ meltfptr[101]; + /*_.PUT_ENV__V104*/ meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - { - MELT_LOCATION("warmelt-macro.melt:2383:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), - (meltobject_ptr_t) (/*_.BINDER__V140*/ meltfptr[139]), - (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]));} - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit1__EACHTUP: */ - long cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.INFORMALS__V19*/ meltfptr[18]); - for (/*_#IBIX__L35*/ meltfnum[34] = 0; - (/*_#IBIX__L35*/ meltfnum[34] >= 0) && (/*_#IBIX__L35*/ meltfnum[34] < cit1__EACHTUP_ln); - /*_#IBIX__L35*/ meltfnum[34]++) { - /*_.CURIBIND__V141*/ meltfptr[140] = melt_multiple_nth((melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), /*_#IBIX__L35*/ meltfnum[34]); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2492:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2387:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L36*/ meltfnum[35] = - melt_is_instance_of((melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2387:/ cond"); - /*cond*/ if (/*_#IS_A__L36*/ meltfnum[35]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V143*/ meltfptr[142] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2387:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check input curibind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2387)?(2387):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V143*/ meltfptr[142] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V142*/ meltfptr[141] = /*_.IFELSE___V143*/ meltfptr[142];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2387:/ clear"); - /*clear*/ /*_#IS_A__L36*/ meltfnum[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V143*/ meltfptr[142] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V142*/ meltfptr[141] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2388:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]), 0, "BINDER");/*_.BINDER__V144*/ meltfptr[142] = slot; }; + /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2492:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defunmatcher made fuma"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2492; + /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FUMA__V100*/ meltfptr[99]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - } else {/*^cond.else*/ - - /*_.BINDER__V144*/ meltfptr[142] = NULL;; - } - ; + /*_.IFCPP___V105*/ meltfptr[104] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2492:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = 0 ;} - { - MELT_LOCATION("warmelt-macro.melt:2388:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), - (meltobject_ptr_t) (/*_.BINDER__V144*/ meltfptr[142]), - (melt_ptr_t)(/*_.CURIBIND__V141*/ meltfptr[140]));} + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V105*/ meltfptr[104] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - if (/*_#IBIX__L35*/ meltfnum[34]<0) break; - } /* end cit1__EACHTUP */ - /*citerepilog*/ - - MELT_LOCATION("warmelt-macro.melt:2384:/ clear"); - /*clear*/ /*_.CURIBIND__V141*/ meltfptr[140] = 0 ; - /*^clear*/ - /*clear*/ /*_#IBIX__L35*/ meltfnum[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V142*/ meltfptr[141] = 0 ; - /*^clear*/ - /*clear*/ /*_.BINDER__V144*/ meltfptr[142] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - /*citerblock FOREACH_IN_MULTIPLE*/ { - /* start cit2__EACHTUP: */ - long cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OUTFORMALS__V20*/ meltfptr[19]); - for (/*_#OBIX__L37*/ meltfnum[35] = 0; - (/*_#OBIX__L37*/ meltfnum[35] >= 0) && (/*_#OBIX__L37*/ meltfnum[35] < cit2__EACHTUP_ln); - /*_#OBIX__L37*/ meltfnum[35]++) { - /*_.CUROBIND__V145*/ meltfptr[144] = melt_multiple_nth((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19]), /*_#OBIX__L37*/ meltfnum[35]); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2493:/ cppif.then"); + /*^block*/ + /*anyblock*/{ - - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2392:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L38*/ meltfnum[37] = - melt_is_instance_of((melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2392:/ cond"); - /*cond*/ if (/*_#IS_A__L38*/ meltfnum[37]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V147*/ meltfptr[146] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2392:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check output curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2392)?(2392):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V147*/ meltfptr[146] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V146*/ meltfptr[145] = /*_.IFELSE___V147*/ meltfptr[146];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2392:/ clear"); - /*clear*/ /*_#IS_A__L38*/ meltfnum[37] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V147*/ meltfptr[146] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V146*/ meltfptr[145] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2393:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[15])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]), 0, "BINDER");/*_.BINDER__V148*/ meltfptr[146] = slot; }; + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2493:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defunmatcher fmbind"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2493; + /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V102*/ meltfptr[101]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - } else {/*^cond.else*/ - - /*_.BINDER__V148*/ meltfptr[146] = NULL;; - } - ; + /*_.IFCPP___V107*/ meltfptr[105] = /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2493:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107] = 0 ;} - { - MELT_LOCATION("warmelt-macro.melt:2393:/ locexp"); - meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V139*/ meltfptr[138]), - (meltobject_ptr_t) (/*_.BINDER__V148*/ meltfptr[146]), - (melt_ptr_t)(/*_.CUROBIND__V145*/ meltfptr[144]));} + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V107*/ meltfptr[105] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - if (/*_#OBIX__L37*/ meltfnum[35]<0) break; - } /* end cit2__EACHTUP */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-macro.melt:2389:/ clear"); - /*clear*/ /*_.CUROBIND__V145*/ meltfptr[144] = 0 ; - /*^clear*/ - /*clear*/ /*_#OBIX__L37*/ meltfnum[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V146*/ meltfptr[145] = 0 ; - /*^clear*/ - /*clear*/ /*_.BINDER__V148*/ meltfptr[146] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ - ; - MELT_LOCATION("warmelt-macro.melt:2395:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; - /*_.CHECK_C_EXPANSION__V149*/ meltfptr[148] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPTEST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2396:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; - /*_.CHECK_C_EXPANSION__V150*/ meltfptr[149] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPFILL__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2397:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SUBSTMAP__V139*/ meltfptr[138]; - /*_.CHECK_C_EXPANSION__V151*/ meltfptr[150] = melt_apply ((meltclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.EXPOPER__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2398:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2494:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37] = + /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2398:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2494:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defcmatcher sdefcmatch"; + argtab[0].meltbp_cstring = "mexpand_defunmatcher return sdfum"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2398; - /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDEFCMATCH__V135*/ meltfptr[134]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2494; + /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDFUM__V97*/ meltfptr[96]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V152*/ meltfptr[151] = /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152];; + /*_.IFCPP___V109*/ meltfptr[107] = /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2398:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[37] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2494:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ meltfptr[152] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V152*/ meltfptr[151] = (/*nil*/NULL); + /*_.IFCPP___V109*/ meltfptr[107] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2399:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CMBIND__V137*/ meltfptr[136]; - /*_.PUT_ENV__V154*/ meltfptr[152] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2400:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2495:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFCMATCH__V135*/ meltfptr[134];; - MELT_LOCATION("warmelt-macro.melt:2400:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDFUM__V97*/ meltfptr[96];; + MELT_LOCATION("warmelt-macro.melt:2495:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.LET___V131*/ meltfptr[122] = /*_.RETURN___V155*/ meltfptr[154];; + /*_.LET___V96*/ meltfptr[90] = /*_.RETURN___V111*/ meltfptr[109];; - MELT_LOCATION("warmelt-macro.melt:2355:/ clear"); - /*clear*/ /*_.NAMED_NAME__V132*/ meltfptr[79] = 0 ; - /*^clear*/ - /*clear*/ /*_.CMATCH__V133*/ meltfptr[132] = 0 ; - /*^clear*/ - /*clear*/ /*_.SDEFCMATCH__V135*/ meltfptr[134] = 0 ; - /*^clear*/ - /*clear*/ /*_.CMBIND__V137*/ meltfptr[136] = 0 ; - /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L30*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_#MULTIPLE_LENGTH__L31*/ meltfnum[18] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L32*/ meltfnum[31] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L33*/ meltfnum[32] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L34*/ meltfnum[33] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2460:/ clear"); + /*clear*/ /*_.SDFUM__V97*/ meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.SUBSTMAP__V139*/ meltfptr[138] = 0 ; + /*clear*/ /*_.NAMED_NAME__V99*/ meltfptr[98] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V140*/ meltfptr[139] = 0 ; + /*clear*/ /*_.FUMA__V100*/ meltfptr[99] = 0 ; /*^clear*/ - /*clear*/ /*_.CHECK_C_EXPANSION__V149*/ meltfptr[148] = 0 ; + /*clear*/ /*_.FMBIND__V102*/ meltfptr[101] = 0 ; /*^clear*/ - /*clear*/ /*_.CHECK_C_EXPANSION__V150*/ meltfptr[149] = 0 ; + /*clear*/ /*_.PUT_ENV__V104*/ meltfptr[103] = 0 ; /*^clear*/ - /*clear*/ /*_.CHECK_C_EXPANSION__V151*/ meltfptr[150] = 0 ; + /*clear*/ /*_.IFCPP___V105*/ meltfptr[104] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V152*/ meltfptr[151] = 0 ; + /*clear*/ /*_.IFCPP___V107*/ meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V154*/ meltfptr[152] = 0 ; + /*clear*/ /*_.IFCPP___V109*/ meltfptr[107] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V155*/ meltfptr[154] = 0 ; - /*_.LET___V11*/ meltfptr[9] = /*_.LET___V131*/ meltfptr[122];; + /*clear*/ /*_.RETURN___V111*/ meltfptr[109] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V96*/ meltfptr[90];; - MELT_LOCATION("warmelt-macro.melt:2242:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2376:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -2642,102 +2043,82 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.OUTFORMALS__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.STATESYM__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.EXPTEST__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MATCHFUNX__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPFILL__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.APPLYFUNX__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPOPER__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.DATAX__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.DOCV__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.DOCV__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V28*/ meltfptr[26] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V31*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V32*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V53*/ meltfptr[51] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V54*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V55*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V56*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V57*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V58*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IF___V27*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L13*/ meltfnum[5] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L14*/ meltfnum[6] = 0 ; + /*clear*/ /*_.SETQ___V31*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V60*/ meltfptr[41] = 0 ; + /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V63*/ meltfptr[46] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V50*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V64*/ meltfptr[47] = 0 ; + /*clear*/ /*_.SETQ___V51*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V65*/ meltfptr[49] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V52*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V66*/ meltfptr[50] = 0 ; + /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L15*/ meltfnum[7] = 0 ; + /*clear*/ /*_.SETQ___V54*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V67*/ meltfptr[40] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V72*/ meltfptr[42] = 0 ; + /*clear*/ /*_#NOT__L12*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V74*/ meltfptr[70] = 0 ; + /*clear*/ /*_.IF___V55*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V75*/ meltfptr[44] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V58*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.SETQ___V59*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_#__L18*/ meltfnum[10] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V60*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_#__L13*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V85*/ meltfptr[77] = 0 ; + /*clear*/ /*_.IF___V61*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V97*/ meltfptr[80] = 0 ; + /*clear*/ /*_.LET___V69*/ meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V99*/ meltfptr[83] = 0 ; + /*clear*/ /*_.IFCPP___V74*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V100*/ meltfptr[95] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V76*/ meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V101*/ meltfptr[81] = 0 ; + /*clear*/ /*_.SETQ___V77*/ meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V111*/ meltfptr[104] = 0 ; + /*clear*/ /*_.LET___V78*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V113*/ meltfptr[108] = 0 ; + /*clear*/ /*_.IFCPP___V83*/ meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V114*/ meltfptr[109] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V85*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V115*/ meltfptr[82] = 0 ; + /*clear*/ /*_.SETQ___V86*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V125*/ meltfptr[121] = 0 ; + /*clear*/ /*_.LET___V87*/ meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V127*/ meltfptr[107] = 0 ; + /*clear*/ /*_.IFCPP___V92*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V128*/ meltfptr[118] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V94*/ meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V129*/ meltfptr[78] = 0 ; + /*clear*/ /*_.SETQ___V95*/ meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V131*/ meltfptr[122] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2238:/ quasiblock"); + /*clear*/ /*_.LET___V96*/ meltfptr[90] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2372:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2238:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2372:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2754,20 +2135,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_DEFCMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_DEFUNMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER*/ +} /*end meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2780,7 +2161,7 @@ meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_36_warmelt_macro_LAMBDA__st { + struct frame_meltrout_37_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2814,7 +2195,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2281:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2413:/ getarg"); /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2830,7 +2211,7 @@ lab_endgetargs:; /*_#I__L2*/ meltfnum[1] = ((/*_#IX__L1*/ meltfnum[0]) > (0));; - MELT_LOCATION("warmelt-macro.melt:2281:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2413:/ cond"); /*cond*/ if (/*_#I__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2840,7 +2221,7 @@ lab_endgetargs:; ((/*_#IX__L1*/ meltfnum[0]) - (1));; { - MELT_LOCATION("warmelt-macro.melt:2281:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2413:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~INFORMALS*/ meltfclos->tabval[0])), (/*_#I__L3*/ meltfnum[2]), (melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]));} ; /*epilog*/ @@ -2864,14 +2245,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_36_warmelt_macro_LAMBDA_*/ +} /*end meltrout_37_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2884,7 +2265,7 @@ meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_pt #define meltcallcount 0L #endif - struct frame_meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER_st { + struct frame_meltrout_38_warmelt_macro_MEXPAND_DEFUN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2892,10 +2273,10 @@ meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_pt struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 111 - void* mcfr_varptr[111]; -#define MELTFRAM_NBVARNUM 19 - long mcfr_varnum[19]; +#define MELTFRAM_NBVARPTR 54 + void* mcfr_varptr[54]; +#define MELTFRAM_NBVARNUM 11 + long mcfr_varnum[11]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -2904,21 +2285,21 @@ meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_pt int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<111; ix++) + for(ix=0; ix<54; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 111; + meltfram__.mcfr_nbvar = 54; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_DEFUNMATCHER", meltcallcount); +melt_trace_start("MEXPAND_DEFUN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2414:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2506:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2943,34 +2324,45 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2415:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2507:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2415:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2415; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:2507:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2507:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2507)?(2507):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; } ; - /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2415:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2507:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ @@ -2979,17 +2371,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2416:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2508:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2416:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:2508:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2416:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2508:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2999,8 +2391,8 @@ lab_endgetargs:; { /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2416)?(2416):__LINE__, __FUNCTION__); + melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2508)?(2508):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3014,7 +2406,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2416:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3026,59 +2418,48 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2417:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2509:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2417:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2417:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2417)?(2417):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; - /*epilog*/ - } - ; + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2509:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexp.defun sexpr"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2509; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2417:/ clear"); - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2509:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2418:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2510:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2419:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2511:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -3092,1239 +2473,589 @@ lab_endgetargs:; /*_.SYMB__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2514:/ apply"); + /*apply*/{ + /*_.NEWENV__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*_.DOCV__V18*/ meltfptr[17] = (/*nil*/NULL);; /*^compute*/ - /*_.SFORMALS__V17*/ meltfptr[16] = (/*nil*/NULL);; - /*^compute*/ - - /*_.MATCHFORMAL__V18*/ meltfptr[17] = (/*nil*/NULL);; - /*^compute*/ - - /*_.INFORMALS__V19*/ meltfptr[18] = (/*nil*/NULL);; - /*^compute*/ - - /*_.OUTFORMALS__V20*/ meltfptr[19] = (/*nil*/NULL);; - /*^compute*/ - - /*_.MATCHFUNX__V21*/ meltfptr[20] = (/*nil*/NULL);; - /*^compute*/ - - /*_.APPLYFUNX__V22*/ meltfptr[21] = (/*nil*/NULL);; - /*^compute*/ - - /*_.DATAX__V23*/ meltfptr[22] = (/*nil*/NULL);; - /*^compute*/ - - /*_.DOCV__V24*/ meltfptr[23] = (/*nil*/NULL);; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2433:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2433:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher symb"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2433; - /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2433:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_NOT_A__L5*/ meltfnum[0] = - !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2434:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { + /*_#IS_NOT_A__L4*/ meltfnum[0] = + !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-macro.melt:2517:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:2436:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "symbol expected for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2439:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2439:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2518:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for DEFUN"), (melt_ptr_t)0);} ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2435:/ quasiblock"); - - - /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; - /*^compute*/ - - /*_.IF___V27*/ meltfptr[25] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2434:/ clear"); - /*clear*/ /*_.RETURN___V28*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V29*/ meltfptr[28] = 0 ;} + } ; - } else {/*^cond.else*/ - - /*_.IF___V27*/ meltfptr[25] = NULL;; - } + } /*noelse*/ ; - /*^compute*/ - - /*_.PAIR_TAIL__V30*/ meltfptr[27] = + /*_.PAIR_TAIL__V19*/ meltfptr[18] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2440:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V31*/ meltfptr[28] = /*_.PAIR_TAIL__V30*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:2442:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2519:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[18];; + MELT_LOCATION("warmelt-macro.melt:2521:/ quasiblock"); - /*_.PAIR_HEAD__V33*/ meltfptr[32] = + /*_.CURPAIRHEAD__V22*/ meltfptr[21] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2442:/ apply"); - /*apply*/{ - /*_.MATINFORMALS__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V33*/ meltfptr[32]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_#NBMATINFORMALS__L6*/ meltfnum[5] = - (melt_multiple_length((melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33])));; /*^compute*/ - /*_#I__L7*/ meltfnum[6] = - ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) < (1));; - MELT_LOCATION("warmelt-macro.melt:2445:/ cond"); - /*cond*/ if (/*_#I__L7*/ meltfnum[6]) /*then*/ { + /*_#NULL__L5*/ meltfnum[4] = + ((/*_.CURPAIRHEAD__V22*/ meltfptr[21]) == NULL);; + MELT_LOCATION("warmelt-macro.melt:2523:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-macro.melt:2447:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "empty ins for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2448:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2448:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2446:/ quasiblock"); - - - /*_.PROGN___V37*/ meltfptr[36] = /*_.RETURN___V36*/ meltfptr[35];; + /*_.MAKE_MULTIPLE__V24*/ meltfptr[23] = + (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (0)));; /*^compute*/ - /*_.IF___V35*/ meltfptr[34] = /*_.PROGN___V37*/ meltfptr[36];; + /*_.BTUP__V23*/ meltfptr[22] = /*_.MAKE_MULTIPLE__V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2445:/ clear"); - /*clear*/ /*_.RETURN___V36*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V37*/ meltfptr[36] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:2523:/ clear"); + /*clear*/ /*_.MAKE_MULTIPLE__V24*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V35*/ meltfptr[34] = NULL;; - } - ; - MELT_LOCATION("warmelt-macro.melt:2449:/ compute"); - /*_.SFORMALS__V17*/ meltfptr[16] = /*_.SETQ___V38*/ meltfptr[35] = /*_.MATINFORMALS__V34*/ meltfptr[33];; - /*_.MULTIPLE_NTH__V39*/ meltfptr[36] = - (melt_multiple_nth((melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33]), (0)));; - MELT_LOCATION("warmelt-macro.melt:2450:/ compute"); - /*_.MATCHFORMAL__V18*/ meltfptr[17] = /*_.SETQ___V40*/ meltfptr[39] = /*_.MULTIPLE_NTH__V39*/ meltfptr[36];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2451:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2451:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher matchformal"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2451; - /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFORMAL__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V41*/ meltfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41];; - /*epilog*/ + /*_#IS_A__L6*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.CURPAIRHEAD__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:2525:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.PAIR_HEAD__V26*/ meltfptr[25] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2526:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; + /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.PAIR_HEAD__V26*/ meltfptr[25]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFELSE___V25*/ meltfptr[23] = /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2525:/ clear"); + /*clear*/ /*_.PAIR_HEAD__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26] = 0 ;} + ; + } else {/*^cond.else*/ - MELT_LOCATION("warmelt-macro.melt:2451:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ meltfptr[41] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V41*/ meltfptr[40] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#I__L9*/ meltfnum[7] = - ((/*_#NBMATINFORMALS__L6*/ meltfnum[5]) - (1));; - /*^compute*/ + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2528:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2528:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defun strange arglist curpairhead"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2528; + /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURPAIRHEAD__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V28*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2528:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V28*/ meltfptr[25] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + { + MELT_LOCATION("warmelt-macro.melt:2529:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing or invalid arglist for DEFUN"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:2527:/ quasiblock"); + + + /*_.PROGN___V30*/ meltfptr[26] = (/*nil*/NULL);; + /*^compute*/ - /*_.MAKE_MULTIPLE__V43*/ meltfptr[41] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#I__L9*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:2452:/ compute"); - /*_.INFORMALS__V19*/ meltfptr[18] = /*_.SETQ___V44*/ meltfptr[43] = /*_.MAKE_MULTIPLE__V43*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:2455:/ quasiblock"); - - - /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V46*/ meltfptr[45] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (1)); - ; - /*^putclosedv*/ - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V46*/ meltfptr[45])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V46*/ meltfptr[45]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V46*/ meltfptr[45])->tabval[0] = (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]); - ; - /*_.LAMBDA___V45*/ meltfptr[44] = /*_.LAMBDA___V46*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:2453:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V45*/ meltfptr[44]; - /*_.MULTIPLE_EVERY__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.MATINFORMALS__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2456:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2456:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher informals"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2456; - /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.INFORMALS__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.IFELSE___V25*/ meltfptr[23] = /*_.PROGN___V30*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2525:/ clear"); + /*clear*/ /*_.IFCPP___V28*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V30*/ meltfptr[26] = 0 ;} + ; } ; - /*_.IFCPP___V48*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; + /*_.BTUP__V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2456:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2523:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V48*/ meltfptr[47] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.IFELSE___V25*/ meltfptr[23] = 0 ;} ; - /*^compute*/ - - /*_.LET___V32*/ meltfptr[31] = /*_.IFCPP___V48*/ meltfptr[47];; - - MELT_LOCATION("warmelt-macro.melt:2442:/ clear"); - /*clear*/ /*_.PAIR_HEAD__V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.MATINFORMALS__V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_#NBMATINFORMALS__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V38*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.MULTIPLE_NTH__V39*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L9*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.MAKE_MULTIPLE__V43*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA___V45*/ meltfptr[44] = 0 ; - /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V47*/ meltfptr[46] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; - /*_.PAIR_TAIL__V50*/ meltfptr[48] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2459:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V51*/ meltfptr[32] = /*_.PAIR_TAIL__V50*/ meltfptr[48];; - /*_.PAIR_HEAD__V52*/ meltfptr[33] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2460:/ apply"); - /*apply*/{ - /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V52*/ meltfptr[33]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*^compute*/ - /*_.OUTFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[35] = /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34];; - /*_#IS_MULTIPLE__L11*/ meltfnum[9] = - (melt_magic_discr((melt_ptr_t)(/*_.OUTFORMALS__V20*/ meltfptr[19])) == MELTOBMAG_MULTIPLE);; + /*_#IS_MULTIPLE__L8*/ meltfnum[6] = + (melt_magic_discr((melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; /*^compute*/ - /*_#NOT__L12*/ meltfnum[5] = - (!(/*_#IS_MULTIPLE__L11*/ meltfnum[9]));; - MELT_LOCATION("warmelt-macro.melt:2461:/ cond"); - /*cond*/ if (/*_#NOT__L12*/ meltfnum[5]) /*then*/ { + /*_#NOT__L9*/ meltfnum[5] = + (!(/*_#IS_MULTIPLE__L8*/ meltfnum[6]));; + MELT_LOCATION("warmelt-macro.melt:2533:/ cond"); + /*cond*/ if (/*_#NOT__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - { - MELT_LOCATION("warmelt-macro.melt:2463:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad outs for (DEFUNMATCHER [:doc docum] [])"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2464:/ quasiblock"); - + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2535:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2535:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_defun strange btup"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2535; + /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V31*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:2535:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V31*/ meltfptr[25] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2464:/ finalreturn"); + { + MELT_LOCATION("warmelt-macro.melt:2536:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing formal arguments for DEFUN"), (melt_ptr_t)0);} ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2462:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2534:/ quasiblock"); - /*_.PROGN___V57*/ meltfptr[40] = /*_.RETURN___V56*/ meltfptr[39];; - /*^compute*/ - - /*_.IF___V55*/ meltfptr[36] = /*_.PROGN___V57*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2461:/ clear"); - /*clear*/ /*_.RETURN___V56*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V57*/ meltfptr[40] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:2533:/ clear"); + /*clear*/ /*_.IFCPP___V31*/ meltfptr[25] = 0 ;} ; - } else {/*^cond.else*/ + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:2537:/ quasiblock"); - /*_.IF___V55*/ meltfptr[36] = NULL;; - } + + /*^newclosure*/ + /*newclosure*/ /*_.LAMBDA___V34*/ meltfptr[26] = + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (1)); ; - /*^compute*/ - - /*_.PAIR_TAIL__V58*/ meltfptr[41] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2465:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V59*/ meltfptr[43] = /*_.PAIR_TAIL__V58*/ meltfptr[41];; - /*_.PAIR_HEAD__V60*/ meltfptr[44] = + /*^putclosedv*/ + /*putclosv*/ + melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ meltfptr[26])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ meltfptr[26]))); + ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ meltfptr[26])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V17*/ meltfptr[16]); + ; + /*_.LAMBDA___V33*/ meltfptr[23] = /*_.LAMBDA___V34*/ meltfptr[26];; + MELT_LOCATION("warmelt-macro.melt:2537:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ meltfptr[23]; + /*_.MULTIPLE_EVERY__V35*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.PAIR_TAIL__V36*/ meltfptr[35] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:2538:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V37*/ meltfptr[36] = /*_.PAIR_TAIL__V36*/ meltfptr[35];; + /*_.PAIR_HEAD__V38*/ meltfptr[37] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; /*^compute*/ - /*_#__L13*/ meltfnum[6] = - ((/*_.PAIR_HEAD__V60*/ meltfptr[44]) == ((/*!konst_8_DOC*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:2467:/ cond"); - /*cond*/ if (/*_#__L13*/ meltfnum[6]) /*then*/ { + /*_#__L11*/ meltfnum[9] = + ((/*_.PAIR_HEAD__V38*/ meltfptr[37]) == ((/*!konst_10_DOC*/ meltfrout->tabval[10])));; + MELT_LOCATION("warmelt-macro.melt:2540:/ cond"); + /*cond*/ if (/*_#__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.PAIR_TAIL__V62*/ meltfptr[47] = + /*_.PAIR_TAIL__V40*/ meltfptr[39] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2469:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V63*/ meltfptr[39] = /*_.PAIR_TAIL__V62*/ meltfptr[47];; - MELT_LOCATION("warmelt-macro.melt:2470:/ cond"); - /*cond*/ if (/*_.DOCV__V24*/ meltfptr[23]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate documentation for DEFUNMATCHER"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_.PAIR_HEAD__V64*/ meltfptr[40] = + MELT_LOCATION("warmelt-macro.melt:2542:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; + /*_.PAIR_HEAD__V42*/ meltfptr[41] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2471:/ compute"); - /*_.DOCV__V24*/ meltfptr[23] = /*_.SETQ___V65*/ meltfptr[64] = /*_.PAIR_HEAD__V64*/ meltfptr[40];; - /*_.PAIR_TAIL__V66*/ meltfptr[65] = + MELT_LOCATION("warmelt-macro.melt:2544:/ compute"); + /*_.DOCV__V18*/ meltfptr[17] = /*_.SETQ___V43*/ meltfptr[42] = /*_.PAIR_HEAD__V42*/ meltfptr[41];; + /*_.PAIR_TAIL__V44*/ meltfptr[43] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2472:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V67*/ meltfptr[66] = /*_.PAIR_TAIL__V66*/ meltfptr[65];; - MELT_LOCATION("warmelt-macro.melt:2468:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2545:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_TAIL__V44*/ meltfptr[43];; + MELT_LOCATION("warmelt-macro.melt:2541:/ quasiblock"); - /*_.PROGN___V68*/ meltfptr[67] = /*_.SETQ___V67*/ meltfptr[66];; + /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; /*^compute*/ - /*_.IF___V61*/ meltfptr[46] = /*_.PROGN___V68*/ meltfptr[67];; + /*_.IF___V39*/ meltfptr[38] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2467:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V62*/ meltfptr[47] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2540:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V63*/ meltfptr[39] = 0 ; + /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V64*/ meltfptr[40] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.SETQ___V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.SETQ___V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V68*/ meltfptr[67] = 0 ;} + /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V61*/ meltfptr[46] = NULL;; + /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2475:/ quasiblock"); - + MELT_LOCATION("warmelt-macro.melt:2548:/ quasiblock"); - /*_.MFA__V70*/ meltfptr[39] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2476:/ cond"); - /*cond*/ if (/*_.MFA__V70*/ meltfptr[39]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2477:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V72*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MFA__V70*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^compute*/ - /*_.MATCHFUNX__V21*/ meltfptr[20] = /*_.SETQ___V73*/ meltfptr[65] = /*_.MACROEXPAND_1__V72*/ meltfptr[64];; - /*_.IFELSE___V71*/ meltfptr[40] = /*_.SETQ___V73*/ meltfptr[65];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2476:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V72*/ meltfptr[64] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V73*/ meltfptr[65] = 0 ;} - ; - } else {/*^cond.else*/ - /*^block*/ - /*anyblock*/{ - - - - - { - MELT_LOCATION("warmelt-macro.melt:2478:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad matchfun for (DEFUNMATCHER [])"), (melt_ptr_t)0);} - ; - /*clear*/ /*_.IFELSE___V71*/ meltfptr[40] = 0 ; - /*epilog*/ - } - ; + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V17*/ meltfptr[16]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.BODYTUP__V48*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.LET___V69*/ meltfptr[47] = /*_.IFELSE___V71*/ meltfptr[40];; - - MELT_LOCATION("warmelt-macro.melt:2475:/ clear"); - /*clear*/ /*_.MFA__V70*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V71*/ meltfptr[40] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2550:/ quasiblock"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2480:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2480:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher matchfunx"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2480; - /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHFUNX__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V74*/ meltfptr[66] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2480:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[67] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V74*/ meltfptr[66] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.PAIR_TAIL__V76*/ meltfptr[64] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2482:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V77*/ meltfptr[65] = /*_.PAIR_TAIL__V76*/ meltfptr[64];; - MELT_LOCATION("warmelt-macro.melt:2483:/ quasiblock"); + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ meltfrout->tabval[12])), (6), "CLASS_SOURCE_DEFUN"); + /*_.INST__V50*/ meltfptr[42] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (3), (/*_.DOCV__V18*/ meltfptr[17]), "SDEF_DOC"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (4), (/*_.BTUP__V23*/ meltfptr[22]), "SFORMAL_ARGS"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SFUN_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (5), (/*_.BODYTUP__V48*/ meltfptr[40]), "SFUN_BODY"); + ; + /*_.SDEFUN__V49*/ meltfptr[41] = /*_.INST__V50*/ meltfptr[42];; + MELT_LOCATION("warmelt-macro.melt:2558:/ quasiblock"); - /*_.AFA__V79*/ meltfptr[40] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2484:/ cond"); - /*cond*/ if (/*_.AFA__V79*/ meltfptr[40]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2485:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.AFA__V79*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^compute*/ - /*_.APPLYFUNX__V22*/ meltfptr[21] = /*_.SETQ___V82*/ meltfptr[81] = /*_.MACROEXPAND_1__V81*/ meltfptr[80];; - /*_.IF___V80*/ meltfptr[67] = /*_.SETQ___V82*/ meltfptr[81];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2484:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V81*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V82*/ meltfptr[81] = 0 ;} - ; - } else {/*^cond.else*/ - /*_.IF___V80*/ meltfptr[67] = NULL;; + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[13])), (3), "CLASS_FUNCTION_BINDING"); + /*_.INST__V52*/ meltfptr[44] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[44])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V52*/ meltfptr[44]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @FUBIND_DEFUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[44])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V52*/ meltfptr[44]), (2), (/*_.SDEFUN__V49*/ meltfptr[41]), "FUBIND_DEFUN"); + ; + /*_.FBIND__V51*/ meltfptr[43] = /*_.INST__V52*/ meltfptr[44];; + MELT_LOCATION("warmelt-macro.melt:2563:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; + /*_.WARN_IF_REDEFINED__V53*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.LET___V78*/ meltfptr[39] = /*_.IF___V80*/ meltfptr[67];; - - MELT_LOCATION("warmelt-macro.melt:2483:/ clear"); - /*clear*/ /*_.AFA__V79*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V80*/ meltfptr[67] = 0 ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2489:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2489:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher applyfunx"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2489; - /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.APPLYFUNX__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V83*/ meltfptr[80] = /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2489:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ meltfptr[81] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V83*/ meltfptr[80] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.PAIR_TAIL__V85*/ meltfptr[40] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2491:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V86*/ meltfptr[67] = /*_.PAIR_TAIL__V85*/ meltfptr[40];; - MELT_LOCATION("warmelt-macro.melt:2492:/ quasiblock"); - - - /*_.DTA__V88*/ meltfptr[87] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2493:/ cond"); - /*cond*/ if (/*_.DTA__V88*/ meltfptr[87]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2494:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DTA__V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^compute*/ - /*_.DATAX__V23*/ meltfptr[22] = /*_.SETQ___V91*/ meltfptr[90] = /*_.MACROEXPAND_1__V90*/ meltfptr[89];; - /*_.IF___V89*/ meltfptr[88] = /*_.SETQ___V91*/ meltfptr[90];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2493:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V90*/ meltfptr[89] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V91*/ meltfptr[90] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V89*/ meltfptr[88] = NULL;; + MELT_LOCATION("warmelt-macro.melt:2564:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FBIND__V51*/ meltfptr[43]; + /*_.PUT_ENV__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.LET___V87*/ meltfptr[81] = /*_.IF___V89*/ meltfptr[88];; + /*_.LET___V47*/ meltfptr[39] = /*_.SDEFUN__V49*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:2492:/ clear"); - /*clear*/ /*_.DTA__V88*/ meltfptr[87] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2548:/ clear"); + /*clear*/ /*_.BODYTUP__V48*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V89*/ meltfptr[88] = 0 ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2497:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2497:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher datax"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2497; - /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DATAX__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V92*/ meltfptr[89] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2497:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[90] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V92*/ meltfptr[89] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.PAIR_TAIL__V94*/ meltfptr[87] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2499:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V95*/ meltfptr[88] = /*_.PAIR_TAIL__V94*/ meltfptr[87];; - MELT_LOCATION("warmelt-macro.melt:2500:/ cond"); - /*cond*/ if (/*_.CURPAIR__V15*/ meltfptr[14]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:2501:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "extra for (DEFUNMATCHER [ []])"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:2502:/ quasiblock"); + /*clear*/ /*_.SDEFUN__V49*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.FBIND__V51*/ meltfptr[43] = 0 ; + /*^clear*/ + /*clear*/ /*_.WARN_IF_REDEFINED__V53*/ meltfptr[45] = 0 ; + /*^clear*/ + /*clear*/ /*_.PUT_ENV__V54*/ meltfptr[53] = 0 ; + /*_.LET___V21*/ meltfptr[20] = /*_.LET___V47*/ meltfptr[39];; + MELT_LOCATION("warmelt-macro.melt:2521:/ clear"); + /*clear*/ /*_.CURPAIRHEAD__V22*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L5*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.BTUP__V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L9*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.LAMBDA___V33*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.MULTIPLE_EVERY__V35*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V36*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V38*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L11*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V39*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V47*/ meltfptr[39] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V21*/ meltfptr[20];; + MELT_LOCATION("warmelt-macro.melt:2510:/ clear"); + /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.SYMB__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.NEWENV__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.DOCV__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; MELT_LOCATION("warmelt-macro.melt:2506:/ quasiblock"); - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ meltfrout->tabval[10])), (10), "CLASS_SOURCE_DEFUNMATCHER"); - /*_.INST__V98*/ meltfptr[97] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (3), (/*_.DOCV__V24*/ meltfptr[23]), "SDEF_DOC"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (4), (/*_.SFORMALS__V17*/ meltfptr[16]), "SFORMAL_ARGS"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUMATDEF_INS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (5), (/*_.INFORMALS__V19*/ meltfptr[18]), "SFUMATDEF_INS"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUMATDEF_OUTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (6), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "SFUMATDEF_OUTS"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUMATDEF_MATCHF", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (7), (/*_.MATCHFUNX__V21*/ meltfptr[20]), "SFUMATDEF_MATCHF"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUMATDEF_APPLYF", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (8), (/*_.APPLYFUNX__V22*/ meltfptr[21]), "SFUMATDEF_APPLYF"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUMATDEF_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V98*/ meltfptr[97]), (9), (/*_.DATAX__V23*/ meltfptr[22]), "SFUMATDEF_DATA"); - ; - /*_.SDFUM__V97*/ meltfptr[96] = /*_.INST__V98*/ meltfptr[97];; - MELT_LOCATION("warmelt-macro.melt:2518:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V99*/ meltfptr[98] = slot; }; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-macro.melt:2506:/ finalreturn"); ; - MELT_LOCATION("warmelt-macro.melt:2517:/ quasiblock"); - + /*finalret*/ goto labend_rout ; + /*epilog*/ - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNMATCHER*/ meltfrout->tabval[11])), (8), "CLASS_FUNMATCHER"); - /*_.INST__V101*/ meltfptr[100] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (1), (/*_.NAMED_NAME__V99*/ meltfptr[98]), "NAMED_NAME"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_IN", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (2), (/*_.INFORMALS__V19*/ meltfptr[18]), "AMATCH_IN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_MATCHBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (3), (/*_.MATCHFORMAL__V18*/ meltfptr[17]), "AMATCH_MATCHBIND"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @AMATCH_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (4), (/*_.OUTFORMALS__V20*/ meltfptr[19]), "AMATCH_OUT"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FMATCH_MATCHF", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (5), ((/*nil*/NULL)), "FMATCH_MATCHF"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FMATCH_APPLYF", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (6), ((/*nil*/NULL)), "FMATCH_APPLYF"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FMATCH_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V101*/ meltfptr[100])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V101*/ meltfptr[100]), (7), ((/*nil*/NULL)), "FMATCH_DATA"); + /*^clear*/ + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MEXPAND_DEFUN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_38_warmelt_macro_MEXPAND_DEFUN*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_39_warmelt_macro_LAMBDA__st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 3 + void* mcfr_varptr[3]; +/*no varnum*/ +#define MELTFRAM_NBVARNUM /*none*/0 +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<3; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 3; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("LAMBDA_", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:2537:/ getarg"); + /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; - /*_.FUMA__V100*/ meltfptr[99] = /*_.INST__V101*/ meltfptr[100];; - MELT_LOCATION("warmelt-macro.melt:2527:/ quasiblock"); - + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ meltfrout->tabval[12])), (4), "CLASS_FUNMATCHER_BINDING"); - /*_.INST__V103*/ meltfptr[102] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FMBIND_FUNMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (2), (/*_.FUMA__V100*/ meltfptr[99]), "FMBIND_FUNMATCHER"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FMBIND_DEFUNMATCHER", melt_magic_discr((melt_ptr_t)(/*_.INST__V103*/ meltfptr[102])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V103*/ meltfptr[102]), (3), (/*_.SDFUM__V97*/ meltfptr[96]), "FMBIND_DEFUNMATCHER"); - ; - /*_.FMBIND__V102*/ meltfptr[101] = /*_.INST__V103*/ meltfptr[102];; - MELT_LOCATION("warmelt-macro.melt:2533:/ apply"); + /*^apply*/ /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FMBIND__V102*/ meltfptr[101]; - /*_.PUT_ENV__V104*/ meltfptr[103] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FB__V2*/ meltfptr[1]; + /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2534:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2534:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher made fuma"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2534; - /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FUMA__V100*/ meltfptr[99]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V105*/ meltfptr[104] = /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2534:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ meltfptr[105] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V105*/ meltfptr[104] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2535:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2535:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher fmbind"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2535; - /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V102*/ meltfptr[101]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V107*/ meltfptr[105] = /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2535:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V108*/ meltfptr[107] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V107*/ meltfptr[105] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2536:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2536:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defunmatcher return sdfum"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2536; - /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SDFUM__V97*/ meltfptr[96]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V109*/ meltfptr[107] = /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2536:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V110*/ meltfptr[109] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V109*/ meltfptr[107] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2537:/ quasiblock"); + /*^quasiblock*/ - /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDFUM__V97*/ meltfptr[96];; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; MELT_LOCATION("warmelt-macro.melt:2537:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.LET___V96*/ meltfptr[90] = /*_.RETURN___V111*/ meltfptr[109];; + /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2502:/ clear"); - /*clear*/ /*_.SDFUM__V97*/ meltfptr[96] = 0 ; - /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V99*/ meltfptr[98] = 0 ; - /*^clear*/ - /*clear*/ /*_.FUMA__V100*/ meltfptr[99] = 0 ; - /*^clear*/ - /*clear*/ /*_.FMBIND__V102*/ meltfptr[101] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_ENV__V104*/ meltfptr[103] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V105*/ meltfptr[104] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V107*/ meltfptr[105] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V109*/ meltfptr[107] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V111*/ meltfptr[109] = 0 ; - /*_.LET___V11*/ meltfptr[9] = /*_.LET___V96*/ meltfptr[90];; - - MELT_LOCATION("warmelt-macro.melt:2418:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.SYMB__V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.SFORMALS__V17*/ meltfptr[16] = 0 ; - /*^clear*/ - /*clear*/ /*_.MATCHFORMAL__V18*/ meltfptr[17] = 0 ; - /*^clear*/ - /*clear*/ /*_.INFORMALS__V19*/ meltfptr[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.OUTFORMALS__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.MATCHFUNX__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.APPLYFUNX__V22*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.DATAX__V23*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.DOCV__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V27*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V31*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V50*/ meltfptr[48] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V51*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V52*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V53*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V54*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L11*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L12*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V55*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V58*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V59*/ meltfptr[43] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V60*/ meltfptr[44] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L13*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V61*/ meltfptr[46] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V69*/ meltfptr[47] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V74*/ meltfptr[66] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V76*/ meltfptr[64] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V77*/ meltfptr[65] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V78*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V83*/ meltfptr[80] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V85*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V86*/ meltfptr[67] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V87*/ meltfptr[81] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V92*/ meltfptr[89] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V94*/ meltfptr[87] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V95*/ meltfptr[88] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V96*/ meltfptr[90] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2414:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2414:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_DEFUNMATCHER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_38_warmelt_macro_LAMBDA__st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 2 - void* mcfr_varptr[2]; -#define MELTFRAM_NBVARNUM 3 - long mcfr_varnum[3]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<2; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 2; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("LAMBDA_", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2455:/ getarg"); - /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - /*_#I__L2*/ meltfnum[1] = - ((/*_#IX__L1*/ meltfnum[0]) > (0));; - MELT_LOCATION("warmelt-macro.melt:2455:/ cond"); - /*cond*/ if (/*_#I__L2*/ meltfnum[1]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_#I__L3*/ meltfnum[2] = - ((/*_#IX__L1*/ meltfnum[0]) - (1));; - - { - MELT_LOCATION("warmelt-macro.melt:2455:/ locexp"); - meltgc_multiple_put_nth((melt_ptr_t)((/*~INFORMALS*/ meltfclos->tabval[0])), (/*_#I__L3*/ meltfnum[2]), (melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]));} - ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_#I__L3*/ meltfnum[2] = 0 ;} - ; - } /*noelse*/ - ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_#I__L2*/ meltfnum[1] = 0 ;} + /*clear*/ /*_.PUT_ENV__V3*/ meltfptr[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*noretval*/ NULL); + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_38_warmelt_macro_LAMBDA_*/ +} /*end meltrout_39_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4337,7 +3068,7 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_39_warmelt_macro_MEXPAND_DEFUN_st { + struct frame_meltrout_40_warmelt_macro_MEXPAND_DEFINE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4345,10 +3076,10 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t fir struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 54 - void* mcfr_varptr[54]; -#define MELTFRAM_NBVARNUM 11 - long mcfr_varnum[11]; +#define MELTFRAM_NBVARPTR 16 + void* mcfr_varptr[16]; +#define MELTFRAM_NBVARNUM 2 + long mcfr_varnum[2]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -4357,21 +3088,21 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t fir int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<54; ix++) + for(ix=0; ix<16; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 54; + meltfram__.mcfr_nbvar = 16; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_DEFUN", meltcallcount); +melt_trace_start("MEXPAND_DEFINE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2548:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2579:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4396,17 +3127,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2549:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2580:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2549:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2580:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2549:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2580:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4417,7 +3148,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2549)?(2549):__LINE__, __FUNCTION__); + (2580)?(2580):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4431,7 +3162,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2549:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2580:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4443,17 +3174,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2550:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2581:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2550:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2581:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2550:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2581:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4464,7 +3195,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2550)?(2550):__LINE__, __FUNCTION__); + (2581)?(2581):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4478,7 +3209,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2550:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2581:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4488,1287 +3219,484 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-macro.melt:2582:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:2583:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; + ; + /*_.DEFNAME__V12*/ meltfptr[11] = (/*nil*/NULL);; + /*^compute*/ + + /*_.DEFEXPR__V13*/ meltfptr[12] = (/*nil*/NULL);; + /*^compute*/ + + /*_.DEFDOC__V14*/ meltfptr[13] = (/*nil*/NULL);; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2551:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2609:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2551:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexp.defun sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2551; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*^cond*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:2609:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "$@$ mexpand_define unimplemented"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (2609)?(2609):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2551:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:2609:/ clear"); + /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2552:/ quasiblock"); + /*^compute*/ + + /*_.LET___V9*/ meltfptr[7] = /*_.IFCPP___V15*/ meltfptr[14];; + + MELT_LOCATION("warmelt-macro.melt:2582:/ clear"); + /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEFNAME__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEFEXPR__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEFDOC__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2579:/ quasiblock"); - /*^getslot*/ + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + MELT_LOCATION("warmelt-macro.melt:2579:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MEXPAND_DEFINE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_40_warmelt_macro_MEXPAND_DEFINE*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_41_warmelt_macro_SCAN_DEFCLASS_st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 102 + void* mcfr_varptr[102]; +#define MELTFRAM_NBVARNUM 38 + long mcfr_varnum[38]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<102; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 102; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("SCAN_DEFCLASS", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:2622:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2623:/ quasiblock"); + + + /*_.PREDEF__V6*/ meltfptr[5] = (/*nil*/NULL);; + /*^compute*/ + + /*_.SUPERNAM__V7*/ meltfptr[6] = (/*nil*/NULL);; + /*^compute*/ + + /*_.SUPERBIND__V8*/ meltfptr[7] = (/*nil*/NULL);; + /*^compute*/ + + /*_.SUPERCLASS__V9*/ meltfptr[8] = (/*nil*/NULL);; + /*^compute*/ + + /*_.FIELDNAMS__V10*/ meltfptr[9] = (/*nil*/NULL);; + /*^compute*/ + + /*_.DOCV__V11*/ meltfptr[10] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-macro.melt:2629:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2553:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2630:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - /*_.LIST_FIRST__V14*/ meltfptr[13] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; + /*_.FIELDSLOC__V14*/ meltfptr[13] = (/*nil*/NULL);; /*^compute*/ - /*_.CURPAIR__V15*/ meltfptr[14] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; + /*_.LIST_FIRST__V15*/ meltfptr[14] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; /*^compute*/ - /*_.SYMB__V16*/ meltfptr[15] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2556:/ apply"); - /*apply*/{ - /*_.NEWENV__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*_.DOCV__V18*/ meltfptr[17] = (/*nil*/NULL);; + /*_.CURPAIR__V16*/ meltfptr[15] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V15*/ meltfptr[14])));; /*^compute*/ - /*_#IS_NOT_A__L4*/ meltfnum[0] = - !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:2559:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ + /*_.SYMB__V17*/ meltfptr[16] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:2635:/ cppif.then"); /*^block*/ /*anyblock*/{ - - { - MELT_LOCATION("warmelt-macro.melt:2560:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for DEFUN"), (melt_ptr_t)0);} + /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:2635:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "scan_defclass sexpr"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 2635; + /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; + /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - } + + MELT_LOCATION("warmelt-macro.melt:2635:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } /*noelse*/ - ; - /*_.PAIR_TAIL__V19*/ meltfptr[18] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2561:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:2563:/ quasiblock"); - - - /*_.CURPAIRHEAD__V22*/ meltfptr[21] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; /*^compute*/ - /*_#NULL__L5*/ meltfnum[4] = - ((/*_.CURPAIRHEAD__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2565:/ cond"); - /*cond*/ if (/*_#NULL__L5*/ meltfnum[4]) /*then*/ { + /*_#IS_NOT_A__L2*/ meltfnum[0] = + !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:2636:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_.MAKE_MULTIPLE__V24*/ meltfptr[23] = - (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (0)));; - /*^compute*/ - - /*_.BTUP__V23*/ meltfptr[22] = /*_.MAKE_MULTIPLE__V24*/ meltfptr[23];; - /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2565:/ clear"); - /*clear*/ /*_.MAKE_MULTIPLE__V24*/ meltfptr[23] = 0 ;} + { + MELT_LOCATION("warmelt-macro.melt:2637:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for DEFCLASS"), (melt_ptr_t)0);} + ; + /*epilog*/ + } ; - } else {/*^cond.else*/ + } /*noelse*/ + ; + /*_.PAIR_TAIL__V20*/ meltfptr[18] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + MELT_LOCATION("warmelt-macro.melt:2638:/ compute"); + /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V21*/ meltfptr[20] = /*_.PAIR_TAIL__V20*/ meltfptr[18];; + MELT_LOCATION("warmelt-macro.melt:2639:/ loop"); + /*loop*/{ labloop_SCANLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L6*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CURPAIRHEAD__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2567:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_.PAIR_HEAD__V26*/ meltfptr[25] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2568:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.PAIR_HEAD__V26*/ meltfptr[25]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + /*_#IS_PAIR__L3*/ meltfnum[2] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])) == MELTOBMAG_PAIR);; + /*^compute*/ + + /*_#NOT__L4*/ meltfnum[3] = + (!(/*_#IS_PAIR__L3*/ meltfnum[2]));; + MELT_LOCATION("warmelt-macro.melt:2640:/ cond"); + /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^quasiblock*/ + + + /*^compute*/ + /*_.SCANLOOP__V23*/ meltfptr[22] = NULL;; + + /*^exit*/ + /*exit*/{ + goto labexit_SCANLOOP_1;} ; - /*_.IFELSE___V25*/ meltfptr[23] = /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26];; /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:2641:/ quasiblock"); + + + /*_.CURKW__V25*/ meltfptr[24] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + /*^compute*/ + + /*_#IS_A__L5*/ meltfnum[4] = + melt_is_instance_of((melt_ptr_t)(/*_.CURKW__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; + /*^compute*/ + + /*_#NOT__L6*/ meltfnum[5] = + (!(/*_#IS_A__L5*/ meltfnum[4]));; + MELT_LOCATION("warmelt-macro.melt:2642:/ cond"); + /*cond*/ if (/*_#NOT__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2567:/ clear"); - /*clear*/ /*_.PAIR_HEAD__V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V27*/ meltfptr[26] = 0 ;} + + { + MELT_LOCATION("warmelt-macro.melt:2643:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting keyword in DEFCLASS"), (melt_ptr_t)0);} + ; + /*epilog*/ + } ; - } else {/*^cond.else*/ + } /*noelse*/ + ; + /*_.PAIR_TAIL__V26*/ meltfptr[25] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + MELT_LOCATION("warmelt-macro.melt:2644:/ compute"); + /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; + MELT_LOCATION("warmelt-macro.melt:2645:/ quasiblock"); - /*^block*/ + + /*_.CURVAL__V29*/ meltfptr[28] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + /*^compute*/ + + /*_.PAIR_TAIL__V30*/ meltfptr[29] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; + MELT_LOCATION("warmelt-macro.melt:2646:/ compute"); + /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_TAIL__V30*/ meltfptr[29];; + /*_#__L7*/ meltfnum[6] = + ((/*_.CURKW__V25*/ meltfptr[24]) == ((/*!konst_3_SUPER*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-macro.melt:2648:/ cond"); + /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-macro.melt:2649:/ cond"); + /*cond*/ if (/*_.SUPERNAM__V7*/ meltfptr[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + /*^locexp*/ + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate super in DEFCLASS"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + /*_#IS_A__L8*/ meltfnum[7] = + melt_is_instance_of((melt_ptr_t)(/*_.CURVAL__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; + /*^compute*/ + + /*_#NOT__L9*/ meltfnum[8] = + (!(/*_#IS_A__L8*/ meltfnum[7]));; + MELT_LOCATION("warmelt-macro.melt:2650:/ cond"); + /*cond*/ if (/*_#NOT__L9*/ meltfnum[8]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:2651:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad super in DEFCLASS"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:2652:/ compute"); + /*_.SUPERNAM__V7*/ meltfptr[6] = /*_.SETQ___V33*/ meltfptr[32] = /*_.CURVAL__V29*/ meltfptr[28];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2570:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2653:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = + /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2570:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2653:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defun strange arglist curpairhead"; + argtab[0].meltbp_cstring = "scan_defclass supernam"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2570; - /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURPAIRHEAD__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2653; + /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERNAM__V7*/ meltfptr[6]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V28*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26];; + /*_.IFCPP___V34*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2570:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; + MELT_LOCATION("warmelt-macro.melt:2653:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[26] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[25] = (/*nil*/NULL); + /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-macro.melt:2654:/ quasiblock"); - { - MELT_LOCATION("warmelt-macro.melt:2571:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing or invalid arglist for DEFUN"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2569:/ quasiblock"); - - - /*_.PROGN___V30*/ meltfptr[26] = (/*nil*/NULL);; - /*^compute*/ - - /*_.IFELSE___V25*/ meltfptr[23] = /*_.PROGN___V30*/ meltfptr[26];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2567:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[26] = 0 ;} - ; - } - ; - /*_.BTUP__V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[23];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2565:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V25*/ meltfptr[23] = 0 ;} - ; - } - ; - /*_#IS_MULTIPLE__L8*/ meltfnum[6] = - (melt_magic_discr((melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; - /*^compute*/ - - /*_#NOT__L9*/ meltfnum[5] = - (!(/*_#IS_MULTIPLE__L8*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:2575:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2577:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2577:/ apply"); + /*^apply*/ /*apply*/{ - union meltparam_un argtab[4]; + union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_defun strange btup"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2577; - /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SUPERNAM__V7*/ meltfptr[6]; + /*_.SUPERB__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V31*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2577:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[26] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V31*/ meltfptr[25] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - { - MELT_LOCATION("warmelt-macro.melt:2578:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing formal arguments for DEFUN"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:2576:/ quasiblock"); - - - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2575:/ clear"); - /*clear*/ /*_.IFCPP___V31*/ meltfptr[25] = 0 ;} - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:2579:/ quasiblock"); - - - /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V34*/ meltfptr[26] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (1)); - ; - /*^putclosedv*/ - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ meltfptr[26])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ meltfptr[26]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ meltfptr[26])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V17*/ meltfptr[16]); - ; - /*_.LAMBDA___V33*/ meltfptr[23] = /*_.LAMBDA___V34*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:2579:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ meltfptr[23]; - /*_.MULTIPLE_EVERY__V35*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.BTUP__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.PAIR_TAIL__V36*/ meltfptr[35] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2580:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V37*/ meltfptr[36] = /*_.PAIR_TAIL__V36*/ meltfptr[35];; - /*_.PAIR_HEAD__V38*/ meltfptr[37] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - /*^compute*/ - - /*_#__L11*/ meltfnum[9] = - ((/*_.PAIR_HEAD__V38*/ meltfptr[37]) == ((/*!konst_10_DOC*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:2582:/ cond"); - /*cond*/ if (/*_#__L11*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_.PAIR_TAIL__V40*/ meltfptr[39] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2584:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; - /*_.PAIR_HEAD__V42*/ meltfptr[41] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2586:/ compute"); - /*_.DOCV__V18*/ meltfptr[17] = /*_.SETQ___V43*/ meltfptr[42] = /*_.PAIR_HEAD__V42*/ meltfptr[41];; - /*_.PAIR_TAIL__V44*/ meltfptr[43] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:2587:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_TAIL__V44*/ meltfptr[43];; - MELT_LOCATION("warmelt-macro.melt:2583:/ quasiblock"); - - - /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; - /*^compute*/ - - /*_.IF___V39*/ meltfptr[38] = /*_.PROGN___V46*/ meltfptr[45];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2582:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V42*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V43*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V44*/ meltfptr[43] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V45*/ meltfptr[44] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V39*/ meltfptr[38] = NULL;; - } - ; - MELT_LOCATION("warmelt-macro.melt:2590:/ quasiblock"); - - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V17*/ meltfptr[16]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.BODYTUP__V48*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2592:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ meltfrout->tabval[12])), (6), "CLASS_SOURCE_DEFUN"); - /*_.INST__V50*/ meltfptr[42] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (2), (/*_.SYMB__V16*/ meltfptr[15]), "SDEF_NAME"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SDEF_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (3), (/*_.DOCV__V18*/ meltfptr[17]), "SDEF_DOC"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFORMAL_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (4), (/*_.BTUP__V23*/ meltfptr[22]), "SFORMAL_ARGS"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SFUN_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V50*/ meltfptr[42]), (5), (/*_.BODYTUP__V48*/ meltfptr[40]), "SFUN_BODY"); - ; - /*_.SDEFUN__V49*/ meltfptr[41] = /*_.INST__V50*/ meltfptr[42];; - MELT_LOCATION("warmelt-macro.melt:2600:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[13])), (3), "CLASS_FUNCTION_BINDING"); - /*_.INST__V52*/ meltfptr[44] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[44])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ meltfptr[44]), (0), (/*_.SYMB__V16*/ meltfptr[15]), "BINDER"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @FUBIND_DEFUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[44])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V52*/ meltfptr[44]), (2), (/*_.SDEFUN__V49*/ meltfptr[41]), "FUBIND_DEFUN"); - ; - /*_.FBIND__V51*/ meltfptr[43] = /*_.INST__V52*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:2605:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; - /*_.WARN_IF_REDEFINED__V53*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SYMB__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:2606:/ apply"); - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FBIND__V51*/ meltfptr[43]; - /*_.PUT_ENV__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.LET___V47*/ meltfptr[39] = /*_.SDEFUN__V49*/ meltfptr[41];; - - MELT_LOCATION("warmelt-macro.melt:2590:/ clear"); - /*clear*/ /*_.BODYTUP__V48*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.SDEFUN__V49*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.FBIND__V51*/ meltfptr[43] = 0 ; - /*^clear*/ - /*clear*/ /*_.WARN_IF_REDEFINED__V53*/ meltfptr[45] = 0 ; - /*^clear*/ - /*clear*/ /*_.PUT_ENV__V54*/ meltfptr[53] = 0 ; - /*_.LET___V21*/ meltfptr[20] = /*_.LET___V47*/ meltfptr[39];; - - MELT_LOCATION("warmelt-macro.melt:2563:/ clear"); - /*clear*/ /*_.CURPAIRHEAD__V22*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.BTUP__V23*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_MULTIPLE__L8*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L9*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA___V33*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.MULTIPLE_EVERY__V35*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V36*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V38*/ meltfptr[37] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L11*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V39*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V47*/ meltfptr[39] = 0 ; - /*_.LET___V11*/ meltfptr[9] = /*_.LET___V21*/ meltfptr[20];; - - MELT_LOCATION("warmelt-macro.melt:2552:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.SYMB__V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.NEWENV__V17*/ meltfptr[16] = 0 ; - /*^clear*/ - /*clear*/ /*_.DOCV__V18*/ meltfptr[17] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V19*/ meltfptr[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2548:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2548:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_DEFUN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_39_warmelt_macro_MEXPAND_DEFUN*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_40_warmelt_macro_LAMBDA__st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 3 - void* mcfr_varptr[3]; -/*no varnum*/ -#define MELTFRAM_NBVARNUM /*none*/0 -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<3; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 3; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("LAMBDA_", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2579:/ getarg"); - /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FB__V2*/ meltfptr[1]; - /*_.PUT_ENV__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^quasiblock*/ - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:2579:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.PUT_ENV__V3*/ meltfptr[2] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_40_warmelt_macro_LAMBDA_*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_41_warmelt_macro_MEXPAND_DEFINE_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 16 - void* mcfr_varptr[16]; -#define MELTFRAM_NBVARNUM 2 - long mcfr_varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<16; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 16; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_DEFINE", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2621:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2622:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2622:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2622:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2622)?(2622):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2622:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2623:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2623:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2623:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2623)?(2623):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2623:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2624:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:2625:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; - ; - /*_.DEFNAME__V12*/ meltfptr[11] = (/*nil*/NULL);; - /*^compute*/ - - /*_.DEFEXPR__V13*/ meltfptr[12] = (/*nil*/NULL);; - /*^compute*/ - - /*_.DEFDOC__V14*/ meltfptr[13] = (/*nil*/NULL);; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2651:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2651:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "$@$ mexpand_define unimplemented"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2651)?(2651):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2651:/ clear"); - /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V9*/ meltfptr[7] = /*_.IFCPP___V15*/ meltfptr[14];; - - MELT_LOCATION("warmelt-macro.melt:2624:/ clear"); - /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEFNAME__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEFEXPR__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEFDOC__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2621:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:2621:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_DEFINE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_41_warmelt_macro_MEXPAND_DEFINE*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_42_warmelt_macro_SCAN_DEFCLASS_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 102 - void* mcfr_varptr[102]; -#define MELTFRAM_NBVARNUM 38 - long mcfr_varnum[38]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<102; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 102; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("SCAN_DEFCLASS", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2664:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2665:/ quasiblock"); - - - /*_.PREDEF__V6*/ meltfptr[5] = (/*nil*/NULL);; - /*^compute*/ - - /*_.SUPERNAM__V7*/ meltfptr[6] = (/*nil*/NULL);; - /*^compute*/ - - /*_.SUPERBIND__V8*/ meltfptr[7] = (/*nil*/NULL);; - /*^compute*/ - - /*_.SUPERCLASS__V9*/ meltfptr[8] = (/*nil*/NULL);; - /*^compute*/ - - /*_.FIELDNAMS__V10*/ meltfptr[9] = (/*nil*/NULL);; - /*^compute*/ - - /*_.DOCV__V11*/ meltfptr[10] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:2671:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:2672:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; - ; - /*_.FIELDSLOC__V14*/ meltfptr[13] = (/*nil*/NULL);; - /*^compute*/ - - /*_.LIST_FIRST__V15*/ meltfptr[14] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.CURPAIR__V16*/ meltfptr[15] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V15*/ meltfptr[14])));; - /*^compute*/ - - /*_.SYMB__V17*/ meltfptr[16] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2677:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2677:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "scan_defclass sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2677; - /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2677:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_NOT_A__L2*/ meltfnum[0] = - !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2678:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:2679:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing symbol for DEFCLASS"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_.PAIR_TAIL__V20*/ meltfptr[18] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:2680:/ compute"); - /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V21*/ meltfptr[20] = /*_.PAIR_TAIL__V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:2681:/ loop"); - /*loop*/{ labloop_SCANLOOP_1:;/*^loopbody*/ - - /*^block*/ - /*anyblock*/{ - - /*_#IS_PAIR__L3*/ meltfnum[2] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])) == MELTOBMAG_PAIR);; - /*^compute*/ - - /*_#NOT__L4*/ meltfnum[3] = - (!(/*_#IS_PAIR__L3*/ meltfnum[2]));; - MELT_LOCATION("warmelt-macro.melt:2682:/ cond"); - /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*^quasiblock*/ - - - /*^compute*/ - /*_.SCANLOOP__V23*/ meltfptr[22] = NULL;; - - /*^exit*/ - /*exit*/{ - goto labexit_SCANLOOP_1;} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:2683:/ quasiblock"); - - - /*_.CURKW__V25*/ meltfptr[24] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - /*^compute*/ - - /*_#IS_A__L5*/ meltfnum[4] = - melt_is_instance_of((melt_ptr_t)(/*_.CURKW__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; - /*^compute*/ - - /*_#NOT__L6*/ meltfnum[5] = - (!(/*_#IS_A__L5*/ meltfnum[4]));; - MELT_LOCATION("warmelt-macro.melt:2684:/ cond"); - /*cond*/ if (/*_#NOT__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:2685:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting keyword in DEFCLASS"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_.PAIR_TAIL__V26*/ meltfptr[25] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:2686:/ compute"); - /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:2687:/ quasiblock"); - - - /*_.CURVAL__V29*/ meltfptr[28] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - /*^compute*/ - - /*_.PAIR_TAIL__V30*/ meltfptr[29] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:2688:/ compute"); - /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_TAIL__V30*/ meltfptr[29];; - /*_#__L7*/ meltfnum[6] = - ((/*_.CURKW__V25*/ meltfptr[24]) == ((/*!konst_3_SUPER*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2690:/ cond"); - /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2691:/ cond"); - /*cond*/ if (/*_.SUPERNAM__V7*/ meltfptr[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "duplicate super in DEFCLASS"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_#IS_A__L8*/ meltfnum[7] = - melt_is_instance_of((melt_ptr_t)(/*_.CURVAL__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - /*^compute*/ - - /*_#NOT__L9*/ meltfnum[8] = - (!(/*_#IS_A__L8*/ meltfnum[7]));; - MELT_LOCATION("warmelt-macro.melt:2692:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ meltfnum[8]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:2693:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad super in DEFCLASS"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:2694:/ compute"); - /*_.SUPERNAM__V7*/ meltfptr[6] = /*_.SETQ___V33*/ meltfptr[32] = /*_.CURVAL__V29*/ meltfptr[28];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2695:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2695:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "scan_defclass supernam"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 2695; - /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERNAM__V7*/ meltfptr[6]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V34*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:2695:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:2696:/ quasiblock"); - - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SUPERNAM__V7*/ meltfptr[6]; - /*_.SUPERB__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_A__L11*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2699:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:2700:/ compute"); - /*_.SUPERBIND__V8*/ meltfptr[7] = /*_.SETQ___V39*/ meltfptr[38] = /*_.SUPERB__V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:2701:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V40*/ meltfptr[39] = slot; }; - ; - /*^compute*/ - /*_.SUPERCLASS__V9*/ meltfptr[8] = /*_.SETQ___V41*/ meltfptr[40] = /*_.CBIND_CLASS__V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:2699:/ quasiblock"); - - - /*_.PROGN___V42*/ meltfptr[41] = /*_.SETQ___V41*/ meltfptr[40];; - /*^compute*/ + /*_#IS_A__L11*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[5])));; + MELT_LOCATION("warmelt-macro.melt:2657:/ cond"); + /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:2658:/ compute"); + /*_.SUPERBIND__V8*/ meltfptr[7] = /*_.SETQ___V39*/ meltfptr[38] = /*_.SUPERB__V37*/ meltfptr[36];; + MELT_LOCATION("warmelt-macro.melt:2659:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V40*/ meltfptr[39] = slot; }; + ; + /*^compute*/ + /*_.SUPERCLASS__V9*/ meltfptr[8] = /*_.SETQ___V41*/ meltfptr[40] = /*_.CBIND_CLASS__V40*/ meltfptr[39];; + MELT_LOCATION("warmelt-macro.melt:2657:/ quasiblock"); + + + /*_.PROGN___V42*/ meltfptr[41] = /*_.SETQ___V41*/ meltfptr[40];; + /*^compute*/ /*_.IFELSE___V38*/ meltfptr[37] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2699:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2657:/ clear"); /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V40*/ meltfptr[39] = 0 ; @@ -5784,13 +3712,13 @@ lab_endgetargs:; /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:2703:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2661:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2704:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2662:/ quasiblock"); /*^getslot*/ @@ -5799,17 +3727,17 @@ lab_endgetargs:; ; /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.SUPERVAL__V45*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:2705:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2663:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2707:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2665:/ compute"); /*_.SUPERBIND__V8*/ meltfptr[7] = /*_.SETQ___V47*/ meltfptr[46] = /*_.SUPERB__V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:2708:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2666:/ compute"); /*_.SUPERCLASS__V9*/ meltfptr[8] = /*_.SETQ___V48*/ meltfptr[47] = /*_.SUPERVAL__V45*/ meltfptr[40];; - MELT_LOCATION("warmelt-macro.melt:2706:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2664:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[48] = /*_.SETQ___V48*/ meltfptr[47];; @@ -5818,7 +3746,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[41] = /*_.PROGN___V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2705:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2663:/ clear"); /*clear*/ /*_.SETQ___V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V48*/ meltfptr[47] = 0 ; @@ -5830,7 +3758,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2711:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2669:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERNAM__V7*/ meltfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ meltfptr[46] = slot; }; ; @@ -5838,20 +3766,20 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2710:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2668:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "super is not a class in defclass"), (melt_ptr_t)(/*_.NAMED_NAME__V50*/ meltfptr[46]));} ; /*clear*/ /*_.IFELSE___V46*/ meltfptr[41] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2705:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2663:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[46] = 0 ;} ; } ; /*_.LET___V44*/ meltfptr[39] = /*_.IFELSE___V46*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:2704:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2662:/ clear"); /*clear*/ /*_.SUPERVAL__V45*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; @@ -5860,7 +3788,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[38] = /*_.LET___V44*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2703:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2661:/ clear"); /*clear*/ /*_.LET___V44*/ meltfptr[39] = 0 ;} ; } else {/*^cond.else*/ @@ -5870,13 +3798,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2714:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2672:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2714:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2672:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5887,14 +3815,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2714; + argtab[3].meltbp_long = 2672; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERB__V37*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2714:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2672:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[48] = 0 ;} @@ -5906,13 +3834,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2715:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2673:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2715:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2673:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5923,14 +3851,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2715; + argtab[3].meltbp_long = 2673; /*_.DEBUG_MSG_FUN__V54*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V53*/ meltfptr[46] = /*_.DEBUG_MSG_FUN__V54*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2715:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2673:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ meltfptr[40] = 0 ;} @@ -5940,21 +3868,21 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2717:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2675:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERNAM__V7*/ meltfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ meltfptr[41] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:2716:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2674:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid super in defclass"), (melt_ptr_t)(/*_.NAMED_NAME__V55*/ meltfptr[41]));} ; - MELT_LOCATION("warmelt-macro.melt:2713:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2671:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2703:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2661:/ clear"); /*clear*/ /*_.IFCPP___V51*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V53*/ meltfptr[46] = 0 ; @@ -5966,7 +3894,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2699:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2657:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V43*/ meltfptr[38] = 0 ;} @@ -5975,13 +3903,13 @@ lab_endgetargs:; ; /*_.LET___V36*/ meltfptr[34] = /*_.IFELSE___V38*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:2696:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2654:/ clear"); /*clear*/ /*_.SUPERB__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V38*/ meltfptr[37] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2690:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2648:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[39] = /*_.LET___V36*/ meltfptr[34];; @@ -5990,7 +3918,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.PROGN___V56*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2690:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2648:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L9*/ meltfnum[8] = 0 ; @@ -6010,13 +3938,13 @@ lab_endgetargs:; /*_#__L16*/ meltfnum[12] = ((/*_.CURKW__V25*/ meltfptr[24]) == ((/*!konst_8_FIELDS*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:2721:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2679:/ cond"); /*cond*/ if (/*_#__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2722:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2680:/ cond"); /*cond*/ if (/*_.FIELDNAMS__V10*/ meltfptr[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6032,7 +3960,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2723:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2681:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ meltfptr[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6040,7 +3968,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L17*/ meltfnum[11] = !melt_is_instance_of((melt_ptr_t)(/*_.CURVAL__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:2724:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2682:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6048,7 +3976,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2725:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2683:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad fields in defclass"), (melt_ptr_t)0);} ; /*epilog*/ @@ -6058,12 +3986,12 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2723:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2681:/ clear"); /*clear*/ /*_#IS_NOT_A__L17*/ meltfnum[11] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2726:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2684:/ quasiblock"); /*^cond*/ @@ -6079,7 +4007,7 @@ lab_endgetargs:; /*_.NAMLIST__V59*/ meltfptr[47] = /*_.SEXP_CONTENTS__V60*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2726:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2684:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V60*/ meltfptr[46] = 0 ;} ; } else {/*^cond.else*/ @@ -6087,7 +4015,7 @@ lab_endgetargs:; /*_.NAMLIST__V59*/ meltfptr[47] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2727:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2685:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ meltfptr[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6100,7 +4028,7 @@ lab_endgetargs:; /*_.NAMLOC__V61*/ meltfptr[41] = /*_.LOCA_LOCATION__V62*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2727:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2685:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V62*/ meltfptr[38] = 0 ;} ; } else {/*^cond.else*/ @@ -6123,9 +4051,9 @@ lab_endgetargs:; /*_.NAMTUPL__V64*/ meltfptr[37] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBNAM__L18*/ meltfnum[9])));; - MELT_LOCATION("warmelt-macro.melt:2732:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2690:/ compute"); /*_.FIELDSLOC__V14*/ meltfptr[13] = /*_.SETQ___V65*/ meltfptr[32] = /*_.NAMLOC__V61*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:2733:/ loop"); + MELT_LOCATION("warmelt-macro.melt:2691:/ loop"); /*loop*/{ labloop_NAMLOOP_1:;/*^loopbody*/ /*^block*/ @@ -6137,7 +4065,7 @@ lab_endgetargs:; /*_#NOT__L21*/ meltfnum[11] = (!(/*_#IS_PAIR__L20*/ meltfnum[8]));; - MELT_LOCATION("warmelt-macro.melt:2734:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2692:/ cond"); /*cond*/ if (/*_#NOT__L21*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6158,7 +4086,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2735:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2693:/ quasiblock"); /*_.CURNAM__V68*/ meltfptr[39] = @@ -6171,7 +4099,7 @@ lab_endgetargs:; /*_#NOT__L23*/ meltfnum[22] = (!(/*_#IS_A__L22*/ meltfnum[21]));; - MELT_LOCATION("warmelt-macro.melt:2736:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2694:/ cond"); /*cond*/ if (/*_#NOT__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6179,7 +4107,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2737:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2695:/ locexp"); melt_error_str((melt_ptr_t)(/*_.NAMLOC__V61*/ meltfptr[41]), ( "non name field in DEFCLASS"), (melt_ptr_t)0);} ; /*epilog*/ @@ -6189,11 +4117,11 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2738:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2696:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.NAMTUPL__V64*/ meltfptr[37]), (/*_#IX__L19*/ meltfnum[7]), (melt_ptr_t)(/*_.CURNAM__V68*/ meltfptr[39]));} ; - MELT_LOCATION("warmelt-macro.melt:2735:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2693:/ clear"); /*clear*/ /*_.CURNAM__V68*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L22*/ meltfnum[21] = 0 ; @@ -6201,15 +4129,15 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L23*/ meltfnum[22] = 0 ; /*_.PAIR_TAIL__V69*/ meltfptr[46] = (melt_pair_tail((melt_ptr_t)(/*_.NAMPAIR__V63*/ meltfptr[36])));; - MELT_LOCATION("warmelt-macro.melt:2740:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2698:/ compute"); /*_.NAMPAIR__V63*/ meltfptr[36] = /*_.SETQ___V70*/ meltfptr[38] = /*_.PAIR_TAIL__V69*/ meltfptr[46];; /*_#I__L24*/ meltfnum[21] = ((/*_#IX__L19*/ meltfnum[7]) + (1));; - MELT_LOCATION("warmelt-macro.melt:2741:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2699:/ compute"); /*_#IX__L19*/ meltfnum[7] = /*_#SETQ___L25*/ meltfnum[22] = /*_#I__L24*/ meltfnum[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2733:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2691:/ clear"); /*clear*/ /*_#IS_PAIR__L20*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L21*/ meltfnum[11] = 0 ; @@ -6229,11 +4157,11 @@ lab_endgetargs:; /*_.FOREVER___V66*/ meltfptr[33] = /*_.NAMLOOP__V67*/ meltfptr[34];; } ; - MELT_LOCATION("warmelt-macro.melt:2743:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2701:/ compute"); /*_.FIELDNAMS__V10*/ meltfptr[9] = /*_.SETQ___V71*/ meltfptr[39] = /*_.NAMTUPL__V64*/ meltfptr[37];; /*_.LET___V58*/ meltfptr[40] = /*_.SETQ___V71*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:2726:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2684:/ clear"); /*clear*/ /*_.NAMLIST__V59*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.NAMLOC__V61*/ meltfptr[41] = 0 ; @@ -6251,7 +4179,7 @@ lab_endgetargs:; /*clear*/ /*_.FOREVER___V66*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V71*/ meltfptr[39] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2721:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2679:/ quasiblock"); /*_.PROGN___V72*/ meltfptr[46] = /*_.LET___V58*/ meltfptr[40];; @@ -6260,7 +4188,7 @@ lab_endgetargs:; /*_.IFELSE___V57*/ meltfptr[48] = /*_.PROGN___V72*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2721:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2679:/ clear"); /*clear*/ /*_.LET___V58*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V72*/ meltfptr[46] = 0 ;} @@ -6272,13 +4200,13 @@ lab_endgetargs:; /*_#__L26*/ meltfnum[8] = ((/*_.CURKW__V25*/ meltfptr[24]) == ((/*!konst_11_PREDEF*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:2745:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2703:/ cond"); /*cond*/ if (/*_#__L26*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2746:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2704:/ cond"); /*cond*/ if (/*_.PREDEF__V6*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6294,7 +4222,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2747:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2705:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6309,32 +4237,32 @@ lab_endgetargs:; /*_.PREDEF__V6*/ meltfptr[5] = /*_.SETQ___V75*/ meltfptr[41] = /*_.MACROEXPAND_1__V74*/ meltfptr[47];; /*_#IS_INTEGERBOX__L27*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.PREDEF__V6*/ meltfptr[5])) == MELTOBMAG_INT);; - MELT_LOCATION("warmelt-macro.melt:2749:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2707:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L27*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V76*/ meltfptr[36] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2749:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2707:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L28*/ meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.PREDEF__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2752:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2710:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V77*/ meltfptr[37] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2752:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2710:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:2756:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2714:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad predef in DEFCLASS"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2755:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2713:/ quasiblock"); /*epilog*/ @@ -6345,14 +4273,14 @@ lab_endgetargs:; /*_.IFELSE___V76*/ meltfptr[36] = /*_.IFELSE___V77*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2749:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2707:/ clear"); /*clear*/ /*_#IS_A__L28*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V77*/ meltfptr[37] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:2745:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2703:/ quasiblock"); /*_.PROGN___V78*/ meltfptr[32] = /*_.IFELSE___V76*/ meltfptr[36];; @@ -6361,7 +4289,7 @@ lab_endgetargs:; /*_.IFELSE___V73*/ meltfptr[38] = /*_.PROGN___V78*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2745:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2703:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V74*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V75*/ meltfptr[41] = 0 ; @@ -6379,13 +4307,13 @@ lab_endgetargs:; /*_#__L29*/ meltfnum[22] = ((/*_.CURKW__V25*/ meltfptr[24]) == ((/*!konst_13_DOC*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:2760:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2718:/ cond"); /*cond*/ if (/*_#__L29*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2761:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2719:/ cond"); /*cond*/ if (/*_.DOCV__V11*/ meltfptr[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6401,9 +4329,9 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2763:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2721:/ compute"); /*_.DOCV__V11*/ meltfptr[10] = /*_.SETQ___V80*/ meltfptr[39] = /*_.CURVAL__V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:2760:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2718:/ quasiblock"); /*_.PROGN___V81*/ meltfptr[40] = /*_.SETQ___V80*/ meltfptr[39];; @@ -6412,7 +4340,7 @@ lab_endgetargs:; /*_.IFELSE___V79*/ meltfptr[33] = /*_.PROGN___V81*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2760:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2718:/ clear"); /*clear*/ /*_.SETQ___V80*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V81*/ meltfptr[40] = 0 ;} @@ -6422,21 +4350,21 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2767:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2725:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURKW__V25*/ meltfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V82*/ meltfptr[46] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:2766:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2724:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid keyword in DEFCLASS"), (melt_ptr_t)(/*_.NAMED_NAME__V82*/ meltfptr[46]));} ; - MELT_LOCATION("warmelt-macro.melt:2765:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2723:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2760:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2718:/ clear"); /*clear*/ /*_.NAMED_NAME__V82*/ meltfptr[46] = 0 ;} ; } @@ -6444,7 +4372,7 @@ lab_endgetargs:; /*_.IFELSE___V73*/ meltfptr[38] = /*_.IFELSE___V79*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2745:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2703:/ clear"); /*clear*/ /*_#__L29*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V79*/ meltfptr[33] = 0 ;} @@ -6454,7 +4382,7 @@ lab_endgetargs:; /*_.IFELSE___V57*/ meltfptr[48] = /*_.IFELSE___V73*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2721:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2679:/ clear"); /*clear*/ /*_#__L26*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V73*/ meltfptr[38] = 0 ;} @@ -6464,7 +4392,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.IFELSE___V57*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2690:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2648:/ clear"); /*clear*/ /*_#__L16*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V57*/ meltfptr[48] = 0 ;} @@ -6473,7 +4401,7 @@ lab_endgetargs:; ; /*_.LET___V28*/ meltfptr[27] = /*_.IFELSE___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:2687:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2645:/ clear"); /*clear*/ /*_.CURVAL__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[29] = 0 ; @@ -6485,7 +4413,7 @@ lab_endgetargs:; /*clear*/ /*_.IFELSE___V32*/ meltfptr[31] = 0 ; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:2683:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2641:/ clear"); /*clear*/ /*_.CURKW__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; @@ -6499,7 +4427,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V28*/ meltfptr[27] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2681:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2639:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -6515,13 +4443,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2770:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2728:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2770:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2728:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6532,14 +4460,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2770; + argtab[3].meltbp_long = 2728; /*_.DEBUG_MSG_FUN__V84*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V83*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V84*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2770:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2728:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ meltfptr[47] = 0 ;} @@ -6551,13 +4479,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2771:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2729:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2771:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2729:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6568,14 +4496,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2771; + argtab[3].meltbp_long = 2729; /*_.DEBUG_MSG_FUN__V86*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V85*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V86*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2771:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2729:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ meltfptr[36] = 0 ;} @@ -6587,13 +4515,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2772:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2730:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[21] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2772:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2730:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6604,14 +4532,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2772; + argtab[3].meltbp_long = 2730; /*_.DEBUG_MSG_FUN__V88*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERNAM__V7*/ meltfptr[6]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V87*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V88*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2772:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2730:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ meltfptr[39] = 0 ;} @@ -6623,13 +4551,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2773:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2731:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2773:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2731:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6640,14 +4568,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2773; + argtab[3].meltbp_long = 2731; /*_.DEBUG_MSG_FUN__V90*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERBIND__V8*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V89*/ meltfptr[40] = /*_.DEBUG_MSG_FUN__V90*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2773:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2731:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ meltfptr[46] = 0 ;} @@ -6659,13 +4587,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2774:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2732:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[22] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2774:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2732:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6676,14 +4604,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2774; + argtab[3].meltbp_long = 2732; /*_.DEBUG_MSG_FUN__V92*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SUPERCLASS__V9*/ meltfptr[8]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V91*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V92*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2774:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V92*/ meltfptr[38] = 0 ;} @@ -6695,13 +4623,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2775:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2733:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2775:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2733:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6712,14 +4640,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2775; + argtab[3].meltbp_long = 2733; /*_.DEBUG_MSG_FUN__V94*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PREDEF__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V93*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V94*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2775:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2733:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L35*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V94*/ meltfptr[28] = 0 ;} @@ -6731,13 +4659,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2776:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2734:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2776:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2734:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6748,14 +4676,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2776; + argtab[3].meltbp_long = 2734; /*_.DEBUG_MSG_FUN__V96*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FIELDNAMS__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V95*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V96*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2776:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2734:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V96*/ meltfptr[30] = 0 ;} @@ -6767,13 +4695,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2777:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2735:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2777:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2735:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6784,14 +4712,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2777; + argtab[3].meltbp_long = 2735; /*_.DEBUG_MSG_FUN__V98*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FIELDSLOC__V14*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V97*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V98*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2777:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2735:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L37*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ meltfptr[24] = 0 ;} @@ -6803,13 +4731,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2778:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2736:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2778:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2736:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6820,14 +4748,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2778; + argtab[3].meltbp_long = 2736; /*_.DEBUG_MSG_FUN__V100*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.DOCV__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V99*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V100*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2778:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2736:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ meltfptr[26] = 0 ;} @@ -6837,7 +4765,7 @@ lab_endgetargs:; /*_.IFCPP___V99*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2779:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2737:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6848,11 +4776,11 @@ lab_endgetargs:; /*_.WARN_IF_REDEFINED__V101*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2780:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2738:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYMB__V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:2780:/ putxtraresult"); + MELT_LOCATION("warmelt-macro.melt:2738:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != MELTBPAR_PTR) goto labend_rout; if (xrestab_[0].meltbp_aptr) *(xrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.LOC__V13*/ meltfptr[12]); @@ -6897,7 +4825,7 @@ lab_endgetargs:; /*finalret*/ goto labend_rout ; /*_.LET___V5*/ meltfptr[4] = /*_.RETURN___V102*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:2665:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2623:/ clear"); /*clear*/ /*_.PREDEF__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SUPERNAM__V7*/ meltfptr[6] = 0 ; @@ -6953,11 +4881,11 @@ lab_endgetargs:; /*clear*/ /*_.WARN_IF_REDEFINED__V101*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V102*/ meltfptr[23] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2622:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; - MELT_LOCATION("warmelt-macro.melt:2664:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2622:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6974,14 +4902,14 @@ melt_trace_end("SCAN_DEFCLASS", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_42_warmelt_macro_SCAN_DEFCLASS*/ +} /*end meltrout_41_warmelt_macro_SCAN_DEFCLASS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6994,7 +4922,7 @@ meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_43_warmelt_macro_MEXPAND_DEFCLASS_st { + struct frame_meltrout_42_warmelt_macro_MEXPAND_DEFCLASS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7028,7 +4956,7 @@ melt_trace_start("MEXPAND_DEFCLASS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2784:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2742:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7053,17 +4981,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2785:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2743:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2785:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2743:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2785:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2743:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7074,7 +5002,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2785)?(2785):__LINE__, __FUNCTION__); + (2743)?(2743):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -7088,7 +5016,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2785:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2743:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -7100,17 +5028,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2786:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2744:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2786:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2744:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2786:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2744:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7121,7 +5049,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2786)?(2786):__LINE__, __FUNCTION__); + (2744)?(2744):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7135,7 +5063,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2786:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2744:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7147,13 +5075,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2787:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2745:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2787:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2745:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7164,14 +5092,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2787; + argtab[3].meltbp_long = 2745; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2787:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2745:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7181,7 +5109,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2788:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2746:/ quasiblock"); /*^multiapply*/ @@ -7219,13 +5147,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2791:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2749:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2791:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2749:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7236,14 +5164,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2791; + argtab[3].meltbp_long = 2749; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SYMB__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2791:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -7255,13 +5183,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2792:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2750:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2792:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2750:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7272,14 +5200,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2792; + argtab[3].meltbp_long = 2750; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2792:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2750:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = 0 ;} @@ -7291,13 +5219,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2793:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2751:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2793:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2751:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7308,14 +5236,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2793; + argtab[3].meltbp_long = 2751; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUPERNAM__V14*/ meltfptr[13]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2793:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2751:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} @@ -7327,13 +5255,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2794:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2752:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2794:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2752:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7344,14 +5272,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2794; + argtab[3].meltbp_long = 2752; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUPERBIND__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2794:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2752:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -7363,13 +5291,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2795:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2753:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2795:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2753:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7380,14 +5308,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2795; + argtab[3].meltbp_long = 2753; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2795:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2753:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -7399,13 +5327,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2796:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2754:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2796:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2754:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7416,14 +5344,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2796; + argtab[3].meltbp_long = 2754; /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PREDEF__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V31*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2796:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2754:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} @@ -7435,13 +5363,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2797:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2755:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2797:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2755:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7452,14 +5380,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2797; + argtab[3].meltbp_long = 2755; /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.FIELDNAMS__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V33*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2797:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2755:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = 0 ;} @@ -7471,13 +5399,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2798:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2756:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2798:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2756:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7488,14 +5416,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2798; + argtab[3].meltbp_long = 2756; /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.FIELDSLOC__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V35*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2798:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2756:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} @@ -7507,13 +5435,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2799:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2757:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2799:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2757:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7524,14 +5452,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2799; + argtab[3].meltbp_long = 2757; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.DOCV__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2799:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2757:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} @@ -7543,17 +5471,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2800:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2758:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L13*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:2800:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2758:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V40*/ meltfptr[39] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2800:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2758:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7564,7 +5492,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2800)?(2800):__LINE__, __FUNCTION__); + (2758)?(2758):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ; @@ -7578,7 +5506,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[37] = /*_.IFELSE___V40*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2800:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2758:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V40*/ meltfptr[39] = 0 ;} @@ -7592,7 +5520,7 @@ lab_endgetargs:; /*_#NULL__L14*/ meltfnum[0] = ((/*_.PREDEF__V17*/ meltfptr[16]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2801:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2759:/ cond"); /*cond*/ if (/*_#NULL__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7600,24 +5528,24 @@ lab_endgetargs:; /*_#NULL__L15*/ meltfnum[14] = ((/*_.SUPERCLASS__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2801:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2759:/ cond"); /*cond*/ if (/*_#NULL__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2805:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2763:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ meltfptr[39] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:2803:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2761:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "DEFCLASS of a non-predefined class without superclass"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ meltfptr[39]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2801:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2759:/ clear"); /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[39] = 0 ;} ; } /*noelse*/ @@ -7629,18 +5557,18 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2807:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2765:/ quasiblock"); /*_#IS_OBJECT__L16*/ meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:2808:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2766:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2809:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2767:/ quasiblock"); /*^getslot*/ @@ -7662,17 +5590,17 @@ lab_endgetargs:; /*_#IX__L19*/ meltfnum[18] = 0;; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2814:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2772:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L20*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:2814:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2772:/ cond"); /*cond*/ if (/*_#IS_A__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V48*/ meltfptr[47] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2814:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2772:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7683,7 +5611,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check superclass"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2814)?(2814):__LINE__, __FUNCTION__); + (2772)?(2772):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V48*/ meltfptr[47] = 0 ; @@ -7697,7 +5625,7 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[46] = /*_.IFELSE___V48*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2814:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2772:/ clear"); /*clear*/ /*_#IS_A__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V48*/ meltfptr[47] = 0 ;} @@ -7709,17 +5637,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2815:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2773:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_MULTIPLE__L21*/ meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.SUPERANCESTORS__V45*/ meltfptr[44])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:2815:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2773:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V50*/ meltfptr[49] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2815:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2773:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7730,7 +5658,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check superancestors"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2815)?(2815):__LINE__, __FUNCTION__); + (2773)?(2773):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V50*/ meltfptr[49] = 0 ; @@ -7744,7 +5672,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[47] = /*_.IFELSE___V50*/ meltfptr[49];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2815:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2773:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L21*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V50*/ meltfptr[49] = 0 ;} @@ -7754,7 +5682,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2816:/ loop"); + MELT_LOCATION("warmelt-macro.melt:2774:/ loop"); /*loop*/{ labloop_ANCLOOP_1:;/*^loopbody*/ /*^block*/ @@ -7762,7 +5690,7 @@ lab_endgetargs:; /*_#I__L22*/ meltfnum[19] = ((/*_#IX__L19*/ meltfnum[18]) >= (/*_#NBSUPERANC__L17*/ meltfnum[16]));; - MELT_LOCATION("warmelt-macro.melt:2817:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2775:/ cond"); /*cond*/ if (/*_#I__L22*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7787,16 +5715,16 @@ lab_endgetargs:; (melt_multiple_nth((melt_ptr_t)(/*_.SUPERANCESTORS__V45*/ meltfptr[44]), (/*_#IX__L19*/ meltfnum[18])));; { - MELT_LOCATION("warmelt-macro.melt:2818:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2776:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUPLE__V46*/ meltfptr[45]), (/*_#IX__L19*/ meltfnum[18]), (melt_ptr_t)(/*_.MULTIPLE_NTH__V53*/ meltfptr[52]));} ; /*_#I__L23*/ meltfnum[22] = ((/*_#IX__L19*/ meltfnum[18]) + (1));; - MELT_LOCATION("warmelt-macro.melt:2819:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2777:/ compute"); /*_#IX__L19*/ meltfnum[18] = /*_#SETQ___L24*/ meltfnum[23] = /*_#I__L23*/ meltfnum[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2816:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2774:/ clear"); /*clear*/ /*_#I__L22*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_NTH__V53*/ meltfptr[52] = 0 ; @@ -7814,12 +5742,12 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2821:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2779:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUPLE__V46*/ meltfptr[45]), (/*_#NBSUPERANC__L17*/ meltfnum[16]), (melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15]));} ; /*_.LET___V44*/ meltfptr[43] = /*_.ANCTUPLE__V46*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:2809:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2767:/ clear"); /*clear*/ /*_.SUPERANCESTORS__V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_#NBSUPERANC__L17*/ meltfnum[16] = 0 ; @@ -7838,7 +5766,7 @@ lab_endgetargs:; /*_.ANCESTORS__V43*/ meltfptr[42] = /*_.LET___V44*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2808:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2766:/ clear"); /*clear*/ /*_.LET___V44*/ meltfptr[43] = 0 ;} ; } else {/*^cond.else*/ @@ -7853,27 +5781,27 @@ lab_endgetargs:; /*_.ANCESTORS__V43*/ meltfptr[42] = /*_.MAKE_MULTIPLE__V54*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2808:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2766:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V54*/ meltfptr[52] = 0 ;} ; } ; /*_#IS_OBJECT__L25*/ meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:2825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2783:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L25*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2826:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2784:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERCLASS__V16*/ meltfptr[15]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V56*/ meltfptr[45] = slot; }; ; /*_.SUPERFIELDS__V55*/ meltfptr[44] = /*_.CLASS_FIELDS__V56*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2825:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2783:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V56*/ meltfptr[45] = 0 ;} ; } else {/*^cond.else*/ @@ -7921,11 +5849,11 @@ lab_endgetargs:; /*_.OWNFIELDBINDINGS__V60*/ meltfptr[43] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[10])), (/*_#NBFIELDNAMES__L27*/ meltfnum[23])));; - MELT_LOCATION("warmelt-macro.melt:2834:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2792:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V12*/ meltfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V61*/ meltfptr[52] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2833:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2791:/ quasiblock"); /*^rawallocobj*/ @@ -7945,7 +5873,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V63*/ meltfptr[62]), (5), (/*_.ANCESTORS__V43*/ meltfptr[42]), "CLASS_ANCESTORS"); ; /*_.NEWCLASS__V62*/ meltfptr[45] = /*_.INST__V63*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:2838:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2796:/ quasiblock"); /*^rawallocobj*/ @@ -7965,7 +5893,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V65*/ meltfptr[64]), (3), (/*_.NEWCLASS__V62*/ meltfptr[45]), "CBIND_CLASS"); ; /*_.CLABIND__V64*/ meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; - MELT_LOCATION("warmelt-macro.melt:2842:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2800:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -7976,13 +5904,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2843:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2801:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2843:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2801:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7993,14 +5921,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2843; + argtab[3].meltbp_long = 2801; /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SUPERFIELDS__V55*/ meltfptr[44]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V67*/ meltfptr[66] = /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2843:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2801:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ meltfptr[67] = 0 ;} @@ -8010,7 +5938,7 @@ lab_endgetargs:; /*_.IFCPP___V67*/ meltfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2846:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2804:/ quasiblock"); /*^newclosure*/ @@ -8030,7 +5958,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V70*/ meltfptr[69])->tabval[1] = (melt_ptr_t)(/*_.FIELDSTRMAP__V58*/ meltfptr[47]); ; /*_.LAMBDA___V69*/ meltfptr[67] = /*_.LAMBDA___V70*/ meltfptr[69];; - MELT_LOCATION("warmelt-macro.melt:2844:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2802:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -8039,7 +5967,7 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SUPERFIELDS__V55*/ meltfptr[44]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2855:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2813:/ quasiblock"); /*^newclosure*/ @@ -8107,7 +6035,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V73*/ meltfptr[72])->tabval[9] = (melt_ptr_t)(/*_.OWNFIELDBINDINGS__V60*/ meltfptr[43]); ; /*_.LAMBDA___V72*/ meltfptr[71] = /*_.LAMBDA___V73*/ meltfptr[72];; - MELT_LOCATION("warmelt-macro.melt:2853:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2811:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -8116,7 +6044,7 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.FIELDNAMS__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2905:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2863:/ quasiblock"); /*^putslot*/ @@ -8130,19 +6058,19 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2909:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2867:/ locexp"); ((meltobject_ptr_t)/*_.NEWCLASS__V62*/ meltfptr[45])->obj_num = MELTOBMAG_OBJECT ; ;} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2911:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2869:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[31] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2911:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2869:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8153,14 +6081,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2911; + argtab[3].meltbp_long = 2869; /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.NEWCLASS__V62*/ meltfptr[45]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V75*/ meltfptr[74] = /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2911:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2869:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ meltfptr[75] = 0 ;} @@ -8170,7 +6098,7 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2912:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2870:/ quasiblock"); /*^rawallocobj*/ @@ -8219,7 +6147,7 @@ lab_endgetargs:; /*_.LET___V42*/ meltfptr[39] = /*_.INST___V77*/ meltfptr[75];; - MELT_LOCATION("warmelt-macro.melt:2807:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2765:/ clear"); /*clear*/ /*_#IS_OBJECT__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.ANCESTORS__V43*/ meltfptr[42] = 0 ; @@ -8271,7 +6199,7 @@ lab_endgetargs:; /*clear*/ /*_.INST___V77*/ meltfptr[75] = 0 ; /*_.MULTI___V11*/ meltfptr[9] = /*_.LET___V42*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:2788:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2746:/ clear"); /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; @@ -8312,11 +6240,11 @@ lab_endgetargs:; /*clear*/ /*_.FIELDSLOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.DOCV__V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2784:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2742:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:2784:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2742:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8339,14 +6267,14 @@ melt_trace_end("MEXPAND_DEFCLASS", meltcallcount); melt_topframe = (struct call #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_43_warmelt_macro_MEXPAND_DEFCLASS*/ +} /*end meltrout_42_warmelt_macro_MEXPAND_DEFCLASS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8359,7 +6287,7 @@ meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_44_warmelt_macro_LAMBDA__st { + struct frame_meltrout_43_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8393,7 +6321,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2846:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2804:/ getarg"); /*_.SFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8409,17 +6337,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2849:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2807:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2849:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2807:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2849:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2807:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8430,7 +6358,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check superfield"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2849)?(2849):__LINE__, __FUNCTION__); + (2807)?(2807):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -8444,7 +6372,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2849:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2807:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -8456,10 +6384,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2850:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2808:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~FIELDTUP*/ meltfclos->tabval[0])), (/*_#IX__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.SFLD__V2*/ meltfptr[1]));} ; - MELT_LOCATION("warmelt-macro.melt:2851:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2809:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ meltfptr[3] = slot; }; ; @@ -8470,7 +6398,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2846:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2804:/ clear"); /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V5*/ meltfptr[3] = 0 ;} @@ -8484,14 +6412,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_44_warmelt_macro_LAMBDA_*/ +} /*end meltrout_43_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8504,7 +6432,7 @@ meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_45_warmelt_macro_LAMBDA__st { + struct frame_meltrout_44_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8538,7 +6466,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2855:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2813:/ getarg"); /*_.FLDNAM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8554,17 +6482,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2857:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2815:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FLDNAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2857:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2815:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2857:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2815:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8575,7 +6503,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fldnam"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2857)?(2857):__LINE__, __FUNCTION__); + (2815)?(2815):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -8589,7 +6517,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2857:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2815:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -8599,14 +6527,14 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2858:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2816:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDNAM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.FLDSTR__V5*/ meltfptr[3] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2859:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2817:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -8617,7 +6545,7 @@ lab_endgetargs:; ; /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = (melt_get_mapstrings((struct meltmapstrings_st*)((/*~FIELDSTRMAP*/ meltfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3]))));; - MELT_LOCATION("warmelt-macro.melt:2861:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2819:/ cond"); /*cond*/ if (/*_.MAPSTRING_GETSTR__V7*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8625,7 +6553,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2862:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2820:/ locexp"); melt_error_str((melt_ptr_t)((/*~FIELDSLOC*/ meltfclos->tabval[2])), ( "duplicate field in DEFLCLASS"), (melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3]));} ; /*epilog*/ @@ -8635,7 +6563,7 @@ lab_endgetargs:; ; /*_#NULL__L3*/ meltfnum[1] = ((/*_.FLDPREVBIND__V6*/ meltfptr[5]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2864:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2822:/ cond"); /*cond*/ if (/*_#NULL__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8643,20 +6571,20 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2865:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2823:/ locexp"); /*void*/0;} ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:2864:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2822:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2867:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2825:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8664,13 +6592,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2868:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2826:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2868:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2826:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8681,14 +6609,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2868; + argtab[3].meltbp_long = 2826; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDPREVBIND__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2868:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2826:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -8700,10 +6628,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2869:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2827:/ locexp"); melt_error_str((melt_ptr_t)((/*~FIELDSLOC*/ meltfclos->tabval[2])), ( "field name already defined in DEFCLASS"), (melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3]));} ; - MELT_LOCATION("warmelt-macro.melt:2867:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2825:/ quasiblock"); /*epilog*/ @@ -8718,7 +6646,7 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:2871:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2829:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8726,13 +6654,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2872:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2830:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2872:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2830:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8743,14 +6671,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2872; + argtab[3].meltbp_long = 2830; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDPREVBIND__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2872:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2830:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[7] = 0 ;} @@ -8762,13 +6690,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2873:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2831:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2873:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2831:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8779,14 +6707,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2873; + argtab[3].meltbp_long = 2831; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~SYMB*/ meltfclos->tabval[3])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2873:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2831:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -8796,7 +6724,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2874:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2832:/ quasiblock"); /*^cond*/ @@ -8815,16 +6743,16 @@ lab_endgetargs:; /*_#IS_NOT_A__L9*/ meltfnum[6] = !melt_is_instance_of((melt_ptr_t)(/*_.PREVALUE__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:2878:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2836:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L9*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_#OR___L10*/ meltfnum[9] = /*_#IS_NOT_A__L9*/ meltfnum[6];; - } else {MELT_LOCATION("warmelt-macro.melt:2878:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2836:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2879:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2837:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVALUE__V14*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8836,7 +6764,7 @@ lab_endgetargs:; /*_.FLD_OWNCLASS__V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2879:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2837:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLD_OWNCLASS__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8848,7 +6776,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V16*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:2880:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2838:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~SYMB*/ meltfclos->tabval[3])), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8869,7 +6797,7 @@ lab_endgetargs:; /*_#OR___L10*/ meltfnum[9] = /*_#STRING___L11*/ meltfnum[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2878:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2836:/ clear"); /*clear*/ /*_.FLD_OWNCLASS__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; @@ -8888,7 +6816,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2881:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2839:/ locexp"); melt_warning_str(0, (melt_ptr_t)((/*~FIELDSLOC*/ meltfclos->tabval[2])), ( "field name already bound to a value in DEFCLASS"), (melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3]));} ; /*epilog*/ @@ -8897,13 +6825,13 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:2874:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2832:/ clear"); /*clear*/ /*_.PREVALUE__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L9*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L10*/ meltfnum[9] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2871:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2829:/ quasiblock"); /*epilog*/ @@ -8920,13 +6848,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2884:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2842:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2884:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2842:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8937,14 +6865,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2884; + argtab[3].meltbp_long = 2842; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDPREVBIND__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2884:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2842:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[15] = 0 ;} @@ -8956,34 +6884,34 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2885:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2843:/ locexp"); melt_warning_str(0, (melt_ptr_t)((/*~FIELDSLOC*/ meltfclos->tabval[2])), ( "field name previously bound in DEFCLASS"), (melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3]));} ; - MELT_LOCATION("warmelt-macro.melt:2883:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2841:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2871:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.IFCPP___V18*/ meltfptr[14] = 0 ;} ; } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2867:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2825:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ;} ; } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2864:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2822:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:2887:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2845:/ quasiblock"); /*_#GET_INT__L13*/ meltfnum[6] = @@ -8992,7 +6920,7 @@ lab_endgetargs:; /*_#FLDOFF__L14*/ meltfnum[9] = ((/*_#IX__L1*/ meltfnum[0]) + (/*_#GET_INT__L13*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:2888:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2846:/ quasiblock"); /*^rawallocobj*/ @@ -9014,20 +6942,20 @@ lab_endgetargs:; /*_.NEWFLD__V20*/ meltfptr[16] = /*_.INST__V21*/ meltfptr[12];; { - MELT_LOCATION("warmelt-macro.melt:2892:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2850:/ locexp"); melt_put_int((melt_ptr_t)(/*_.NEWFLD__V20*/ meltfptr[16]), (/*_#FLDOFF__L14*/ meltfnum[9]));} ; { - MELT_LOCATION("warmelt-macro.melt:2894:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2852:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~FIELDTUP*/ meltfclos->tabval[6])), (/*_#FLDOFF__L14*/ meltfnum[9]), (melt_ptr_t)(/*_.NEWFLD__V20*/ meltfptr[16]));} ; { - MELT_LOCATION("warmelt-macro.melt:2895:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2853:/ locexp"); meltgc_put_mapstrings((struct meltmapstrings_st *) ((/*~FIELDSTRMAP*/ meltfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.FLDSTR__V5*/ meltfptr[3])), (melt_ptr_t)(/*_.NEWFLD__V20*/ meltfptr[16]));} ; - MELT_LOCATION("warmelt-macro.melt:2896:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2854:/ quasiblock"); /*^quasiblock*/ @@ -9055,7 +6983,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V23*/ meltfptr[7]), (3), (/*_.NEWFLD__V20*/ meltfptr[16]), "FLBIND_FIELD"); ; /*_.NEWFLDBIND__V22*/ meltfptr[8] = /*_.INST__V23*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:2900:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2858:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9066,7 +6994,7 @@ lab_endgetargs:; /*_.WARN_IF_REDEFINED__V24*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.FLDNAM__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:2901:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2859:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9077,25 +7005,25 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:2902:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2860:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~OWNFIELDBINDINGS*/ meltfclos->tabval[9])), (/*_#IX__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.NEWFLDBIND__V22*/ meltfptr[8]));} ; - MELT_LOCATION("warmelt-macro.melt:2896:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2854:/ clear"); /*clear*/ /*_.NEWFLDBIND__V22*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.WARN_IF_REDEFINED__V24*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V25*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2887:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2845:/ clear"); /*clear*/ /*_#GET_INT__L13*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#FLDOFF__L14*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.NEWFLD__V20*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2858:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2816:/ clear"); /*clear*/ /*_.FLDSTR__V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.FLDPREVBIND__V6*/ meltfptr[5] = 0 ; @@ -9105,7 +7033,7 @@ lab_endgetargs:; /*clear*/ /*_#NULL__L3*/ meltfnum[1] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2855:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2813:/ clear"); /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ;} ; @@ -9117,14 +7045,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_45_warmelt_macro_LAMBDA_*/ +} /*end meltrout_44_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9137,7 +7065,7 @@ meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ #define meltcallcount 0L #endif - struct frame_meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT_st { + struct frame_meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9171,7 +7099,7 @@ melt_trace_start("PARSE_FIELD_ASSIGNMENT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2933:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2891:/ getarg"); /*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9217,13 +7145,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2934:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2892:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2934:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2892:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9234,14 +7162,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2934; + argtab[3].meltbp_long = 2892; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2934:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2892:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -9253,13 +7181,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2935:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2893:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2935:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2893:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9270,14 +7198,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2935; + argtab[3].meltbp_long = 2893; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2935:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2893:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} @@ -9289,13 +7217,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2936:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2894:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2936:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2894:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9306,14 +7234,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2936; + argtab[3].meltbp_long = 2894; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLDKW__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2936:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2894:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} @@ -9331,7 +7259,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_A__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:2937:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2895:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9339,17 +7267,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2939:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2897:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "expecting :fieldname"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:2940:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2898:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2940:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2898:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2938:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2896:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[15] = /*_.RETURN___V15*/ meltfptr[14];; @@ -9358,7 +7286,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2937:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2895:/ clear"); /*clear*/ /*_.RETURN___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V16*/ meltfptr[15] = 0 ;} @@ -9370,17 +7298,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2942:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2900:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.FLDKW__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:2942:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2900:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2942:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2900:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9391,7 +7319,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fldkw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2942)?(2942):__LINE__, __FUNCTION__); + (2900)?(2900):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[15] = 0 ; @@ -9405,7 +7333,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[14] = /*_.IFELSE___V18*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2942:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2900:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[15] = 0 ;} @@ -9417,17 +7345,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2943:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2901:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:2943:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2901:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2943:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2901:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9438,7 +7366,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2943)?(2943):__LINE__, __FUNCTION__); + (2901)?(2901):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; @@ -9452,7 +7380,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2943:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2901:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} @@ -9464,17 +7392,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2944:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2902:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L8*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V7*/ meltfptr[6])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:2944:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2902:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L8*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2944:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2902:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9485,7 +7413,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2944)?(2944):__LINE__, __FUNCTION__); + (2902)?(2902):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ; @@ -9499,7 +7427,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2944:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2902:/ clear"); /*clear*/ /*_#IS_CLOSURE__L8*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} @@ -9509,7 +7437,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2946:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2904:/ quasiblock"); /*_.FLD__V24*/ meltfptr[23] = (/*nil*/NULL);; @@ -9517,13 +7445,13 @@ lab_endgetargs:; /*_#IS_A__L9*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:2948:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2906:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2949:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2907:/ quasiblock"); /*^getslot*/ @@ -9532,13 +7460,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2951:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2909:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2951:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2909:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9549,14 +7477,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2951; + argtab[3].meltbp_long = 2909; /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CLAFIELDS__V27*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V28*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2951:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2909:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} @@ -9566,7 +7494,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2956:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2914:/ quasiblock"); /*^newclosure*/ @@ -9580,7 +7508,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ meltfptr[30])->tabval[0] = (melt_ptr_t)(/*_.FLDKW__V4*/ meltfptr[3]); ; /*_.LAMBDA___V30*/ meltfptr[28] = /*_.LAMBDA___V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:2952:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2910:/ quasiblock"); /*^multiapply*/ @@ -9603,7 +7531,7 @@ lab_endgetargs:; /*^quasiblock*/ - MELT_LOCATION("warmelt-macro.melt:2969:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2927:/ cond"); /*cond*/ if (/*_.FOUNDFLD__V33*/ meltfptr[32]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9611,13 +7539,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2971:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2929:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2971:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2929:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9628,14 +7556,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2971; + argtab[3].meltbp_long = 2929; /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FOUNDFLD__V33*/ meltfptr[32]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V36*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2971:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2929:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ meltfptr[36] = 0 ;} @@ -9645,9 +7573,9 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2972:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2930:/ compute"); /*_.FLD__V24*/ meltfptr[23] = /*_.SETQ___V38*/ meltfptr[36] = /*_.FOUNDFLD__V33*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:2970:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2928:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.SETQ___V38*/ meltfptr[36];; @@ -9656,7 +7584,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[34] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2969:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2927:/ clear"); /*clear*/ /*_.IFCPP___V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V38*/ meltfptr[36] = 0 ; @@ -9672,7 +7600,7 @@ lab_endgetargs:; /*_.MULTI___V32*/ meltfptr[31] = /*_.IF___V35*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:2952:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2910:/ clear"); /*clear*/ /*_.IF___V35*/ meltfptr[34] = 0 ; /*^clear*/ @@ -9681,7 +7609,7 @@ lab_endgetargs:; /*clear*/ /*_.FOUNDNAME__V34*/ meltfptr[33] = 0 ; /*_.LET___V26*/ meltfptr[25] = /*_.MULTI___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:2949:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2907:/ clear"); /*clear*/ /*_.CLAFIELDS__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; @@ -9692,7 +7620,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.LET___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2948:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2906:/ clear"); /*clear*/ /*_.LET___V26*/ meltfptr[25] = 0 ;} ; } else {/*^cond.else*/ @@ -9702,13 +7630,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2973:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2931:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2973:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2931:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9719,14 +7647,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2973; + argtab[3].meltbp_long = 2931; /*_.DEBUG_MSG_FUN__V41*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLD__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V40*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V41*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2973:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2931:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ meltfptr[36] = 0 ;} @@ -9740,13 +7668,13 @@ lab_endgetargs:; /*_#NULL__L14*/ meltfnum[9] = ((/*_.FLD__V24*/ meltfptr[23]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2974:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2932:/ cond"); /*cond*/ if (/*_#NULL__L14*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2976:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2934:/ quasiblock"); /*^getslot*/ @@ -9757,13 +7685,13 @@ lab_endgetargs:; meltgc_named_symbol(melt_string_str((melt_ptr_t)(/*_.FLDKWNAM__V44*/ meltfptr[32])), MELT_CREATE);; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2979:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2937:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2979:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2937:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9774,14 +7702,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2979; + argtab[3].meltbp_long = 2937; /*_.DEBUG_MSG_FUN__V47*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLDNAM__V45*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V46*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2979:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2937:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[27] = 0 ;} @@ -9793,17 +7721,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2980:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2938:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L16*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.FLDNAM__V45*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:2980:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2938:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V49*/ meltfptr[31] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2980:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2938:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9814,7 +7742,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fldnam symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2980)?(2980):__LINE__, __FUNCTION__); + (2938)?(2938):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V49*/ meltfptr[31] = 0 ; @@ -9828,7 +7756,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[28] = /*_.IFELSE___V49*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2980:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2938:/ clear"); /*clear*/ /*_#IS_A__L16*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V49*/ meltfptr[31] = 0 ;} @@ -9838,7 +7766,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2981:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2939:/ quasiblock"); /*^apply*/ @@ -9852,13 +7780,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2982:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2940:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2982:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2940:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9869,14 +7797,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2982; + argtab[3].meltbp_long = 2940; /*_.DEBUG_MSG_FUN__V53*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLDBIND__V51*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V52*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V53*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2982:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2940:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ meltfptr[31] = 0 ;} @@ -9890,7 +7818,7 @@ lab_endgetargs:; /*_#NULL__L18*/ meltfnum[11] = ((/*_.FLDBIND__V51*/ meltfptr[36]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:2984:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2942:/ cond"); /*cond*/ if (/*_#NULL__L18*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9898,17 +7826,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:2985:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2943:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "unknown field name in field assignment"), (melt_ptr_t)(/*_.FLDKWNAM__V44*/ meltfptr[32]));} ; - MELT_LOCATION("warmelt-macro.melt:2987:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2945:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:2987:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2945:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2984:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2942:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[55] = /*_.RETURN___V55*/ meltfptr[54];; @@ -9917,7 +7845,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[31] = /*_.PROGN___V56*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2984:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.RETURN___V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V56*/ meltfptr[55] = 0 ;} @@ -9929,13 +7857,13 @@ lab_endgetargs:; /*_#IS_A__L19*/ meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V51*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:2989:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2947:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2990:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2948:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V51*/ meltfptr[36]), 3, "FLBIND_FIELD");/*_.FLBIND_FIELD__V58*/ meltfptr[55] = slot; }; ; @@ -9943,13 +7871,13 @@ lab_endgetargs:; /*_.FLD__V24*/ meltfptr[23] = /*_.SETQ___V59*/ meltfptr[58] = /*_.FLBIND_FIELD__V58*/ meltfptr[55];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2991:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2949:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2991:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2949:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -9960,14 +7888,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2991; + argtab[3].meltbp_long = 2949; /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLD__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V60*/ meltfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2991:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2949:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} @@ -9977,7 +7905,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2989:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2947:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[60] = /*_.IFCPP___V60*/ meltfptr[59];; @@ -9986,7 +7914,7 @@ lab_endgetargs:; /*_.IFELSE___V57*/ meltfptr[54] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2989:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2947:/ clear"); /*clear*/ /*_.FLBIND_FIELD__V58*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V59*/ meltfptr[58] = 0 ; @@ -10002,13 +7930,13 @@ lab_endgetargs:; /*_#IS_A__L21*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V51*/ meltfptr[36]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:2993:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2951:/ cond"); /*cond*/ if (/*_#IS_A__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2994:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2952:/ quasiblock"); /*^getslot*/ @@ -10017,13 +7945,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2995:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2953:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2995:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2953:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10034,14 +7962,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2995; + argtab[3].meltbp_long = 2953; /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VFLD__V65*/ meltfptr[59]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V66*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2995:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2953:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} @@ -10055,28 +7983,28 @@ lab_endgetargs:; /*_#IS_A__L23*/ meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.VFLD__V65*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:2996:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2954:/ cond"); /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2997:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2955:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.VFLD__V65*/ meltfptr[59]), 1, "NAMED_NAME");/*_.VFLDNAM__V70*/ meltfptr[69] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2998:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2956:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDKW__V4*/ meltfptr[3]), 1, "NAMED_NAME");/*_.KWNAM__V71*/ meltfptr[70] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3000:/ compute"); + MELT_LOCATION("warmelt-macro.melt:2958:/ compute"); /*_.FLD__V24*/ meltfptr[23] = /*_.SETQ___V72*/ meltfptr[71] = /*_.VFLD__V65*/ meltfptr[59];; /*_#S__L24*/ meltfnum[23] = !melt_string_same((melt_ptr_t)(/*_.VFLDNAM__V70*/ meltfptr[69]), (melt_ptr_t)(/*_.KWNAM__V71*/ meltfptr[70]));; - MELT_LOCATION("warmelt-macro.melt:3001:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2959:/ cond"); /*cond*/ if (/*_#S__L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10084,15 +8012,15 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3004:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2962:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "obsolete use of synonym field"), (melt_ptr_t)(/*_.KWNAM__V71*/ meltfptr[70]));} ; { - MELT_LOCATION("warmelt-macro.melt:3005:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2963:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "better use real field name"), (melt_ptr_t)(/*_.VFLDNAM__V70*/ meltfptr[69]));} ; - MELT_LOCATION("warmelt-macro.melt:3002:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2960:/ quasiblock"); /*epilog*/ @@ -10102,13 +8030,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3006:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2964:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3006:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2964:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10119,14 +8047,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3006; + argtab[3].meltbp_long = 2964; /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.VFLD__V65*/ meltfptr[59]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V73*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3006:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2964:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = 0 ;} @@ -10140,7 +8068,7 @@ lab_endgetargs:; /*_.LET___V69*/ meltfptr[68] = /*_.VFLD__V65*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:2997:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2955:/ clear"); /*clear*/ /*_.VFLDNAM__V70*/ meltfptr[69] = 0 ; /*^clear*/ /*clear*/ /*_.KWNAM__V71*/ meltfptr[70] = 0 ; @@ -10153,7 +8081,7 @@ lab_endgetargs:; /*_.IF___V68*/ meltfptr[66] = /*_.LET___V69*/ meltfptr[68];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2996:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2954:/ clear"); /*clear*/ /*_.LET___V69*/ meltfptr[68] = 0 ;} ; } else {/*^cond.else*/ @@ -10165,7 +8093,7 @@ lab_endgetargs:; /*_.LET___V64*/ meltfptr[58] = /*_.IF___V68*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:2994:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2952:/ clear"); /*clear*/ /*_.VFLD__V65*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V66*/ meltfptr[60] = 0 ; @@ -10176,7 +8104,7 @@ lab_endgetargs:; /*_.IFELSE___V63*/ meltfptr[55] = /*_.LET___V64*/ meltfptr[58];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2993:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2951:/ clear"); /*clear*/ /*_.LET___V64*/ meltfptr[58] = 0 ;} ; } else {/*^cond.else*/ @@ -10186,17 +8114,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3009:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:2967:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V3*/ meltfptr[2]), ( "bad field name in field assignment"), (melt_ptr_t)(/*_.FLDKWNAM__V44*/ meltfptr[32]));} ; - MELT_LOCATION("warmelt-macro.melt:3011:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2969:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3011:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2969:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3008:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2966:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[69] = /*_.RETURN___V75*/ meltfptr[73];; @@ -10205,7 +8133,7 @@ lab_endgetargs:; /*_.IFELSE___V63*/ meltfptr[55] = /*_.PROGN___V76*/ meltfptr[69];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2993:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2951:/ clear"); /*clear*/ /*_.RETURN___V75*/ meltfptr[73] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V76*/ meltfptr[69] = 0 ;} @@ -10215,7 +8143,7 @@ lab_endgetargs:; /*_.IFELSE___V57*/ meltfptr[54] = /*_.IFELSE___V63*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2989:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2947:/ clear"); /*clear*/ /*_#IS_A__L21*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V63*/ meltfptr[55] = 0 ;} @@ -10225,7 +8153,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[31] = /*_.IFELSE___V57*/ meltfptr[54];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2984:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_#IS_A__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V57*/ meltfptr[54] = 0 ;} @@ -10234,13 +8162,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3013:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2971:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[24] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3013:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2971:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10251,14 +8179,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3013; + argtab[3].meltbp_long = 2971; /*_.DEBUG_MSG_FUN__V78*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLD__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V77*/ meltfptr[70] = /*_.DEBUG_MSG_FUN__V78*/ meltfptr[71];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3013:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2971:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ meltfptr[71] = 0 ;} @@ -10272,7 +8200,7 @@ lab_endgetargs:; /*_.LET___V50*/ meltfptr[25] = /*_.IFCPP___V77*/ meltfptr[70];; - MELT_LOCATION("warmelt-macro.melt:2981:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2939:/ clear"); /*clear*/ /*_.FLDBIND__V51*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V52*/ meltfptr[27] = 0 ; @@ -10284,7 +8212,7 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V77*/ meltfptr[70] = 0 ; /*_.LET___V43*/ meltfptr[34] = /*_.LET___V50*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:2976:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2934:/ clear"); /*clear*/ /*_.FLDKWNAM__V44*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.FLDNAM__V45*/ meltfptr[33] = 0 ; @@ -10297,7 +8225,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[38] = /*_.LET___V43*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2974:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2932:/ clear"); /*clear*/ /*_.LET___V43*/ meltfptr[34] = 0 ;} ; } else {/*^cond.else*/ @@ -10307,17 +8235,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3016:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2974:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L27*/ meltfnum[23] = melt_is_instance_of((melt_ptr_t)(/*_.FLD__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:3016:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2974:/ cond"); /*cond*/ if (/*_#IS_A__L27*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V80*/ meltfptr[68] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3016:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2974:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10328,7 +8256,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3016)?(3016):__LINE__, __FUNCTION__); + (2974)?(2974):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V80*/ meltfptr[68] = 0 ; @@ -10342,7 +8270,7 @@ lab_endgetargs:; /*_.IFCPP___V79*/ meltfptr[72] = /*_.IFELSE___V80*/ meltfptr[68];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3016:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2974:/ clear"); /*clear*/ /*_#IS_A__L27*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V80*/ meltfptr[68] = 0 ;} @@ -10352,7 +8280,7 @@ lab_endgetargs:; /*_.IFCPP___V79*/ meltfptr[72] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3017:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2975:/ quasiblock"); /*^apply*/ @@ -10366,7 +8294,7 @@ lab_endgetargs:; /*_.XEX__V82*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.EXPR__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3018:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2976:/ quasiblock"); /*^rawallocobj*/ @@ -10393,13 +8321,13 @@ lab_endgetargs:; /*_.FA__V83*/ meltfptr[66] = /*_.INST__V84*/ meltfptr[58];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3024:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2982:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[21] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3024:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2982:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10410,14 +8338,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3024; + argtab[3].meltbp_long = 2982; /*_.DEBUG_MSG_FUN__V86*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FA__V83*/ meltfptr[66]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V85*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V86*/ meltfptr[69];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3024:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ meltfptr[69] = 0 ;} @@ -10427,16 +8355,16 @@ lab_endgetargs:; /*_.IFCPP___V85*/ meltfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3025:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2983:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.FA__V83*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:3025:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2983:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V81*/ meltfptr[59] = /*_.RETURN___V87*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:3017:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2975:/ clear"); /*clear*/ /*_.XEX__V82*/ meltfptr[60] = 0 ; /*^clear*/ /*clear*/ /*_.FA__V83*/ meltfptr[66] = 0 ; @@ -10446,7 +8374,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V87*/ meltfptr[55] = 0 ; /*_.LET___V23*/ meltfptr[21] = /*_.LET___V81*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:2946:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2904:/ clear"); /*clear*/ /*_.FLD__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[5] = 0 ; @@ -10462,11 +8390,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V79*/ meltfptr[72] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V81*/ meltfptr[59] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2933:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2891:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:2933:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2891:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10501,14 +8429,14 @@ melt_trace_end("PARSE_FIELD_ASSIGNMENT", meltcallcount); melt_topframe = (struc #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT*/ +} /*end meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10521,7 +8449,7 @@ meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_47_warmelt_macro_LAMBDA__st { + struct frame_meltrout_46_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10555,7 +8483,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:2956:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2914:/ getarg"); /*_.CURFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10571,17 +8499,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2957:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2915:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:2957:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2915:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:2957:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2915:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10592,7 +8520,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (2957)?(2957):__LINE__, __FUNCTION__); + (2915)?(2915):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -10606,7 +8534,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2957:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2915:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -10616,20 +8544,20 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2958:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2916:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.CURFLDNAM__V6*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:2962:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2920:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~FLDKW*/ meltfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ meltfptr[6] = slot; }; ; /*_#S__L3*/ meltfnum[1] = melt_string_same((melt_ptr_t)(/*_.CURFLDNAM__V6*/ meltfptr[5]), (melt_ptr_t)(/*_.NAMED_NAME__V7*/ meltfptr[6]));; - MELT_LOCATION("warmelt-macro.melt:2961:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2919:/ cond"); /*cond*/ if (/*_#S__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10637,13 +8565,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2963:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2921:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2963:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2921:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10654,14 +8582,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2963; + argtab[3].meltbp_long = 2921; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2963:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2921:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -10673,13 +8601,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:2964:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2922:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:2964:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2922:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10690,14 +8618,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 2964; + argtab[3].meltbp_long = 2922; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURFLDNAM__V6*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2964:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2922:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -10707,11 +8635,11 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:2965:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2923:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:2965:/ putxtraresult"); + MELT_LOCATION("warmelt-macro.melt:2923:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != MELTBPAR_PTR) goto labend_rout; if (xrestab_[0].meltbp_aptr) *(xrestab_[0].meltbp_aptr) = (melt_ptr_t) (/*_.CURFLDNAM__V6*/ meltfptr[5]); @@ -10719,7 +8647,7 @@ lab_endgetargs:; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2961:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2919:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[13] = /*_.RETURN___V13*/ meltfptr[11];; @@ -10728,7 +8656,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2961:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2919:/ clear"); /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; @@ -10742,14 +8670,14 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:2968:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2926:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*!konst_2_TRUE*/ meltfrout->tabval[2]);; - MELT_LOCATION("warmelt-macro.melt:2968:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2926:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:2966:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2924:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[9] = /*_.RETURN___V15*/ meltfptr[8];; @@ -10758,7 +8686,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V16*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:2961:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2919:/ clear"); /*clear*/ /*_.RETURN___V15*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V16*/ meltfptr[9] = 0 ;} @@ -10767,7 +8695,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V8*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:2958:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2916:/ clear"); /*clear*/ /*_.CURFLDNAM__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V7*/ meltfptr[6] = 0 ; @@ -10775,11 +8703,11 @@ lab_endgetargs:; /*clear*/ /*_#S__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - MELT_LOCATION("warmelt-macro.melt:2956:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2914:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:2956:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2914:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10798,14 +8726,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_47_warmelt_macro_LAMBDA_*/ +} /*end meltrout_46_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10818,7 +8746,7 @@ meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE_st { + struct frame_meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10852,7 +8780,7 @@ melt_trace_start("MEXPAND_DEFINSTANCE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3029:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:2987:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10877,17 +8805,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3030:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2988:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3030:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2988:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3030:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2988:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10898,7 +8826,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3030)?(3030):__LINE__, __FUNCTION__); + (2988)?(2988):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -10912,7 +8840,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3030:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2988:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -10924,17 +8852,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3031:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2989:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3031:/ cond"); + MELT_LOCATION("warmelt-macro.melt:2989:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3031:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:2989:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10945,7 +8873,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3031)?(3031):__LINE__, __FUNCTION__); + (2989)?(2989):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -10959,7 +8887,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3031:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2989:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -10971,13 +8899,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3032:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:2990:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3032:/ apply"); + MELT_LOCATION("warmelt-macro.melt:2990:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10988,14 +8916,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3032; + argtab[3].meltbp_long = 2990; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3032:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2990:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -11005,7 +8933,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3033:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2991:/ quasiblock"); /*_.PREDEF__V12*/ meltfptr[11] = (/*nil*/NULL);; @@ -11018,11 +8946,11 @@ lab_endgetargs:; /*^compute*/ /*_.FIELDNAMS__V15*/ meltfptr[14] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3037:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2995:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3038:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:2996:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ meltfptr[16] = slot; }; ; @@ -11052,7 +8980,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3046:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3004:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11060,7 +8988,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3047:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3005:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "missing symbol for DEFINSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11070,9 +8998,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V25*/ meltfptr[24] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3048:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3006:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3049:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3007:/ quasiblock"); /*_.NAM__V28*/ meltfptr[27] = @@ -11081,7 +9009,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.NAM__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3050:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3008:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11089,7 +9017,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3051:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3009:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "missing class name for DEFINSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11097,7 +9025,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3052:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3010:/ quasiblock"); /*^apply*/ @@ -11115,21 +9043,21 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:3056:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3014:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3057:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3015:/ compute"); /*_.CLABIND__V23*/ meltfptr[22] = /*_.SETQ___V33*/ meltfptr[32] = /*_.BND__V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3058:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3016:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V30*/ meltfptr[29]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V34*/ meltfptr[33] = slot; }; ; /*^compute*/ /*_.CLA__V22*/ meltfptr[21] = /*_.SETQ___V35*/ meltfptr[34] = /*_.CBIND_CLASS__V34*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:3056:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3014:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.SETQ___V35*/ meltfptr[34];; @@ -11138,7 +9066,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3056:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3014:/ clear"); /*clear*/ /*_.SETQ___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V34*/ meltfptr[33] = 0 ; @@ -11154,13 +9082,13 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:3059:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3017:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3060:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3018:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V30*/ meltfptr[29]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V37*/ meltfptr[32] = slot; }; ; @@ -11171,7 +9099,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3059:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3017:/ clear"); /*clear*/ /*_.VBIND_VALUE__V37*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ;} @@ -11181,21 +9109,21 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:3059:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3017:/ cond"); /*cond*/ if (/*_#IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3061:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3019:/ compute"); /*_.CLABIND__V23*/ meltfptr[22] = /*_.SETQ___V39*/ meltfptr[34] = /*_.BND__V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3062:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3020:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V30*/ meltfptr[29]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V40*/ meltfptr[35] = slot; }; ; /*^compute*/ /*_.CLA__V22*/ meltfptr[21] = /*_.SETQ___V41*/ meltfptr[32] = /*_.VBIND_VALUE__V40*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:3059:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3017:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[41] = /*_.SETQ___V41*/ meltfptr[32];; @@ -11204,7 +9132,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[33] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3059:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3017:/ clear"); /*clear*/ /*_.SETQ___V39*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.VBIND_VALUE__V40*/ meltfptr[35] = 0 ; @@ -11218,23 +9146,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3065:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3023:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V28*/ meltfptr[27]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ meltfptr[34] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3064:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3022:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "invalid class name for DEFINSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V43*/ meltfptr[34]));} ; - MELT_LOCATION("warmelt-macro.melt:3066:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3024:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3066:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3024:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3063:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3021:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[32] = /*_.RETURN___V44*/ meltfptr[35];; @@ -11243,7 +9171,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[33] = /*_.PROGN___V45*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3059:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3017:/ clear"); /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V44*/ meltfptr[35] = 0 ; @@ -11255,7 +9183,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[31] = /*_.IFELSE___V38*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3056:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3014:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L8*/ meltfnum[7] = 0 ; @@ -11264,21 +9192,21 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-macro.melt:3068:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3026:/ compute"); /*_.CLANAME__V21*/ meltfptr[20] = /*_.SETQ___V46*/ meltfptr[41] = /*_.NAM__V28*/ meltfptr[27];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3069:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3027:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:3069:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3027:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V48*/ meltfptr[35] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3069:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3027:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11289,7 +9217,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3069)?(3069):__LINE__, __FUNCTION__); + (3027)?(3027):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V48*/ meltfptr[35] = 0 ; @@ -11303,7 +9231,7 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[34] = /*_.IFELSE___V48*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3069:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3027:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V48*/ meltfptr[35] = 0 ;} @@ -11317,9 +9245,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V49*/ meltfptr[32] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3070:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3028:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V50*/ meltfptr[33] = /*_.PAIR_TAIL__V49*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:3071:/ loop"); + MELT_LOCATION("warmelt-macro.melt:3029:/ loop"); /*loop*/{ labloop_INSLOOP_1:;/*^loopbody*/ /*^block*/ @@ -11331,7 +9259,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[7] = (!(/*_#IS_PAIR__L11*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:3072:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3030:/ cond"); /*cond*/ if (/*_#NOT__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11352,7 +9280,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3073:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3031:/ quasiblock"); /*_.CURFKW__V54*/ meltfptr[53] = @@ -11361,7 +9289,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L13*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V54*/ meltfptr[53]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:3074:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3032:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11369,7 +9297,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3075:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3033:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "expecting keyword in DEFINSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11379,9 +9307,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V55*/ meltfptr[54] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3076:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3034:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V56*/ meltfptr[55] = /*_.PAIR_TAIL__V55*/ meltfptr[54];; - MELT_LOCATION("warmelt-macro.melt:3077:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3035:/ quasiblock"); /*_.CUREXP__V58*/ meltfptr[57] = @@ -11390,13 +9318,13 @@ lab_endgetargs:; /*_#__L14*/ meltfnum[13] = ((/*_.CURFKW__V54*/ meltfptr[53]) == ((/*!konst_10_OBJ_NUM*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:3078:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3036:/ cond"); /*cond*/ if (/*_#__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3079:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3037:/ cond"); /*cond*/ if (/*_.OBJNUM__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11414,13 +9342,13 @@ lab_endgetargs:; ; /*_#IS_A__L15*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V58*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3081:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3039:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3082:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3040:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11434,7 +9362,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[59] = /*_.MACROEXPAND_1__V61*/ meltfptr[60];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3081:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3039:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V61*/ meltfptr[60] = 0 ;} ; } else {/*^cond.else*/ @@ -11442,9 +9370,9 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[59] = /*_.CUREXP__V58*/ meltfptr[57];; } ; - MELT_LOCATION("warmelt-macro.melt:3080:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3038:/ compute"); /*_.OBJNUM__V13*/ meltfptr[12] = /*_.SETQ___V62*/ meltfptr[60] = /*_.IFELSE___V60*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:3078:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3036:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[62] = /*_.SETQ___V62*/ meltfptr[60];; @@ -11453,7 +9381,7 @@ lab_endgetargs:; /*_.IFELSE___V59*/ meltfptr[58] = /*_.PROGN___V63*/ meltfptr[62];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3078:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3036:/ clear"); /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V60*/ meltfptr[59] = 0 ; @@ -11469,13 +9397,13 @@ lab_endgetargs:; /*_#__L16*/ meltfnum[14] = ((/*_.CURFKW__V54*/ meltfptr[53]) == ((/*!konst_12_PREDEF*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:3085:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3043:/ cond"); /*cond*/ if (/*_#__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3086:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3044:/ cond"); /*cond*/ if (/*_.PREDEF__V12*/ meltfptr[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11493,13 +9421,13 @@ lab_endgetargs:; ; /*_#IS_A__L17*/ meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V58*/ meltfptr[57]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3088:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3046:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3089:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3047:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11513,7 +9441,7 @@ lab_endgetargs:; /*_.IFELSE___V65*/ meltfptr[60] = /*_.MACROEXPAND_1__V66*/ meltfptr[62];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3088:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3046:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ meltfptr[62] = 0 ;} ; } else {/*^cond.else*/ @@ -11521,9 +9449,9 @@ lab_endgetargs:; /*_.IFELSE___V65*/ meltfptr[60] = /*_.CUREXP__V58*/ meltfptr[57];; } ; - MELT_LOCATION("warmelt-macro.melt:3087:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3045:/ compute"); /*_.PREDEF__V12*/ meltfptr[11] = /*_.SETQ___V67*/ meltfptr[62] = /*_.IFELSE___V65*/ meltfptr[60];; - MELT_LOCATION("warmelt-macro.melt:3085:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3043:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[67] = /*_.SETQ___V67*/ meltfptr[62];; @@ -11532,7 +9460,7 @@ lab_endgetargs:; /*_.IFELSE___V64*/ meltfptr[59] = /*_.PROGN___V68*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3085:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V65*/ meltfptr[60] = 0 ; @@ -11548,13 +9476,13 @@ lab_endgetargs:; /*_#__L18*/ meltfnum[16] = ((/*_.CURFKW__V54*/ meltfptr[53]) == ((/*!konst_13_DOC*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:3092:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3050:/ cond"); /*cond*/ if (/*_#__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3093:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3051:/ cond"); /*cond*/ if (/*_.DOCV__V24*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11570,9 +9498,9 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3094:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3052:/ compute"); /*_.DOCV__V24*/ meltfptr[23] = /*_.SETQ___V70*/ meltfptr[62] = /*_.CUREXP__V58*/ meltfptr[57];; - MELT_LOCATION("warmelt-macro.melt:3092:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3050:/ quasiblock"); /*_.PROGN___V71*/ meltfptr[67] = /*_.SETQ___V70*/ meltfptr[62];; @@ -11581,7 +9509,7 @@ lab_endgetargs:; /*_.IFELSE___V69*/ meltfptr[60] = /*_.PROGN___V71*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3092:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3050:/ clear"); /*clear*/ /*_.SETQ___V70*/ meltfptr[62] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V71*/ meltfptr[67] = 0 ;} @@ -11591,7 +9519,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3097:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3055:/ quasiblock"); /*^apply*/ @@ -11611,7 +9539,7 @@ lab_endgetargs:; /*_.FLDA__V72*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.CLA__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3098:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3056:/ cond"); /*cond*/ if (/*_.FLDA__V72*/ meltfptr[62]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11619,7 +9547,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3099:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3057:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V31*/ meltfptr[30]), (melt_ptr_t)(/*_.FLDA__V72*/ meltfptr[62]));} ; /*epilog*/ @@ -11628,9 +9556,9 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3097:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3055:/ clear"); /*clear*/ /*_.FLDA__V72*/ meltfptr[62] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3096:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3054:/ quasiblock"); /*epilog*/ @@ -11641,7 +9569,7 @@ lab_endgetargs:; /*_.IFELSE___V64*/ meltfptr[59] = /*_.IFELSE___V69*/ meltfptr[60];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3085:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_#__L18*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V69*/ meltfptr[60] = 0 ;} @@ -11651,7 +9579,7 @@ lab_endgetargs:; /*_.IFELSE___V59*/ meltfptr[58] = /*_.IFELSE___V64*/ meltfptr[59];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3078:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3036:/ clear"); /*clear*/ /*_#__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V64*/ meltfptr[59] = 0 ;} @@ -11660,7 +9588,7 @@ lab_endgetargs:; ; /*_.LET___V57*/ meltfptr[56] = /*_.IFELSE___V59*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:3077:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3035:/ clear"); /*clear*/ /*_.CUREXP__V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_#__L14*/ meltfnum[13] = 0 ; @@ -11668,11 +9596,11 @@ lab_endgetargs:; /*clear*/ /*_.IFELSE___V59*/ meltfptr[58] = 0 ; /*_.PAIR_TAIL__V73*/ meltfptr[67] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3102:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3060:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V74*/ meltfptr[62] = /*_.PAIR_TAIL__V73*/ meltfptr[67];; /*_.LET___V53*/ meltfptr[52] = /*_.SETQ___V74*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:3073:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3031:/ clear"); /*clear*/ /*_.CURFKW__V54*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L13*/ meltfnum[8] = 0 ; @@ -11688,7 +9616,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V74*/ meltfptr[62] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3071:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3029:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L12*/ meltfnum[7] = 0 ; @@ -11702,7 +9630,7 @@ lab_endgetargs:; /*_.FOREVER___V51*/ meltfptr[35] = /*_.INSLOOP__V52*/ meltfptr[51];; } ; - MELT_LOCATION("warmelt-macro.melt:3104:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3062:/ quasiblock"); /*^apply*/ @@ -11714,7 +9642,7 @@ lab_endgetargs:; /*_.FASTUP__V76*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.FLDLIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3106:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3064:/ quasiblock"); /*^rawallocobj*/ @@ -11764,7 +9692,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V78*/ meltfptr[58]), (8), (/*_.FASTUP__V76*/ meltfptr[59]), "SINST_FIELDS"); ; /*_.SINST__V77*/ meltfptr[57] = /*_.INST__V78*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:3117:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3075:/ quasiblock"); /*^rawallocobj*/ @@ -11784,7 +9712,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V80*/ meltfptr[54]), (2), (/*_.CLA__V22*/ meltfptr[21]), "IBIND_ICLASS"); ; /*_.IBIND__V79*/ meltfptr[53] = /*_.INST__V80*/ meltfptr[54];; - MELT_LOCATION("warmelt-macro.melt:3122:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3080:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11795,7 +9723,7 @@ lab_endgetargs:; /*_.WARN_IF_REDEFINED__V81*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3123:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3081:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -11806,13 +9734,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3124:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3082:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[16] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3124:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3082:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11823,14 +9751,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3124; + argtab[3].meltbp_long = 3082; /*_.DEBUG_MSG_FUN__V84*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SINST__V77*/ meltfptr[57]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V83*/ meltfptr[67] = /*_.DEBUG_MSG_FUN__V84*/ meltfptr[62];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3124:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3082:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ meltfptr[62] = 0 ;} @@ -11840,16 +9768,16 @@ lab_endgetargs:; /*_.IFCPP___V83*/ meltfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3125:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3083:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SINST__V77*/ meltfptr[57];; - MELT_LOCATION("warmelt-macro.melt:3125:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3083:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V75*/ meltfptr[60] = /*_.RETURN___V85*/ meltfptr[52];; - MELT_LOCATION("warmelt-macro.melt:3104:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.FASTUP__V76*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.SINST__V77*/ meltfptr[57] = 0 ; @@ -11865,7 +9793,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V85*/ meltfptr[52] = 0 ; /*_.LET___V29*/ meltfptr[28] = /*_.LET___V75*/ meltfptr[60];; - MELT_LOCATION("warmelt-macro.melt:3052:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3010:/ clear"); /*clear*/ /*_.BND__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.FLDLIST__V31*/ meltfptr[30] = 0 ; @@ -11887,7 +9815,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V75*/ meltfptr[60] = 0 ; /*_.LET___V27*/ meltfptr[26] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:3049:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3007:/ clear"); /*clear*/ /*_.NAM__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[4] = 0 ; @@ -11895,7 +9823,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V29*/ meltfptr[28] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3033:/ clear"); + MELT_LOCATION("warmelt-macro.melt:2991:/ clear"); /*clear*/ /*_.PREDEF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.OBJNUM__V13*/ meltfptr[12] = 0 ; @@ -11929,11 +9857,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3029:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:2987:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3029:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:2987:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11956,14 +9884,14 @@ melt_trace_end("MEXPAND_DEFINSTANCE", meltcallcount); melt_topframe = (struct c #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE*/ +} /*end meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11976,7 +9904,7 @@ meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR_st { + struct frame_meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12010,7 +9938,7 @@ melt_trace_start("MEXPAND_DEFSELECTOR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3137:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3095:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -12035,17 +9963,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3138:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3096:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3138:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3096:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3138:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3096:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12056,7 +9984,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3138)?(3138):__LINE__, __FUNCTION__); + (3096)?(3096):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -12070,7 +9998,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3138:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3096:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12082,17 +10010,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3139:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3097:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3139:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3097:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3139:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3097:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12103,7 +10031,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3139)?(3139):__LINE__, __FUNCTION__); + (3097)?(3097):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12117,7 +10045,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3139:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3097:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12129,13 +10057,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3140:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3098:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3140:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3098:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12146,14 +10074,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3140; + argtab[3].meltbp_long = 3098; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3140:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3098:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -12163,7 +10091,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3141:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3099:/ quasiblock"); /*_.PREDEF__V12*/ meltfptr[11] = (/*nil*/NULL);; @@ -12176,11 +10104,11 @@ lab_endgetargs:; /*^compute*/ /*_.FIELDNAMS__V15*/ meltfptr[14] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3145:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3103:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3146:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3104:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ meltfptr[16] = slot; }; ; @@ -12213,7 +10141,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3155:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3113:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12221,17 +10149,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3157:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3115:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "missing symbol for (DEFSELECTOR ...)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3158:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3116:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3158:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3116:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3156:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3114:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; @@ -12240,7 +10168,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3155:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3113:/ clear"); /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V28*/ meltfptr[27] = 0 ;} @@ -12254,9 +10182,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V29*/ meltfptr[26] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3159:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3117:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V30*/ meltfptr[27] = /*_.PAIR_TAIL__V29*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3160:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3118:/ quasiblock"); /*_.NAM__V32*/ meltfptr[31] = @@ -12265,7 +10193,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.NAM__V32*/ meltfptr[31]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3161:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3119:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12273,17 +10201,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3163:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3121:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "missing class name for (DEFSELECTOR ...)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3164:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3122:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3164:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3122:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3162:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3120:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];; @@ -12292,7 +10220,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3161:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.RETURN___V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V35*/ meltfptr[34] = 0 ;} @@ -12302,17 +10230,17 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3165:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3123:/ compute"); /*_.CLANAME__V21*/ meltfptr[20] = /*_.SETQ___V36*/ meltfptr[33] = /*_.NAM__V32*/ meltfptr[31];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3166:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3124:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3166:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3124:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12323,14 +10251,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3166; + argtab[3].meltbp_long = 3124; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLANAME__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3166:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3124:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} @@ -12340,7 +10268,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3167:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3125:/ quasiblock"); /*^apply*/ @@ -12358,21 +10286,21 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:3171:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3129:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3172:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3130:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V43*/ meltfptr[42] = /*_.BND__V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:3173:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3131:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V44*/ meltfptr[43] = slot; }; ; /*^compute*/ /*_.CLA__V22*/ meltfptr[21] = /*_.SETQ___V45*/ meltfptr[44] = /*_.CBIND_CLASS__V44*/ meltfptr[43];; - MELT_LOCATION("warmelt-macro.melt:3171:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3129:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; @@ -12381,7 +10309,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[41] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3171:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3129:/ clear"); /*clear*/ /*_.SETQ___V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V44*/ meltfptr[43] = 0 ; @@ -12397,13 +10325,13 @@ lab_endgetargs:; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:3174:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3132:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3175:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3133:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V47*/ meltfptr[42] = slot; }; ; @@ -12414,7 +10342,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3174:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3132:/ clear"); /*clear*/ /*_.VBIND_VALUE__V47*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ;} @@ -12424,21 +10352,21 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:3174:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3132:/ cond"); /*cond*/ if (/*_#IF___L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3176:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3134:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V49*/ meltfptr[44] = /*_.BND__V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:3177:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3135:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V50*/ meltfptr[45] = slot; }; ; /*^compute*/ /*_.CLA__V22*/ meltfptr[21] = /*_.SETQ___V51*/ meltfptr[42] = /*_.VBIND_VALUE__V50*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:3174:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3132:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[51] = /*_.SETQ___V51*/ meltfptr[42];; @@ -12447,7 +10375,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[43] = /*_.PROGN___V52*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3174:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3132:/ clear"); /*clear*/ /*_.SETQ___V49*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.VBIND_VALUE__V50*/ meltfptr[45] = 0 ; @@ -12463,7 +10391,7 @@ lab_endgetargs:; /*_#NOTNULL__L11*/ meltfnum[9] = ((/*_.BND__V40*/ meltfptr[39]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:3178:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3136:/ cond"); /*cond*/ if (/*_#NOTNULL__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12471,13 +10399,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3179:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3137:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3179:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3137:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12488,14 +10416,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3179; + argtab[3].meltbp_long = 3137; /*_.DEBUG_MSG_FUN__V55*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BND__V40*/ meltfptr[39]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V54*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V55*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3179:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3137:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ meltfptr[42] = 0 ;} @@ -12505,23 +10433,23 @@ lab_endgetargs:; /*_.IFCPP___V54*/ meltfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3181:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3139:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V21*/ meltfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V56*/ meltfptr[51] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3180:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3138:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "invalid class name for (DEFSELECTOR ...)"), (melt_ptr_t)(/*_.NAMED_NAME__V56*/ meltfptr[51]));} ; - MELT_LOCATION("warmelt-macro.melt:3182:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3140:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3182:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3140:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3178:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3136:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[57] = /*_.RETURN___V57*/ meltfptr[42];; @@ -12530,7 +10458,7 @@ lab_endgetargs:; /*_.IFELSE___V53*/ meltfptr[44] = /*_.PROGN___V58*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3178:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3136:/ clear"); /*clear*/ /*_.IFCPP___V54*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V56*/ meltfptr[51] = 0 ; @@ -12544,23 +10472,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3185:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3143:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V21*/ meltfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V59*/ meltfptr[45] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3184:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3142:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "unknown class name for (DEFSELECTOR ...)"), (melt_ptr_t)(/*_.NAMED_NAME__V59*/ meltfptr[45]));} ; - MELT_LOCATION("warmelt-macro.melt:3186:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3144:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3186:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3144:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3183:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3141:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[42] = /*_.RETURN___V60*/ meltfptr[51];; @@ -12569,7 +10497,7 @@ lab_endgetargs:; /*_.IFELSE___V53*/ meltfptr[44] = /*_.PROGN___V61*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3178:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3136:/ clear"); /*clear*/ /*_.NAMED_NAME__V59*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V60*/ meltfptr[51] = 0 ; @@ -12581,7 +10509,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[43] = /*_.IFELSE___V53*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3174:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3132:/ clear"); /*clear*/ /*_#NOTNULL__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V53*/ meltfptr[44] = 0 ;} @@ -12591,7 +10519,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[41] = /*_.IFELSE___V48*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3171:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3129:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L9*/ meltfnum[8] = 0 ; @@ -12602,13 +10530,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3189:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3147:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3189:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3147:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12619,14 +10547,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3189; + argtab[3].meltbp_long = 3147; /*_.DEBUG_MSG_FUN__V63*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLA__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V62*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3189:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3147:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[45] = 0 ;} @@ -12644,7 +10572,7 @@ lab_endgetargs:; /*_#NOT__L15*/ meltfnum[7] = (!(/*_#SUBCLASS_OR_EQ__L14*/ meltfnum[9]));; - MELT_LOCATION("warmelt-macro.melt:3190:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3148:/ cond"); /*cond*/ if (/*_#NOT__L15*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12652,13 +10580,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3192:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3150:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3192:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3150:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12669,14 +10597,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3192; + argtab[3].meltbp_long = 3150; /*_.DEBUG_MSG_FUN__V66*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_SELECTOR*/ meltfrout->tabval[9])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V65*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V66*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3192:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3150:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ meltfptr[44] = 0 ;} @@ -12686,7 +10614,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3196:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3154:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!MELT_MODE_CONTAINER*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CONTAINER*/ meltfrout->tabval[11])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -12702,36 +10630,36 @@ lab_endgetargs:; /*_#NULL__L17*/ meltfnum[11] = ((/*_.CONTAINER_VALUE__V67*/ meltfptr[43]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:3196:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3154:/ cond"); /*cond*/ if (/*_#NULL__L17*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3198:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3156:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V21*/ meltfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V68*/ meltfptr[45] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3197:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3155:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "invalid class in (DEFSELECTOR ); expecting CLASS_SELECTOR or its subclass"), (melt_ptr_t)(/*_.NAMED_NAME__V68*/ meltfptr[45]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3196:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3154:/ clear"); /*clear*/ /*_.NAMED_NAME__V68*/ meltfptr[45] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3199:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3157:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3199:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3157:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3191:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3149:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[45] = /*_.RETURN___V69*/ meltfptr[44];; @@ -12740,7 +10668,7 @@ lab_endgetargs:; /*_.IF___V64*/ meltfptr[51] = /*_.PROGN___V70*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3190:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3148:/ clear"); /*clear*/ /*_.IFCPP___V65*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.CONTAINER_VALUE__V67*/ meltfptr[43] = 0 ; @@ -12758,17 +10686,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3201:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3159:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L18*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:3201:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3159:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V72*/ meltfptr[43] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3201:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3159:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12779,7 +10707,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3201)?(3201):__LINE__, __FUNCTION__); + (3159)?(3159):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V72*/ meltfptr[43] = 0 ; @@ -12793,7 +10721,7 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[42] = /*_.IFELSE___V72*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3201:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3159:/ clear"); /*clear*/ /*_#IS_A__L18*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V72*/ meltfptr[43] = 0 ;} @@ -12807,9 +10735,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V73*/ meltfptr[44] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3202:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3160:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V74*/ meltfptr[45] = /*_.PAIR_TAIL__V73*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:3203:/ loop"); + MELT_LOCATION("warmelt-macro.melt:3161:/ loop"); /*loop*/{ labloop_INSLOOP_2:;/*^loopbody*/ /*^block*/ @@ -12821,7 +10749,7 @@ lab_endgetargs:; /*_#NOT__L20*/ meltfnum[8] = (!(/*_#IS_PAIR__L19*/ meltfnum[11]));; - MELT_LOCATION("warmelt-macro.melt:3204:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3162:/ cond"); /*cond*/ if (/*_#NOT__L20*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12842,7 +10770,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3205:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3163:/ quasiblock"); /*_.CURFKW__V78*/ meltfptr[77] = @@ -12851,7 +10779,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L21*/ meltfnum[20] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V78*/ meltfptr[77]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:3206:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3164:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12859,7 +10787,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3207:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3165:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "expecting keyword in DEFSELECTOR"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12869,9 +10797,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V79*/ meltfptr[78] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3208:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3166:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V80*/ meltfptr[79] = /*_.PAIR_TAIL__V79*/ meltfptr[78];; - MELT_LOCATION("warmelt-macro.melt:3209:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3167:/ quasiblock"); /*_.CUREXP__V82*/ meltfptr[81] = @@ -12880,13 +10808,13 @@ lab_endgetargs:; /*_#__L22*/ meltfnum[21] = ((/*_.CURFKW__V78*/ meltfptr[77]) == ((/*!konst_13_OBJ_NUM*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:3210:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3168:/ cond"); /*cond*/ if (/*_#__L22*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3211:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3169:/ cond"); /*cond*/ if (/*_.CUREXP__V82*/ meltfptr[81]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12904,13 +10832,13 @@ lab_endgetargs:; ; /*_#IS_A__L23*/ meltfnum[22] = melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V82*/ meltfptr[81]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3213:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3171:/ cond"); /*cond*/ if (/*_#IS_A__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3214:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3172:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12924,7 +10852,7 @@ lab_endgetargs:; /*_.IFELSE___V84*/ meltfptr[83] = /*_.MACROEXPAND_1__V85*/ meltfptr[84];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3213:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3171:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V85*/ meltfptr[84] = 0 ;} ; } else {/*^cond.else*/ @@ -12932,9 +10860,9 @@ lab_endgetargs:; /*_.IFELSE___V84*/ meltfptr[83] = /*_.CUREXP__V82*/ meltfptr[81];; } ; - MELT_LOCATION("warmelt-macro.melt:3212:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3170:/ compute"); /*_.OBJNUM__V13*/ meltfptr[12] = /*_.SETQ___V86*/ meltfptr[84] = /*_.IFELSE___V84*/ meltfptr[83];; - MELT_LOCATION("warmelt-macro.melt:3210:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3168:/ quasiblock"); /*_.PROGN___V87*/ meltfptr[86] = /*_.SETQ___V86*/ meltfptr[84];; @@ -12943,7 +10871,7 @@ lab_endgetargs:; /*_.IFELSE___V83*/ meltfptr[82] = /*_.PROGN___V87*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3210:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_#IS_A__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V84*/ meltfptr[83] = 0 ; @@ -12959,13 +10887,13 @@ lab_endgetargs:; /*_#__L24*/ meltfnum[22] = ((/*_.CURFKW__V78*/ meltfptr[77]) == ((/*!konst_15_PREDEF*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-macro.melt:3217:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3175:/ cond"); /*cond*/ if (/*_#__L24*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3218:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3176:/ cond"); /*cond*/ if (/*_.CUREXP__V82*/ meltfptr[81]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12983,13 +10911,13 @@ lab_endgetargs:; ; /*_#IS_A__L25*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V82*/ meltfptr[81]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3220:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3178:/ cond"); /*cond*/ if (/*_#IS_A__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3221:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3179:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -13003,7 +10931,7 @@ lab_endgetargs:; /*_.IFELSE___V89*/ meltfptr[84] = /*_.MACROEXPAND_1__V90*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3220:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3178:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V90*/ meltfptr[86] = 0 ;} ; } else {/*^cond.else*/ @@ -13011,9 +10939,9 @@ lab_endgetargs:; /*_.IFELSE___V89*/ meltfptr[84] = /*_.CUREXP__V82*/ meltfptr[81];; } ; - MELT_LOCATION("warmelt-macro.melt:3219:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3177:/ compute"); /*_.PREDEF__V12*/ meltfptr[11] = /*_.SETQ___V91*/ meltfptr[86] = /*_.IFELSE___V89*/ meltfptr[84];; - MELT_LOCATION("warmelt-macro.melt:3217:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3175:/ quasiblock"); /*_.PROGN___V92*/ meltfptr[91] = /*_.SETQ___V91*/ meltfptr[86];; @@ -13022,7 +10950,7 @@ lab_endgetargs:; /*_.IFELSE___V88*/ meltfptr[83] = /*_.PROGN___V92*/ meltfptr[91];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3217:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3175:/ clear"); /*clear*/ /*_#IS_A__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V89*/ meltfptr[84] = 0 ; @@ -13038,13 +10966,13 @@ lab_endgetargs:; /*_#__L26*/ meltfnum[24] = ((/*_.CURFKW__V78*/ meltfptr[77]) == ((/*!konst_16_DOC*/ meltfrout->tabval[16])));; - MELT_LOCATION("warmelt-macro.melt:3224:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3182:/ cond"); /*cond*/ if (/*_#__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3225:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3183:/ cond"); /*cond*/ if (/*_.DOCV__V23*/ meltfptr[22]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13060,9 +10988,9 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3226:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3184:/ compute"); /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V94*/ meltfptr[86] = /*_.CUREXP__V82*/ meltfptr[81];; - MELT_LOCATION("warmelt-macro.melt:3224:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3182:/ quasiblock"); /*_.PROGN___V95*/ meltfptr[91] = /*_.SETQ___V94*/ meltfptr[86];; @@ -13071,7 +10999,7 @@ lab_endgetargs:; /*_.IFELSE___V93*/ meltfptr[84] = /*_.PROGN___V95*/ meltfptr[91];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3224:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3182:/ clear"); /*clear*/ /*_.SETQ___V94*/ meltfptr[86] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V95*/ meltfptr[91] = 0 ;} @@ -13083,13 +11011,13 @@ lab_endgetargs:; /*_#__L27*/ meltfnum[26] = ((/*_.CURFKW__V78*/ meltfptr[77]) == ((/*!konst_17_FORMALS*/ meltfrout->tabval[17])));; - MELT_LOCATION("warmelt-macro.melt:3228:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3186:/ cond"); /*cond*/ if (/*_#__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3229:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3187:/ cond"); /*cond*/ if (/*_.FORMALS__V25*/ meltfptr[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13105,7 +11033,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3233:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3191:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -13116,7 +11044,7 @@ lab_endgetargs:; ; /*^compute*/ /*_.FORMALS__V25*/ meltfptr[24] = /*_.SETQ___V98*/ meltfptr[97] = /*_.LAMBDA_ARG_BINDINGS__V97*/ meltfptr[91];; - MELT_LOCATION("warmelt-macro.melt:3234:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3192:/ quasiblock"); /*_.FIRSTF__V100*/ meltfptr[99] = @@ -13125,7 +11053,7 @@ lab_endgetargs:; /*_#NULL__L28*/ meltfnum[27] = ((/*_.FIRSTF__V100*/ meltfptr[99]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:3236:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3194:/ cond"); /*cond*/ if (/*_#NULL__L28*/ meltfnum[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13135,19 +11063,19 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3237:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3195:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( ":formals of DEFSELECTOR should have at least one value argument for the reciever"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V101*/ meltfptr[100] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:3236:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3194:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3238:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3196:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FIRSTF__V100*/ meltfptr[99]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[19])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -13163,7 +11091,7 @@ lab_endgetargs:; /*_#__L29*/ meltfnum[28] = ((/*_.FBIND_TYPE__V102*/ meltfptr[101]) != ((/*!CTYPE_VALUE*/ meltfrout->tabval[20])));; - MELT_LOCATION("warmelt-macro.melt:3238:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3196:/ cond"); /*cond*/ if (/*_#__L29*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13173,14 +11101,14 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3239:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3197:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ meltfptr[16]), ( "first :formals of DEFSELECTOR should be a :value"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V103*/ meltfptr[102] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:3238:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3196:/ cond.else"); /*_.IFELSE___V103*/ meltfptr[102] = NULL;; } @@ -13190,7 +11118,7 @@ lab_endgetargs:; /*_.IFELSE___V101*/ meltfptr[100] = /*_.IFELSE___V103*/ meltfptr[102];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3236:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3194:/ clear"); /*clear*/ /*_.FBIND_TYPE__V102*/ meltfptr[101] = 0 ; /*^clear*/ /*clear*/ /*_#__L29*/ meltfnum[28] = 0 ; @@ -13201,13 +11129,13 @@ lab_endgetargs:; ; /*_.LET___V99*/ meltfptr[98] = /*_.IFELSE___V101*/ meltfptr[100];; - MELT_LOCATION("warmelt-macro.melt:3234:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3192:/ clear"); /*clear*/ /*_.FIRSTF__V100*/ meltfptr[99] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L28*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V101*/ meltfptr[100] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3228:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3186:/ quasiblock"); /*_.PROGN___V104*/ meltfptr[101] = /*_.LET___V99*/ meltfptr[98];; @@ -13216,7 +11144,7 @@ lab_endgetargs:; /*_.IFELSE___V96*/ meltfptr[86] = /*_.PROGN___V104*/ meltfptr[101];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3228:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3186:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V97*/ meltfptr[91] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V98*/ meltfptr[97] = 0 ; @@ -13230,7 +11158,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3242:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3200:/ quasiblock"); /*^apply*/ @@ -13250,7 +11178,7 @@ lab_endgetargs:; /*_.FLDA__V105*/ meltfptr[102] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.CLA__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3243:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3201:/ cond"); /*cond*/ if (/*_.FLDA__V105*/ meltfptr[102]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13258,7 +11186,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3244:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3202:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V41*/ meltfptr[40]), (melt_ptr_t)(/*_.FLDA__V105*/ meltfptr[102]));} ; /*epilog*/ @@ -13267,9 +11195,9 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3242:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3200:/ clear"); /*clear*/ /*_.FLDA__V105*/ meltfptr[102] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3241:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3199:/ quasiblock"); /*epilog*/ @@ -13280,7 +11208,7 @@ lab_endgetargs:; /*_.IFELSE___V93*/ meltfptr[84] = /*_.IFELSE___V96*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3224:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3182:/ clear"); /*clear*/ /*_#__L27*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V96*/ meltfptr[86] = 0 ;} @@ -13290,7 +11218,7 @@ lab_endgetargs:; /*_.IFELSE___V88*/ meltfptr[83] = /*_.IFELSE___V93*/ meltfptr[84];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3217:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3175:/ clear"); /*clear*/ /*_#__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V93*/ meltfptr[84] = 0 ;} @@ -13300,7 +11228,7 @@ lab_endgetargs:; /*_.IFELSE___V83*/ meltfptr[82] = /*_.IFELSE___V88*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3210:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_#__L24*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V88*/ meltfptr[83] = 0 ;} @@ -13309,7 +11237,7 @@ lab_endgetargs:; ; /*_.LET___V81*/ meltfptr[80] = /*_.IFELSE___V83*/ meltfptr[82];; - MELT_LOCATION("warmelt-macro.melt:3209:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3167:/ clear"); /*clear*/ /*_.CUREXP__V82*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_#__L22*/ meltfnum[21] = 0 ; @@ -13317,11 +11245,11 @@ lab_endgetargs:; /*clear*/ /*_.IFELSE___V83*/ meltfptr[82] = 0 ; /*_.PAIR_TAIL__V106*/ meltfptr[99] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3247:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3205:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V107*/ meltfptr[100] = /*_.PAIR_TAIL__V106*/ meltfptr[99];; /*_.LET___V77*/ meltfptr[76] = /*_.SETQ___V107*/ meltfptr[100];; - MELT_LOCATION("warmelt-macro.melt:3205:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3163:/ clear"); /*clear*/ /*_.CURFKW__V78*/ meltfptr[77] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L21*/ meltfnum[20] = 0 ; @@ -13337,7 +11265,7 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V107*/ meltfptr[100] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3203:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3161:/ clear"); /*clear*/ /*_#IS_PAIR__L19*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L20*/ meltfnum[8] = 0 ; @@ -13351,7 +11279,7 @@ lab_endgetargs:; /*_.FOREVER___V75*/ meltfptr[43] = /*_.INSLOOP__V76*/ meltfptr[75];; } ; - MELT_LOCATION("warmelt-macro.melt:3249:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3207:/ quasiblock"); /*^apply*/ @@ -13363,7 +11291,7 @@ lab_endgetargs:; /*_.FASTUP__V109*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.FLDLIST__V41*/ meltfptr[40]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3250:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3208:/ quasiblock"); /*^rawallocobj*/ @@ -13413,7 +11341,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V111*/ meltfptr[101]), (9), (/*_.FORMALS__V25*/ meltfptr[24]), "SDEFSEL_FORMALS"); ; /*_.RES__V110*/ meltfptr[98] = /*_.INST__V111*/ meltfptr[101];; - MELT_LOCATION("warmelt-macro.melt:3260:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3218:/ quasiblock"); /*^rawallocobj*/ @@ -13433,7 +11361,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V113*/ meltfptr[86]), (2), (/*_.RES__V110*/ meltfptr[98]), "SBIND_SELECTORDEF"); ; /*_.SELBIND__V112*/ meltfptr[102] = /*_.INST__V113*/ meltfptr[86];; - MELT_LOCATION("warmelt-macro.melt:3265:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3223:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -13444,7 +11372,7 @@ lab_endgetargs:; /*_.WARN_IF_REDEFINED__V114*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ meltfrout->tabval[26])), (melt_ptr_t)(/*_.SYMB__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3266:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3224:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -13455,7 +11383,7 @@ lab_endgetargs:; ; /*_.LET___V108*/ meltfptr[91] = /*_.RES__V110*/ meltfptr[98];; - MELT_LOCATION("warmelt-macro.melt:3249:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3207:/ clear"); /*clear*/ /*_.FASTUP__V109*/ meltfptr[97] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V110*/ meltfptr[98] = 0 ; @@ -13467,7 +11395,7 @@ lab_endgetargs:; /*clear*/ /*_.PUT_ENV__V115*/ meltfptr[83] = 0 ; /*_.LET___V39*/ meltfptr[37] = /*_.LET___V108*/ meltfptr[91];; - MELT_LOCATION("warmelt-macro.melt:3167:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3125:/ clear"); /*clear*/ /*_.BND__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.FLDLIST__V41*/ meltfptr[40] = 0 ; @@ -13495,7 +11423,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V108*/ meltfptr[91] = 0 ; /*_.LET___V31*/ meltfptr[30] = /*_.LET___V39*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:3160:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3118:/ clear"); /*clear*/ /*_.NAM__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[4] = 0 ; @@ -13509,7 +11437,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V39*/ meltfptr[37] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:3141:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3099:/ clear"); /*clear*/ /*_.PREDEF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.OBJNUM__V13*/ meltfptr[12] = 0 ; @@ -13547,11 +11475,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V30*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V31*/ meltfptr[30] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3137:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3095:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3137:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3095:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13574,14 +11502,14 @@ melt_trace_end("MEXPAND_DEFSELECTOR", meltcallcount); melt_topframe = (struct c #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR*/ +} /*end meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13594,7 +11522,7 @@ meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_50_warmelt_macro_MEXPAND_INSTANCE_st { + struct frame_meltrout_49_warmelt_macro_MEXPAND_INSTANCE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13628,7 +11556,7 @@ melt_trace_start("MEXPAND_INSTANCE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3278:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3236:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13653,17 +11581,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3279:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3237:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3279:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3237:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3279:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3237:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13674,7 +11602,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3279)?(3279):__LINE__, __FUNCTION__); + (3237)?(3237):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -13688,7 +11616,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3279:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3237:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -13700,17 +11628,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3280:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3238:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3280:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3238:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3280:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3238:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13721,7 +11649,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3280)?(3280):__LINE__, __FUNCTION__); + (3238)?(3238):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -13735,7 +11663,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3280:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3238:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13745,18 +11673,18 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3281:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3239:/ quasiblock"); /*_.FIELDS__V10*/ meltfptr[9] = (/*nil*/NULL);; /*^compute*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3283:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3241:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3284:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3242:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -13778,13 +11706,13 @@ lab_endgetargs:; /*_.CLABIND__V18*/ meltfptr[17] = (/*nil*/NULL);; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3290:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3248:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3290:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3248:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -13795,14 +11723,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3290; + argtab[3].meltbp_long = 3248; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3290:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3248:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -13816,7 +11744,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3291:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3249:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13824,7 +11752,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3292:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3250:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing class symbol for INSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -13832,7 +11760,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3293:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3251:/ quasiblock"); /*^apply*/ @@ -13850,21 +11778,21 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:3297:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3255:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3298:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3256:/ compute"); /*_.CLABIND__V18*/ meltfptr[17] = /*_.SETQ___V25*/ meltfptr[24] = /*_.BND__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3299:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3257:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ meltfptr[21]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V26*/ meltfptr[25] = slot; }; ; /*^compute*/ /*_.CLA__V17*/ meltfptr[16] = /*_.SETQ___V27*/ meltfptr[26] = /*_.CBIND_CLASS__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:3297:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3255:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.SETQ___V27*/ meltfptr[26];; @@ -13873,7 +11801,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[23] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3297:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3255:/ clear"); /*clear*/ /*_.SETQ___V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V26*/ meltfptr[25] = 0 ; @@ -13889,13 +11817,13 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ meltfptr[21]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:3301:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3259:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3302:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3260:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ meltfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V29*/ meltfptr[24] = slot; }; ; @@ -13906,7 +11834,7 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = /*_#IS_A__L8*/ meltfnum[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3301:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.VBIND_VALUE__V29*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L8*/ meltfnum[7] = 0 ;} @@ -13916,21 +11844,21 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:3301:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3259:/ cond"); /*cond*/ if (/*_#IF___L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3303:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3261:/ compute"); /*_.CLABIND__V18*/ meltfptr[17] = /*_.SETQ___V31*/ meltfptr[26] = /*_.BND__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3304:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3262:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ meltfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V32*/ meltfptr[27] = slot; }; ; /*^compute*/ /*_.CLA__V17*/ meltfptr[16] = /*_.SETQ___V33*/ meltfptr[24] = /*_.VBIND_VALUE__V32*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:3301:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3259:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.SETQ___V33*/ meltfptr[24];; @@ -13939,7 +11867,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[25] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3301:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.SETQ___V31*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.VBIND_VALUE__V32*/ meltfptr[27] = 0 ; @@ -13953,23 +11881,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3308:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3266:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ meltfptr[26] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3307:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3265:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ meltfptr[26]));} ; - MELT_LOCATION("warmelt-macro.melt:3309:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3267:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3309:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3267:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3306:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3264:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[24] = /*_.RETURN___V36*/ meltfptr[27];; @@ -13978,7 +11906,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[25] = /*_.PROGN___V37*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3301:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V36*/ meltfptr[27] = 0 ; @@ -13990,7 +11918,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[23] = /*_.IFELSE___V30*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3297:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3255:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L7*/ meltfnum[6] = 0 ; @@ -14001,13 +11929,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3311:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3269:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3311:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3269:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14018,14 +11946,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3311; + argtab[3].meltbp_long = 3269; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLA__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3311:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3269:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[26] = 0 ;} @@ -14037,17 +11965,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3312:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3270:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L10*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:3312:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3270:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V41*/ meltfptr[24] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3312:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3270:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14058,7 +11986,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3312)?(3312):__LINE__, __FUNCTION__); + (3270)?(3270):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V41*/ meltfptr[24] = 0 ; @@ -14072,7 +12000,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[27] = /*_.IFELSE___V41*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3312:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3270:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V41*/ meltfptr[24] = 0 ;} @@ -14086,9 +12014,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V42*/ meltfptr[25] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3313:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3271:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V43*/ meltfptr[26] = /*_.PAIR_TAIL__V42*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:3314:/ loop"); + MELT_LOCATION("warmelt-macro.melt:3272:/ loop"); /*loop*/{ labloop_INSLOOP_3:;/*^loopbody*/ /*^block*/ @@ -14100,7 +12028,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[7] = (!(/*_#IS_PAIR__L11*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:3315:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3273:/ cond"); /*cond*/ if (/*_#NOT__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14121,7 +12049,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3316:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3274:/ quasiblock"); /*_.CURFKW__V46*/ meltfptr[45] = @@ -14130,7 +12058,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L13*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:3317:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3275:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14138,7 +12066,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3318:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3276:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -14148,14 +12076,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V47*/ meltfptr[46] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3319:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3277:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V48*/ meltfptr[47] = /*_.PAIR_TAIL__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:3320:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3278:/ quasiblock"); /*_.CUREXP__V49*/ meltfptr[48] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3321:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3279:/ quasiblock"); /*^apply*/ @@ -14177,13 +12105,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3322:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3280:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3322:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3280:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14194,14 +12122,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3322; + argtab[3].meltbp_long = 3280; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.FLDA__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3322:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3280:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} @@ -14211,7 +12139,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3323:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3281:/ cond"); /*cond*/ if (/*_.FLDA__V50*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14219,43 +12147,43 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3324:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3282:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V23*/ meltfptr[22]), (melt_ptr_t)(/*_.FLDA__V50*/ meltfptr[49]));} ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:3323:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3281:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3326:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3284:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ meltfptr[51] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3325:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3283:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ meltfptr[51]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3323:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.NAMED_NAME__V53*/ meltfptr[51] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:3321:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3279:/ clear"); /*clear*/ /*_.FLDA__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3320:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3278:/ clear"); /*clear*/ /*_.CUREXP__V49*/ meltfptr[48] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3316:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3274:/ clear"); /*clear*/ /*_.CURFKW__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L13*/ meltfnum[5] = 0 ; @@ -14265,11 +12193,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V48*/ meltfptr[47] = 0 ; /*_.PAIR_TAIL__V54*/ meltfptr[51] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3328:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3286:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V55*/ meltfptr[49] = /*_.PAIR_TAIL__V54*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3314:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3272:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L12*/ meltfnum[7] = 0 ; @@ -14285,7 +12213,7 @@ lab_endgetargs:; /*_.FOREVER___V44*/ meltfptr[24] = /*_.INSLOOP__V45*/ meltfptr[44];; } ; - MELT_LOCATION("warmelt-macro.melt:3330:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3288:/ quasiblock"); /*^apply*/ @@ -14297,7 +12225,7 @@ lab_endgetargs:; /*_.FASTUP__V57*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.FLDLIST__V23*/ meltfptr[22]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3331:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3289:/ quasiblock"); /*^rawallocobj*/ @@ -14331,13 +12259,13 @@ lab_endgetargs:; /*_.LET___V56*/ meltfptr[50] = /*_.INST___V58*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:3330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3288:/ clear"); /*clear*/ /*_.FASTUP__V57*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V58*/ meltfptr[45] = 0 ; /*_.LET___V21*/ meltfptr[19] = /*_.LET___V56*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:3293:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3251:/ clear"); /*clear*/ /*_.BND__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.FLDLIST__V23*/ meltfptr[22] = 0 ; @@ -14359,7 +12287,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V56*/ meltfptr[50] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:3281:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3239:/ clear"); /*clear*/ /*_.FIELDS__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = 0 ; @@ -14383,11 +12311,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3278:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3236:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3278:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3236:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14408,14 +12336,14 @@ melt_trace_end("MEXPAND_INSTANCE", meltcallcount); melt_topframe = (struct call #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_50_warmelt_macro_MEXPAND_INSTANCE*/ +} /*end meltrout_49_warmelt_macro_MEXPAND_INSTANCE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14428,7 +12356,7 @@ meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_51_warmelt_macro_MEXPAND_LOAD_st { + struct frame_meltrout_50_warmelt_macro_MEXPAND_LOAD_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14462,7 +12390,7 @@ melt_trace_start("MEXPAND_LOAD", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3346:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3304:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14487,13 +12415,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3347:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3305:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3347:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3305:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14504,14 +12432,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3347; + argtab[3].meltbp_long = 3305; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3347:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3305:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -14523,17 +12451,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3348:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3306:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3348:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3306:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3348:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3306:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14544,7 +12472,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3348)?(3348):__LINE__, __FUNCTION__); + (3306)?(3306):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -14558,7 +12486,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3348:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3306:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -14570,17 +12498,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3349:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3307:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3349:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3307:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3349:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3307:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14591,7 +12519,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3349)?(3349):__LINE__, __FUNCTION__); + (3307)?(3307):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -14605,7 +12533,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3349:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3307:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -14615,14 +12543,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3350:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3308:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3351:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3309:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -14640,7 +12568,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3355:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3313:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14648,7 +12576,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3356:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3314:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "LOAD expects one argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -14658,13 +12586,13 @@ lab_endgetargs:; ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3357:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3315:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3358:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3316:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -14680,7 +12608,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3357:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3315:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ;} @@ -14694,13 +12622,13 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3359:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3317:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3360:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3318:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ meltfptr[19] = slot; }; ; @@ -14709,7 +12637,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[18] = /*_.SETQ___V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3359:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3317:/ clear"); /*clear*/ /*_.NAMED_NAME__V22*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ;} @@ -14723,7 +12651,7 @@ lab_endgetargs:; /*_#IS_STRING__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:3362:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3320:/ cond"); /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14731,23 +12659,23 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3363:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3321:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "; loading file "), (melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15]));} ; - MELT_LOCATION("warmelt-macro.melt:3364:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3322:/ quasiblock"); /*_.CUREAD__V26*/ meltfptr[25] = (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15])), (char*)0));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3365:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3323:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3365:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3323:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14758,14 +12686,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3365; + argtab[3].meltbp_long = 3323; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V26*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3365:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3323:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -14775,7 +12703,7 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3366:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3324:/ quasiblock"); /*^apply*/ @@ -14789,7 +12717,7 @@ lab_endgetargs:; /*_.EXPLIST__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.CUREAD__V26*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3367:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3325:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -14800,13 +12728,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3369:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3327:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3369:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3327:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14817,14 +12745,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3369; + argtab[3].meltbp_long = 3327; /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTUPLE__V31*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3369:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3327:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = 0 ;} @@ -14834,16 +12762,16 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3370:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3328:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPTUPLE__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:3370:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3328:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V29*/ meltfptr[27] = /*_.RETURN___V34*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:3366:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3324:/ clear"); /*clear*/ /*_.EXPLIST__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.EXPTUPLE__V31*/ meltfptr[30] = 0 ; @@ -14853,13 +12781,13 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V34*/ meltfptr[32] = 0 ; /*_.LET___V25*/ meltfptr[22] = /*_.LET___V29*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:3364:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3322:/ clear"); /*clear*/ /*_.CUREAD__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V29*/ meltfptr[27] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3362:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3320:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[29] = /*_.LET___V25*/ meltfptr[22];; @@ -14868,7 +12796,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[19] = /*_.PROGN___V35*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3362:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3320:/ clear"); /*clear*/ /*_.LET___V25*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V35*/ meltfptr[29] = 0 ;} @@ -14880,13 +12808,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3375:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3333:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3375:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3333:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14897,14 +12825,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3375; + argtab[3].meltbp_long = 3333; /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FILNAM__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V36*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3375:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3333:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31] = 0 ;} @@ -14916,22 +12844,22 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:3376:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3334:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "LOAD expects a string filename"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3374:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3332:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3362:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3320:/ clear"); /*clear*/ /*_.IFCPP___V36*/ meltfptr[30] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V24*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:3350:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -14955,11 +12883,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_STRING__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3346:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3304:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3346:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3304:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14982,14 +12910,14 @@ melt_trace_end("MEXPAND_LOAD", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_51_warmelt_macro_MEXPAND_LOAD*/ +} /*end meltrout_50_warmelt_macro_MEXPAND_LOAD*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15002,7 +12930,7 @@ meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN_st { + struct frame_meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -15036,7 +12964,7 @@ melt_trace_start("PARSE_FIELD_PATTERN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3386:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3344:/ getarg"); /*_.FKEYW__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -15082,13 +13010,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3387:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3345:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3387:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3345:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15099,14 +13027,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3387; + argtab[3].meltbp_long = 3345; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FKEYW__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3387:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3345:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -15118,17 +13046,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3388:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3346:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.FKEYW__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3388:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3346:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3388:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3346:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15139,7 +13067,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fkeyw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3388)?(3388):__LINE__, __FUNCTION__); + (3346)?(3346):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -15153,7 +13081,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3388:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3346:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -15165,17 +13093,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3389:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3347:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3389:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3347:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3389:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3347:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15186,7 +13114,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3389)?(3389):__LINE__, __FUNCTION__); + (3347)?(3347):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; @@ -15200,7 +13128,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3389:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3347:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} @@ -15212,17 +13140,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3390:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3348:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3390:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3348:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3390:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3348:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15233,7 +13161,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctc"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3390)?(3390):__LINE__, __FUNCTION__); + (3348)?(3348):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; @@ -15247,7 +13175,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3390:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3348:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ;} @@ -15259,17 +13187,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3391:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3349:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3391:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3349:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3391:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3349:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15280,7 +13208,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3391)?(3391):__LINE__, __FUNCTION__); + (3349)?(3349):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; @@ -15294,7 +13222,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3391:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3349:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} @@ -15304,16 +13232,16 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3392:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3350:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3393:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3351:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V3*/ meltfptr[2]), 6, "CLASS_FIELDS");/*_.CLAFIELDS__V19*/ meltfptr[18] = slot; }; ; /*_.FLDBOX__V20*/ meltfptr[19] = meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));; - MELT_LOCATION("warmelt-macro.melt:3395:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3353:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -15328,13 +13256,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3397:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3355:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3397:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3355:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15345,14 +13273,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3397; + argtab[3].meltbp_long = 3355; /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CLAFIELDS__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V22*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3397:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3355:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} @@ -15362,7 +13290,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3401:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3359:/ quasiblock"); /*^newclosure*/ @@ -15382,7 +13310,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[1] = (melt_ptr_t)(/*_.FLDBOX__V20*/ meltfptr[19]); ; /*_.LAMBDA___V24*/ meltfptr[22] = /*_.LAMBDA___V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3399:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3357:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -15391,7 +13319,7 @@ lab_endgetargs:; /*_.MULTIPLE_ITERATE_TEST__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_ITERATE_TEST*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CLAFIELDS__V19*/ meltfptr[18]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3411:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3369:/ quasiblock"); /*_.FLD__V28*/ meltfptr[27] = @@ -15400,7 +13328,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L7*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.FLD__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:3413:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3371:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15408,13 +13336,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3415:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3373:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3415:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3373:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15425,14 +13353,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3415; + argtab[3].meltbp_long = 3373; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.FLD__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3415:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3373:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} @@ -15442,23 +13370,23 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3417:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3375:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FKEYW__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ meltfptr[30] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3416:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3374:/ locexp"); melt_error_str((melt_ptr_t)(/*_.PSLOC__V7*/ meltfptr[6]), ( "invalid :field in pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[30]));} ; - MELT_LOCATION("warmelt-macro.melt:3418:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3376:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3418:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3376:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3414:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3372:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[32];; @@ -15467,7 +13395,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3413:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3371:/ clear"); /*clear*/ /*_.IFCPP___V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[30] = 0 ; @@ -15481,10 +13409,10 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3419:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3377:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3420:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3378:/ quasiblock"); /*^rawallocobj*/ @@ -15511,13 +13439,13 @@ lab_endgetargs:; /*_.PATF__V36*/ meltfptr[30] = /*_.INST__V37*/ meltfptr[32];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3426:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3384:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3426:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3384:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -15528,14 +13456,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3426; + argtab[3].meltbp_long = 3384; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.PATF__V36*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3426:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3384:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} @@ -15545,16 +13473,16 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3427:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3385:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATF__V36*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:3427:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3385:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V35*/ meltfptr[29] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:3419:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3377:/ clear"); /*clear*/ /*_.PATF__V36*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V38*/ meltfptr[33] = 0 ; @@ -15562,7 +13490,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*_.LET___V27*/ meltfptr[26] = /*_.LET___V35*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3411:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3369:/ clear"); /*clear*/ /*_.FLD__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[0] = 0 ; @@ -15572,7 +13500,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V35*/ meltfptr[29] = 0 ; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3392:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3350:/ clear"); /*clear*/ /*_.CLAFIELDS__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.FLDBOX__V20*/ meltfptr[19] = 0 ; @@ -15586,11 +13514,11 @@ lab_endgetargs:; /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3386:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3344:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:3386:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3344:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -15617,14 +13545,14 @@ melt_trace_end("PARSE_FIELD_PATTERN", meltcallcount); melt_topframe = (struct c #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN*/ +} /*end meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15637,7 +13565,7 @@ meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_53_warmelt_macro_LAMBDA__st { + struct frame_meltrout_52_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -15671,7 +13599,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3401:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3359:/ getarg"); /*_.CFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -15687,17 +13615,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3402:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3360:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3402:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3360:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3402:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3360:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15708,7 +13636,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3402)?(3402):__LINE__, __FUNCTION__); + (3360)?(3360):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -15722,7 +13650,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3402:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3360:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -15732,17 +13660,17 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3403:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3361:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ meltfptr[3] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3404:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3362:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~FKEYW*/ meltfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ meltfptr[5] = slot; }; ; /*_#S__L3*/ meltfnum[1] = melt_string_same((melt_ptr_t)(/*_.NAMED_NAME__V5*/ meltfptr[3]), (melt_ptr_t)(/*_.NAMED_NAME__V6*/ meltfptr[5]));; - MELT_LOCATION("warmelt-macro.melt:3403:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3361:/ cond"); /*cond*/ if (/*_#S__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15750,10 +13678,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3406:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3364:/ locexp"); meltgc_box_put((melt_ptr_t)((/*~FLDBOX*/ meltfclos->tabval[1])), (melt_ptr_t)(/*_.CFLD__V2*/ meltfptr[1]));} ; - MELT_LOCATION("warmelt-macro.melt:3405:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3363:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = (/*nil*/NULL);; @@ -15762,7 +13690,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3403:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3361:/ clear"); /*clear*/ /*_.PROGN___V8*/ meltfptr[7] = 0 ;} ; } else {/*^cond.else*/ @@ -15770,11 +13698,11 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.CFLD__V2*/ meltfptr[1];; } ; - MELT_LOCATION("warmelt-macro.melt:3401:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3359:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:3401:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3359:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -15799,14 +13727,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_53_warmelt_macro_LAMBDA_*/ +} /*end meltrout_52_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -15819,7 +13747,7 @@ meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_54_warmelt_macro_PATEXPAND_INSTANCE_st { + struct frame_meltrout_53_warmelt_macro_PATEXPAND_INSTANCE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -15853,7 +13781,7 @@ melt_trace_start("PATEXPAND_INSTANCE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3430:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3388:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -15878,17 +13806,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3431:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3389:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3431:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3389:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3431:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3389:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15899,7 +13827,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3431)?(3431):__LINE__, __FUNCTION__); + (3389)?(3389):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -15913,7 +13841,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3431:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3389:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -15925,17 +13853,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3432:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3390:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3432:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3390:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3432:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3390:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15946,7 +13874,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3432)?(3432):__LINE__, __FUNCTION__); + (3390)?(3390):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -15960,7 +13888,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3432:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3390:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -15972,17 +13900,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3433:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3391:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3433:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3391:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3433:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3391:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -15993,7 +13921,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3433)?(3433):__LINE__, __FUNCTION__); + (3391)?(3391):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -16007,7 +13935,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3433:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -16019,13 +13947,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3434:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3392:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3434:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3392:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16036,14 +13964,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3434; + argtab[3].meltbp_long = 3392; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3434:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3392:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -16053,14 +13981,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3435:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3393:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3436:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3394:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3437:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3395:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -16090,7 +14018,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3445:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3403:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16098,7 +14026,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3446:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3404:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "missing class symbol for INSTANCE pattern"), (melt_ptr_t)0);} ; /*epilog*/ @@ -16106,7 +14034,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3447:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3405:/ quasiblock"); /*^apply*/ @@ -16124,21 +14052,21 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:3451:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3409:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3452:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3410:/ compute"); /*_.CLABIND__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.BND__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3453:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3411:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ meltfptr[27] = slot; }; ; /*^compute*/ /*_.CLA__V21*/ meltfptr[20] = /*_.SETQ___V29*/ meltfptr[28] = /*_.CBIND_CLASS__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:3451:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3409:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.SETQ___V29*/ meltfptr[28];; @@ -16147,7 +14075,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3451:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3409:/ clear"); /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V28*/ meltfptr[27] = 0 ; @@ -16163,13 +14091,13 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:3455:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3413:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3456:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3414:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ meltfptr[26] = slot; }; ; @@ -16180,7 +14108,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3455:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3413:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ;} @@ -16190,21 +14118,21 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:3455:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3413:/ cond"); /*cond*/ if (/*_#IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3457:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3415:/ compute"); /*_.CLABIND__V22*/ meltfptr[21] = /*_.SETQ___V33*/ meltfptr[28] = /*_.BND__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3458:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3416:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ meltfptr[29] = slot; }; ; /*^compute*/ /*_.CLA__V21*/ meltfptr[20] = /*_.SETQ___V35*/ meltfptr[26] = /*_.VBIND_VALUE__V34*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3455:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3413:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.SETQ___V35*/ meltfptr[26];; @@ -16213,7 +14141,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[27] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3455:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3413:/ clear"); /*clear*/ /*_.SETQ___V33*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.VBIND_VALUE__V34*/ meltfptr[29] = 0 ; @@ -16227,23 +14155,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3462:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3420:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ meltfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ meltfptr[28] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3461:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3419:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:3463:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3421:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3463:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3421:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3460:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3418:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[26] = /*_.RETURN___V38*/ meltfptr[29];; @@ -16252,7 +14180,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[27] = /*_.PROGN___V39*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3455:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3413:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V38*/ meltfptr[29] = 0 ; @@ -16264,7 +14192,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.IFELSE___V32*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3451:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3409:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L8*/ meltfnum[7] = 0 ; @@ -16275,17 +14203,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3465:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3423:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:3465:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3423:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V41*/ meltfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3465:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3423:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -16296,7 +14224,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3465)?(3465):__LINE__, __FUNCTION__); + (3423)?(3423):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V41*/ meltfptr[28] = 0 ; @@ -16310,7 +14238,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[35] = /*_.IFELSE___V41*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3465:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3423:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V41*/ meltfptr[28] = 0 ;} @@ -16324,9 +14252,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V42*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3466:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3424:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V43*/ meltfptr[26] = /*_.PAIR_TAIL__V42*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3468:/ loop"); + MELT_LOCATION("warmelt-macro.melt:3426:/ loop"); /*loop*/{ labloop_INSLOOP_4:;/*^loopbody*/ /*^block*/ @@ -16338,7 +14266,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[7] = (!(/*_#IS_PAIR__L11*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:3470:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3428:/ cond"); /*cond*/ if (/*_#NOT__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16359,7 +14287,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3471:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3429:/ quasiblock"); /*_.CURFKW__V46*/ meltfptr[45] = @@ -16368,7 +14296,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L13*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:3472:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3430:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16376,7 +14304,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3473:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3431:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);} ; /*epilog*/ @@ -16386,14 +14314,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V47*/ meltfptr[46] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3474:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3432:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V48*/ meltfptr[47] = /*_.PAIR_TAIL__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:3475:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3433:/ quasiblock"); /*_.CUREXP__V49*/ meltfptr[48] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3476:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3434:/ quasiblock"); /*^apply*/ @@ -16415,13 +14343,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3477:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3435:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3477:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3435:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16432,14 +14360,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3477; + argtab[3].meltbp_long = 3435; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3435:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} @@ -16449,7 +14377,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3478:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3436:/ cond"); /*cond*/ if (/*_.FLDP__V50*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16457,43 +14385,43 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3479:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3437:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ meltfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ meltfptr[49]));} ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:3478:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3436:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3481:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3439:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ meltfptr[51] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3480:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3438:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ meltfptr[51]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3478:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3436:/ clear"); /*clear*/ /*_.NAMED_NAME__V53*/ meltfptr[51] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:3476:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3434:/ clear"); /*clear*/ /*_.FLDP__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3475:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3433:/ clear"); /*clear*/ /*_.CUREXP__V49*/ meltfptr[48] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3471:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3429:/ clear"); /*clear*/ /*_.CURFKW__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L13*/ meltfnum[8] = 0 ; @@ -16503,11 +14431,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V48*/ meltfptr[47] = 0 ; /*_.PAIR_TAIL__V54*/ meltfptr[51] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3483:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3441:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V55*/ meltfptr[49] = /*_.PAIR_TAIL__V54*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3468:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3426:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L12*/ meltfnum[7] = 0 ; @@ -16523,10 +14451,10 @@ lab_endgetargs:; /*_.FOREVER___V44*/ meltfptr[27] = /*_.INSLOOP__V45*/ meltfptr[28];; } ; - MELT_LOCATION("warmelt-macro.melt:3485:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3443:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3486:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3444:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -16535,7 +14463,7 @@ lab_endgetargs:; /*_.SPATFIELDS__V57*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.FLDLIST__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3488:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3446:/ quasiblock"); /*^newclosure*/ @@ -16543,7 +14471,7 @@ lab_endgetargs:; meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ meltfrout->tabval[16])), (0)); ; /*_.LAMBDA___V58*/ meltfptr[45] = /*_.LAMBDA___V59*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:3487:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3445:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -16552,7 +14480,7 @@ lab_endgetargs:; /*_.SUBPATS__V60*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SPATFIELDS__V57*/ meltfptr[48]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3490:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3448:/ quasiblock"); /*^rawallocobj*/ @@ -16582,7 +14510,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V62*/ meltfptr[49]), (4), (/*_.SPATFIELDS__V57*/ meltfptr[48]), "SPAT_FIELDS"); ; /*_.SPATI__V61*/ meltfptr[51] = /*_.INST__V62*/ meltfptr[49];; - MELT_LOCATION("warmelt-macro.melt:3496:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3454:/ quasiblock"); /*^multiapply*/ @@ -16609,7 +14537,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V64*/ meltfptr[63] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[19])), (/*_#I__L18*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:3499:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3457:/ quasiblock"); /*^putslot*/ @@ -16622,7 +14550,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-macro.melt:3496:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3454:/ clear"); /*clear*/ /*_#I__L18*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V64*/ meltfptr[63] = 0 ; @@ -16635,13 +14563,13 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L17*/ meltfnum[6] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3504:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3462:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3504:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3462:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -16652,14 +14580,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3504; + argtab[3].meltbp_long = 3462; /*_.DEBUG_MSG_FUN__V66*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V61*/ meltfptr[51]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V65*/ meltfptr[63] = /*_.DEBUG_MSG_FUN__V66*/ meltfptr[62];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3504:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3462:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ meltfptr[62] = 0 ;} @@ -16669,16 +14597,16 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3505:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3463:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V61*/ meltfptr[51];; - MELT_LOCATION("warmelt-macro.melt:3505:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3463:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V56*/ meltfptr[50] = /*_.RETURN___V67*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:3485:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3443:/ clear"); /*clear*/ /*_.SPATFIELDS__V57*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V58*/ meltfptr[45] = 0 ; @@ -16692,7 +14620,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V67*/ meltfptr[62] = 0 ; /*_.LET___V23*/ meltfptr[22] = /*_.LET___V56*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:3447:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3405:/ clear"); /*clear*/ /*_.BND__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.FLDLIST__V25*/ meltfptr[24] = 0 ; @@ -16712,7 +14640,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V56*/ meltfptr[50] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:3435:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3393:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -16734,11 +14662,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3430:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3388:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:3430:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3388:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -16763,14 +14691,14 @@ melt_trace_end("PATEXPAND_INSTANCE", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_54_warmelt_macro_PATEXPAND_INSTANCE*/ +} /*end meltrout_53_warmelt_macro_PATEXPAND_INSTANCE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -16783,7 +14711,7 @@ meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_55_warmelt_macro_LAMBDA__st { + struct frame_meltrout_54_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -16817,7 +14745,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3488:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3446:/ getarg"); /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -16831,7 +14759,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3489:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3447:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -16843,11 +14771,11 @@ lab_endgetargs:; /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3488:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3446:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:3488:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3446:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -16864,14 +14792,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_55_warmelt_macro_LAMBDA_*/ +} /*end meltrout_54_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -16884,7 +14812,7 @@ meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_56_warmelt_macro_PATEXPAND_OBJECT_st { + struct frame_meltrout_55_warmelt_macro_PATEXPAND_OBJECT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -16918,7 +14846,7 @@ melt_trace_start("PATEXPAND_OBJECT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3525:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3483:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -16943,17 +14871,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3526:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3484:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3526:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3484:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3526:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3484:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -16964,7 +14892,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3526)?(3526):__LINE__, __FUNCTION__); + (3484)?(3484):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -16978,7 +14906,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3526:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3484:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -16990,17 +14918,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3527:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3485:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3527:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3485:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3527:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3485:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -17011,7 +14939,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3527)?(3527):__LINE__, __FUNCTION__); + (3485)?(3485):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -17025,7 +14953,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3527:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3485:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -17037,17 +14965,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3528:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3486:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3528:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3486:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3528:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3486:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -17058,7 +14986,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3528)?(3528):__LINE__, __FUNCTION__); + (3486)?(3486):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -17072,7 +15000,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3528:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3486:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -17084,13 +15012,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3529:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3487:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3529:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3487:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17101,14 +15029,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3529; + argtab[3].meltbp_long = 3487; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3529:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3487:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -17118,14 +15046,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3530:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3488:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3531:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3489:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3532:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3490:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -17155,7 +15083,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3540:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3498:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17163,7 +15091,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3541:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3499:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "missing class symbol for OBJECT pattern"), (melt_ptr_t)0);} ; /*epilog*/ @@ -17171,7 +15099,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3542:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3500:/ quasiblock"); /*^apply*/ @@ -17189,21 +15117,21 @@ lab_endgetargs:; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:3546:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3504:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3547:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3505:/ compute"); /*_.CLABIND__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.BND__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3548:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3506:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ meltfptr[27] = slot; }; ; /*^compute*/ /*_.CLA__V21*/ meltfptr[20] = /*_.SETQ___V29*/ meltfptr[28] = /*_.CBIND_CLASS__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:3546:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3504:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.SETQ___V29*/ meltfptr[28];; @@ -17212,7 +15140,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3546:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3504:/ clear"); /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND_CLASS__V28*/ meltfptr[27] = 0 ; @@ -17228,13 +15156,13 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:3550:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3508:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3551:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3509:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ meltfptr[26] = slot; }; ; @@ -17245,7 +15173,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3550:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3508:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ;} @@ -17255,21 +15183,21 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:3550:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3508:/ cond"); /*cond*/ if (/*_#IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3552:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3510:/ compute"); /*_.CLABIND__V22*/ meltfptr[21] = /*_.SETQ___V33*/ meltfptr[28] = /*_.BND__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3553:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3511:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ meltfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ meltfptr[29] = slot; }; ; /*^compute*/ /*_.CLA__V21*/ meltfptr[20] = /*_.SETQ___V35*/ meltfptr[26] = /*_.VBIND_VALUE__V34*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3550:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3508:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.SETQ___V35*/ meltfptr[26];; @@ -17278,7 +15206,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[27] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3550:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3508:/ clear"); /*clear*/ /*_.SETQ___V33*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.VBIND_VALUE__V34*/ meltfptr[29] = 0 ; @@ -17292,23 +15220,23 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3557:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3515:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ meltfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ meltfptr[28] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3556:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3514:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "invalid class name for OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ meltfptr[28]));} ; - MELT_LOCATION("warmelt-macro.melt:3558:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3516:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3558:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3516:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3555:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3513:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[26] = /*_.RETURN___V38*/ meltfptr[29];; @@ -17317,7 +15245,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[27] = /*_.PROGN___V39*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3550:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3508:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V38*/ meltfptr[29] = 0 ; @@ -17329,7 +15257,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.IFELSE___V32*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3546:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3504:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L8*/ meltfnum[7] = 0 ; @@ -17340,17 +15268,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3560:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3518:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:3560:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3518:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V41*/ meltfptr[28] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3560:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3518:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -17361,7 +15289,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3560)?(3560):__LINE__, __FUNCTION__); + (3518)?(3518):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V41*/ meltfptr[28] = 0 ; @@ -17375,7 +15303,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[35] = /*_.IFELSE___V41*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3560:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3518:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V41*/ meltfptr[28] = 0 ;} @@ -17389,9 +15317,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V42*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3561:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3519:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V43*/ meltfptr[26] = /*_.PAIR_TAIL__V42*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3563:/ loop"); + MELT_LOCATION("warmelt-macro.melt:3521:/ loop"); /*loop*/{ labloop_INSLOOP_5:;/*^loopbody*/ /*^block*/ @@ -17403,7 +15331,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[7] = (!(/*_#IS_PAIR__L11*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:3565:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3523:/ cond"); /*cond*/ if (/*_#NOT__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17424,7 +15352,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3566:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3524:/ quasiblock"); /*_.CURFKW__V46*/ meltfptr[45] = @@ -17433,7 +15361,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L13*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:3567:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3525:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17441,7 +15369,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3568:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3526:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "expecting keyword in OBJECT pattern"), (melt_ptr_t)0);} ; /*epilog*/ @@ -17451,14 +15379,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V47*/ meltfptr[46] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3569:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3527:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V48*/ meltfptr[47] = /*_.PAIR_TAIL__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:3570:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3528:/ quasiblock"); /*_.CUREXP__V49*/ meltfptr[48] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3571:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3529:/ quasiblock"); /*^apply*/ @@ -17480,13 +15408,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3572:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3530:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3572:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3530:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17497,14 +15425,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3572; + argtab[3].meltbp_long = 3530; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ meltfptr[49]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3572:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3530:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[51] = 0 ;} @@ -17514,7 +15442,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3573:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3531:/ cond"); /*cond*/ if (/*_.FLDP__V50*/ meltfptr[49]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17522,43 +15450,43 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3574:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3532:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ meltfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ meltfptr[49]));} ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:3573:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3531:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3576:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3534:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ meltfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ meltfptr[51] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:3575:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3533:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "bad field name in OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ meltfptr[51]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3573:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.NAMED_NAME__V53*/ meltfptr[51] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:3571:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3529:/ clear"); /*clear*/ /*_.FLDP__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V51*/ meltfptr[50] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3570:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3528:/ clear"); /*clear*/ /*_.CUREXP__V49*/ meltfptr[48] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3566:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3524:/ clear"); /*clear*/ /*_.CURFKW__V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L13*/ meltfnum[8] = 0 ; @@ -17568,11 +15496,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V48*/ meltfptr[47] = 0 ; /*_.PAIR_TAIL__V54*/ meltfptr[51] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:3578:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3536:/ compute"); /*_.CURPAIR__V19*/ meltfptr[18] = /*_.SETQ___V55*/ meltfptr[49] = /*_.PAIR_TAIL__V54*/ meltfptr[51];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3563:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3521:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L12*/ meltfnum[7] = 0 ; @@ -17588,10 +15516,10 @@ lab_endgetargs:; /*_.FOREVER___V44*/ meltfptr[27] = /*_.INSLOOP__V45*/ meltfptr[28];; } ; - MELT_LOCATION("warmelt-macro.melt:3580:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3538:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3581:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3539:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -17600,7 +15528,7 @@ lab_endgetargs:; /*_.PATFIELDS__V57*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.FLDLIST__V25*/ meltfptr[24]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3583:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3541:/ quasiblock"); /*^newclosure*/ @@ -17608,7 +15536,7 @@ lab_endgetargs:; meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ meltfrout->tabval[16])), (0)); ; /*_.LAMBDA___V58*/ meltfptr[45] = /*_.LAMBDA___V59*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:3582:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3540:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -17617,7 +15545,7 @@ lab_endgetargs:; /*_.SUBPATS__V60*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.PATFIELDS__V57*/ meltfptr[48]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3585:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3543:/ quasiblock"); /*^rawallocobj*/ @@ -17642,7 +15570,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V62*/ meltfptr[49]), (4), (/*_.PATFIELDS__V57*/ meltfptr[48]), "SPAT_FIELDS"); ; /*_.SPATI__V61*/ meltfptr[51] = /*_.INST__V62*/ meltfptr[49];; - MELT_LOCATION("warmelt-macro.melt:3590:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3548:/ quasiblock"); /*^multiapply*/ @@ -17669,7 +15597,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V65*/ meltfptr[64] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[19])), (/*_#I__L18*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:3593:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3551:/ quasiblock"); /*^putslot*/ @@ -17683,13 +15611,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3597:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3555:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3597:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3555:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -17700,14 +15628,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3597; + argtab[3].meltbp_long = 3555; /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V61*/ meltfptr[51]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V66*/ meltfptr[65] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3597:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3555:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[66] = 0 ;} @@ -17717,16 +15645,16 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[65] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3598:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3556:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V61*/ meltfptr[51];; - MELT_LOCATION("warmelt-macro.melt:3598:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3556:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.MULTI___V63*/ meltfptr[62] = /*_.RETURN___V68*/ meltfptr[66];; - MELT_LOCATION("warmelt-macro.melt:3590:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3548:/ clear"); /*clear*/ /*_#I__L18*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V65*/ meltfptr[64] = 0 ; @@ -17743,7 +15671,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L17*/ meltfnum[6] = 0 ; /*_.LET___V56*/ meltfptr[50] = /*_.MULTI___V63*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:3580:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3538:/ clear"); /*clear*/ /*_.PATFIELDS__V57*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V58*/ meltfptr[45] = 0 ; @@ -17755,7 +15683,7 @@ lab_endgetargs:; /*clear*/ /*_.MULTI___V63*/ meltfptr[62] = 0 ; /*_.LET___V23*/ meltfptr[22] = /*_.LET___V56*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:3542:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3500:/ clear"); /*clear*/ /*_.BND__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.FLDLIST__V25*/ meltfptr[24] = 0 ; @@ -17775,7 +15703,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V56*/ meltfptr[50] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:3530:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3488:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -17797,11 +15725,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3525:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3483:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:3525:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3483:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -17826,14 +15754,14 @@ melt_trace_end("PATEXPAND_OBJECT", meltcallcount); melt_topframe = (struct call #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_56_warmelt_macro_PATEXPAND_OBJECT*/ +} /*end meltrout_55_warmelt_macro_PATEXPAND_OBJECT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -17846,7 +15774,7 @@ meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_57_warmelt_macro_LAMBDA__st { + struct frame_meltrout_56_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -17879,62 +15807,321 @@ meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3583:/ getarg"); - /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:3541:/ getarg"); + /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3542:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPATFLD__V2*/ meltfptr[1]), 3, "SPAF_PATTERN");/*_.SPAF_PATTERN__V3*/ meltfptr[2] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; + } + ; + MELT_LOCATION("warmelt-macro.melt:3541:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; + MELT_LOCATION("warmelt-macro.melt:3541:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.SPAF_PATTERN__V3*/ meltfptr[2] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_56_warmelt_macro_LAMBDA_*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_57_warmelt_macro_MEXPAND_OBJECT_st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 13 + void* mcfr_varptr[13]; +#define MELTFRAM_NBVARNUM 3 + long mcfr_varnum[3]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<13; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 13; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MEXPAND_OBJECT", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:3560:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3561:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3561:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3561:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3561)?(3561):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3561:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3562:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:3562:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3562:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3562)?(3562):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3562:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3563:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3563:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_object sexpr"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3563; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3563:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3564:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:3565:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3584:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPATFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ meltfrout->tabval[0])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPATFLD__V2*/ meltfptr[1]), 3, "SPAF_PATTERN");/*_.SPAF_PATTERN__V3*/ meltfptr[2] = slot; }; - ; - } else {/*^cond.else*/ + { + MELT_LOCATION("warmelt-macro.melt:3567:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:3568:/ quasiblock"); - /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; - } + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:3568:/ finalreturn"); ; - MELT_LOCATION("warmelt-macro.melt:3583:/ quasiblock"); + /*finalret*/ goto labend_rout ; + /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; + + MELT_LOCATION("warmelt-macro.melt:3564:/ clear"); + /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3560:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:3583:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-macro.melt:3560:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.SPAF_PATTERN__V3*/ meltfptr[2] = 0 ;} + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_OBJECT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_57_warmelt_macro_LAMBDA_*/ +} /*end meltrout_57_warmelt_macro_MEXPAND_OBJECT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -17947,7 +16134,7 @@ meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_58_warmelt_macro_MEXPAND_OBJECT_st { + struct frame_meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -17955,10 +16142,10 @@ meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t fi struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 13 - void* mcfr_varptr[13]; -#define MELTFRAM_NBVARNUM 3 - long mcfr_varnum[3]; +#define MELTFRAM_NBVARPTR 40 + void* mcfr_varptr[40]; +#define MELTFRAM_NBVARNUM 7 + long mcfr_varnum[7]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -17967,21 +16154,21 @@ meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t fi int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<13; ix++) + for(ix=0; ix<40; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 13; + meltfram__.mcfr_nbvar = 40; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_OBJECT", meltcallcount); +melt_trace_start("MEXPAND_CODE_CHUNK", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3602:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3583:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -18006,164 +16193,481 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3603:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3584:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3584:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3584:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3584)?(3584):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3584:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3585:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:3585:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3585:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3585)?(3585):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3585:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3586:/ quasiblock"); + + + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:3587:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V11*/ meltfptr[10] = slot; }; + ; + /*_.LIST_FIRST__V12*/ meltfptr[11] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ meltfptr[9])));; + /*^compute*/ + + /*_.CURPAIR__V13*/ meltfptr[12] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; + /*^compute*/ + + /*_.CURCHK__V14*/ meltfptr[13] = (/*nil*/NULL);; + /*^compute*/ + + /*_.GSYM__V15*/ meltfptr[14] = (/*nil*/NULL);; + /*^compute*/ + + /*_.CHKLIST__V16*/ meltfptr[15] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; + /*^compute*/ + + /*_.CUREL__V17*/ meltfptr[16] = (/*nil*/NULL);; + /*^compute*/ + + /*_.PAIR_HEAD__V18*/ meltfptr[17] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3594:/ compute"); + /*_.CUREL__V17*/ meltfptr[16] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_HEAD__V18*/ meltfptr[17];; + /*_#IS_A__L3*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.CUREL__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-macro.melt:3595:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3596:/ compute"); + /*_.GSYM__V15*/ meltfptr[14] = /*_.SETQ___V21*/ meltfptr[20] = /*_.CUREL__V17*/ meltfptr[16];; + /*_.IFELSE___V20*/ meltfptr[19] = /*_.SETQ___V21*/ meltfptr[20];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3595:/ clear"); + /*clear*/ /*_.SETQ___V21*/ meltfptr[20] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + + + { + MELT_LOCATION("warmelt-macro.melt:3597:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "missing symbol in (CODE_CHUNK )"), (melt_ptr_t)0);} + ; + /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.PAIR_TAIL__V22*/ meltfptr[20] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3598:/ compute"); + /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[20];; + /*_.PAIR_HEAD__V24*/ meltfptr[23] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3599:/ compute"); + /*_.CURCHK__V14*/ meltfptr[13] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_HEAD__V24*/ meltfptr[23];; + /*_.PAIR_TAIL__V26*/ meltfptr[25] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3600:/ cond"); + /*cond*/ if (/*_.PAIR_TAIL__V26*/ meltfptr[25]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3603:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3603:/ cond.else"); - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3603)?(3603):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } + { + MELT_LOCATION("warmelt-macro.melt:3601:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "CODE_CHUNK expects one single chunk sexpr"), (melt_ptr_t)0);} ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3603:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3604:/ cppif.then"); + } /*noelse*/ + ; + /*_#IS_NOT_A__L4*/ meltfnum[3] = + !melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3602:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[3]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3604:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3604:/ cond.else"); + { + MELT_LOCATION("warmelt-macro.melt:3603:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "CODE_CHUNK expects a chunk sexpr"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:3604:/ quasiblock"); + + + /*^cond*/ + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), 1, "LOCA_LOCATION");/*_.LOC__V28*/ meltfptr[27] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.LOC__V28*/ meltfptr[27] = NULL;; + } + ; + MELT_LOCATION("warmelt-macro.melt:3605:/ cond"); + /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])))) /*then*/ { + /*^cond.then*/ + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), 2, "SEXP_CONTENTS");/*_.CHKCONT__V29*/ meltfptr[28] = slot; }; + ; + } else {/*^cond.else*/ + + /*_.CHKCONT__V29*/ meltfptr[28] = NULL;; + } + ; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST */ + for (/*_.CURPAIR__V30*/ meltfptr[29] = melt_list_first(/*_.CHKCONT__V29*/ meltfptr[28]); + melt_magic_discr(/*_.CURPAIR__V30*/ meltfptr[29]) == MELTOBMAG_PAIR; + /*_.CURPAIR__V30*/ meltfptr[29] = melt_pair_tail(/*_.CURPAIR__V30*/ meltfptr[29])) { + /*_.CURCOMP__V31*/ meltfptr[30] = melt_pair_head(/*_.CURPAIR__V30*/ meltfptr[29]); + + + /*_#IS_STRING__L5*/ meltfnum[4] = + (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30])) == MELTOBMAG_STRING);; + MELT_LOCATION("warmelt-macro.melt:3610:/ cond"); + /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[4]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_.MAKE_STRING__V32*/ meltfptr[31] = + (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), + melt_string_str((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]))));; + + { + MELT_LOCATION("warmelt-macro.melt:3611:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (melt_ptr_t)(/*_.MAKE_STRING__V32*/ meltfptr[31]));} + ; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3610:/ clear"); + /*clear*/ /*_.MAKE_STRING__V32*/ meltfptr[31] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L6*/ meltfnum[5] = + melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; + MELT_LOCATION("warmelt-macro.melt:3613:/ cond"); + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3604)?(3604):__LINE__, __FUNCTION__); -;} + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3614:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]));} + ; + /*epilog*/ + } + ; + } else {MELT_LOCATION("warmelt-macro.melt:3613:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3616:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V28*/ meltfptr[27]), ( "bad content in CODE_CHUNK - expecting string or symbol"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:3615:/ quasiblock"); + + + /*epilog*/ + } ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - /*epilog*/ } ; - } + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3610:/ clear"); + /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ;} ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3604:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + } ; + } /* end cit1__EACHLIST */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-macro.melt:3607:/ clear"); + /*clear*/ /*_.CURPAIR__V30*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURCOMP__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_STRING__L5*/ meltfnum[4] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + MELT_LOCATION("warmelt-macro.melt:3618:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:3619:/ cond"); + /*cond*/ if (/*_.LOC__V28*/ meltfptr[27]) /*then*/ { + /*^cond.then*/ + /*_.OR___V34*/ meltfptr[33] = /*_.LOC__V28*/ meltfptr[27];; + } else {MELT_LOCATION("warmelt-macro.melt:3619:/ cond.else"); + + /*_.OR___V34*/ meltfptr[33] = /*_.SLOC__V11*/ meltfptr[10];; + } + ; + MELT_LOCATION("warmelt-macro.melt:3621:/ apply"); + /*apply*/{ + union meltparam_un argtab[1]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[8]); + /*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:3618:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CODECHUNK*/ meltfrout->tabval[6])), (4), "CLASS_SOURCE_CODECHUNK"); + /*_.INST__V37*/ meltfptr[36] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (1), (/*_.OR___V34*/ meltfptr[33]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SCH_GENSYM", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (2), (/*_.GSYM__V15*/ meltfptr[14]), "SCH_GENSYM"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SCH_CHUNKS", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (3), (/*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34]), "SCH_CHUNKS"); + ; + /*_.MRES__V36*/ meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3605:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3623:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3605:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3623:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_object sexpr"; + argtab[0].meltbp_cstring = "mexpand_code_chunk result"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3605; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3623; + /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MRES__V36*/ meltfptr[35]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3605:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3623:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3606:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:3607:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; - ; - - { - MELT_LOCATION("warmelt-macro.melt:3609:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:3610:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3624:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:3610:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.MRES__V36*/ meltfptr[35];; + MELT_LOCATION("warmelt-macro.melt:3624:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; + /*_.LET___V33*/ meltfptr[31] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:3606:/ clear"); - /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3618:/ clear"); + /*clear*/ /*_.OR___V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3602:/ quasiblock"); + /*clear*/ /*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.MRES__V36*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; + /*_.LET___V27*/ meltfptr[26] = /*_.LET___V33*/ meltfptr[31];; + MELT_LOCATION("warmelt-macro.melt:3604:/ clear"); + /*clear*/ /*_.LOC__V28*/ meltfptr[27] = 0 ; + /*^clear*/ + /*clear*/ /*_.CHKCONT__V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V33*/ meltfptr[31] = 0 ; + /*_.LET___V9*/ meltfptr[7] = /*_.LET___V27*/ meltfptr[26];; - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3602:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3586:/ clear"); + /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.SLOC__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURPAIR__V13*/ meltfptr[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURCHK__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.GSYM__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.CHKLIST__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.CUREL__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V22*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[3] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3583:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + MELT_LOCATION("warmelt-macro.melt:3583:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -18173,27 +16677,25 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} + /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_OBJECT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_CODE_CHUNK", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_58_warmelt_macro_MEXPAND_OBJECT*/ +} /*end meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -18206,7 +16708,7 @@ meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK_st { + struct frame_meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -18214,10 +16716,10 @@ meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 40 - void* mcfr_varptr[40]; -#define MELTFRAM_NBVARNUM 7 - long mcfr_varnum[7]; +#define MELTFRAM_NBVARPTR 35 + void* mcfr_varptr[35]; +#define MELTFRAM_NBVARNUM 6 + long mcfr_varnum[6]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -18226,21 +16728,21 @@ meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<40; ix++) + for(ix=0; ix<35; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 40; + meltfram__.mcfr_nbvar = 35; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_CODE_CHUNK", meltcallcount); +melt_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3625:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3634:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -18265,17 +16767,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3626:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3635:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3626:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3635:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3626:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3635:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18286,7 +16788,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3626)?(3626):__LINE__, __FUNCTION__); + (3635)?(3635):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -18300,7 +16802,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3626:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3635:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -18312,17 +16814,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3627:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3636:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3627:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3636:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3627:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3636:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18333,7 +16835,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3627)?(3627):__LINE__, __FUNCTION__); + (3636)?(3636):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -18347,7 +16849,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3627:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3636:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -18357,389 +16859,298 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3628:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3637:/ quasiblock"); - /*^getslot*/ + /*_.FIELDS__V10*/ meltfptr[9] = (/*nil*/NULL);; + /*^compute*/ + + /*_.FIELDNAMS__V11*/ meltfptr[10] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-macro.melt:3639:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3629:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3640:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V11*/ meltfptr[10] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - /*_.LIST_FIRST__V12*/ meltfptr[11] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ meltfptr[9])));; - /*^compute*/ - - /*_.CURPAIR__V13*/ meltfptr[12] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.CURCHK__V14*/ meltfptr[13] = (/*nil*/NULL);; - /*^compute*/ - - /*_.GSYM__V15*/ meltfptr[14] = (/*nil*/NULL);; + /*_.LIST_FIRST__V14*/ meltfptr[13] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; /*^compute*/ - /*_.CHKLIST__V16*/ meltfptr[15] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[2]))));; + /*_.CURPAIR__V15*/ meltfptr[14] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; /*^compute*/ - /*_.CUREL__V17*/ meltfptr[16] = (/*nil*/NULL);; + /*_.OBJSRC__V16*/ meltfptr[15] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; /*^compute*/ - /*_.PAIR_HEAD__V18*/ meltfptr[17] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3636:/ compute"); - /*_.CUREL__V17*/ meltfptr[16] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_HEAD__V18*/ meltfptr[17];; /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.CUREL__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3637:/ cond"); + melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3644:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3638:/ compute"); - /*_.GSYM__V15*/ meltfptr[14] = /*_.SETQ___V21*/ meltfptr[20] = /*_.CUREL__V17*/ meltfptr[16];; - /*_.IFELSE___V20*/ meltfptr[19] = /*_.SETQ___V21*/ meltfptr[20];; + MELT_LOCATION("warmelt-macro.melt:3645:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.OBJEXP__V17*/ meltfptr[16] = /*_.MACROEXPAND_1__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3637:/ clear"); - /*clear*/ /*_.SETQ___V21*/ meltfptr[20] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:3644:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V18*/ meltfptr[17] = 0 ;} ; } else {/*^cond.else*/ - /*^block*/ - /*anyblock*/{ - - - - - { - MELT_LOCATION("warmelt-macro.melt:3639:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "missing symbol in (CODE_CHUNK )"), (melt_ptr_t)0);} - ; - /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; - /*epilog*/ - } - ; + /*_.OBJEXP__V17*/ meltfptr[16] = /*_.OBJSRC__V16*/ meltfptr[15];; } ; /*^compute*/ - /*_.PAIR_TAIL__V22*/ meltfptr[20] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3640:/ compute"); - /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[20];; - /*_.PAIR_HEAD__V24*/ meltfptr[23] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3641:/ compute"); - /*_.CURCHK__V14*/ meltfptr[13] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_HEAD__V24*/ meltfptr[23];; - /*_.PAIR_TAIL__V26*/ meltfptr[25] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3642:/ cond"); - /*cond*/ if (/*_.PAIR_TAIL__V26*/ meltfptr[25]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3643:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "CODE_CHUNK expects one single chunk sexpr"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_#IS_NOT_A__L4*/ meltfnum[3] = - !melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3644:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[3]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3645:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ meltfptr[10]), ( "CODE_CHUNK expects a chunk sexpr"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3646:/ quasiblock"); - - - /*^cond*/ - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[4])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), 1, "LOCA_LOCATION");/*_.LOC__V28*/ meltfptr[27] = slot; }; - ; - } else {/*^cond.else*/ + /*_.PAIR_TAIL__V19*/ meltfptr[17] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3648:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[17];; + MELT_LOCATION("warmelt-macro.melt:3649:/ quasiblock"); - /*_.LOC__V28*/ meltfptr[27] = NULL;; - } - ; - MELT_LOCATION("warmelt-macro.melt:3647:/ cond"); - /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])))) /*then*/ { - /*^cond.then*/ - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ meltfptr[13]), 2, "SEXP_CONTENTS");/*_.CHKCONT__V29*/ meltfptr[28] = slot; }; - ; - } else {/*^cond.else*/ - /*_.CHKCONT__V29*/ meltfptr[28] = NULL;; - } - ; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit1__EACHLIST */ - for (/*_.CURPAIR__V30*/ meltfptr[29] = melt_list_first(/*_.CHKCONT__V29*/ meltfptr[28]); - melt_magic_discr(/*_.CURPAIR__V30*/ meltfptr[29]) == MELTOBMAG_PAIR; - /*_.CURPAIR__V30*/ meltfptr[29] = melt_pair_tail(/*_.CURPAIR__V30*/ meltfptr[29])) { - /*_.CURCOMP__V31*/ meltfptr[30] = melt_pair_head(/*_.CURPAIR__V30*/ meltfptr[29]); + /*_.FLDLIST__V22*/ meltfptr[21] = + (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; + MELT_LOCATION("warmelt-macro.melt:3651:/ loop"); + /*loop*/{ labloop_INSLOOP_6:;/*^loopbody*/ - - /*_#IS_STRING__L5*/ meltfnum[4] = - (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:3652:/ cond"); - /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[4]) /*then*/ { - /*^cond.then*/ /*^block*/ - /*anyblock*/{ - - /*_.MAKE_STRING__V32*/ meltfptr[31] = - (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[5])), - melt_string_str((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]))));; - - { - MELT_LOCATION("warmelt-macro.melt:3653:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (melt_ptr_t)(/*_.MAKE_STRING__V32*/ meltfptr[31]));} + /*anyblock*/{ + + /*_#IS_PAIR__L4*/ meltfnum[3] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + /*^compute*/ + + /*_#NOT__L5*/ meltfnum[4] = + (!(/*_#IS_PAIR__L4*/ meltfnum[3]));; + MELT_LOCATION("warmelt-macro.melt:3652:/ cond"); + /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*^quasiblock*/ + + + /*^compute*/ + /*_.INSLOOP__V24*/ meltfptr[23] = NULL;; + + /*^exit*/ + /*exit*/{ + goto labexit_INSLOOP_6;} + ; + /*epilog*/ + } ; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3652:/ clear"); - /*clear*/ /*_.MAKE_STRING__V32*/ meltfptr[31] = 0 ;} + } /*noelse*/ ; - } else {/*^cond.else*/ - + MELT_LOCATION("warmelt-macro.melt:3653:/ quasiblock"); + + + /*_.CURFKW__V25*/ meltfptr[24] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ + + /*_#IS_NOT_A__L6*/ meltfnum[5] = + !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-macro.melt:3654:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L6*/ meltfnum[5] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:3655:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3656:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (melt_ptr_t)(/*_.CURCOMP__V31*/ meltfptr[30]));} - ; - /*epilog*/ - } + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3655:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (melt_ptr_t)0);} ; - } else {MELT_LOCATION("warmelt-macro.melt:3655:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3658:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V28*/ meltfptr[27]), ( "bad content in CODE_CHUNK - expecting string or symbol"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:3657:/ quasiblock"); - - - /*epilog*/ - } + /*epilog*/ + } + ; + } /*noelse*/ + ; + /*_.PAIR_TAIL__V26*/ meltfptr[25] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3656:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; + MELT_LOCATION("warmelt-macro.melt:3657:/ quasiblock"); + + + /*_.CUREXP__V28*/ meltfptr[27] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3658:/ quasiblock"); + + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[5]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ meltfptr[24]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ meltfptr[27]; + /*^apply.arg*/ + argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.FLDA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:3659:/ cond"); + /*cond*/ if (/*_.FLDA__V29*/ meltfptr[28]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3660:/ locexp"); + meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ meltfptr[28]));} ; + /*epilog*/ } ; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3652:/ clear"); - /*clear*/ /*_#IS_A__L6*/ meltfnum[5] = 0 ;} + } /*noelse*/ ; - } + + MELT_LOCATION("warmelt-macro.melt:3658:/ clear"); + /*clear*/ /*_.FLDA__V29*/ meltfptr[28] = 0 ; + + MELT_LOCATION("warmelt-macro.melt:3657:/ clear"); + /*clear*/ /*_.CUREXP__V28*/ meltfptr[27] = 0 ; + + MELT_LOCATION("warmelt-macro.melt:3653:/ clear"); + /*clear*/ /*_.CURFKW__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_NOT_A__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; + /*_.PAIR_TAIL__V30*/ meltfptr[28] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3662:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V31*/ meltfptr[27] = /*_.PAIR_TAIL__V30*/ meltfptr[28];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3651:/ clear"); + /*clear*/ /*_#IS_PAIR__L4*/ meltfnum[3] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V31*/ meltfptr[27] = 0 ;} ; - } /* end cit1__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-macro.melt:3649:/ clear"); - /*clear*/ /*_.CURPAIR__V30*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCOMP__V31*/ meltfptr[30] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_STRING__L5*/ meltfnum[4] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + goto labloop_INSLOOP_6; + labexit_INSLOOP_6:;/*^loopepilog*/ + /*loopepilog*/ + /*_.FOREVER___V23*/ meltfptr[22] = /*_.INSLOOP__V24*/ meltfptr[23];; + } ; - MELT_LOCATION("warmelt-macro.melt:3660:/ quasiblock"); - + MELT_LOCATION("warmelt-macro.melt:3664:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3661:/ cond"); - /*cond*/ if (/*_.LOC__V28*/ meltfptr[27]) /*then*/ { - /*^cond.then*/ - /*_.OR___V34*/ meltfptr[33] = /*_.LOC__V28*/ meltfptr[27];; - } else {MELT_LOCATION("warmelt-macro.melt:3661:/ cond.else"); - /*_.OR___V34*/ meltfptr[33] = /*_.SLOC__V11*/ meltfptr[10];; - } - ; - MELT_LOCATION("warmelt-macro.melt:3663:/ apply"); + /*^apply*/ /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[8]); - /*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CHKLIST__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[7]); + /*_.FASTUP__V33*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3660:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3665:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CODECHUNK*/ meltfrout->tabval[6])), (4), "CLASS_SOURCE_CODECHUNK"); - /*_.INST__V37*/ meltfptr[36] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ meltfrout->tabval[8])), (4), "CLASS_SOURCE_UNSAFE_PUT_FIELDS"); + /*_.INST__V35*/ meltfptr[28] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (1), (/*_.OR___V34*/ meltfptr[33]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SCH_GENSYM", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (2), (/*_.GSYM__V15*/ meltfptr[14]), "SCH_GENSYM"); + melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (2), (/*_.OBJEXP__V17*/ meltfptr[16]), "SUPUT_OBJ"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SCH_CHUNKS", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ meltfptr[36])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V37*/ meltfptr[36]), (3), (/*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34]), "SCH_CHUNKS"); - ; - /*_.MRES__V36*/ meltfptr[35] = /*_.INST__V37*/ meltfptr[36];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3665:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3665:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_code_chunk result"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3665; - /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.MRES__V36*/ meltfptr[35]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3665:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:3666:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.MRES__V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:3666:/ finalreturn"); + melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (3), (/*_.FASTUP__V33*/ meltfptr[25]), "SUPUT_FIELDS"); ; - /*finalret*/ goto labend_rout ; - /*_.LET___V33*/ meltfptr[31] = /*_.RETURN___V40*/ meltfptr[38];; + /*_.INST___V34*/ meltfptr[26] = /*_.INST__V35*/ meltfptr[28];; + /*^compute*/ + + /*_.LET___V32*/ meltfptr[24] = /*_.INST___V34*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3660:/ clear"); - /*clear*/ /*_.OR___V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.MRES__V36*/ meltfptr[35] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3664:/ clear"); + /*clear*/ /*_.FASTUP__V33*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; - /*_.LET___V27*/ meltfptr[26] = /*_.LET___V33*/ meltfptr[31];; + /*clear*/ /*_.INST___V34*/ meltfptr[26] = 0 ; + /*_.LET___V21*/ meltfptr[20] = /*_.LET___V32*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3646:/ clear"); - /*clear*/ /*_.LOC__V28*/ meltfptr[27] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3649:/ clear"); + /*clear*/ /*_.FLDLIST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CHKCONT__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.FOREVER___V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V33*/ meltfptr[31] = 0 ; - /*_.LET___V9*/ meltfptr[7] = /*_.LET___V27*/ meltfptr[26];; + /*clear*/ /*_.LET___V32*/ meltfptr[24] = 0 ; + /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:3628:/ clear"); - /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.SLOC__V11*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURPAIR__V13*/ meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3637:/ clear"); + /*clear*/ /*_.FIELDS__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCHK__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.GSYM__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.CHKLIST__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CUREL__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.OBJSRC__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V22*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.OBJEXP__V17*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V19*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3625:/ quasiblock"); + /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3634:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3625:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3634:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -18754,20 +17165,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_CODE_CHUNK", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_UNSAFE_PUT_FIELDS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK*/ +} /*end meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -18780,7 +17191,7 @@ meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, me #define meltcallcount 0L #endif - struct frame_meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS_st { + struct frame_meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -18810,11 +17221,11 @@ meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, me meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", meltcallcount); +melt_trace_start("MEXPAND_PUT_FIELDS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3676:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3679:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -18839,17 +17250,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3677:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3680:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3677:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3680:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3677:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3680:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18860,7 +17271,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3677)?(3677):__LINE__, __FUNCTION__); + (3680)?(3680):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -18874,7 +17285,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3677:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3680:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -18886,17 +17297,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3678:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3681:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3678:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3681:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3678:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3681:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -18907,7 +17318,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3678)?(3678):__LINE__, __FUNCTION__); + (3681)?(3681):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -18921,7 +17332,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3678:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -18931,18 +17342,18 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3679:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3682:/ quasiblock"); /*_.FIELDS__V10*/ meltfptr[9] = (/*nil*/NULL);; /*^compute*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3681:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3684:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3682:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3685:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -18960,13 +17371,13 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3686:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3689:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3687:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3690:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -18980,7 +17391,7 @@ lab_endgetargs:; /*_.OBJEXP__V17*/ meltfptr[16] = /*_.MACROEXPAND_1__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3686:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3689:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ meltfptr[17] = 0 ;} ; } else {/*^cond.else*/ @@ -18992,15 +17403,15 @@ lab_endgetargs:; /*_.PAIR_TAIL__V19*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3690:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3693:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:3691:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3694:/ quasiblock"); /*_.FLDLIST__V22*/ meltfptr[21] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; - MELT_LOCATION("warmelt-macro.melt:3693:/ loop"); - /*loop*/{ labloop_INSLOOP_6:;/*^loopbody*/ + MELT_LOCATION("warmelt-macro.melt:3696:/ loop"); + /*loop*/{ labloop_INSLOOP_7:;/*^loopbody*/ /*^block*/ /*anyblock*/{ @@ -19011,7 +17422,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_PAIR__L4*/ meltfnum[3]));; - MELT_LOCATION("warmelt-macro.melt:3694:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3697:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19025,14 +17436,14 @@ lab_endgetargs:; /*^exit*/ /*exit*/{ - goto labexit_INSLOOP_6;} + goto labexit_INSLOOP_7;} ; /*epilog*/ } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3695:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3698:/ quasiblock"); /*_.CURFKW__V25*/ meltfptr[24] = @@ -19041,7 +17452,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L6*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3696:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3699:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19049,8 +17460,8 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3697:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3700:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting heyword in PUT_FIELDS"), (melt_ptr_t)0);} ; /*epilog*/ } @@ -19059,14 +17470,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3698:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3701:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:3699:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3702:/ quasiblock"); /*_.CUREXP__V28*/ meltfptr[27] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3700:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3703:/ quasiblock"); /*^apply*/ @@ -19086,7 +17497,7 @@ lab_endgetargs:; /*_.FLDA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3701:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3704:/ cond"); /*cond*/ if (/*_.FLDA__V29*/ meltfptr[28]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19094,7 +17505,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3702:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:3705:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ meltfptr[28]));} ; /*epilog*/ @@ -19103,13 +17514,13 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3700:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3703:/ clear"); /*clear*/ /*_.FLDA__V29*/ meltfptr[28] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3699:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3702:/ clear"); /*clear*/ /*_.CUREXP__V28*/ meltfptr[27] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3695:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3698:/ clear"); /*clear*/ /*_.CURFKW__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L6*/ meltfnum[5] = 0 ; @@ -19119,11 +17530,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; /*_.PAIR_TAIL__V30*/ meltfptr[28] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3704:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3707:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V31*/ meltfptr[27] = /*_.PAIR_TAIL__V30*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3693:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3696:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; @@ -19133,13 +17544,13 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V31*/ meltfptr[27] = 0 ;} ; ; - goto labloop_INSLOOP_6; - labexit_INSLOOP_6:;/*^loopepilog*/ + goto labloop_INSLOOP_7; + labexit_INSLOOP_7:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V23*/ meltfptr[22] = /*_.INSLOOP__V24*/ meltfptr[23];; } ; - MELT_LOCATION("warmelt-macro.melt:3706:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3709:/ quasiblock"); /*^apply*/ @@ -19151,12 +17562,12 @@ lab_endgetargs:; /*_.FASTUP__V33*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:3707:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3710:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ meltfrout->tabval[8])), (4), "CLASS_SOURCE_UNSAFE_PUT_FIELDS"); + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ meltfrout->tabval[8])), (4), "CLASS_SOURCE_PUT_FIELDS"); /*_.INST__V35*/ meltfptr[28] = newobj; }; ; @@ -19180,13 +17591,13 @@ lab_endgetargs:; /*_.LET___V32*/ meltfptr[24] = /*_.INST___V34*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3706:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3709:/ clear"); /*clear*/ /*_.FASTUP__V33*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V34*/ meltfptr[26] = 0 ; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V32*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3691:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3694:/ clear"); /*clear*/ /*_.FLDLIST__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V23*/ meltfptr[22] = 0 ; @@ -19194,7 +17605,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V32*/ meltfptr[24] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:3679:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3682:/ clear"); /*clear*/ /*_.FIELDS__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = 0 ; @@ -19218,11 +17629,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3676:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3679:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3676:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3679:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -19237,20 +17648,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_UNSAFE_PUT_FIELDS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_PUT_FIELDS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS*/ +} /*end meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19263,7 +17674,7 @@ meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS_st { + struct frame_meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -19271,8 +17682,8 @@ meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 35 - void* mcfr_varptr[35]; +#define MELTFRAM_NBVARPTR 33 + void* mcfr_varptr[33]; #define MELTFRAM_NBVARNUM 6 long mcfr_varnum[6]; /*others*/ @@ -19283,21 +17694,21 @@ meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<35; ix++) + for(ix=0; ix<33; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 35; + meltfram__.mcfr_nbvar = 33; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_PUT_FIELDS", meltcallcount); +melt_trace_start("MEXPAND_UNSAFE_GET_FIELD", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3721:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3725:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19322,17 +17733,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3722:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3726:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3722:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3726:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3722:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3726:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19343,7 +17754,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3722)?(3722):__LINE__, __FUNCTION__); + (3726)?(3726):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -19357,7 +17768,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3722:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3726:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -19369,17 +17780,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3723:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3727:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3723:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3727:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3723:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3727:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19390,7 +17801,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3723)?(3723):__LINE__, __FUNCTION__); + (3727)?(3727):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -19404,7 +17815,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3723:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3727:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -19414,298 +17825,279 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3724:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3728:/ quasiblock"); - /*_.FIELDS__V10*/ meltfptr[9] = (/*nil*/NULL);; - /*^compute*/ - - /*_.FIELDNAMS__V11*/ meltfptr[10] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3726:/ getslot"); + /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3727:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3729:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; - /*_.LIST_FIRST__V14*/ meltfptr[13] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; + /*_.LIST_FIRST__V12*/ meltfptr[11] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ meltfptr[9])));; /*^compute*/ - /*_.CURPAIR__V15*/ meltfptr[14] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; + /*_.CURPAIR__V13*/ meltfptr[12] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; /*^compute*/ - /*_.OBJSRC__V16*/ meltfptr[15] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*_.CURFKW__V14*/ meltfptr[13] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; /*^compute*/ - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3731:/ cond"); - /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { + /*_#IS_NOT_A__L3*/ meltfnum[0] = + !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; + MELT_LOCATION("warmelt-macro.melt:3733:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3732:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + + { + MELT_LOCATION("warmelt-macro.melt:3735:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "field keyword expected in UNSAFE_GET_FIELD"), (melt_ptr_t)0);} ; - /*_.OBJEXP__V17*/ meltfptr[16] = /*_.MACROEXPAND_1__V18*/ meltfptr[17];; + MELT_LOCATION("warmelt-macro.melt:3736:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-macro.melt:3736:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:3734:/ quasiblock"); + + + /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; + /*^compute*/ + + /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3731:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V18*/ meltfptr[17] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:3733:/ clear"); + /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} ; } else {/*^cond.else*/ - /*_.OBJEXP__V17*/ meltfptr[16] = /*_.OBJSRC__V16*/ meltfptr[15];; + /*_.IF___V15*/ meltfptr[14] = NULL;; } ; /*^compute*/ - /*_.PAIR_TAIL__V19*/ meltfptr[17] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3735:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:3736:/ quasiblock"); - + /*_.PAIR_TAIL__V18*/ meltfptr[15] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3737:/ compute"); + /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; + MELT_LOCATION("warmelt-macro.melt:3738:/ quasiblock"); - /*_.FLDLIST__V22*/ meltfptr[21] = - (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; - MELT_LOCATION("warmelt-macro.melt:3738:/ loop"); - /*loop*/{ labloop_INSLOOP_7:;/*^loopbody*/ - /*^block*/ - /*anyblock*/{ - - /*_#IS_PAIR__L4*/ meltfnum[3] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - /*^compute*/ + /*_.CUREXP__V21*/ meltfptr[20] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + /*^compute*/ - /*_#NOT__L5*/ meltfnum[4] = - (!(/*_#IS_PAIR__L4*/ meltfnum[3]));; - MELT_LOCATION("warmelt-macro.melt:3739:/ cond"); - /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*^quasiblock*/ - - - /*^compute*/ - /*_.INSLOOP__V24*/ meltfptr[23] = NULL;; - - /*^exit*/ - /*exit*/{ - goto labexit_INSLOOP_7;} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3740:/ quasiblock"); + /*_.PAIR_TAIL__V22*/ meltfptr[21] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3739:/ compute"); + /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; + MELT_LOCATION("warmelt-macro.melt:3740:/ cond"); + /*cond*/ if (/*_.CURPAIR__V13*/ meltfptr[12]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - /*_.CURFKW__V25*/ meltfptr[24] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - /*^compute*/ - - /*_#IS_NOT_A__L6*/ meltfnum[5] = - !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3741:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L6*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3742:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "expecting heyword in PUT_FIELDS"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ + { + /*^locexp*/ + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);} ; - /*_.PAIR_TAIL__V26*/ meltfptr[25] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3743:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:3744:/ quasiblock"); + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:3743:/ quasiblock"); + + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[5]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ meltfptr[10]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ meltfptr[13]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ meltfptr[20]; + /*^apply.arg*/ + argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.FLDA__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_#IS_A__L4*/ meltfnum[3] = + melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[4])));; + /*^compute*/ + + /*_#NOT__L5*/ meltfnum[4] = + (!(/*_#IS_A__L4*/ meltfnum[3]));; + MELT_LOCATION("warmelt-macro.melt:3744:/ cond"); + /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - /*_.CUREXP__V28*/ meltfptr[27] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3745:/ quasiblock"); + { + MELT_LOCATION("warmelt-macro.melt:3746:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "bad field and expression in UNSAFE_GET_FIELD"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:3747:/ quasiblock"); - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ meltfptr[12]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ meltfptr[24]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ meltfptr[27]; - /*^apply.arg*/ - argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.FLDA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:3746:/ cond"); - /*cond*/ if (/*_.FLDA__V29*/ meltfptr[28]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3747:/ locexp"); - meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ meltfptr[28]));} - ; - /*epilog*/ - } - ; - } /*noelse*/ + /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-macro.melt:3747:/ finalreturn"); ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:3745:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3745:/ clear"); - /*clear*/ /*_.FLDA__V29*/ meltfptr[28] = 0 ; - - MELT_LOCATION("warmelt-macro.melt:3744:/ clear"); - /*clear*/ /*_.CUREXP__V28*/ meltfptr[27] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3740:/ clear"); - /*clear*/ /*_.CURFKW__V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V27*/ meltfptr[26] = 0 ; - /*_.PAIR_TAIL__V30*/ meltfptr[28] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3749:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V31*/ meltfptr[27] = /*_.PAIR_TAIL__V30*/ meltfptr[28];; + /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; + /*^compute*/ + + /*_.IF___V26*/ meltfptr[25] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3738:/ clear"); - /*clear*/ /*_#IS_PAIR__L4*/ meltfnum[3] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[28] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3744:/ clear"); + /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V31*/ meltfptr[27] = 0 ;} - ; + /*clear*/ /*_.PROGN___V28*/ meltfptr[27] = 0 ;} ; - goto labloop_INSLOOP_7; - labexit_INSLOOP_7:;/*^loopepilog*/ - /*loopepilog*/ - /*_.FOREVER___V23*/ meltfptr[22] = /*_.INSLOOP__V24*/ meltfptr[23];; + } else {/*^cond.else*/ + + /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3751:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3748:/ quasiblock"); - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[7]); - /*_.FASTUP__V33*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ meltfptr[27] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:3749:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ meltfptr[30] = slot; }; + ; + /*_#NULL__L6*/ meltfnum[5] = + ((/*_.EXP__V31*/ meltfptr[30]) == NULL);; + MELT_LOCATION("warmelt-macro.melt:3750:/ cond"); + /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3751:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing object expression for (UNSAFE_GET_FIELD :field objexpr)"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ ; MELT_LOCATION("warmelt-macro.melt:3752:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ meltfrout->tabval[8])), (4), "CLASS_SOURCE_PUT_FIELDS"); - /*_.INST__V35*/ meltfptr[28] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD"); + /*_.INST__V33*/ meltfptr[32] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (1), (/*_.LOC__V11*/ meltfptr[10]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (2), (/*_.OBJEXP__V17*/ meltfptr[16]), "SUPUT_OBJ"); + melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (2), (/*_.EXP__V31*/ meltfptr[30]), "SUGET_OBJ"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ meltfptr[28])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V35*/ meltfptr[28]), (3), (/*_.FASTUP__V33*/ meltfptr[25]), "SUPUT_FIELDS"); + melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (3), (/*_.FLD__V30*/ meltfptr[27]), "SUGET_FIELD"); ; - /*_.INST___V34*/ meltfptr[26] = /*_.INST__V35*/ meltfptr[28];; + /*_.INST___V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; /*^compute*/ - /*_.LET___V32*/ meltfptr[24] = /*_.INST___V34*/ meltfptr[26];; + /*_.LET___V29*/ meltfptr[26] = /*_.INST___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:3751:/ clear"); - /*clear*/ /*_.FASTUP__V33*/ meltfptr[25] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3748:/ clear"); + /*clear*/ /*_.FLD__V30*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V34*/ meltfptr[26] = 0 ; - /*_.LET___V21*/ meltfptr[20] = /*_.LET___V32*/ meltfptr[24];; + /*clear*/ /*_.EXP__V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V32*/ meltfptr[31] = 0 ; + /*_.LET___V24*/ meltfptr[23] = /*_.LET___V29*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3736:/ clear"); - /*clear*/ /*_.FLDLIST__V22*/ meltfptr[21] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3743:/ clear"); + /*clear*/ /*_.FLDA__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.FOREVER___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ meltfptr[24] = 0 ; - /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[20];; + /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V29*/ meltfptr[26] = 0 ; + /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3724:/ clear"); - /*clear*/ /*_.FIELDS__V10*/ meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3738:/ clear"); + /*clear*/ /*_.CUREXP__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FIELDNAMS__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; + /*_.LET___V9*/ meltfptr[7] = /*_.LET___V20*/ meltfptr[19];; + + MELT_LOCATION("warmelt-macro.melt:3728:/ clear"); + /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LIST_FIRST__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.OBJSRC__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURPAIR__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_.CURFKW__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.OBJEXP__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IF___V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V18*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3721:/ quasiblock"); + /*clear*/ /*_.SETQ___V19*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3725:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3721:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3725:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -19720,20 +18112,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_PUT_FIELDS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_UNSAFE_GET_FIELD", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS*/ +} /*end meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -19746,7 +18138,7 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, mel #define meltcallcount 0L #endif - struct frame_meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD_st { + struct frame_meltrout_62_warmelt_macro_MEXPAND_GET_FIELD_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -19776,11 +18168,11 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, mel meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_UNSAFE_GET_FIELD", meltcallcount); +melt_trace_start("MEXPAND_GET_FIELD", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3767:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3766:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -19805,17 +18197,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3768:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3767:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3768:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3767:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3768:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3767:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19826,7 +18218,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3768)?(3768):__LINE__, __FUNCTION__); + (3767)?(3767):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -19840,7 +18232,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3768:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3767:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -19852,17 +18244,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3769:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3768:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3769:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3768:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3769:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3768:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -19873,7 +18265,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3769)?(3769):__LINE__, __FUNCTION__); + (3768)?(3768):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -19887,7 +18279,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3769:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3768:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -19897,14 +18289,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3770:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3769:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3771:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3770:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -19922,7 +18314,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L3*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3775:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3774:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19930,17 +18322,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3777:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "field keyword expected in UNSAFE_GET_FIELD"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3776:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "field keyword expected in GET_FIELD"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3778:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3777:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3778:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3777:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3776:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3775:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; @@ -19949,7 +18341,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3775:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3774:/ clear"); /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} @@ -19963,9 +18355,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V18*/ meltfptr[15] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3779:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3778:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:3780:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3779:/ quasiblock"); /*_.CUREXP__V21*/ meltfptr[20] = @@ -19974,9 +18366,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V22*/ meltfptr[21] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3781:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3780:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3782:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3781:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19992,7 +18384,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3785:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3784:/ quasiblock"); /*^apply*/ @@ -20018,7 +18410,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_A__L4*/ meltfnum[3]));; - MELT_LOCATION("warmelt-macro.melt:3786:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3785:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20026,17 +18418,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3788:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "bad field and expression in UNSAFE_GET_FIELD"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3787:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "bad field and expression in GET_FIELD"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3789:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3788:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3789:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3788:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3787:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3786:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; @@ -20045,7 +18437,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3786:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3785:/ clear"); /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V28*/ meltfptr[27] = 0 ;} @@ -20055,20 +18447,20 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3790:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3789:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ meltfptr[27] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3791:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3790:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ meltfptr[30] = slot; }; ; /*_#NULL__L6*/ meltfnum[5] = ((/*_.EXP__V31*/ meltfptr[30]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:3792:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3791:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -20076,20 +18468,20 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3793:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing object expression for (UNSAFE_GET_FIELD :field objexpr)"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3792:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing object expression for (GET_FIELD :field objexpr)"), (melt_ptr_t)0);} ; /*epilog*/ } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3794:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3793:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD"); + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_GET_FIELD"); /*_.INST__V33*/ meltfptr[32] = newobj; }; ; @@ -20113,7 +18505,7 @@ lab_endgetargs:; /*_.LET___V29*/ meltfptr[26] = /*_.INST___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:3790:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3789:/ clear"); /*clear*/ /*_.FLD__V30*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.EXP__V31*/ meltfptr[30] = 0 ; @@ -20123,7 +18515,7 @@ lab_endgetargs:; /*clear*/ /*_.INST___V32*/ meltfptr[31] = 0 ; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V29*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:3785:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3784:/ clear"); /*clear*/ /*_.FLDA__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; @@ -20135,7 +18527,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V29*/ meltfptr[26] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3780:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3779:/ clear"); /*clear*/ /*_.CUREXP__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V22*/ meltfptr[21] = 0 ; @@ -20145,7 +18537,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:3770:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3769:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -20165,11 +18557,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3767:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3766:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3767:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3766:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -20184,20 +18576,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_UNSAFE_GET_FIELD", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_GET_FIELD", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD*/ +} /*end meltrout_62_warmelt_macro_MEXPAND_GET_FIELD*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20210,7 +18602,7 @@ meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_63_warmelt_macro_MEXPAND_GET_FIELD_st { + struct frame_meltrout_63_warmelt_macro_MEXPAND_SETQ_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -20218,10 +18610,10 @@ meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 33 - void* mcfr_varptr[33]; -#define MELTFRAM_NBVARNUM 6 - long mcfr_varnum[6]; +#define MELTFRAM_NBVARPTR 26 + void* mcfr_varptr[26]; +#define MELTFRAM_NBVARNUM 3 + long mcfr_varnum[3]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -20230,17 +18622,17 @@ meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<33; ix++) + for(ix=0; ix<26; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 33; + meltfram__.mcfr_nbvar = 26; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_GET_FIELD", meltcallcount); +melt_trace_start("MEXPAND_SETQ", meltcallcount); /*getargs*/ /*getarg#0*/ @@ -20380,224 +18772,121 @@ lab_endgetargs:; (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; /*^compute*/ - /*_.CURFKW__V14*/ meltfptr[13] = + /*_.CURSYM__V14*/ meltfptr[13] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; /*^compute*/ /*_#IS_NOT_A__L3*/ meltfnum[0] = - !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; + !melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-macro.melt:3816:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3818:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "field keyword expected in GET_FIELD"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:3819:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3819:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3817:/ quasiblock"); - - - /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; - /*^compute*/ - - /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3816:/ clear"); - /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V15*/ meltfptr[14] = NULL;; - } - ; - /*^compute*/ - - /*_.PAIR_TAIL__V18*/ meltfptr[15] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3820:/ compute"); - /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:3821:/ quasiblock"); - - - /*_.CUREXP__V21*/ meltfptr[20] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - /*^compute*/ - - /*_.PAIR_TAIL__V22*/ meltfptr[21] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3822:/ compute"); - /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3823:/ cond"); - /*cond*/ if (/*_.CURPAIR__V13*/ meltfptr[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3826:/ quasiblock"); - - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[5]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ meltfptr[10]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ meltfptr[13]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ meltfptr[20]; - /*^apply.arg*/ - argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.FLDA__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#IS_A__L4*/ meltfnum[3] = - melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[4])));; - /*^compute*/ - - /*_#NOT__L5*/ meltfnum[4] = - (!(/*_#IS_A__L4*/ meltfnum[3]));; - MELT_LOCATION("warmelt-macro.melt:3827:/ cond"); - /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { + /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:3829:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "bad field and expression in GET_FIELD"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3818:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "var symbol name expected in SETQ"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:3830:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3819:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3830:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3819:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3828:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3817:/ quasiblock"); - /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; + /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; /*^compute*/ - /*_.IF___V26*/ meltfptr[25] = /*_.PROGN___V28*/ meltfptr[27];; + /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3827:/ clear"); - /*clear*/ /*_.RETURN___V27*/ meltfptr[26] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3816:/ clear"); + /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V28*/ meltfptr[27] = 0 ;} + /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V26*/ meltfptr[25] = NULL;; + /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:3831:/ quasiblock"); + /*^compute*/ + + /*_.PAIR_TAIL__V18*/ meltfptr[15] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3820:/ compute"); + /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; + MELT_LOCATION("warmelt-macro.melt:3821:/ quasiblock"); - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ meltfptr[27] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:3832:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ meltfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ meltfptr[30] = slot; }; - ; - /*_#NULL__L6*/ meltfnum[5] = - ((/*_.EXP__V31*/ meltfptr[30]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:3833:/ cond"); - /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { + /*_.CUREXP__V21*/ meltfptr[20] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + /*^compute*/ + + /*_.PAIR_TAIL__V22*/ meltfptr[21] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; + MELT_LOCATION("warmelt-macro.melt:3822:/ compute"); + /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; + MELT_LOCATION("warmelt-macro.melt:3823:/ cond"); + /*cond*/ if (/*_.CURPAIR__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:3834:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing object expression for (GET_FIELD :field objexpr)"), (melt_ptr_t)0);} + /*^locexp*/ + melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "SETQ with more than two sons"), (melt_ptr_t)0);} ; /*epilog*/ } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3835:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3827:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CUREXP__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:3824:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_GET_FIELD"); - /*_.INST__V33*/ meltfptr[32] = + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ meltfrout->tabval[3])), (4), "CLASS_SOURCE_SETQ"); + /*_.INST__V26*/ meltfptr[25] = newobj; }; ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (1), (/*_.LOC__V11*/ meltfptr[10]), "LOCA_LOCATION"); + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (1), (/*_.LOC__V11*/ meltfptr[10]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (2), (/*_.EXP__V31*/ meltfptr[30]), "SUGET_OBJ"); + melt_assertmsg("putslot checkobj @SSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (2), (/*_.CURSYM__V14*/ meltfptr[13]), "SSTQ_VAR"); ; /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ meltfptr[32])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V33*/ meltfptr[32]), (3), (/*_.FLD__V30*/ meltfptr[27]), "SUGET_FIELD"); + melt_assertmsg("putslot checkobj @SSTQ_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (3), (/*_.MACROEXPAND_1__V24*/ meltfptr[23]), "SSTQ_EXPR"); ; - /*_.INST___V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; + /*_.INST___V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; /*^compute*/ - /*_.LET___V29*/ meltfptr[26] = /*_.INST___V32*/ meltfptr[31];; - - MELT_LOCATION("warmelt-macro.melt:3831:/ clear"); - /*clear*/ /*_.FLD__V30*/ meltfptr[27] = 0 ; - /*^clear*/ - /*clear*/ /*_.EXP__V31*/ meltfptr[30] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V32*/ meltfptr[31] = 0 ; - /*_.LET___V24*/ meltfptr[23] = /*_.LET___V29*/ meltfptr[26];; - - MELT_LOCATION("warmelt-macro.melt:3826:/ clear"); - /*clear*/ /*_.FLDA__V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V26*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V29*/ meltfptr[26] = 0 ; - /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; + /*_.LET___V20*/ meltfptr[19] = /*_.INST___V25*/ meltfptr[24];; MELT_LOCATION("warmelt-macro.melt:3821:/ clear"); /*clear*/ /*_.CUREXP__V21*/ meltfptr[20] = 0 ; @@ -20606,7 +18895,9 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MACROEXPAND_1__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V25*/ meltfptr[24] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V20*/ meltfptr[19];; MELT_LOCATION("warmelt-macro.melt:3811:/ clear"); @@ -20618,7 +18909,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.CURPAIR__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFKW__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.CURSYM__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ @@ -20648,20 +18939,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_GET_FIELD", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_SETQ", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_63_warmelt_macro_MEXPAND_GET_FIELD*/ +} /*end meltrout_63_warmelt_macro_MEXPAND_SETQ*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -20674,7 +18965,7 @@ meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_64_warmelt_macro_MEXPAND_SETQ_st { + struct frame_meltrout_64_warmelt_macro_MEXPAND_IF_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -20682,10 +18973,10 @@ meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firs struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 26 - void* mcfr_varptr[26]; -#define MELTFRAM_NBVARNUM 3 - long mcfr_varnum[3]; +#define MELTFRAM_NBVARPTR 50 + void* mcfr_varptr[50]; +#define MELTFRAM_NBVARNUM 14 + long mcfr_varnum[14]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -20694,309 +18985,698 @@ meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firs int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<26; ix++) + for(ix=0; ix<50; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 26; + meltfram__.mcfr_nbvar = 50; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_SETQ", meltcallcount); +melt_trace_start("MEXPAND_IF", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3850:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3838:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3839:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3839:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3839:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3839)?(3839):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3839:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3840:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:3840:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3840:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3840)?(3840):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3840:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3841:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3841:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if sexpr"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3841; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3841:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3842:/ quasiblock"); + + MELT_LOCATION("warmelt-macro.melt:3843:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:3844:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; + ; + /*_.LIST_FIRST__V14*/ meltfptr[13] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; + /*^compute*/ + + /*_.CURPAIR__V15*/ meltfptr[14] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; + /*^compute*/ + + /*_.CURIF__V16*/ meltfptr[15] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ + + /*_#IS_PAIR__L4*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + /*^compute*/ + + /*_#NOT__L5*/ meltfnum[4] = + (!(/*_#IS_PAIR__L4*/ meltfnum[0]));; + MELT_LOCATION("warmelt-macro.melt:3847:/ cond"); + /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3848:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing condition in IF"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + /*_.PAIR_TAIL__V17*/ meltfptr[16] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3849:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V18*/ meltfptr[17] = /*_.PAIR_TAIL__V17*/ meltfptr[16];; + /*_#IS_PAIR__L6*/ meltfnum[5] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + /*^compute*/ + + /*_#NOT__L7*/ meltfnum[6] = + (!(/*_#IS_PAIR__L6*/ meltfnum[5]));; + MELT_LOCATION("warmelt-macro.melt:3850:/ cond"); + /*cond*/ if (/*_#NOT__L7*/ meltfnum[6]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3851:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing then in IF"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:3852:/ quasiblock"); - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.XCOND__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3851:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3853:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3851:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3851:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3851)?(3851):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; + /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3853:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if xcond"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3853; + /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3851:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3853:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; + MELT_LOCATION("warmelt-macro.melt:3854:/ quasiblock"); + + + /*_.CURTHEN__V24*/ meltfptr[23] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ + + /*_.PAIR_TAIL__V25*/ meltfptr[24] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3855:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[24];; + MELT_LOCATION("warmelt-macro.melt:3856:/ quasiblock"); + + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.XTHEN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3852:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3857:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3852:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3852:/ cond.else"); + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3857:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if xthen"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3857; + /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; + /*epilog*/ - /*^block*/ + MELT_LOCATION("warmelt-macro.melt:3857:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#IS_PAIR__L10*/ meltfnum[7] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + MELT_LOCATION("warmelt-macro.melt:3858:/ cond"); + /*cond*/ if (/*_#IS_PAIR__L10*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3859:/ quasiblock"); + + + /*_.CURELSE__V33*/ meltfptr[32] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3860:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.XELSE__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3861:/ cppif.then"); + /*^block*/ /*anyblock*/{ + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3861:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if xelse"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3861; + /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XELSE__V34*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; + /*epilog*/ + MELT_LOCATION("warmelt-macro.melt:3861:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_.PAIR_TAIL__V37*/ meltfptr[35] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3862:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_TAIL__V37*/ meltfptr[35];; + /*_#IS_PAIR__L12*/ meltfnum[10] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + MELT_LOCATION("warmelt-macro.melt:3863:/ cond"); + /*cond*/ if (/*_#IS_PAIR__L12*/ meltfnum[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3852)?(3852):__LINE__, __FUNCTION__); -;} + MELT_LOCATION("warmelt-macro.melt:3864:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "IF with more than three sons"), (melt_ptr_t)0);} ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; /*epilog*/ } ; - } + } /*noelse*/ ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ + MELT_LOCATION("warmelt-macro.melt:3865:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3852:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:3853:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:3854:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; - ; - /*_.LIST_FIRST__V12*/ meltfptr[11] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ meltfptr[9])));; - /*^compute*/ - - /*_.CURPAIR__V13*/ meltfptr[12] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.CURSYM__V14*/ meltfptr[13] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - /*^compute*/ - - /*_#IS_NOT_A__L3*/ meltfnum[0] = - !melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:3858:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ + MELT_LOCATION("warmelt-macro.melt:3866:/ quasiblock"); - { - MELT_LOCATION("warmelt-macro.melt:3860:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "var symbol name expected in SETQ"), (melt_ptr_t)0);} + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[4])), (5), "CLASS_SOURCE_IFELSE"); + /*_.INST__V41*/ meltfptr[40] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIF_TEST"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (3), (/*_.XTHEN__V28*/ meltfptr[27]), "SIF_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (4), (/*_.XELSE__V34*/ meltfptr[33]), "SIF_ELSE"); ; - MELT_LOCATION("warmelt-macro.melt:3861:/ quasiblock"); + /*_.RESE__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3872:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3872:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if with else return rese"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3872; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESE__V40*/ meltfptr[39]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3872:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3873:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3861:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V40*/ meltfptr[39];; + MELT_LOCATION("warmelt-macro.melt:3873:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3859:/ quasiblock"); + /*_.LET___V39*/ meltfptr[38] = /*_.RETURN___V44*/ meltfptr[42];; + MELT_LOCATION("warmelt-macro.melt:3865:/ clear"); + /*clear*/ /*_.RESE__V40*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V44*/ meltfptr[42] = 0 ; + /*_.LET___V32*/ meltfptr[31] = /*_.LET___V39*/ meltfptr[38];; - /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; - /*^compute*/ - - /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; + MELT_LOCATION("warmelt-macro.melt:3859:/ clear"); + /*clear*/ /*_.CURELSE__V33*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.XELSE__V34*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V37*/ meltfptr[35] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V38*/ meltfptr[37] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_PAIR__L12*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V39*/ meltfptr[38] = 0 ; + /*_.IFELSE___V31*/ meltfptr[29] = /*_.LET___V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3858:/ clear"); - /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} + /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ;} ; } else {/*^cond.else*/ - /*_.IF___V15*/ meltfptr[14] = NULL;; - } - ; - /*^compute*/ - - /*_.PAIR_TAIL__V18*/ meltfptr[15] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3862:/ compute"); - /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:3863:/ quasiblock"); - - - /*_.CUREXP__V21*/ meltfptr[20] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - /*^compute*/ - - /*_.PAIR_TAIL__V22*/ meltfptr[21] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:3864:/ compute"); - /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3865:/ cond"); - /*cond*/ if (/*_.CURPAIR__V13*/ meltfptr[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-macro.melt:3874:/ quasiblock"); - { - /*^locexp*/ - melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "SETQ with more than two sons"), (melt_ptr_t)0);} + + /*^quasiblock*/ + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_IF"); + /*_.INST__V47*/ meltfptr[42] = + newobj; }; ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3869:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CUREXP__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:3866:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ meltfrout->tabval[3])), (4), "CLASS_SOURCE_SETQ"); - /*_.INST__V26*/ meltfptr[25] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (1), (/*_.LOC__V11*/ meltfptr[10]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (2), (/*_.CURSYM__V14*/ meltfptr[13]), "SSTQ_VAR"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SSTQ_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V26*/ meltfptr[25]), (3), (/*_.MACROEXPAND_1__V24*/ meltfptr[23]), "SSTQ_EXPR"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIF_TEST"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (3), (/*_.XTHEN__V28*/ meltfptr[27]), "SIF_THEN"); + ; + /*_.RESP__V46*/ meltfptr[41] = /*_.INST__V47*/ meltfptr[42];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3878:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3878:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_if plain return resp"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3878; + /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V46*/ meltfptr[41]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V48*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3878:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V48*/ meltfptr[32] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3879:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V46*/ meltfptr[41];; + MELT_LOCATION("warmelt-macro.melt:3879:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V45*/ meltfptr[39] = /*_.RETURN___V50*/ meltfptr[34];; + + MELT_LOCATION("warmelt-macro.melt:3874:/ clear"); + /*clear*/ /*_.RESP__V46*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V48*/ meltfptr[32] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V50*/ meltfptr[34] = 0 ; + /*_.IFELSE___V31*/ meltfptr[29] = /*_.LET___V45*/ meltfptr[39];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3858:/ clear"); + /*clear*/ /*_.LET___V45*/ meltfptr[39] = 0 ;} + ; + } ; - /*_.INST___V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; - /*^compute*/ - - /*_.LET___V20*/ meltfptr[19] = /*_.INST___V25*/ meltfptr[24];; + /*_.LET___V27*/ meltfptr[26] = /*_.IFELSE___V31*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:3863:/ clear"); - /*clear*/ /*_.CUREXP__V21*/ meltfptr[20] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3856:/ clear"); + /*clear*/ /*_.XTHEN__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_#IS_PAIR__L10*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MACROEXPAND_1__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFELSE___V31*/ meltfptr[29] = 0 ; + /*_.LET___V23*/ meltfptr[21] = /*_.LET___V27*/ meltfptr[26];; + + MELT_LOCATION("warmelt-macro.melt:3854:/ clear"); + /*clear*/ /*_.CURTHEN__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.INST___V25*/ meltfptr[24] = 0 ; - /*_.LET___V9*/ meltfptr[7] = /*_.LET___V20*/ meltfptr[19];; + /*clear*/ /*_.PAIR_TAIL__V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V26*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; + /*_.LET___V19*/ meltfptr[18] = /*_.LET___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:3853:/ clear"); - /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3852:/ clear"); + /*clear*/ /*_.XCOND__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; + /*_.LET___V11*/ meltfptr[9] = /*_.LET___V19*/ meltfptr[18];; + + MELT_LOCATION("warmelt-macro.melt:3842:/ clear"); + /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CURSYM__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[0] = 0 ; + /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.IF___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.CURIF__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V18*/ meltfptr[15] = 0 ; + /*clear*/ /*_#IS_PAIR__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V19*/ meltfptr[16] = 0 ; + /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3850:/ quasiblock"); + /*clear*/ /*_.PAIR_TAIL__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_PAIR__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3838:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:3850:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-macro.melt:3838:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -21006,25 +19686,27 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ;} + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_SETQ", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_IF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_64_warmelt_macro_MEXPAND_SETQ*/ +} /*end meltrout_64_warmelt_macro_MEXPAND_IF*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -21037,7 +19719,7 @@ meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_65_warmelt_macro_MEXPAND_IF_st { + struct frame_meltrout_65_warmelt_macro_MEXPAND_CPPIF_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -21045,10 +19727,10 @@ meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firsta struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 50 - void* mcfr_varptr[50]; -#define MELTFRAM_NBVARNUM 14 - long mcfr_varnum[14]; +#define MELTFRAM_NBVARPTR 48 + void* mcfr_varptr[48]; +#define MELTFRAM_NBVARNUM 15 + long mcfr_varnum[15]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -21057,21 +19739,21 @@ meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firsta int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<50; ix++) + for(ix=0; ix<48; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 50; + meltfram__.mcfr_nbvar = 48; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_IF", meltcallcount); +melt_trace_start("MEXPAND_CPPIF", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3880:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:3888:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -21096,17 +19778,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3881:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3889:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3881:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3889:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3881:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3889:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -21117,7 +19799,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3881)?(3881):__LINE__, __FUNCTION__); + (3889)?(3889):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -21131,7 +19813,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3881:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3889:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -21143,17 +19825,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3882:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3890:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3882:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3890:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3882:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:3890:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -21164,7 +19846,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3882)?(3882):__LINE__, __FUNCTION__); + (3890)?(3890):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -21178,7 +19860,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3882:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3890:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -21190,31 +19872,31 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3883:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3891:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3883:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3891:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if sexpr"; + argtab[0].meltbp_cstring = "mexpand_cppif sexpr"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3883; + argtab[3].meltbp_long = 3891; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3883:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3891:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -21224,14 +19906,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3884:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3892:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:3885:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3893:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:3886:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:3894:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -21253,7 +19935,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_PAIR__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:3889:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3898:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21261,8 +19943,8 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3890:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing condition in IF"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3899:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing condition in CPPIF"), (melt_ptr_t)0);} ; /*epilog*/ } @@ -21271,7 +19953,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3891:/ compute"); + MELT_LOCATION("warmelt-macro.melt:3900:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V18*/ meltfptr[17] = /*_.PAIR_TAIL__V17*/ meltfptr[16];; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; @@ -21279,7 +19961,7 @@ lab_endgetargs:; /*_#NOT__L7*/ meltfnum[6] = (!(/*_#IS_PAIR__L6*/ meltfnum[5]));; - MELT_LOCATION("warmelt-macro.melt:3892:/ cond"); + MELT_LOCATION("warmelt-macro.melt:3901:/ cond"); /*cond*/ if (/*_#NOT__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21287,15 +19969,15 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:3893:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing then in IF"), (melt_ptr_t)0);} + MELT_LOCATION("warmelt-macro.melt:3902:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing then in CPPIF"), (melt_ptr_t)0);} ; /*epilog*/ } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:3894:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3903:/ quasiblock"); /*^apply*/ @@ -21311,31 +19993,31 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3895:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3904:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3895:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3904:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if xcond"; + argtab[0].meltbp_cstring = "mexpand_cppif xcond"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3895; + argtab[3].meltbp_long = 3904; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3895:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3904:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -21345,18 +20027,80 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3896:/ quasiblock"); + /*^compute*/ + + /*_#IS_STRING__L9*/ meltfnum[7] = + (melt_magic_discr((melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19])) == MELTOBMAG_STRING);; + MELT_LOCATION("warmelt-macro.melt:3906:/ cond"); + /*cond*/ if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V23*/ meltfptr[21] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3906:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L10*/ meltfnum[9] = + melt_is_instance_of((melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; + MELT_LOCATION("warmelt-macro.melt:3907:/ cond"); + /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3907:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3909:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid cpp-condition in CPPIF - string or symbol expected"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:3910:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; + MELT_LOCATION("warmelt-macro.melt:3910:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:3908:/ quasiblock"); + + + /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; + /*^compute*/ + + /*_.IFELSE___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3907:/ clear"); + /*clear*/ /*_.RETURN___V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V26*/ meltfptr[25] = 0 ;} + ; + } + ; + /*_.IFELSE___V23*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3906:/ clear"); + /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ;} + ; + } + ; + MELT_LOCATION("warmelt-macro.melt:3911:/ quasiblock"); - /*_.CURTHEN__V24*/ meltfptr[23] = + /*_.CURTHEN__V28*/ meltfptr[25] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; /*^compute*/ - /*_.PAIR_TAIL__V25*/ meltfptr[24] = + /*_.PAIR_TAIL__V29*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3897:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3898:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3912:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[23];; + MELT_LOCATION("warmelt-macro.melt:3913:/ quasiblock"); /*^apply*/ @@ -21367,360 +20111,275 @@ lab_endgetargs:; argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.XTHEN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.XTHEN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V28*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; + /*_.XELSE__V33*/ meltfptr[32] = (/*nil*/NULL);; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3899:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3916:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3899:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3916:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if xthen"; + argtab[0].meltbp_cstring = "mexpand_cppif xthen"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3899; - /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V28*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3916; + /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V32*/ meltfptr[31]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; + /*_.IFCPP___V34*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3899:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3916:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); + /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_#IS_PAIR__L10*/ meltfnum[7] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:3900:/ cond"); - /*cond*/ if (/*_#IS_PAIR__L10*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:3901:/ quasiblock"); - - - /*_.CURELSE__V33*/ meltfptr[32] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3902:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.XELSE__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3903:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3903:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if xelse"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3903; - /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XELSE__V34*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3903:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.PAIR_TAIL__V37*/ meltfptr[35] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3904:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_TAIL__V37*/ meltfptr[35];; - /*_#IS_PAIR__L12*/ meltfnum[10] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:3905:/ cond"); - /*cond*/ if (/*_#IS_PAIR__L12*/ meltfnum[10]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3906:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "IF with more than three sons"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3907:/ quasiblock"); - + /*_#IS_PAIR__L12*/ meltfnum[9] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + MELT_LOCATION("warmelt-macro.melt:3917:/ cond"); + /*cond*/ if (/*_#IS_PAIR__L12*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3908:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3918:/ quasiblock"); - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[4])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V41*/ meltfptr[40] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (3), (/*_.XTHEN__V28*/ meltfptr[27]), "SIF_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (4), (/*_.XELSE__V34*/ meltfptr[33]), "SIF_ELSE"); + /*_.CURELSE__V36*/ meltfptr[34] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3919:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.GOTXELSE__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V36*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } ; - /*_.RESE__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3914:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3920:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3914:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3920:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if with else return rese"; + argtab[0].meltbp_cstring = "mexpand_cppif gotxelse"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3914; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESE__V40*/ meltfptr[39]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3920; + /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.GOTXELSE__V37*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; + /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3914:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3920:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); + /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3915:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:3915:/ finalreturn"); + /*^compute*/ + + /*_.PAIR_TAIL__V40*/ meltfptr[38] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:3921:/ compute"); + /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[38];; + MELT_LOCATION("warmelt-macro.melt:3922:/ compute"); + /*_.XELSE__V33*/ meltfptr[32] = /*_.SETQ___V42*/ meltfptr[41] = /*_.GOTXELSE__V37*/ meltfptr[36];; + /*_#IS_PAIR__L14*/ meltfnum[12] = + (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; + MELT_LOCATION("warmelt-macro.melt:3923:/ cond"); + /*cond*/ if (/*_#IS_PAIR__L14*/ meltfnum[12]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3924:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "CPPIF with more than three sons"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ ; - /*finalret*/ goto labend_rout ; - /*_.LET___V39*/ meltfptr[38] = /*_.RETURN___V44*/ meltfptr[42];; - - MELT_LOCATION("warmelt-macro.melt:3907:/ clear"); - /*clear*/ /*_.RESE__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V44*/ meltfptr[42] = 0 ; - /*_.LET___V32*/ meltfptr[31] = /*_.LET___V39*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:3901:/ clear"); - /*clear*/ /*_.CURELSE__V33*/ meltfptr[32] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3918:/ clear"); + /*clear*/ /*_.CURELSE__V36*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.XELSE__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.GOTXELSE__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_.SETQ___V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V39*/ meltfptr[38] = 0 ; - /*_.IFELSE___V31*/ meltfptr[29] = /*_.LET___V32*/ meltfptr[31];; + /*clear*/ /*_#IS_PAIR__L14*/ meltfnum[12] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3900:/ clear"); - /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ;} + } ; - } else {/*^cond.else*/ + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:3925:/ quasiblock"); - /*^block*/ + + /*^quasiblock*/ + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ meltfrout->tabval[5])), (5), "CLASS_SOURCE_CPPIF"); + /*_.INST__V45*/ meltfptr[37] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIFP_COND"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (3), (/*_.XTHEN__V32*/ meltfptr[31]), "SIFP_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (4), (/*_.XELSE__V33*/ meltfptr[32]), "SIFP_ELSE"); + ; + /*_.RESP__V44*/ meltfptr[36] = /*_.INST__V45*/ meltfptr[37];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3932:/ cppif.then"); + /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3916:/ quasiblock"); - - - /*^quasiblock*/ - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ meltfrout->tabval[5])), (4), "CLASS_SOURCE_IF"); - /*_.INST__V47*/ meltfptr[42] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ meltfptr[42])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V47*/ meltfptr[42]), (3), (/*_.XTHEN__V28*/ meltfptr[27]), "SIF_THEN"); - ; - /*_.RESP__V46*/ meltfptr[41] = /*_.INST__V47*/ meltfptr[42];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3920:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3920:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_if plain return resp"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3920; - /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V46*/ meltfptr[41]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V48*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3920:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[33] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V48*/ meltfptr[32] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:3921:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V46*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:3921:/ finalreturn"); + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3932:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cppif return resp"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3932; + /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V44*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V45*/ meltfptr[39] = /*_.RETURN___V50*/ meltfptr[34];; - - MELT_LOCATION("warmelt-macro.melt:3916:/ clear"); - /*clear*/ /*_.RESP__V46*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V48*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V50*/ meltfptr[34] = 0 ; - /*_.IFELSE___V31*/ meltfptr[29] = /*_.LET___V45*/ meltfptr[39];; + /*_.IFCPP___V46*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3900:/ clear"); - /*clear*/ /*_.LET___V45*/ meltfptr[39] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:3932:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V46*/ meltfptr[38] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } + MELT_LOCATION("warmelt-macro.melt:3933:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V44*/ meltfptr[36];; + MELT_LOCATION("warmelt-macro.melt:3933:/ finalreturn"); ; - /*_.LET___V27*/ meltfptr[26] = /*_.IFELSE___V31*/ meltfptr[29];; + /*finalret*/ goto labend_rout ; + /*_.LET___V43*/ meltfptr[34] = /*_.RETURN___V48*/ meltfptr[41];; + + MELT_LOCATION("warmelt-macro.melt:3925:/ clear"); + /*clear*/ /*_.RESP__V44*/ meltfptr[36] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V46*/ meltfptr[38] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V48*/ meltfptr[41] = 0 ; + /*_.LET___V31*/ meltfptr[30] = /*_.LET___V43*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:3898:/ clear"); - /*clear*/ /*_.XTHEN__V28*/ meltfptr[27] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3913:/ clear"); + /*clear*/ /*_.XTHEN__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.XELSE__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L10*/ meltfnum[7] = 0 ; + /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V31*/ meltfptr[29] = 0 ; - /*_.LET___V23*/ meltfptr[21] = /*_.LET___V27*/ meltfptr[26];; + /*clear*/ /*_#IS_PAIR__L12*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V43*/ meltfptr[34] = 0 ; + /*_.LET___V27*/ meltfptr[24] = /*_.LET___V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:3896:/ clear"); - /*clear*/ /*_.CURTHEN__V24*/ meltfptr[23] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3911:/ clear"); + /*clear*/ /*_.CURTHEN__V28*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V29*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.SETQ___V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; - /*_.LET___V19*/ meltfptr[18] = /*_.LET___V23*/ meltfptr[21];; + /*clear*/ /*_.LET___V31*/ meltfptr[30] = 0 ; + /*_.LET___V19*/ meltfptr[18] = /*_.LET___V27*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:3894:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3903:/ clear"); /*clear*/ /*_.XCOND__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V23*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V27*/ meltfptr[24] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:3884:/ clear"); + MELT_LOCATION("warmelt-macro.melt:3892:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -21744,11 +20403,11 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3880:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3888:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3880:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3888:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -21765,20 +20424,20 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_IF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_CPPIF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_65_warmelt_macro_MEXPAND_IF*/ +} /*end meltrout_65_warmelt_macro_MEXPAND_CPPIF*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -21791,7 +20450,7 @@ meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_66_warmelt_macro_MEXPAND_CPPIF_st { + struct frame_meltrout_66_warmelt_macro_FILTERGCCVERSION_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -21799,10 +20458,10 @@ meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t fir struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 48 - void* mcfr_varptr[48]; -#define MELTFRAM_NBVARNUM 15 - long mcfr_varnum[15]; +#define MELTFRAM_NBVARPTR 7 + void* mcfr_varptr[7]; +#define MELTFRAM_NBVARNUM 2 + long mcfr_varnum[2]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -21811,871 +20470,907 @@ meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t fir int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<48; ix++) + for(ix=0; ix<7; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 48; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_CPPIF", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3930:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3931:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:3931:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3931:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3931)?(3931):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3931:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3932:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:3932:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3932:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3932)?(3932):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3932:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3933:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3933:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cppif sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3933; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3933:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:3934:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:3935:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:3936:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; - ; - /*_.LIST_FIRST__V14*/ meltfptr[13] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.CURPAIR__V15*/ meltfptr[14] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - /*^compute*/ - - /*_.CURIF__V16*/ meltfptr[15] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - /*^compute*/ - - /*_#IS_PAIR__L4*/ meltfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - /*^compute*/ - - /*_#NOT__L5*/ meltfnum[4] = - (!(/*_#IS_PAIR__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:3940:/ cond"); - /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3941:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing condition in CPPIF"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - /*_.PAIR_TAIL__V17*/ meltfptr[16] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3942:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V18*/ meltfptr[17] = /*_.PAIR_TAIL__V17*/ meltfptr[16];; - /*_#IS_PAIR__L6*/ meltfnum[5] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - /*^compute*/ - - /*_#NOT__L7*/ meltfnum[6] = - (!(/*_#IS_PAIR__L6*/ meltfnum[5]));; - MELT_LOCATION("warmelt-macro.melt:3943:/ cond"); - /*cond*/ if (/*_#NOT__L7*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:3944:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing then in CPPIF"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 7; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("FILTERGCCVERSION", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:3944:/ getarg"); + /*_.VERSIONSTR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; - MELT_LOCATION("warmelt-macro.melt:3945:/ quasiblock"); - + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.XCOND__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3946:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3945:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3946:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cppif xcond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3946; - /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3946:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#IS_STRING__L9*/ meltfnum[7] = - (melt_magic_discr((melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:3948:/ cond"); - /*cond*/ if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V23*/ meltfptr[21] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3948:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L10*/ meltfnum[9] = - melt_is_instance_of((melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:3949:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { + /*_#IS_STRING__L1*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.VERSIONSTR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; + MELT_LOCATION("warmelt-macro.melt:3945:/ cond"); + /*cond*/ if (/*_#IS_STRING__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3949:/ cond.else"); + /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3945:/ cond.else"); /*^block*/ /*anyblock*/{ - { - MELT_LOCATION("warmelt-macro.melt:3951:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "invalid cpp-condition in CPPIF - string or symbol expected"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:3952:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:3952:/ finalreturn"); + { + /*^locexp*/ + melt_assert_failed(( "check versionstr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3945)?(3945):__LINE__, __FUNCTION__); +;} ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:3950:/ quasiblock"); - - - /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; - /*^compute*/ - - /*_.IFELSE___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; + /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:3949:/ clear"); - /*clear*/ /*_.RETURN___V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ meltfptr[25] = 0 ;} + } ; } ; - /*_.IFELSE___V23*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; + /*^compute*/ + + /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3948:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3945:/ clear"); + /*clear*/ /*_#IS_STRING__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ;} + /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } - ; - MELT_LOCATION("warmelt-macro.melt:3953:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3946:/ quasiblock"); - /*_.CURTHEN__V28*/ meltfptr[25] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*_#VERSIONLEN__L2*/ meltfnum[0] = + melt_string_length((melt_ptr_t)(/*_.VERSIONSTR__V2*/ meltfptr[1]));; /*^compute*/ - /*_.PAIR_TAIL__V29*/ meltfptr[23] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3954:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:3955:/ quasiblock"); + /*_.RES__V6*/ meltfptr[5] = (/*nil*/NULL);; + { + MELT_LOCATION("warmelt-macro.melt:3951:/ locexp"); + if (/*_#VERSIONLEN__L2*/ meltfnum[0]>0 /*FILTERGCC__1*/ + && !strncmp (melt_string_str((melt_ptr_t)/*_.VERSIONSTR__V2*/ meltfptr[1]), + melt_gccversionstr, + /*_#VERSIONLEN__L2*/ meltfnum[0])) + /*_.RES__V6*/ meltfptr[5] = /*_.VERSIONSTR__V2*/ meltfptr[1]; + ;} + ; + MELT_LOCATION("warmelt-macro.melt:3957:/ quasiblock"); - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.XTHEN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V28*/ meltfptr[25]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V6*/ meltfptr[5];; + MELT_LOCATION("warmelt-macro.melt:3957:/ finalreturn"); ; - /*_.XELSE__V33*/ meltfptr[32] = (/*nil*/NULL);; + /*finalret*/ goto labend_rout ; + /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V7*/ meltfptr[6];; - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3958:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3958:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cppif xthen"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3958; - /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V32*/ meltfptr[31]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + MELT_LOCATION("warmelt-macro.melt:3946:/ clear"); + /*clear*/ /*_#VERSIONLEN__L2*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.RES__V6*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V7*/ meltfptr[6] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3944:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; + MELT_LOCATION("warmelt-macro.melt:3944:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("FILTERGCCVERSION", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_66_warmelt_macro_FILTERGCCVERSION*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_67_warmelt_macro_MEXPAND_GCCIF_st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 51 + void* mcfr_varptr[51]; +#define MELTFRAM_NBVARNUM 12 + long mcfr_varnum[12]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<51; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 51; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MEXPAND_GCCIF", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:3959:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3960:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:3960:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3960:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3960)?(3960):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; } ; - /*_.IFCPP___V34*/ meltfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34];; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3958:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3960:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[34] = 0 ;} + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V34*/ meltfptr[33] = (/*nil*/NULL); + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*^compute*/ - - /*_#IS_PAIR__L12*/ meltfnum[9] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:3959:/ cond"); - /*cond*/ if (/*_#IS_PAIR__L12*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3961:/ cppif.then"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:3960:/ quasiblock"); - - - /*_.CURELSE__V36*/ meltfptr[34] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3961:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.GOTXELSE__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V36*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; + /*_#IS_A__L2*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; + MELT_LOCATION("warmelt-macro.melt:3961:/ cond"); + /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:3961:/ cond.else"); - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3962:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3962:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cppif gotxelse"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 3962; - /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.GOTXELSE__V37*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; - /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3962:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.PAIR_TAIL__V40*/ meltfptr[38] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:3963:/ compute"); - /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:3964:/ compute"); - /*_.XELSE__V33*/ meltfptr[32] = /*_.SETQ___V42*/ meltfptr[41] = /*_.GOTXELSE__V37*/ meltfptr[36];; - /*_#IS_PAIR__L14*/ meltfnum[12] = - (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:3965:/ cond"); - /*cond*/ if (/*_#IS_PAIR__L14*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:3966:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "CPPIF with more than three sons"), (melt_ptr_t)0);} + /*^locexp*/ + melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (3961)?(3961):__LINE__, __FUNCTION__); +;} ; + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; /*epilog*/ } ; - } /*noelse*/ + } ; + /*^compute*/ + + /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; + /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3960:/ clear"); - /*clear*/ /*_.CURELSE__V36*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.GOTXELSE__V37*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V38*/ meltfptr[37] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V42*/ meltfptr[41] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3961:/ clear"); + /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L14*/ meltfnum[12] = 0 ; - /*epilog*/ - } + /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:3967:/ quasiblock"); - - - /*^quasiblock*/ - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ meltfrout->tabval[5])), (5), "CLASS_SOURCE_CPPIF"); - /*_.INST__V45*/ meltfptr[37] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (2), (/*_.XCOND__V20*/ meltfptr[19]), "SIFP_COND"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (3), (/*_.XTHEN__V32*/ meltfptr[31]), "SIFP_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V45*/ meltfptr[37]), (4), (/*_.XELSE__V33*/ meltfptr[32]), "SIFP_ELSE"); - ; - /*_.RESP__V44*/ meltfptr[36] = /*_.INST__V45*/ meltfptr[37];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3974:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:3962:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = + /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:3974:/ apply"); + MELT_LOCATION("warmelt-macro.melt:3962:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cppif return resp"; + argtab[0].meltbp_cstring = "mexpand_gccif sexpr"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 3974; - /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V44*/ meltfptr[36]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3962; + /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V46*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40];; + /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3974:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3962:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[40] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V46*/ meltfptr[38] = (/*nil*/NULL); + /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:3975:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V44*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:3975:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V43*/ meltfptr[34] = /*_.RETURN___V48*/ meltfptr[41];; - - MELT_LOCATION("warmelt-macro.melt:3967:/ clear"); - /*clear*/ /*_.RESP__V44*/ meltfptr[36] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V48*/ meltfptr[41] = 0 ; - /*_.LET___V31*/ meltfptr[30] = /*_.LET___V43*/ meltfptr[34];; - - MELT_LOCATION("warmelt-macro.melt:3955:/ clear"); - /*clear*/ /*_.XTHEN__V32*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.XELSE__V33*/ meltfptr[32] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_PAIR__L12*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V43*/ meltfptr[34] = 0 ; - /*_.LET___V27*/ meltfptr[24] = /*_.LET___V31*/ meltfptr[30];; - - MELT_LOCATION("warmelt-macro.melt:3953:/ clear"); - /*clear*/ /*_.CURTHEN__V28*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V29*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V30*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V31*/ meltfptr[30] = 0 ; - /*_.LET___V19*/ meltfptr[18] = /*_.LET___V27*/ meltfptr[24];; - - MELT_LOCATION("warmelt-macro.melt:3945:/ clear"); - /*clear*/ /*_.XCOND__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V23*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V27*/ meltfptr[24] = 0 ; - /*_.LET___V11*/ meltfptr[9] = /*_.LET___V19*/ meltfptr[18];; - - MELT_LOCATION("warmelt-macro.melt:3934:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURIF__V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_PAIR__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V17*/ meltfptr[16] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V18*/ meltfptr[17] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_PAIR__L6*/ meltfnum[5] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L7*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3930:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:3963:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:3930:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:3964:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_CPPIF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_66_warmelt_macro_MEXPAND_CPPIF*/ - - + MELT_LOCATION("warmelt-macro.melt:3965:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ meltfptr[12] = slot; }; + ; + /*_.LIST_FIRST__V14*/ meltfptr[13] = + (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; + /*^compute*/ + /*_.CURPAIR__V15*/ meltfptr[14] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; + /*^compute*/ + /*_.CURIF__V16*/ meltfptr[15] = + (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + /*^compute*/ -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif + /*_.RESTPAIR__V17*/ meltfptr[16] = + (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3970:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3970:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_gccif curif"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3970; + /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3970:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ - struct frame_meltrout_67_warmelt_macro_FILTERGCCVERSION_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 7 - void* mcfr_varptr[7]; -#define MELTFRAM_NBVARNUM 2 - long mcfr_varnum[2]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<7; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 7; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("FILTERGCCVERSION", meltcallcount); -/*getargs*/ + /*_#IS_STRING__L5*/ meltfnum[0] = + (melt_magic_discr((melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15])) == MELTOBMAG_STRING);; + MELT_LOCATION("warmelt-macro.melt:3972:/ cond"); + /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3973:/ apply"); + /*apply*/{ + /*_.FILTERGCCVERSION__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FILTERGCCVERSION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*^cond*/ + /*cond*/ if (/*_.FILTERGCCVERSION__V21*/ meltfptr[20]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3974:/ quasiblock"); + + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.EXPREST__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3976:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3976:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_gccif return exprest"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3976; + /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPREST__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3976:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3977:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPREST__V24*/ meltfptr[23];; + MELT_LOCATION("warmelt-macro.melt:3977:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V23*/ meltfptr[22] = /*_.RETURN___V27*/ meltfptr[25];; + + MELT_LOCATION("warmelt-macro.melt:3974:/ clear"); + /*clear*/ /*_.EXPREST__V24*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; + /*_.IFELSE___V22*/ meltfptr[21] = /*_.LET___V23*/ meltfptr[22];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3973:/ clear"); + /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3979:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3979:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_gccif sexpr gcc version mismatched"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3979; + /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V28*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3979:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V28*/ meltfptr[23] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3980:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:3980:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:3978:/ quasiblock"); + + + /*_.PROGN___V31*/ meltfptr[22] = /*_.RETURN___V30*/ meltfptr[25];; + /*^compute*/ - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:3986:/ getarg"); - /*_.VERSIONSTR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - + /*_.IFELSE___V22*/ meltfptr[21] = /*_.PROGN___V31*/ meltfptr[22];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3973:/ clear"); + /*clear*/ /*_.IFCPP___V28*/ meltfptr[23] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V30*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V31*/ meltfptr[22] = 0 ;} + ; + } + ; + /*_.IFELSE___V20*/ meltfptr[18] = /*_.IFELSE___V22*/ meltfptr[21];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3972:/ clear"); + /*clear*/ /*_.FILTERGCCVERSION__V21*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} + ; + } else {/*^cond.else*/ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:3987:/ cppif.then"); - /*^block*/ + /*^block*/ /*anyblock*/{ - /*_#IS_STRING__L1*/ meltfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.VERSIONSTR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:3987:/ cond"); - /*cond*/ if (/*_#IS_STRING__L1*/ meltfnum[0]) /*then*/ { + /*_#IS_LIST__L8*/ meltfnum[5] = + (melt_magic_discr((melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15])) == MELTOBMAG_LIST);; + MELT_LOCATION("warmelt-macro.melt:3981:/ cond"); + /*cond*/ if (/*_#IS_LIST__L8*/ meltfnum[5]) /*then*/ { /*^cond.then*/ - /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:3987:/ cond.else"); + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3982:/ quasiblock"); + + + /*_.OK__V34*/ meltfptr[25] = (/*nil*/NULL);; + /*citerblock FOREACH_IN_LIST*/ { + /* start cit1__EACHLIST */ + for (/*_.CURPAIR__V35*/ meltfptr[22] = melt_list_first(/*_.CURIF__V16*/ meltfptr[15]); + melt_magic_discr(/*_.CURPAIR__V35*/ meltfptr[22]) == MELTOBMAG_PAIR; + /*_.CURPAIR__V35*/ meltfptr[22] = melt_pair_tail(/*_.CURPAIR__V35*/ meltfptr[22])) { + /*_.CURSTR__V36*/ meltfptr[20] = melt_pair_head(/*_.CURPAIR__V35*/ meltfptr[22]); + + + /*_#IS_STRING__L9*/ meltfnum[8] = + (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V36*/ meltfptr[20])) == MELTOBMAG_STRING);; + /*^compute*/ + + /*_#NOT__L10*/ meltfnum[9] = + (!(/*_#IS_STRING__L9*/ meltfnum[8]));; + MELT_LOCATION("warmelt-macro.melt:3987:/ cond"); + /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + + { + MELT_LOCATION("warmelt-macro.melt:3988:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "GCC-IF condition not a list of strings"), (melt_ptr_t)0);} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:3989:/ apply"); + /*apply*/{ + /*_.FILTERGCCVERSION__V37*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FILTERGCCVERSION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + } + ; + /*^cond*/ + /*cond*/ if (/*_.FILTERGCCVERSION__V37*/ meltfptr[21]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3990:/ compute"); + /*_.OK__V34*/ meltfptr[25] = /*_.SETQ___V39*/ meltfptr[38] = (/*!konst_5_TRUE*/ meltfrout->tabval[5]);; + /*_.IF___V38*/ meltfptr[37] = /*_.SETQ___V39*/ meltfptr[38];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3989:/ clear"); + /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V38*/ meltfptr[37] = NULL;; + } + ; + } /* end cit1__EACHLIST */ + + /*citerepilog*/ + + MELT_LOCATION("warmelt-macro.melt:3984:/ clear"); + /*clear*/ /*_.CURPAIR__V35*/ meltfptr[22] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURSTR__V36*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.FILTERGCCVERSION__V37*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V38*/ meltfptr[37] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ + ; + MELT_LOCATION("warmelt-macro.melt:3992:/ cond"); + /*cond*/ if (/*_.OK__V34*/ meltfptr[25]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:3993:/ quasiblock"); + + + /*^apply*/ + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.EXPREST__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3995:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3995:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_gccif return exprest multicond"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3995; + /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPREST__V42*/ meltfptr[41]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V43*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3995:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V43*/ meltfptr[42] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3996:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPREST__V42*/ meltfptr[41];; + MELT_LOCATION("warmelt-macro.melt:3996:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V41*/ meltfptr[40] = /*_.RETURN___V45*/ meltfptr[43];; + + MELT_LOCATION("warmelt-macro.melt:3993:/ clear"); + /*clear*/ /*_.EXPREST__V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V45*/ meltfptr[43] = 0 ; + /*_.IFELSE___V40*/ meltfptr[38] = /*_.LET___V41*/ meltfptr[40];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3992:/ clear"); + /*clear*/ /*_.LET___V41*/ meltfptr[40] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:3998:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:3998:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_gccif sexpr gcc version multicond mismatched"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 3998; + /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V46*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3998:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V46*/ meltfptr[41] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:3999:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:3999:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:3997:/ quasiblock"); + + + /*_.PROGN___V49*/ meltfptr[40] = /*_.RETURN___V48*/ meltfptr[43];; + /*^compute*/ + + /*_.IFELSE___V40*/ meltfptr[38] = /*_.PROGN___V49*/ meltfptr[40];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3992:/ clear"); + /*clear*/ /*_.IFCPP___V46*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V48*/ meltfptr[43] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V49*/ meltfptr[40] = 0 ;} + ; + } + ; + /*_.LET___V33*/ meltfptr[23] = /*_.IFELSE___V40*/ meltfptr[38];; + + MELT_LOCATION("warmelt-macro.melt:3982:/ clear"); + /*clear*/ /*_.OK__V34*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V40*/ meltfptr[38] = 0 ; + /*_.IFELSE___V32*/ meltfptr[24] = /*_.LET___V33*/ meltfptr[23];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:3981:/ clear"); + /*clear*/ /*_.LET___V33*/ meltfptr[23] = 0 ;} + ; + } else {/*^cond.else*/ /*^block*/ /*anyblock*/{ + { + MELT_LOCATION("warmelt-macro.melt:4003:/ locexp"); + melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "GCC-IF bad condition, should be a string or a list of strings"), (melt_ptr_t)0);} + ; + MELT_LOCATION("warmelt-macro.melt:4004:/ quasiblock"); - { - /*^locexp*/ - melt_assert_failed(( "check versionstr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (3987)?(3987):__LINE__, __FUNCTION__); -;} + /*_.RETVAL___V1*/ meltfptr[0] = NULL;; + MELT_LOCATION("warmelt-macro.melt:4004:/ finalreturn"); ; - /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; + /*finalret*/ goto labend_rout ; + MELT_LOCATION("warmelt-macro.melt:4002:/ quasiblock"); + + + /*_.PROGN___V51*/ meltfptr[41] = /*_.RETURN___V50*/ meltfptr[42];; + /*^compute*/ + + /*_.IFELSE___V32*/ meltfptr[24] = /*_.PROGN___V51*/ meltfptr[41];; /*epilog*/ - } + + MELT_LOCATION("warmelt-macro.melt:3981:/ clear"); + /*clear*/ /*_.RETURN___V50*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V51*/ meltfptr[41] = 0 ;} ; - } - ; - /*^compute*/ - - /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; + } + ; + /*_.IFELSE___V20*/ meltfptr[18] = /*_.IFELSE___V32*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:3987:/ clear"); - /*clear*/ /*_#IS_STRING__L1*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3972:/ clear"); + /*clear*/ /*_#IS_LIST__L8*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.IFELSE___V32*/ meltfptr[24] = 0 ;} ; - MELT_LOCATION("warmelt-macro.melt:3988:/ quasiblock"); - - - /*_#VERSIONLEN__L2*/ meltfnum[0] = - melt_string_length((melt_ptr_t)(/*_.VERSIONSTR__V2*/ meltfptr[1]));; - /*^compute*/ - - /*_.RES__V6*/ meltfptr[5] = (/*nil*/NULL);; - - { - MELT_LOCATION("warmelt-macro.melt:3993:/ locexp"); - if (/*_#VERSIONLEN__L2*/ meltfnum[0]>0 /*FILTERGCC__1*/ - && !strncmp (melt_string_str((melt_ptr_t)/*_.VERSIONSTR__V2*/ meltfptr[1]), - melt_gccversionstr, - /*_#VERSIONLEN__L2*/ meltfnum[0])) - /*_.RES__V6*/ meltfptr[5] = /*_.VERSIONSTR__V2*/ meltfptr[1]; - ;} - ; - MELT_LOCATION("warmelt-macro.melt:3999:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V6*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:3999:/ finalreturn"); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V7*/ meltfptr[6];; + /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:3988:/ clear"); - /*clear*/ /*_#VERSIONLEN__L2*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3963:/ clear"); + /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SLOC__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V7*/ meltfptr[6] = 0 ; - MELT_LOCATION("warmelt-macro.melt:3986:/ quasiblock"); + /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURIF__V16*/ meltfptr[15] = 0 ; + /*^clear*/ + /*clear*/ /*_.RESTPAIR__V17*/ meltfptr[16] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; + /*^clear*/ + /*clear*/ /*_#IS_STRING__L5*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V20*/ meltfptr[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:3959:/ quasiblock"); - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:3986:/ finalreturn"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; + MELT_LOCATION("warmelt-macro.melt:3959:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ;} + /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} ; goto labend_rout; labend_rout: -melt_trace_end("FILTERGCCVERSION", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_GCCIF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_67_warmelt_macro_FILTERGCCVERSION*/ +} /*end meltrout_67_warmelt_macro_MEXPAND_GCCIF*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -22688,7 +21383,7 @@ meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_68_warmelt_macro_MEXPAND_GCCIF_st { + struct frame_meltrout_68_warmelt_macro_MEXPAND_COND_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -22696,10 +21391,10 @@ meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t fir struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 51 - void* mcfr_varptr[51]; -#define MELTFRAM_NBVARNUM 12 - long mcfr_varnum[12]; +#define MELTFRAM_NBVARPTR 94 + void* mcfr_varptr[94]; +#define MELTFRAM_NBVARNUM 25 + long mcfr_varnum[25]; /*others*/ long _spare_; } *framptr_=0, meltfram__; @@ -22708,21 +21403,21 @@ meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t fir int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<51; ix++) + for(ix=0; ix<94; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 51; + meltfram__.mcfr_nbvar = 94; meltfram__.mcfr_clos = closp_; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_GCCIF", meltcallcount); +melt_trace_start("MEXPAND_COND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4001:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4017:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -22747,17 +21442,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4002:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4018:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4002:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4018:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4002:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4018:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -22768,7 +21463,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4002)?(4002):__LINE__, __FUNCTION__); + (4018)?(4018):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -22782,7 +21477,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4002:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4018:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -22794,17 +21489,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4003:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4019:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4003:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4019:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4003:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4019:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -22815,7 +21510,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4003)?(4003):__LINE__, __FUNCTION__); + (4019)?(4019):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -22829,7 +21524,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4003:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4019:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -22841,31 +21536,31 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4004:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4020:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4004:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4020:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif sexpr"; + argtab[0].meltbp_cstring = "mexpand_cond sexpr"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4004; + argtab[3].meltbp_long = 4020; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4004:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4020:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -22875,544 +21570,1102 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4005:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4021:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4006:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4022:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4007:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4023:/ getslot"); { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ meltfptr[12] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; /*_.LIST_FIRST__V14*/ meltfptr[13] = (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; /*^compute*/ - /*_.CURPAIR__V15*/ meltfptr[14] = + /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - /*^compute*/ - - /*_.CURIF__V16*/ meltfptr[15] = - (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - /*^compute*/ - - /*_.RESTPAIR__V17*/ meltfptr[16] = - (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; + MELT_LOCATION("warmelt-macro.melt:4027:/ quasiblock"); + + + /*^newclosure*/ + /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[16] = + meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])), (1)); + ; + /*^putclosedv*/ + /*putclosv*/ + melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ meltfptr[16])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ meltfptr[16]))); + ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); + ; + /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; + MELT_LOCATION("warmelt-macro.melt:4024:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[4]); + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[15]; + /*_.CEXPTUPLE__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_#NBCOND__L4*/ meltfnum[0] = + (melt_multiple_length((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17])));; + MELT_LOCATION("warmelt-macro.melt:4033:/ quasiblock"); + + + /*_.LX__V20*/ meltfptr[19] = + (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (-1)));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4012:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4034:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4012:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4034:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif curif"; + argtab[0].meltbp_cstring = "mexpand_cond lastcexp lx"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4012; - /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 4034; + /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; + /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4012:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4034:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); + /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ - /*_#IS_STRING__L5*/ meltfnum[0] = - (melt_magic_discr((melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:4014:/ cond"); - /*cond*/ if (/*_#IS_STRING__L5*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ + /*_.LET___V19*/ meltfptr[18] = /*_.LX__V20*/ meltfptr[19];; + + MELT_LOCATION("warmelt-macro.melt:4033:/ clear"); + /*clear*/ /*_.LX__V20*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; + /*_.LASTCEXP__V23*/ meltfptr[21] = /*_.LET___V19*/ meltfptr[18];; + /*^compute*/ + + /*_#IX__L6*/ meltfnum[4] = + ((/*_#NBCOND__L4*/ meltfnum[0]) - (1));; + /*^compute*/ + + /*_.RES__V24*/ meltfptr[19] = (/*nil*/NULL);; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4039:/ cppif.then"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4015:/ apply"); + /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4039:/ apply"); /*apply*/{ - /*_.FILTERGCCVERSION__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FILTERGCCVERSION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cond cexptuple"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4039; + /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*^cond*/ - /*cond*/ if (/*_.FILTERGCCVERSION__V21*/ meltfptr[20]) /*then*/ { + /*_.IFCPP___V25*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4039:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V25*/ meltfptr[20] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:4040:/ loop"); + /*loop*/{ labloop_CONDLOOP_1:;/*^loopbody*/ + + /*^block*/ + /*anyblock*/{ + + /*_#I__L8*/ meltfnum[6] = + ((/*_#IX__L6*/ meltfnum[4]) < (0));; + MELT_LOCATION("warmelt-macro.melt:4041:/ cond"); + /*cond*/ if (/*_#I__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4016:/ quasiblock"); + /*^quasiblock*/ - /*^apply*/ + /*^compute*/ + /*_.CONDLOOP__V28*/ meltfptr[27] = NULL;; + + /*^exit*/ + /*exit*/{ + goto labexit_CONDLOOP_1;} + ; + /*epilog*/ + } + ; + } /*noelse*/ + ; + MELT_LOCATION("warmelt-macro.melt:4042:/ quasiblock"); + + + /*_.CURCOND__V30*/ meltfptr[29] = + (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (/*_#IX__L6*/ meltfnum[4])));; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4043:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4043:/ apply"); /*apply*/{ - union meltparam_un argtab[2]; + union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + argtab[0].meltbp_cstring = "mexpand_cond curcond"; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.EXPREST__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4043; + /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; + /*_.IFCPP___V31*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; + /*epilog*/ - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4018:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4043:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V31*/ meltfptr[30] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + /*^compute*/ + + /*_#NULL__L10*/ meltfnum[8] = + ((/*_.RES__V24*/ meltfptr[19]) == NULL);; + MELT_LOCATION("warmelt-macro.melt:4045:/ cond"); + /*cond*/ if (/*_#NULL__L10*/ meltfnum[8]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L12*/ meltfnum[11] = + melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:4045:/ cond"); + /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4018:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif return exprest"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4018; - /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPREST__V24*/ meltfptr[23]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } + MELT_LOCATION("warmelt-macro.melt:4048:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ meltfptr[31] = slot; }; ; - /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; + /*_.LIST_FIRST__V34*/ meltfptr[33] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V33*/ meltfptr[31])));; + /*^compute*/ + + /*_.PAIR_HEAD__V35*/ meltfptr[34] = + (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V34*/ meltfptr[33])));; + /*^compute*/ + + /*_#__L14*/ meltfnum[13] = + (((/*!konst_7_ELSE*/ meltfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ meltfptr[34]));; + /*^compute*/ + + /*_#IF___L13*/ meltfnum[12] = /*_#__L14*/ meltfnum[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4018:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4045:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V33*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_.LIST_FIRST__V34*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V35*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_#__L14*/ meltfnum[13] = 0 ;} ; - MELT_LOCATION("warmelt-macro.melt:4019:/ quasiblock"); - + } else {/*^cond.else*/ - /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPREST__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4019:/ finalreturn"); + /*_#IF___L13*/ meltfnum[12] = 0;; + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V23*/ meltfptr[22] = /*_.RETURN___V27*/ meltfptr[25];; - - MELT_LOCATION("warmelt-macro.melt:4016:/ clear"); - /*clear*/ /*_.EXPREST__V24*/ meltfptr[23] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; - /*_.IFELSE___V22*/ meltfptr[21] = /*_.LET___V23*/ meltfptr[22];; + /*^compute*/ + + /*_#IF___L11*/ meltfnum[10] = /*_#IF___L13*/ meltfnum[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4015:/ clear"); - /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:4045:/ clear"); + /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L13*/ meltfnum[12] = 0 ;} ; } else {/*^cond.else*/ - /*^block*/ + /*_#IF___L11*/ meltfnum[10] = 0;; + } + ; + MELT_LOCATION("warmelt-macro.melt:4045:/ cond"); + /*cond*/ if (/*_#IF___L11*/ meltfnum[10]) /*then*/ { + /*^cond.then*/ + /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-macro.melt:4049:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:4050:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ meltfptr[34] = slot; }; + ; + /*_.LIST_FIRST__V39*/ meltfptr[38] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V38*/ meltfptr[34])));; + /*^compute*/ + + /*_.RESTPAIRS__V40*/ meltfptr[39] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V39*/ meltfptr[38])));; + MELT_LOCATION("warmelt-macro.melt:4052:/ cond"); + /*cond*/ if (/*_.RESTPAIRS__V40*/ meltfptr[39]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:4054:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ meltfptr[41] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:4053:/ apply"); + /*apply*/{ + union meltparam_un argtab[3]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V42*/ meltfptr[41]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RESTPAIRS__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*^compute*/ + /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42];; + /*_.IF___V41*/ meltfptr[40] = /*_.SETQ___V44*/ meltfptr[43];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4052:/ clear"); + /*clear*/ /*_.LOCA_LOCATION__V42*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ;} + ; + } else {/*^cond.else*/ + + /*_.IF___V41*/ meltfptr[40] = NULL;; + } + ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4021:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4056:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4021:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4056:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif sexpr gcc version mismatched"; + argtab[0].meltbp_cstring = "mexpand_cond res for :else"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4021; - /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 4056; + /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V28*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24];; + /*_.IFCPP___V45*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4021:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4056:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[24] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V28*/ meltfptr[23] = (/*nil*/NULL); + /*_.IFCPP___V45*/ meltfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4022:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4022:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4020:/ quasiblock"); - - - /*_.PROGN___V31*/ meltfptr[22] = /*_.RETURN___V30*/ meltfptr[25];; /*^compute*/ - /*_.IFELSE___V22*/ meltfptr[21] = /*_.PROGN___V31*/ meltfptr[22];; - /*epilog*/ + /*_.LET___V37*/ meltfptr[33] = /*_.IFCPP___V45*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:4015:/ clear"); - /*clear*/ /*_.IFCPP___V28*/ meltfptr[23] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4049:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V38*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V30*/ meltfptr[25] = 0 ; + /*clear*/ /*_.LIST_FIRST__V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V31*/ meltfptr[22] = 0 ;} + /*clear*/ /*_.RESTPAIRS__V40*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.IF___V41*/ meltfptr[40] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V45*/ meltfptr[41] = 0 ; + /*_.IFELSE___V36*/ meltfptr[31] = /*_.LET___V37*/ meltfptr[33];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4045:/ clear"); + /*clear*/ /*_.LET___V37*/ meltfptr[33] = 0 ;} ; - } - ; - /*_.IFELSE___V20*/ meltfptr[18] = /*_.IFELSE___V22*/ meltfptr[21];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4014:/ clear"); - /*clear*/ /*_.FILTERGCCVERSION__V21*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ + } else {/*^cond.else*/ - /*_#IS_LIST__L8*/ meltfnum[5] = - (melt_magic_discr((melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:4023:/ cond"); - /*cond*/ if (/*_#IS_LIST__L8*/ meltfnum[5]) /*then*/ { - /*^cond.then*/ - /*^block*/ + /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4024:/ quasiblock"); - - - /*_.OK__V34*/ meltfptr[25] = (/*nil*/NULL);; - /*citerblock FOREACH_IN_LIST*/ { - /* start cit1__EACHLIST */ - for (/*_.CURPAIR__V35*/ meltfptr[22] = melt_list_first(/*_.CURIF__V16*/ meltfptr[15]); - melt_magic_discr(/*_.CURPAIR__V35*/ meltfptr[22]) == MELTOBMAG_PAIR; - /*_.CURPAIR__V35*/ meltfptr[22] = melt_pair_tail(/*_.CURPAIR__V35*/ meltfptr[22])) { - /*_.CURSTR__V36*/ meltfptr[20] = melt_pair_head(/*_.CURPAIR__V35*/ meltfptr[22]); - - - /*_#IS_STRING__L9*/ meltfnum[8] = - (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V36*/ meltfptr[20])) == MELTOBMAG_STRING);; - /*^compute*/ - - /*_#NOT__L10*/ meltfnum[9] = - (!(/*_#IS_STRING__L9*/ meltfnum[8]));; - MELT_LOCATION("warmelt-macro.melt:4029:/ cond"); - /*cond*/ if (/*_#NOT__L10*/ meltfnum[9]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:4030:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "GCC-IF condition not a list of strings"), (melt_ptr_t)0);} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:4031:/ apply"); - /*apply*/{ - /*_.FILTERGCCVERSION__V37*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!FILTERGCCVERSION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ meltfptr[15]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); - } - ; - /*^cond*/ - /*cond*/ if (/*_.FILTERGCCVERSION__V37*/ meltfptr[21]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4032:/ compute"); - /*_.OK__V34*/ meltfptr[25] = /*_.SETQ___V39*/ meltfptr[38] = (/*!konst_5_TRUE*/ meltfrout->tabval[5]);; - /*_.IF___V38*/ meltfptr[37] = /*_.SETQ___V39*/ meltfptr[38];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4031:/ clear"); - /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V38*/ meltfptr[37] = NULL;; - } - ; - } /* end cit1__EACHLIST */ - - /*citerepilog*/ - - MELT_LOCATION("warmelt-macro.melt:4026:/ clear"); - /*clear*/ /*_.CURPAIR__V35*/ meltfptr[22] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURSTR__V36*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_#IS_STRING__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_#NOT__L10*/ meltfnum[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.FILTERGCCVERSION__V37*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V38*/ meltfptr[37] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ - ; - MELT_LOCATION("warmelt-macro.melt:4034:/ cond"); - /*cond*/ if (/*_.OK__V34*/ meltfptr[25]) /*then*/ { + /*_#IS_A__L16*/ meltfnum[11] = + melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:4058:/ cond"); + /*cond*/ if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4035:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4059:/ quasiblock"); - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.EXPREST__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } + /*^getslot*/ + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ meltfptr[34] = slot; }; ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4037:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4060:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ meltfptr[38] = slot; }; + ; + /*_.LIST_FIRST__V51*/ meltfptr[39] = + (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; + /*^compute*/ + + /*_.CURCONDTEST__V52*/ meltfptr[40] = + (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V51*/ meltfptr[39])));; + /*^compute*/ + + /*_.LIST_FIRST__V53*/ meltfptr[41] = + (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; + /*^compute*/ + + /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V53*/ meltfptr[41])));; + /*^compute*/ + + /*_#NULL__L17*/ meltfnum[12] = + ((/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]) == NULL);; + MELT_LOCATION("warmelt-macro.melt:4064:/ cond"); + /*cond*/ if (/*_#NULL__L17*/ meltfnum[12]) /*then*/ { + /*^cond.then*/ /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4037:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif return exprest multicond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4037; - /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPREST__V42*/ meltfptr[41]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + MELT_LOCATION("warmelt-macro.melt:4068:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:4067:/ blockmultialloc"); + /*multiallocblock*/{ + struct meltletrec_1_st { + struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x2; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; + meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); + /*^blockmultialloc.initfill*/ + /*inimult rtup_0__TUPLREC__x2*/ + /*_.TUPLREC___V58*/ meltfptr[57] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x2; + meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 2; + + + /*^putuple*/ + /*putupl#2*/ + melt_assertmsg("putupl [:4067] #2 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4067] #2 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); + ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[0] = (melt_ptr_t)(/*_.MACROEXPAND_1__V56*/ meltfptr[55]); + ; + /*^putuple*/ + /*putupl#3*/ + melt_assertmsg("putupl [:4067] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4067] #3 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); + ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); + ; + /*^touch*/ + meltgc_touch(/*_.TUPLREC___V58*/ meltfptr[57]); + ; + /*_.TUPLE___V57*/ meltfptr[56] = /*_.TUPLREC___V58*/ meltfptr[57];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4067:/ clear"); + /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ;} /*end multiallocblock*/ + ; + MELT_LOCATION("warmelt-macro.melt:4065:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); + /*_.INST__V60*/ meltfptr[59] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (2), (/*_.TUPLE___V57*/ meltfptr[56]), "SOR_DISJ"); + ; + /*_.INST___V59*/ meltfptr[57] = /*_.INST__V60*/ meltfptr[59];; + MELT_LOCATION("warmelt-macro.melt:4065:/ compute"); + /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V61*/ meltfptr[60] = /*_.INST___V59*/ meltfptr[57];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4070:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4070:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cond res for monoexp cond"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4070; + /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V62*/ meltfptr[61] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4070:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V62*/ meltfptr[61] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:4064:/ quasiblock"); + + + /*_.PROGN___V64*/ meltfptr[62] = /*_.IFCPP___V62*/ meltfptr[61];; + /*^compute*/ + + /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V64*/ meltfptr[62];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4064:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V56*/ meltfptr[55] = 0 ; + /*^clear*/ + /*clear*/ /*_.TUPLE___V57*/ meltfptr[56] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V59*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V61*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V62*/ meltfptr[61] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V64*/ meltfptr[62] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + /*_.PAIR_TAIL__V65*/ meltfptr[55] = + (melt_pair_tail((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; + /*^compute*/ + + /*_#NULL__L19*/ meltfnum[13] = + ((/*_.PAIR_TAIL__V65*/ meltfptr[55]) == NULL);; + MELT_LOCATION("warmelt-macro.melt:4072:/ cond"); + /*cond*/ if (/*_#NULL__L19*/ meltfnum[13]) /*then*/ { + /*^cond.then*/ + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:4075:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V67*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.PAIR_HEAD__V68*/ meltfptr[60] = + (melt_pair_head((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; + MELT_LOCATION("warmelt-macro.melt:4076:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V69*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PAIR_HEAD__V68*/ meltfptr[60]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:4073:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); + /*_.INST__V71*/ meltfptr[70] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (2), (/*_.MACROEXPAND_1__V67*/ meltfptr[57]), "SIF_TEST"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (3), (/*_.MACROEXPAND_1__V69*/ meltfptr[61]), "SIF_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); + ; + /*_.INST___V70*/ meltfptr[62] = /*_.INST__V71*/ meltfptr[70];; + MELT_LOCATION("warmelt-macro.melt:4073:/ compute"); + /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V72*/ meltfptr[71] = /*_.INST___V70*/ meltfptr[62];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4079:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4079:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cond res for biexp cond"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4079; + /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V73*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4079:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V73*/ meltfptr[72] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:4072:/ quasiblock"); + + + /*_.PROGN___V75*/ meltfptr[73] = /*_.IFCPP___V73*/ meltfptr[72];; + /*^compute*/ + + /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V75*/ meltfptr[73];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4072:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V67*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_HEAD__V68*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.MACROEXPAND_1__V69*/ meltfptr[61] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V70*/ meltfptr[62] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V72*/ meltfptr[71] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V73*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V75*/ meltfptr[73] = 0 ;} + ; + } else {/*^cond.else*/ + + /*^block*/ + /*anyblock*/{ + + MELT_LOCATION("warmelt-macro.melt:4084:/ apply"); + /*apply*/{ + union meltparam_un argtab[2]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.MACROEXPAND_1__V76*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:4085:/ apply"); + /*apply*/{ + union meltparam_un argtab[3]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONDLOC__V50*/ meltfptr[38]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:4082:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); + /*_.INST__V79*/ meltfptr[62] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (2), (/*_.MACROEXPAND_1__V76*/ meltfptr[57]), "SIF_TEST"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (3), (/*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60]), "SIF_THEN"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); + ; + /*_.INST___V78*/ meltfptr[61] = /*_.INST__V79*/ meltfptr[62];; + MELT_LOCATION("warmelt-macro.melt:4082:/ compute"); + /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V80*/ meltfptr[71] = /*_.INST___V78*/ meltfptr[61];; + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4087:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4087:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cond res for manyexp cond"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4087; + /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V81*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V81*/ meltfptr[72] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:4081:/ quasiblock"); + + + /*_.PROGN___V83*/ meltfptr[73] = /*_.IFCPP___V81*/ meltfptr[72];; + /*^compute*/ + + /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V83*/ meltfptr[73];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4072:/ clear"); + /*clear*/ /*_.MACROEXPAND_1__V76*/ meltfptr[57] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.INST___V78*/ meltfptr[61] = 0 ; + /*^clear*/ + /*clear*/ /*_.SETQ___V80*/ meltfptr[71] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V81*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V83*/ meltfptr[73] = 0 ;} + ; } ; - /*_.IFCPP___V43*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; + /*_.IFELSE___V55*/ meltfptr[54] = /*_.IFELSE___V66*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4037:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4064:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V65*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V43*/ meltfptr[42] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + /*clear*/ /*_#NULL__L19*/ meltfnum[13] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V66*/ meltfptr[56] = 0 ;} ; - MELT_LOCATION("warmelt-macro.melt:4038:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPREST__V42*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:4038:/ finalreturn"); + } ; - /*finalret*/ goto labend_rout ; - /*_.LET___V41*/ meltfptr[40] = /*_.RETURN___V45*/ meltfptr[43];; + /*_.LET___V48*/ meltfptr[42] = /*_.IFELSE___V55*/ meltfptr[54];; - MELT_LOCATION("warmelt-macro.melt:4035:/ clear"); - /*clear*/ /*_.EXPREST__V42*/ meltfptr[41] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4059:/ clear"); + /*clear*/ /*_.CURCONDCONT__V49*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.CURCONDLOC__V50*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V45*/ meltfptr[43] = 0 ; - /*_.IFELSE___V40*/ meltfptr[38] = /*_.LET___V41*/ meltfptr[40];; + /*clear*/ /*_.LIST_FIRST__V51*/ meltfptr[39] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURCONDTEST__V52*/ meltfptr[40] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V53*/ meltfptr[41] = 0 ; + /*^clear*/ + /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L17*/ meltfnum[12] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V55*/ meltfptr[54] = 0 ; + /*_.IFELSE___V47*/ meltfptr[43] = /*_.LET___V48*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4034:/ clear"); - /*clear*/ /*_.LET___V41*/ meltfptr[40] = 0 ;} + MELT_LOCATION("warmelt-macro.melt:4058:/ clear"); + /*clear*/ /*_.LET___V48*/ meltfptr[42] = 0 ;} ; } else {/*^cond.else*/ /*^block*/ /*anyblock*/{ + MELT_LOCATION("warmelt-macro.melt:4093:/ blockmultialloc"); + /*multiallocblock*/{ + struct meltletrec_2_st { + struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x3; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; + meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); + /*^blockmultialloc.initfill*/ + /*inimult rtup_0__TUPLREC__x3*/ + /*_.TUPLREC___V85*/ meltfptr[60] = (void*)&meltletrec_2_ptr->rtup_0__TUPLREC__x3; + meltletrec_2_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + meltletrec_2_ptr->rtup_0__TUPLREC__x3.nbval = 2; + + + /*^putuple*/ + /*putupl#4*/ + melt_assertmsg("putupl [:4093] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4093] #4 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); + ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[0] = (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]); + ; + /*^putuple*/ + /*putupl#5*/ + melt_assertmsg("putupl [:4093] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4093] #5 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); + ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); + ; + /*^touch*/ + meltgc_touch(/*_.TUPLREC___V85*/ meltfptr[60]); + ; + /*_.TUPLE___V84*/ meltfptr[57] = /*_.TUPLREC___V85*/ meltfptr[60];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4093:/ clear"); + /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ; + /*^clear*/ + /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ;} /*end multiallocblock*/ + ; + MELT_LOCATION("warmelt-macro.melt:4091:/ quasiblock"); + + + /*^rawallocobj*/ + /*rawallocobj*/ { melt_ptr_t newobj = 0; + melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); + /*_.INST__V87*/ meltfptr[71] = + newobj; }; + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); + ; + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); + melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (2), (/*_.TUPLE___V84*/ meltfptr[57]), "SOR_DISJ"); + ; + /*_.INST___V86*/ meltfptr[61] = /*_.INST__V87*/ meltfptr[71];; + MELT_LOCATION("warmelt-macro.melt:4091:/ compute"); + /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V88*/ meltfptr[72] = /*_.INST___V86*/ meltfptr[61];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4040:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4094:/ cppif.then"); /*^block*/ /*anyblock*/{ - /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4040:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4094:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_gccif sexpr gcc version multicond mismatched"; + argtab[0].meltbp_cstring = "mexpand_cond res for nonsexp cond"; /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4040; - /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 4094; + /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_.IFCPP___V46*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42];; + /*_.IFCPP___V89*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4040:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4094:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[42] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ - /*_.IFCPP___V46*/ meltfptr[41] = (/*nil*/NULL); + /*_.IFCPP___V89*/ meltfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4041:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4041:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4039:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4090:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[40] = /*_.RETURN___V48*/ meltfptr[43];; + /*_.PROGN___V91*/ meltfptr[56] = /*_.IFCPP___V89*/ meltfptr[73];; /*^compute*/ - /*_.IFELSE___V40*/ meltfptr[38] = /*_.PROGN___V49*/ meltfptr[40];; + /*_.IFELSE___V47*/ meltfptr[43] = /*_.PROGN___V91*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4034:/ clear"); - /*clear*/ /*_.IFCPP___V46*/ meltfptr[41] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4058:/ clear"); + /*clear*/ /*_.TUPLE___V84*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V48*/ meltfptr[43] = 0 ; + /*clear*/ /*_.INST___V86*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ meltfptr[40] = 0 ;} + /*clear*/ /*_.SETQ___V88*/ meltfptr[72] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V89*/ meltfptr[73] = 0 ; + /*^clear*/ + /*clear*/ /*_.PROGN___V91*/ meltfptr[56] = 0 ;} ; } ; - /*_.LET___V33*/ meltfptr[23] = /*_.IFELSE___V40*/ meltfptr[38];; - - MELT_LOCATION("warmelt-macro.melt:4024:/ clear"); - /*clear*/ /*_.OK__V34*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V40*/ meltfptr[38] = 0 ; - /*_.IFELSE___V32*/ meltfptr[24] = /*_.LET___V33*/ meltfptr[23];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4023:/ clear"); - /*clear*/ /*_.LET___V33*/ meltfptr[23] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - - { - MELT_LOCATION("warmelt-macro.melt:4045:/ locexp"); - melt_error_str((melt_ptr_t)(/*_.SLOC__V13*/ meltfptr[12]), ( "GCC-IF bad condition, should be a string or a list of strings"), (melt_ptr_t)0);} - ; - MELT_LOCATION("warmelt-macro.melt:4046:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4046:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4044:/ quasiblock"); - - - /*_.PROGN___V51*/ meltfptr[41] = /*_.RETURN___V50*/ meltfptr[42];; - /*^compute*/ - - /*_.IFELSE___V32*/ meltfptr[24] = /*_.PROGN___V51*/ meltfptr[41];; + /*_.IFELSE___V36*/ meltfptr[31] = /*_.IFELSE___V47*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4023:/ clear"); - /*clear*/ /*_.RETURN___V50*/ meltfptr[42] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4045:/ clear"); + /*clear*/ /*_#IS_A__L16*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[41] = 0 ;} + /*clear*/ /*_.IFELSE___V47*/ meltfptr[43] = 0 ;} ; } ; - /*_.IFELSE___V20*/ meltfptr[18] = /*_.IFELSE___V32*/ meltfptr[24];; + /*_.LET___V29*/ meltfptr[28] = /*_.IFELSE___V36*/ meltfptr[31];; + + MELT_LOCATION("warmelt-macro.melt:4042:/ clear"); + /*clear*/ /*_.CURCOND__V30*/ meltfptr[29] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; + /*^clear*/ + /*clear*/ /*_#NULL__L10*/ meltfnum[8] = 0 ; + /*^clear*/ + /*clear*/ /*_#IF___L11*/ meltfnum[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V36*/ meltfptr[31] = 0 ; + /*_#I__L23*/ meltfnum[13] = + ((/*_#IX__L6*/ meltfnum[4]) - (1));; + MELT_LOCATION("warmelt-macro.melt:4098:/ compute"); + /*_#IX__L6*/ meltfnum[4] = /*_#SETQ___L24*/ meltfnum[12] = /*_#I__L23*/ meltfnum[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4014:/ clear"); - /*clear*/ /*_#IS_LIST__L8*/ meltfnum[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4040:/ clear"); + /*clear*/ /*_#I__L8*/ meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V32*/ meltfptr[24] = 0 ;} + /*clear*/ /*_.LET___V29*/ meltfptr[28] = 0 ; + /*^clear*/ + /*clear*/ /*_#I__L23*/ meltfnum[13] = 0 ; + /*^clear*/ + /*clear*/ /*_#SETQ___L24*/ meltfnum[12] = 0 ;} ; + ; + goto labloop_CONDLOOP_1; + labexit_CONDLOOP_1:;/*^loopepilog*/ + /*loopepilog*/ + /*_.FOREVER___V27*/ meltfptr[25] = /*_.CONDLOOP__V28*/ meltfptr[27];; } ; - /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4005:/ clear"); + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:4100:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = + meltcallcount;; + MELT_LOCATION("warmelt-macro.melt:4100:/ apply"); + /*apply*/{ + union meltparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_cstring = "mexpand_cond final res"; + /*^apply.arg*/ + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19]; + /*^apply.arg*/ + argtab[2].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg*/ + argtab[3].meltbp_long = 4100; + /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + } + ; + /*_.IFCPP___V92*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:4100:/ clear"); + /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V92*/ meltfptr[34] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:4101:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V24*/ meltfptr[19];; + MELT_LOCATION("warmelt-macro.melt:4101:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V94*/ meltfptr[39];; + + MELT_LOCATION("warmelt-macro.melt:4021:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.SLOC__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V15*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.CURIF__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.LAMBDA___V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.RESTPAIR__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.CEXPTUPLE__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_#NBCOND__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFELSE___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4001:/ quasiblock"); + /*clear*/ /*_.LASTCEXP__V23*/ meltfptr[21] = 0 ; + /*^clear*/ + /*clear*/ /*_#IX__L6*/ meltfnum[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.RES__V24*/ meltfptr[19] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V25*/ meltfptr[20] = 0 ; + /*^clear*/ + /*clear*/ /*_.FOREVER___V27*/ meltfptr[25] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFCPP___V92*/ meltfptr[34] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V94*/ meltfptr[39] = 0 ; + MELT_LOCATION("warmelt-macro.melt:4017:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4001:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4017:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -23429,13 +22682,13 @@ lab_endgetargs:; ; goto labend_rout; labend_rout: -melt_trace_end("MEXPAND_GCCIF", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; +melt_trace_end("MEXPAND_COND", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_68_warmelt_macro_MEXPAND_GCCIF*/ +} /*end meltrout_68_warmelt_macro_MEXPAND_COND*/ diff --git a/gcc/melt/generated/warmelt-macro-0+03.c b/gcc/melt/generated/warmelt-macro-0+03.c index 1ec4b9ab873..d8ca1d94590 100644 --- a/gcc/melt/generated/warmelt-macro-0+03.c +++ b/gcc/melt/generated/warmelt-macro-0+03.c @@ -199,52 +199,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -254,222 +254,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -484,17 +484,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -504,12 +504,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -519,12 +519,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -534,1498 +534,168 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +void* start_module_melt (void*); +struct frame_start_module_melt_st; +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_2 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_5 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_10 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_11 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_12 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_13 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_start_module_melt_st*, char*); +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_15 (struct frame_start_module_melt_st*, char*); +static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_melt_st* fp, int marking); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - -void* start_module_melt (void*); - -struct frame_start_module_melt_st; -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_2 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_5 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_10 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_11 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_12 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_13 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_start_module_melt_st*, char*); -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_15 (struct frame_start_module_melt_st*, char*); -static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_melt_st* fp, int marking); - - -/**** melt-sources/warmelt-macro+03.c implementations ****/ - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_69_warmelt_macro_MEXPAND_COND_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 94 - void* mcfr_varptr[94]; -#define MELTFRAM_NBVARNUM 25 - long mcfr_varnum[25]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<94; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 94; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_COND", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4059:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4060:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4060:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4060:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4060)?(4060):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4060:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4061:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4061:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4061:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4061)?(4061):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4061:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4062:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4062:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4062; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4062:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4063:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:4064:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4065:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; - ; - /*_.LIST_FIRST__V14*/ meltfptr[13] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.PAIR_TAIL__V15*/ meltfptr[14] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4069:/ quasiblock"); - - - /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[16] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])), (1)); - ; - /*^putclosedv*/ - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ meltfptr[16])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ meltfptr[16]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); - ; - /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4066:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[4]); - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[15]; - /*_.CEXPTUPLE__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NBCOND__L4*/ meltfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17])));; - MELT_LOCATION("warmelt-macro.melt:4075:/ quasiblock"); - - - /*_.LX__V20*/ meltfptr[19] = - (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (-1)));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4076:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4076:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond lastcexp lx"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4076; - /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4076:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V19*/ meltfptr[18] = /*_.LX__V20*/ meltfptr[19];; - - MELT_LOCATION("warmelt-macro.melt:4075:/ clear"); - /*clear*/ /*_.LX__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; - /*_.LASTCEXP__V23*/ meltfptr[21] = /*_.LET___V19*/ meltfptr[18];; - /*^compute*/ - - /*_#IX__L6*/ meltfnum[4] = - ((/*_#NBCOND__L4*/ meltfnum[0]) - (1));; - /*^compute*/ - - /*_.RES__V24*/ meltfptr[19] = (/*nil*/NULL);; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4081:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4081:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond cexptuple"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4081; - /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4081:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V25*/ meltfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4082:/ loop"); - /*loop*/{ labloop_CONDLOOP_1:;/*^loopbody*/ - - /*^block*/ - /*anyblock*/{ - - /*_#I__L8*/ meltfnum[6] = - ((/*_#IX__L6*/ meltfnum[4]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4083:/ cond"); - /*cond*/ if (/*_#I__L8*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*^quasiblock*/ - - - /*^compute*/ - /*_.CONDLOOP__V28*/ meltfptr[27] = NULL;; - - /*^exit*/ - /*exit*/{ - goto labexit_CONDLOOP_1;} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:4084:/ quasiblock"); - - - /*_.CURCOND__V30*/ meltfptr[29] = - (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (/*_#IX__L6*/ meltfnum[4])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4085:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4085:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond curcond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4085; - /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4085:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V31*/ meltfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#NULL__L10*/ meltfnum[8] = - ((/*_.RES__V24*/ meltfptr[19]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#NULL__L10*/ meltfnum[8]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L12*/ meltfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4090:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ meltfptr[31] = slot; }; - ; - /*_.LIST_FIRST__V34*/ meltfptr[33] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V33*/ meltfptr[31])));; - /*^compute*/ - - /*_.PAIR_HEAD__V35*/ meltfptr[34] = - (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V34*/ meltfptr[33])));; - /*^compute*/ - - /*_#__L14*/ meltfnum[13] = - (((/*!konst_7_ELSE*/ meltfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ meltfptr[34]));; - /*^compute*/ - - /*_#IF___L13*/ meltfnum[12] = /*_#__L14*/ meltfnum[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V33*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L14*/ meltfnum[13] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L13*/ meltfnum[12] = 0;; - } - ; - /*^compute*/ - - /*_#IF___L11*/ meltfnum[10] = /*_#IF___L13*/ meltfnum[12];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L13*/ meltfnum[12] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L11*/ meltfnum[10] = 0;; - } - ; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#IF___L11*/ meltfnum[10]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4091:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:4092:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ meltfptr[34] = slot; }; - ; - /*_.LIST_FIRST__V39*/ meltfptr[38] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V38*/ meltfptr[34])));; - /*^compute*/ - - /*_.RESTPAIRS__V40*/ meltfptr[39] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V39*/ meltfptr[38])));; - MELT_LOCATION("warmelt-macro.melt:4094:/ cond"); - /*cond*/ if (/*_.RESTPAIRS__V40*/ meltfptr[39]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4096:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ meltfptr[41] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4095:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V42*/ meltfptr[41]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RESTPAIRS__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^compute*/ - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42];; - /*_.IF___V41*/ meltfptr[40] = /*_.SETQ___V44*/ meltfptr[43];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4094:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V42*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V41*/ meltfptr[40] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4098:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4098:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for :else"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4098; - /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V45*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4098:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V45*/ meltfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V37*/ meltfptr[33] = /*_.IFCPP___V45*/ meltfptr[41];; - - MELT_LOCATION("warmelt-macro.melt:4091:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V38*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V39*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.RESTPAIRS__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V45*/ meltfptr[41] = 0 ; - /*_.IFELSE___V36*/ meltfptr[31] = /*_.LET___V37*/ meltfptr[33];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_.LET___V37*/ meltfptr[33] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L16*/ meltfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4100:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4101:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ meltfptr[34] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4102:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ meltfptr[38] = slot; }; - ; - /*_.LIST_FIRST__V51*/ meltfptr[39] = - (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; - /*^compute*/ - - /*_.CURCONDTEST__V52*/ meltfptr[40] = - (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V51*/ meltfptr[39])));; - /*^compute*/ - - /*_.LIST_FIRST__V53*/ meltfptr[41] = - (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; - /*^compute*/ - - /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V53*/ meltfptr[41])));; - /*^compute*/ - - /*_#NULL__L17*/ meltfnum[12] = - ((/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4106:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4110:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4109:/ blockmultialloc"); - /*multiallocblock*/{ - struct meltletrec_1_st { - struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x2; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; - meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); - /*^blockmultialloc.initfill*/ - /*inimult rtup_0__TUPLREC__x2*/ - /*_.TUPLREC___V58*/ meltfptr[57] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x2; - meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 2; - - - /*^putuple*/ - /*putupl#2*/ - melt_assertmsg("putupl [:4109] #2 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4109] #2 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[0] = (melt_ptr_t)(/*_.MACROEXPAND_1__V56*/ meltfptr[55]); - ; - /*^putuple*/ - /*putupl#3*/ - melt_assertmsg("putupl [:4109] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4109] #3 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); - ; - /*^touch*/ - meltgc_touch(/*_.TUPLREC___V58*/ meltfptr[57]); - ; - /*_.TUPLE___V57*/ meltfptr[56] = /*_.TUPLREC___V58*/ meltfptr[57];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4109:/ clear"); - /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ;} /*end multiallocblock*/ - ; - MELT_LOCATION("warmelt-macro.melt:4107:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); - /*_.INST__V60*/ meltfptr[59] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (2), (/*_.TUPLE___V57*/ meltfptr[56]), "SOR_DISJ"); - ; - /*_.INST___V59*/ meltfptr[57] = /*_.INST__V60*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:4107:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V61*/ meltfptr[60] = /*_.INST___V59*/ meltfptr[57];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4112:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4112:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for monoexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4112; - /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V62*/ meltfptr[61] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4112:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V62*/ meltfptr[61] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4106:/ quasiblock"); - - - /*_.PROGN___V64*/ meltfptr[62] = /*_.IFCPP___V62*/ meltfptr[61];; - /*^compute*/ - - /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V64*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4106:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V56*/ meltfptr[55] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLE___V57*/ meltfptr[56] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V59*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V61*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V62*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V64*/ meltfptr[62] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_.PAIR_TAIL__V65*/ meltfptr[55] = - (melt_pair_tail((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; - /*^compute*/ - - /*_#NULL__L19*/ meltfnum[13] = - ((/*_.PAIR_TAIL__V65*/ meltfptr[55]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4114:/ cond"); - /*cond*/ if (/*_#NULL__L19*/ meltfnum[13]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4117:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V67*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.PAIR_HEAD__V68*/ meltfptr[60] = - (melt_pair_head((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; - MELT_LOCATION("warmelt-macro.melt:4118:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V69*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PAIR_HEAD__V68*/ meltfptr[60]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4115:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V71*/ meltfptr[70] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (2), (/*_.MACROEXPAND_1__V67*/ meltfptr[57]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (3), (/*_.MACROEXPAND_1__V69*/ meltfptr[61]), "SIF_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); - ; - /*_.INST___V70*/ meltfptr[62] = /*_.INST__V71*/ meltfptr[70];; - MELT_LOCATION("warmelt-macro.melt:4115:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V72*/ meltfptr[71] = /*_.INST___V70*/ meltfptr[62];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4121:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4121:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for biexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4121; - /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V73*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4121:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V73*/ meltfptr[72] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4114:/ quasiblock"); - - - /*_.PROGN___V75*/ meltfptr[73] = /*_.IFCPP___V73*/ meltfptr[72];; - /*^compute*/ - - /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V75*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4114:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V67*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V68*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.MACROEXPAND_1__V69*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V70*/ meltfptr[62] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V72*/ meltfptr[71] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V73*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ meltfptr[73] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4126:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V76*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4127:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONDLOC__V50*/ meltfptr[38]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4124:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V79*/ meltfptr[62] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (2), (/*_.MACROEXPAND_1__V76*/ meltfptr[57]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (3), (/*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60]), "SIF_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); - ; - /*_.INST___V78*/ meltfptr[61] = /*_.INST__V79*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:4124:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V80*/ meltfptr[71] = /*_.INST___V78*/ meltfptr[61];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4129:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4129:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for manyexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4129; - /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V81*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4129:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V81*/ meltfptr[72] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4123:/ quasiblock"); - - - /*_.PROGN___V83*/ meltfptr[73] = /*_.IFCPP___V81*/ meltfptr[72];; - /*^compute*/ - - /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V83*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4114:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V76*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V78*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V80*/ meltfptr[71] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V83*/ meltfptr[73] = 0 ;} - ; - } - ; - /*_.IFELSE___V55*/ meltfptr[54] = /*_.IFELSE___V66*/ meltfptr[56];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4106:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V65*/ meltfptr[55] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L19*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V66*/ meltfptr[56] = 0 ;} - ; - } - ; - /*_.LET___V48*/ meltfptr[42] = /*_.IFELSE___V55*/ meltfptr[54];; - - MELT_LOCATION("warmelt-macro.melt:4101:/ clear"); - /*clear*/ /*_.CURCONDCONT__V49*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDLOC__V50*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V51*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDTEST__V52*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V53*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L17*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V55*/ meltfptr[54] = 0 ; - /*_.IFELSE___V47*/ meltfptr[43] = /*_.LET___V48*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4100:/ clear"); - /*clear*/ /*_.LET___V48*/ meltfptr[42] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4135:/ blockmultialloc"); - /*multiallocblock*/{ - struct meltletrec_2_st { - struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x3; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; - meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); - /*^blockmultialloc.initfill*/ - /*inimult rtup_0__TUPLREC__x3*/ - /*_.TUPLREC___V85*/ meltfptr[60] = (void*)&meltletrec_2_ptr->rtup_0__TUPLREC__x3; - meltletrec_2_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - meltletrec_2_ptr->rtup_0__TUPLREC__x3.nbval = 2; - - - /*^putuple*/ - /*putupl#4*/ - melt_assertmsg("putupl [:4135] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4135] #4 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[0] = (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]); - ; - /*^putuple*/ - /*putupl#5*/ - melt_assertmsg("putupl [:4135] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4135] #5 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); - ; - /*^touch*/ - meltgc_touch(/*_.TUPLREC___V85*/ meltfptr[60]); - ; - /*_.TUPLE___V84*/ meltfptr[57] = /*_.TUPLREC___V85*/ meltfptr[60];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4135:/ clear"); - /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ;} /*end multiallocblock*/ - ; - MELT_LOCATION("warmelt-macro.melt:4133:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); - /*_.INST__V87*/ meltfptr[71] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (2), (/*_.TUPLE___V84*/ meltfptr[57]), "SOR_DISJ"); - ; - /*_.INST___V86*/ meltfptr[61] = /*_.INST__V87*/ meltfptr[71];; - MELT_LOCATION("warmelt-macro.melt:4133:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V88*/ meltfptr[72] = /*_.INST___V86*/ meltfptr[61];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4136:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4136:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for nonsexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4136; - /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V89*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4136:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V89*/ meltfptr[73] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4132:/ quasiblock"); - - - /*_.PROGN___V91*/ meltfptr[56] = /*_.IFCPP___V89*/ meltfptr[73];; - /*^compute*/ - - /*_.IFELSE___V47*/ meltfptr[43] = /*_.PROGN___V91*/ meltfptr[56];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4100:/ clear"); - /*clear*/ /*_.TUPLE___V84*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V86*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V88*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V89*/ meltfptr[73] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V91*/ meltfptr[56] = 0 ;} - ; - } - ; - /*_.IFELSE___V36*/ meltfptr[31] = /*_.IFELSE___V47*/ meltfptr[43];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V47*/ meltfptr[43] = 0 ;} - ; - } - ; - /*_.LET___V29*/ meltfptr[28] = /*_.IFELSE___V36*/ meltfptr[31];; - - MELT_LOCATION("warmelt-macro.melt:4084:/ clear"); - /*clear*/ /*_.CURCOND__V30*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L10*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L11*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V36*/ meltfptr[31] = 0 ; - /*_#I__L23*/ meltfnum[13] = - ((/*_#IX__L6*/ meltfnum[4]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4140:/ compute"); - /*_#IX__L6*/ meltfnum[4] = /*_#SETQ___L24*/ meltfnum[12] = /*_#I__L23*/ meltfnum[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4082:/ clear"); - /*clear*/ /*_#I__L8*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V29*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L23*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_#SETQ___L24*/ meltfnum[12] = 0 ;} - ; - ; - goto labloop_CONDLOOP_1; - labexit_CONDLOOP_1:;/*^loopepilog*/ - /*loopepilog*/ - /*_.FOREVER___V27*/ meltfptr[25] = /*_.CONDLOOP__V28*/ meltfptr[27];; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4142:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond final res"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4142; - /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V92*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4142:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V92*/ meltfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4143:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V24*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4143:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V94*/ meltfptr[39];; - - MELT_LOCATION("warmelt-macro.melt:4063:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.CEXPTUPLE__V18*/ meltfptr[17] = 0 ; - /*^clear*/ - /*clear*/ /*_#NBCOND__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.LASTCEXP__V23*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_#IX__L6*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.RES__V24*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.FOREVER___V27*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V92*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V94*/ meltfptr[39] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4059:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4059:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_COND", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_69_warmelt_macro_MEXPAND_COND*/ +/**** melt-sources/warmelt-macro+03.c implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2038,7 +708,7 @@ meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_70_warmelt_macro_LAMBDA__st { + struct frame_meltrout_69_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2072,7 +742,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4069:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4027:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -2083,7 +753,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4070:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4028:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2091,7 +761,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4071:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4029:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "COND with non-sexpr"), (melt_ptr_t)0);} ; /*epilog*/ @@ -2099,11 +769,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4069:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4027:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4069:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4027:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2120,14 +790,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_70_warmelt_macro_LAMBDA_*/ +} /*end meltrout_69_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2140,7 +810,7 @@ meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t first #define meltcallcount 0L #endif - struct frame_meltrout_71_warmelt_macro_MEXPAND_AND_st { + struct frame_meltrout_70_warmelt_macro_MEXPAND_AND_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2174,7 +844,7 @@ melt_trace_start("MEXPAND_AND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4159:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4117:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2199,17 +869,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4160:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4118:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4160:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4118:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4160:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4118:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2220,7 +890,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4160)?(4160):__LINE__, __FUNCTION__); + (4118)?(4118):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2234,7 +904,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4160:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4118:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2246,17 +916,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4161:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4119:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4161:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4119:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4161:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4119:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2267,7 +937,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4161)?(4161):__LINE__, __FUNCTION__); + (4119)?(4119):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2281,7 +951,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4161:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4119:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2293,13 +963,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4162:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4120:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4162:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4120:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2310,14 +980,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4162; + argtab[3].meltbp_long = 4120; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4162:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4120:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -2327,14 +997,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4163:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4121:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4164:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4122:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4165:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4123:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -2344,7 +1014,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4170:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4128:/ quasiblock"); /*^newclosure*/ @@ -2364,7 +1034,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4167:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4125:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2379,13 +1049,13 @@ lab_endgetargs:; (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4174:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4132:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4174:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4132:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2396,14 +1066,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4174; + argtab[3].meltbp_long = 4132; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4174:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -2417,7 +1087,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[4] = ((/*_#NBCOMP__L4*/ meltfnum[0]) < (1));; - MELT_LOCATION("warmelt-macro.melt:4175:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4133:/ cond"); /*cond*/ if (/*_#I__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2425,17 +1095,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4177:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4135:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "AND without sons"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4178:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4136:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4178:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4136:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4176:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4134:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[21];; @@ -2444,7 +1114,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4175:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[22] = 0 ;} @@ -2454,7 +1124,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4179:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4137:/ quasiblock"); /*_#I__L7*/ meltfnum[6] = @@ -2467,7 +1137,7 @@ lab_endgetargs:; /*_#IX__L8*/ meltfnum[7] = ((/*_#NBCOMP__L4*/ meltfnum[0]) - (2));; - MELT_LOCATION("warmelt-macro.melt:4181:/ loop"); + MELT_LOCATION("warmelt-macro.melt:4139:/ loop"); /*loop*/{ labloop_REVLOOP_1:;/*^loopbody*/ /*^block*/ @@ -2475,7 +1145,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = ((/*_#IX__L8*/ meltfnum[7]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4182:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4140:/ cond"); /*cond*/ if (/*_#I__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2496,12 +1166,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4183:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4141:/ quasiblock"); /*_.CURC__V29*/ meltfptr[28] = (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17]), (/*_#IX__L8*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:4185:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4143:/ quasiblock"); /*^rawallocobj*/ @@ -2526,11 +1196,11 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (3), (/*_.RES__V25*/ meltfptr[22]), "SIF_THEN"); ; /*_.INST___V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4184:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4142:/ compute"); /*_.RES__V25*/ meltfptr[22] = /*_.SETQ___V32*/ meltfptr[31] = /*_.INST___V30*/ meltfptr[29];; /*_.LET___V28*/ meltfptr[27] = /*_.SETQ___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:4183:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4141:/ clear"); /*clear*/ /*_.CURC__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V30*/ meltfptr[29] = 0 ; @@ -2538,11 +1208,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V32*/ meltfptr[31] = 0 ; /*_#I__L10*/ meltfnum[9] = ((/*_#IX__L8*/ meltfnum[7]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4190:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4148:/ compute"); /*_#IX__L8*/ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = /*_#I__L10*/ meltfnum[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4181:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4139:/ clear"); /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V28*/ meltfptr[27] = 0 ; @@ -2560,13 +1230,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4150:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4192:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4150:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2577,14 +1247,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4192; + argtab[3].meltbp_long = 4150; /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V25*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V33*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4192:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4150:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29] = 0 ;} @@ -2594,16 +1264,16 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4193:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4151:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V25*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4193:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4151:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V24*/ meltfptr[21] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:4179:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4137:/ clear"); /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V25*/ meltfptr[22] = 0 ; @@ -2618,14 +1288,14 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4175:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_.LET___V24*/ meltfptr[21] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4163:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4121:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -2645,11 +1315,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4159:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4117:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4159:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4117:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2672,14 +1342,14 @@ melt_trace_end("MEXPAND_AND", meltcallcount); melt_topframe = (struct callframe #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_71_warmelt_macro_MEXPAND_AND*/ +} /*end meltrout_70_warmelt_macro_MEXPAND_AND*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2692,7 +1362,7 @@ meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_72_warmelt_macro_LAMBDA__st { + struct frame_meltrout_71_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2726,7 +1396,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4170:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4128:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -2750,7 +1420,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4170:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4128:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2767,14 +1437,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_72_warmelt_macro_LAMBDA_*/ +} /*end meltrout_71_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2787,7 +1457,7 @@ meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_73_warmelt_macro_PATEXPAND_AS_st { + struct frame_meltrout_72_warmelt_macro_PATEXPAND_AS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2821,7 +1491,7 @@ melt_trace_start("PATEXPAND_AS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4197:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4155:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2846,17 +1516,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4198:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4156:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4198:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4156:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4198:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4156:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2867,7 +1537,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4198)?(4198):__LINE__, __FUNCTION__); + (4156)?(4156):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2881,7 +1551,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4198:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4156:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2893,17 +1563,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4199:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4157:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4199:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4157:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4199:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4157:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2914,7 +1584,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4199)?(4199):__LINE__, __FUNCTION__); + (4157)?(4157):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2928,7 +1598,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4199:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4157:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2940,17 +1610,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4200:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4158:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4200:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4158:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4200:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4158:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2961,7 +1631,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4200)?(4200):__LINE__, __FUNCTION__); + (4158)?(4158):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -2975,7 +1645,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4200:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -2987,13 +1657,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4201:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4159:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4201:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4159:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3004,14 +1674,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4201; + argtab[3].meltbp_long = 4159; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4201:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4159:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -3021,14 +1691,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4202:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4160:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4203:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4161:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4204:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4162:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -3038,7 +1708,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4206:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4164:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -3057,7 +1727,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = ((/*_#MULTIPLE_LENGTH__L5*/ meltfnum[0]) != (2));; - MELT_LOCATION("warmelt-macro.melt:4208:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4166:/ cond"); /*cond*/ if (/*_#I__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3065,17 +1735,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4210:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4168:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern expects two arguments: ?patvar subpattern"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4211:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4169:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4211:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4169:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4209:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4167:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -3084,7 +1754,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4208:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4166:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;} @@ -3094,7 +1764,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4212:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4170:/ quasiblock"); /*_.ARGVAR__V23*/ meltfptr[20] = @@ -3107,7 +1777,7 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:4215:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4173:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3115,17 +1785,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4217:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4175:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern with useless joker"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4218:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4176:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.ARGSUB__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4218:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4176:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4216:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4174:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; @@ -3134,7 +1804,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4215:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4173:/ clear"); /*clear*/ /*_.RETURN___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V27*/ meltfptr[26] = 0 ;} @@ -3148,7 +1818,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L8*/ meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:4219:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4177:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3156,17 +1826,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4221:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4179:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern needs a pattern variable as first argument"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4222:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4180:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4222:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4180:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4220:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4178:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[26];; @@ -3175,7 +1845,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4219:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4177:/ clear"); /*clear*/ /*_.RETURN___V29*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ;} @@ -3187,13 +1857,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4223:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4181:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "deprecated AS pattern - use AND pattern instead"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4224:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4182:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4225:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4183:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ARGSUB__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -3217,7 +1887,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V33*/ meltfptr[32] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[9])), (/*_#I__L10*/ meltfnum[9])));; - MELT_LOCATION("warmelt-macro.melt:4229:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:4187:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x4; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -3231,14 +1901,14 @@ lab_endgetargs:; /*^putuple*/ /*putupl#6*/ - melt_assertmsg("putupl [:4229] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4229] #6 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); + melt_assertmsg("putupl [:4187] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4187] #6 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))->tabval[0] = (melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]); ; /*^putuple*/ /*putupl#7*/ - melt_assertmsg("putupl [:4229] #7 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4229] #7 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); + melt_assertmsg("putupl [:4187] #7 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4187] #7 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))->tabval[1] = (melt_ptr_t)(/*_.ARGSUB__V24*/ meltfptr[23]); ; /*^touch*/ @@ -3247,12 +1917,12 @@ lab_endgetargs:; /*_.TUPLE___V34*/ meltfptr[33] = /*_.TUPLREC___V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4229:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4187:/ clear"); /*clear*/ /*_.TUPLREC___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V35*/ meltfptr[34] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:4226:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4184:/ quasiblock"); /*^rawallocobj*/ @@ -3279,13 +1949,13 @@ lab_endgetargs:; /*_.RES__V36*/ meltfptr[34] = /*_.INST__V37*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4231:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4189:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4231:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4189:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3296,14 +1966,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4231; + argtab[3].meltbp_long = 4189; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V36*/ meltfptr[34]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4231:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4189:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} @@ -3313,16 +1983,16 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4232:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4190:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V36*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:4232:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4190:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V31*/ meltfptr[26] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:4224:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4182:/ clear"); /*clear*/ /*_.PAT_WEIGHT__V32*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#SUBW__L9*/ meltfnum[8] = 0 ; @@ -3340,7 +2010,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*_.LET___V22*/ meltfptr[19] = /*_.LET___V31*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4212:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4170:/ clear"); /*clear*/ /*_.ARGVAR__V23*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.ARGSUB__V24*/ meltfptr[23] = 0 ; @@ -3356,7 +2026,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V31*/ meltfptr[26] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V22*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4202:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4160:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -3374,11 +2044,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V22*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4197:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4155:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4197:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4155:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3403,14 +2073,14 @@ melt_trace_end("PATEXPAND_AS", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_73_warmelt_macro_PATEXPAND_AS*/ +} /*end meltrout_72_warmelt_macro_PATEXPAND_AS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -3423,7 +2093,7 @@ meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_74_warmelt_macro_MEXPAND_AS_st { + struct frame_meltrout_73_warmelt_macro_MEXPAND_AS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -3457,7 +2127,7 @@ melt_trace_start("MEXPAND_AS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4235:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4193:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3482,17 +2152,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4236:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4194:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4236:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4194:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4236:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4194:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3503,7 +2173,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4236)?(4236):__LINE__, __FUNCTION__); + (4194)?(4194):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3517,7 +2187,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4236:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4194:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3529,17 +2199,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4237:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4195:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4237:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4195:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4237:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4195:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3550,7 +2220,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4237)?(4237):__LINE__, __FUNCTION__); + (4195)?(4195):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3564,7 +2234,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4237:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4195:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3576,13 +2246,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4238:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4238:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4196:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3593,14 +2263,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4238; + argtab[3].meltbp_long = 4196; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4238:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4196:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -3610,36 +2280,36 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4239:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4197:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4240:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4198:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4242:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4200:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "AS cannot be macro-expanded in expression context"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4243:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4201:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4243:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4201:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:4239:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4197:/ clear"); /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4235:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4193:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4235:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4193:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3662,14 +2332,14 @@ melt_trace_end("MEXPAND_AS", meltcallcount); melt_topframe = (struct callframe_ #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_74_warmelt_macro_MEXPAND_AS*/ +} /*end meltrout_73_warmelt_macro_MEXPAND_AS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -3682,7 +2352,7 @@ meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_75_warmelt_macro_PATEXPAND_WHEN_st { + struct frame_meltrout_74_warmelt_macro_PATEXPAND_WHEN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -3716,7 +2386,7 @@ melt_trace_start("PATEXPAND_WHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4249:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4207:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3741,17 +2411,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4250:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4208:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4250:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4208:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4250:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4208:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3762,7 +2432,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4250)?(4250):__LINE__, __FUNCTION__); + (4208)?(4208):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3776,7 +2446,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4250:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4208:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3788,17 +2458,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4251:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4209:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4251:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4209:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4251:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4209:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3809,7 +2479,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4251)?(4251):__LINE__, __FUNCTION__); + (4209)?(4209):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3823,7 +2493,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4251:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4209:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3835,17 +2505,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4252:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4210:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4252:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4210:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4252:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4210:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3856,7 +2526,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4252)?(4252):__LINE__, __FUNCTION__); + (4210)?(4210):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -3870,7 +2540,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4252:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4210:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -3882,13 +2552,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4253:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4211:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4253:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4211:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3899,14 +2569,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4253; + argtab[3].meltbp_long = 4211; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4253:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4211:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -3916,25 +2586,25 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4254:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4212:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4255:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4213:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4256:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4214:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4259:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4217:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "WHEN is not yet implemented in patterns"), (melt_ptr_t)0);} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4260:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4218:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -3942,7 +2612,7 @@ lab_endgetargs:; /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4260:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4218:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3953,7 +2623,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "@$@ unimplemented patexpand_when"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4260)?(4260):__LINE__, __FUNCTION__); + (4218)?(4218):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; @@ -3967,7 +2637,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4260:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4218:/ clear"); /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -3975,16 +2645,16 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4261:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4219:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4261:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4219:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V18*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4254:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4212:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -3992,11 +2662,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V18*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4249:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4207:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4249:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4207:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4021,14 +2691,14 @@ melt_trace_end("PATEXPAND_WHEN", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_75_warmelt_macro_PATEXPAND_WHEN*/ +} /*end meltrout_74_warmelt_macro_PATEXPAND_WHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4041,7 +2711,7 @@ meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_76_warmelt_macro_MEXPAND_WHEN_st { + struct frame_meltrout_75_warmelt_macro_MEXPAND_WHEN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4075,7 +2745,7 @@ melt_trace_start("MEXPAND_WHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4264:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4222:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4100,17 +2770,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4265:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4223:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4265:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4223:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4265:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4223:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4121,7 +2791,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4265)?(4265):__LINE__, __FUNCTION__); + (4223)?(4223):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4135,7 +2805,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4265:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4223:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4147,17 +2817,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4266:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4224:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4266:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4224:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4266:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4224:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4168,7 +2838,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4266)?(4266):__LINE__, __FUNCTION__); + (4224)?(4224):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4182,7 +2852,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4266:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4224:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4194,13 +2864,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4267:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4225:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4267:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4225:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4211,14 +2881,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4267; + argtab[3].meltbp_long = 4225; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4267:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4225:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -4228,36 +2898,36 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4268:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4226:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4269:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4227:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4271:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4229:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "WHEN cannot be macro-expanded in expression context"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4272:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4230:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4272:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4230:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:4268:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4226:/ clear"); /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4264:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4222:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4264:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4222:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4280,14 +2950,14 @@ melt_trace_end("MEXPAND_WHEN", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_76_warmelt_macro_MEXPAND_WHEN*/ +} /*end meltrout_75_warmelt_macro_MEXPAND_WHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4300,7 +2970,7 @@ meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_77_warmelt_macro_PATEXPAND_AND_st { + struct frame_meltrout_76_warmelt_macro_PATEXPAND_AND_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4334,7 +3004,7 @@ melt_trace_start("PATEXPAND_AND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4279:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4237:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4359,17 +3029,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4280:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4238:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4280:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4238:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4280:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4238:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4380,7 +3050,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4280)?(4280):__LINE__, __FUNCTION__); + (4238)?(4238):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4394,7 +3064,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4280:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4238:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4406,17 +3076,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4281:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4239:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4281:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4239:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4281:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4239:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4427,7 +3097,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4281)?(4281):__LINE__, __FUNCTION__); + (4239)?(4239):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4441,7 +3111,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4281:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4239:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4453,17 +3123,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4282:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4240:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4282:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4240:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4282:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4240:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4474,7 +3144,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4282)?(4282):__LINE__, __FUNCTION__); + (4240)?(4240):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -4488,7 +3158,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4282:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4240:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -4500,13 +3170,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4283:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4241:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4283:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4241:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4517,14 +3187,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4283; + argtab[3].meltbp_long = 4241; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4283:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4241:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -4534,14 +3204,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4284:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4242:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4285:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4243:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4286:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4244:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -4551,7 +3221,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4288:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4246:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -4564,7 +3234,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4289:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4247:/ quasiblock"); /*^rawallocobj*/ @@ -4584,7 +3254,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (3), (/*_.ARGSP__V18*/ meltfptr[17]), "ANDPAT_CONJ"); ; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4293:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4251:/ quasiblock"); /*^multiapply*/ @@ -4615,7 +3285,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V22*/ meltfptr[21] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[7])), (/*_#I__L9*/ meltfnum[8])));; - MELT_LOCATION("warmelt-macro.melt:4296:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4254:/ quasiblock"); /*^putslot*/ @@ -4628,7 +3298,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-macro.melt:4293:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4251:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; @@ -4643,13 +3313,13 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L7*/ meltfnum[6] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4299:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4257:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4299:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4257:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4660,14 +3330,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4299; + argtab[3].meltbp_long = 4257; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4299:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4257:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20] = 0 ;} @@ -4677,16 +3347,16 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4300:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4258:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4300:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4258:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V25*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4284:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4242:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -4702,11 +3372,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V25*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4279:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4237:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4279:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4237:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4731,14 +3401,14 @@ melt_trace_end("PATEXPAND_AND", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_77_warmelt_macro_PATEXPAND_AND*/ +} /*end meltrout_76_warmelt_macro_PATEXPAND_AND*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4751,7 +3421,7 @@ meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_78_warmelt_macro_MEXPAND_OR_st { + struct frame_meltrout_77_warmelt_macro_MEXPAND_OR_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4785,7 +3455,7 @@ melt_trace_start("MEXPAND_OR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4316:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4274:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4810,13 +3480,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4317:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4275:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4317:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4275:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4827,14 +3497,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4317; + argtab[3].meltbp_long = 4275; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4317:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4275:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -4846,17 +3516,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4318:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4276:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4318:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4276:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4318:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4276:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4867,7 +3537,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4318)?(4318):__LINE__, __FUNCTION__); + (4276)?(4276):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4881,7 +3551,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4318:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4276:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4893,17 +3563,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4319:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4277:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4319:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4277:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4319:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4277:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4914,7 +3584,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4319)?(4319):__LINE__, __FUNCTION__); + (4277)?(4277):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -4928,7 +3598,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4319:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4277:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -4938,14 +3608,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4320:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4278:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4321:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4279:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4322:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4280:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -4955,7 +3625,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4326:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4284:/ quasiblock"); /*^newclosure*/ @@ -4975,7 +3645,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4323:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4281:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4992,7 +3662,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#NBCOMP__L4*/ meltfnum[0]) < (1));; - MELT_LOCATION("warmelt-macro.melt:4330:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4288:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5000,17 +3670,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4332:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4290:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "OR without sons"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4333:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4291:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4333:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4291:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4331:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4289:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -5019,7 +3689,7 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4288:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;} @@ -5029,10 +3699,10 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4334:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4292:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4335:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4293:/ quasiblock"); /*^rawallocobj*/ @@ -5054,13 +3724,13 @@ lab_endgetargs:; /*_.RES__V23*/ meltfptr[20] = /*_.INST__V24*/ meltfptr[23];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4338:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4296:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4338:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4296:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5071,14 +3741,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4338; + argtab[3].meltbp_long = 4296; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V23*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4338:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4296:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} @@ -5088,16 +3758,16 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4339:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4297:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V23*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4339:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4297:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V22*/ meltfptr[19] = /*_.RETURN___V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:4334:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4292:/ clear"); /*clear*/ /*_.RES__V23*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; @@ -5106,14 +3776,14 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18] = /*_.LET___V22*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4288:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[19] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4320:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4278:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -5131,11 +3801,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4316:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4274:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4316:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4274:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5158,14 +3828,14 @@ melt_trace_end("MEXPAND_OR", meltcallcount); melt_topframe = (struct callframe_ #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_78_warmelt_macro_MEXPAND_OR*/ +} /*end meltrout_77_warmelt_macro_MEXPAND_OR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5178,7 +3848,7 @@ meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_79_warmelt_macro_LAMBDA__st { + struct frame_meltrout_78_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5212,7 +3882,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4326:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4284:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5236,7 +3906,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4326:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4284:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5253,14 +3923,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_79_warmelt_macro_LAMBDA_*/ +} /*end meltrout_78_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5273,7 +3943,7 @@ meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_80_warmelt_macro_PATEXPAND_OR_st { + struct frame_meltrout_79_warmelt_macro_PATEXPAND_OR_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5307,7 +3977,7 @@ melt_trace_start("PATEXPAND_OR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4343:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4301:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5332,17 +4002,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4344:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4302:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4344:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4302:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4344:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4302:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5353,7 +4023,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4344)?(4344):__LINE__, __FUNCTION__); + (4302)?(4302):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -5367,7 +4037,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4344:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4302:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -5379,17 +4049,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4303:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4345:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4303:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4345:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4303:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5400,7 +4070,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4345)?(4345):__LINE__, __FUNCTION__); + (4303)?(4303):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5414,7 +4084,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4345:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4303:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5426,17 +4096,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4304:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4346:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4304:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4346:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4304:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5447,7 +4117,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4346)?(4346):__LINE__, __FUNCTION__); + (4304)?(4304):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -5461,7 +4131,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4346:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4304:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -5473,13 +4143,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4305:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4347:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4305:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5490,14 +4160,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4347; + argtab[3].meltbp_long = 4305; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4347:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4305:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -5507,14 +4177,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4348:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4306:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4349:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4307:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4350:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4308:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -5524,7 +4194,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4352:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4310:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5537,7 +4207,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4353:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4311:/ quasiblock"); /*^rawallocobj*/ @@ -5557,7 +4227,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (3), (/*_.ARGSP__V18*/ meltfptr[17]), "ORPAT_DISJ"); ; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4357:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4315:/ quasiblock"); /*^multiapply*/ @@ -5584,7 +4254,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V23*/ meltfptr[22] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[7])), (/*_#I__L8*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:4360:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4318:/ quasiblock"); /*^putslot*/ @@ -5598,13 +4268,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4363:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4321:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5615,14 +4285,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4363; + argtab[3].meltbp_long = 4321; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4363:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4321:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} @@ -5632,16 +4302,16 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4364:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4322:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4364:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4322:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.MULTI___V21*/ meltfptr[20] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4357:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4315:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V23*/ meltfptr[22] = 0 ; @@ -5658,7 +4328,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L7*/ meltfnum[6] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.MULTI___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4348:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4306:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -5672,11 +4342,11 @@ lab_endgetargs:; /*clear*/ /*_.RES__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4343:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4301:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4343:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4301:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5701,14 +4371,14 @@ melt_trace_end("PATEXPAND_OR", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_80_warmelt_macro_PATEXPAND_OR*/ +} /*end meltrout_79_warmelt_macro_PATEXPAND_OR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5721,7 +4391,7 @@ meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_81_warmelt_macro_MEXPAND_TUPLE_st { + struct frame_meltrout_80_warmelt_macro_MEXPAND_TUPLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5755,7 +4425,7 @@ melt_trace_start("MEXPAND_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4379:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4337:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5780,13 +4450,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4380:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4338:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4380:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4338:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5797,14 +4467,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4380; + argtab[3].meltbp_long = 4338; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4380:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4338:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -5816,17 +4486,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4381:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4339:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4381:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4339:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4381:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4339:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5837,7 +4507,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4381)?(4381):__LINE__, __FUNCTION__); + (4339)?(4339):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5851,7 +4521,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4381:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4339:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5863,17 +4533,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4382:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4340:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4382:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4340:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4382:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4340:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5884,7 +4554,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4382)?(4382):__LINE__, __FUNCTION__); + (4340)?(4340):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -5898,7 +4568,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4382:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4340:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -5908,18 +4578,18 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4383:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4341:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4384:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4342:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4385:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4343:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4386:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4344:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5930,7 +4600,7 @@ lab_endgetargs:; /*_.XARGTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4387:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4345:/ quasiblock"); /*^rawallocobj*/ @@ -5952,13 +4622,13 @@ lab_endgetargs:; /*_.RES__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4391:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4349:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4391:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4349:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5969,14 +4639,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4391; + argtab[3].meltbp_long = 4349; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4391:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4349:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -5986,16 +4656,16 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4392:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4350:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4392:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4350:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4383:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4341:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6007,11 +4677,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4379:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4337:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4379:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4337:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6034,14 +4704,14 @@ melt_trace_end("MEXPAND_TUPLE", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_81_warmelt_macro_MEXPAND_TUPLE*/ +} /*end meltrout_80_warmelt_macro_MEXPAND_TUPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6054,7 +4724,7 @@ meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t f #define meltcallcount 0L #endif - struct frame_meltrout_82_warmelt_macro_PATEXPAND_TUPLE_st { + struct frame_meltrout_81_warmelt_macro_PATEXPAND_TUPLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6088,7 +4758,7 @@ melt_trace_start("PATEXPAND_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4396:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4354:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6113,17 +4783,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4355:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4397:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4355:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4397:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4355:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6134,7 +4804,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4397)?(4397):__LINE__, __FUNCTION__); + (4355)?(4355):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6148,7 +4818,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4397:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4355:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6160,17 +4830,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4398:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4356:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4398:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4356:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4398:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4356:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6181,7 +4851,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4398)?(4398):__LINE__, __FUNCTION__); + (4356)?(4356):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6195,7 +4865,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4398:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4356:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6207,17 +4877,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4399:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4399:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4357:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4399:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4357:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6228,7 +4898,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4399)?(4399):__LINE__, __FUNCTION__); + (4357)?(4357):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6242,7 +4912,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4399:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4357:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6254,13 +4924,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4400:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4358:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4400:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4358:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6271,14 +4941,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4400; + argtab[3].meltbp_long = 4358; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4400:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4358:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -6288,14 +4958,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4401:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4359:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4402:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4360:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4403:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4361:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -6305,7 +4975,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4405:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4363:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -6318,7 +4988,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4406:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4364:/ quasiblock"); /*^rawallocobj*/ @@ -6340,13 +5010,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4410:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4368:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4410:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4368:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6357,14 +5027,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4410; + argtab[3].meltbp_long = 4368; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4410:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4368:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -6374,16 +5044,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4411:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4369:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4411:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4369:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4401:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4359:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -6399,11 +5069,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4396:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4354:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4396:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4354:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6428,14 +5098,14 @@ melt_trace_end("PATEXPAND_TUPLE", meltcallcount); melt_topframe = (struct callf #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_82_warmelt_macro_PATEXPAND_TUPLE*/ +} /*end meltrout_81_warmelt_macro_PATEXPAND_TUPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6448,7 +5118,7 @@ meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_83_warmelt_macro_MEXPAND_LIST_st { + struct frame_meltrout_82_warmelt_macro_MEXPAND_LIST_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6482,7 +5152,7 @@ melt_trace_start("MEXPAND_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4426:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4384:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6507,13 +5177,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4427:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4385:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4427:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4385:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6524,14 +5194,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4427; + argtab[3].meltbp_long = 4385; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4427:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4385:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -6543,17 +5213,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4428:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4386:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4428:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4386:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4428:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4386:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6564,7 +5234,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4428)?(4428):__LINE__, __FUNCTION__); + (4386)?(4386):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6578,7 +5248,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4428:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4386:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6590,17 +5260,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4429:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4387:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4429:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4387:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4429:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4387:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6611,7 +5281,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4429)?(4429):__LINE__, __FUNCTION__); + (4387)?(4387):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6625,7 +5295,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4429:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4387:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6635,18 +5305,18 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4430:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4388:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4431:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4389:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4432:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4390:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4433:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4391:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6657,7 +5327,7 @@ lab_endgetargs:; /*_.XARGTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4434:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4392:/ quasiblock"); /*^rawallocobj*/ @@ -6679,13 +5349,13 @@ lab_endgetargs:; /*_.RES__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4438:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4396:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4438:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4396:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6696,14 +5366,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4438; + argtab[3].meltbp_long = 4396; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4438:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4396:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -6713,16 +5383,16 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4439:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4397:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4439:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4397:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4430:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4388:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6734,11 +5404,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4426:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4384:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4426:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4384:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6761,14 +5431,14 @@ melt_trace_end("MEXPAND_LIST", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_83_warmelt_macro_MEXPAND_LIST*/ +} /*end meltrout_82_warmelt_macro_MEXPAND_LIST*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6781,7 +5451,7 @@ meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_84_warmelt_macro_PATEXPAND_LIST_st { + struct frame_meltrout_83_warmelt_macro_PATEXPAND_LIST_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6815,7 +5485,7 @@ melt_trace_start("PATEXPAND_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4443:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4401:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6840,17 +5510,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4444:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4402:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4444:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4402:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4444:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4402:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6861,7 +5531,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4444)?(4444):__LINE__, __FUNCTION__); + (4402)?(4402):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6875,7 +5545,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4444:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4402:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6887,17 +5557,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4445:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4403:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4445:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4403:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4445:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4403:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6908,7 +5578,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4445)?(4445):__LINE__, __FUNCTION__); + (4403)?(4403):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6922,7 +5592,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4445:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4403:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6934,17 +5604,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4404:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4446:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4404:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4446:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4404:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6955,7 +5625,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4446)?(4446):__LINE__, __FUNCTION__); + (4404)?(4404):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6969,7 +5639,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4446:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4404:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6981,13 +5651,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4447:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4405:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4447:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4405:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6998,14 +5668,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4447; + argtab[3].meltbp_long = 4405; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4447:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4405:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -7015,14 +5685,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4448:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4406:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4449:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4407:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4450:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4408:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -7032,7 +5702,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4452:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4410:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -7045,7 +5715,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4453:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4411:/ quasiblock"); /*^rawallocobj*/ @@ -7067,13 +5737,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4457:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4415:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4457:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4415:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7084,14 +5754,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4457; + argtab[3].meltbp_long = 4415; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4457:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4415:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -7101,16 +5771,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4458:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4416:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4458:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4416:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4448:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4406:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -7126,11 +5796,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4443:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4401:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4443:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4401:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7155,14 +5825,14 @@ melt_trace_end("PATEXPAND_LIST", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_84_warmelt_macro_PATEXPAND_LIST*/ +} /*end meltrout_83_warmelt_macro_PATEXPAND_LIST*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7175,7 +5845,7 @@ meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_85_warmelt_macro_MEXPAND_MATCH_st { + struct frame_meltrout_84_warmelt_macro_MEXPAND_MATCH_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7209,7 +5879,7 @@ melt_trace_start("MEXPAND_MATCH", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4474:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4432:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7234,17 +5904,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4475:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4433:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4475:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4433:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4475:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4433:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7255,7 +5925,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4475)?(4475):__LINE__, __FUNCTION__); + (4433)?(4433):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -7269,7 +5939,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4475:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4433:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -7281,17 +5951,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4476:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4434:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4476:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4434:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4476:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4434:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7302,7 +5972,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4476)?(4476):__LINE__, __FUNCTION__); + (4434)?(4434):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7316,7 +5986,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4476:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4434:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7328,13 +5998,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4477:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4435:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4477:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4435:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7345,14 +6015,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4477; + argtab[3].meltbp_long = 4435; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4435:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7362,14 +6032,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4478:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4436:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4479:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4437:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4480:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4438:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -7383,7 +6053,7 @@ lab_endgetargs:; /*_.MSEXP__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.PAIR_TAIL__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:4482:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4440:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7404,7 +6074,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V20*/ meltfptr[19] = (melt_pair_tail((melt_ptr_t)(/*_.PAIR_TAIL__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4444:/ quasiblock"); /*^newclosure*/ @@ -7418,7 +6088,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V21*/ meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4483:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4441:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7431,20 +6101,20 @@ lab_endgetargs:; ; /*_#NBMATCH__L4*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:4492:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4450:/ quasiblock"); /*_.LX__V25*/ meltfptr[24] = (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (-1)));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4493:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4451:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4493:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4451:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7455,14 +6125,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4493; + argtab[3].meltbp_long = 4451; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4493:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4451:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} @@ -7476,7 +6146,7 @@ lab_endgetargs:; /*_.LET___V24*/ meltfptr[23] = /*_.LX__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4492:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4450:/ clear"); /*clear*/ /*_.LX__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; @@ -7491,13 +6161,13 @@ lab_endgetargs:; (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[8]))));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4498:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4456:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4498:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4456:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7508,14 +6178,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4498; + argtab[3].meltbp_long = 4456; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4498:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4456:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} @@ -7525,7 +6195,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4499:/ loop"); + MELT_LOCATION("warmelt-macro.melt:4457:/ loop"); /*loop*/{ labloop_MATCHLOOP_1:;/*^loopbody*/ /*^block*/ @@ -7533,7 +6203,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[6] = ((/*_#IX__L6*/ meltfnum[4]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4500:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4458:/ cond"); /*cond*/ if (/*_#I__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7554,20 +6224,20 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4501:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4459:/ quasiblock"); /*_.CURMATCH__V34*/ meltfptr[33] = (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (/*_#IX__L6*/ meltfnum[4])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4502:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4460:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4502:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4460:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7578,14 +6248,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4502; + argtab[3].meltbp_long = 4460; /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4502:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4460:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} @@ -7599,20 +6269,20 @@ lab_endgetargs:; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4505:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4463:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4506:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4464:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), 2, "SEXP_CONTENTS");/*_.CURMATCHCONT__V37*/ meltfptr[35] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4507:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4465:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V38*/ meltfptr[37] = slot; }; ; @@ -7634,7 +6304,7 @@ lab_endgetargs:; /*_.MAKE_MAPOBJECT__V43*/ meltfptr[42] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (13)));; - MELT_LOCATION("warmelt-macro.melt:4510:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4468:/ quasiblock"); /*^rawallocobj*/ @@ -7659,7 +6329,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V45*/ meltfptr[44]), (2), (/*_.MAKE_MAPOBJECT__V43*/ meltfptr[42]), "PCTX_VARMAP"); ; /*_.CURPATCTX__V44*/ meltfptr[43] = /*_.INST__V45*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:4514:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4472:/ quasiblock"); /*^apply*/ @@ -7677,13 +6347,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4515:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4473:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4515:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4473:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7694,14 +6364,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4515; + argtab[3].meltbp_long = 4473; /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CP__V47*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V48*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4515:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4473:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} @@ -7713,7 +6383,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4516:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4474:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -7721,7 +6391,7 @@ lab_endgetargs:; /*cond*/ if (/*_.CP__V47*/ meltfptr[46]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V51*/ meltfptr[50] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4516:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4474:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7732,7 +6402,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curpat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4516)?(4516):__LINE__, __FUNCTION__); + (4474)?(4474):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ; @@ -7746,7 +6416,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[48] = /*_.IFELSE___V51*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4516:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4474:/ clear"); /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -7758,14 +6428,14 @@ lab_endgetargs:; /*_.LET___V46*/ meltfptr[45] = /*_.CP__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:4514:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4472:/ clear"); /*clear*/ /*_.CP__V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ; /*_.CURPAT__V52*/ meltfptr[50] = /*_.LET___V46*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:4518:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4476:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7776,7 +6446,7 @@ lab_endgetargs:; /*_.CURBODY__V53*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.CURMATCHRESTPAIRS__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4519:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4477:/ quasiblock"); /*^rawallocobj*/ @@ -7803,13 +6473,13 @@ lab_endgetargs:; /*_.CURCASE__V54*/ meltfptr[47] = /*_.INST__V55*/ meltfptr[48];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4482:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4524:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4482:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7820,14 +6490,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4524; + argtab[3].meltbp_long = 4482; /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURCASE__V54*/ meltfptr[47]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V56*/ meltfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4524:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4482:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = 0 ;} @@ -7839,11 +6509,11 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4525:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4483:/ locexp"); meltgc_prepend_list((melt_ptr_t)(/*_.CASELIST__V29*/ meltfptr[24]), (melt_ptr_t)(/*_.CURCASE__V54*/ meltfptr[47]));} ; - MELT_LOCATION("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4464:/ clear"); /*clear*/ /*_.CURMATCHCONT__V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.CURMATCHLOC__V38*/ meltfptr[37] = 0 ; @@ -7872,17 +6542,17 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4505:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4463:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:4529:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4487:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(MATCH ...) with non sexpr matchcase"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4528:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); /*epilog*/ @@ -7891,7 +6561,7 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-macro.melt:4501:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4459:/ clear"); /*clear*/ /*_.CURMATCH__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; @@ -7899,11 +6569,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*_#I__L13*/ meltfnum[10] = ((/*_#IX__L6*/ meltfnum[4]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4531:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4489:/ compute"); /*_#IX__L6*/ meltfnum[4] = /*_#SETQ___L14*/ meltfnum[8] = /*_#I__L13*/ meltfnum[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4499:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4457:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#I__L13*/ meltfnum[10] = 0 ; @@ -7919,13 +6589,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4532:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4490:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4532:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4490:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7936,14 +6606,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4532; + argtab[3].meltbp_long = 4490; /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CASELIST__V29*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V58*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4532:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4490:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35] = 0 ;} @@ -7953,10 +6623,10 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4533:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4491:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4534:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4492:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -7967,7 +6637,7 @@ lab_endgetargs:; ; /*_.LASTCASE__V62*/ meltfptr[39] = (melt_multiple_nth((melt_ptr_t)(/*_.CASETUPL__V61*/ meltfptr[38]), (-1)));; - MELT_LOCATION("warmelt-macro.melt:4536:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4494:/ quasiblock"); /*^rawallocobj*/ @@ -7992,7 +6662,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V64*/ meltfptr[41]), (3), (/*_.CASETUPL__V61*/ meltfptr[38]), "SMAT_CASES"); ; /*_.SMAT__V63*/ meltfptr[40] = /*_.INST__V64*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:4544:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4502:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCASE__V62*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[13])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8008,7 +6678,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L16*/ meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.SCAM_PATT__V65*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[16])));; - MELT_LOCATION("warmelt-macro.melt:4543:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4501:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8016,7 +6686,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4546:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4504:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "last (MATCH ...) clause is not a joker"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8026,13 +6696,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4506:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4548:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4506:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8043,14 +6713,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4548; + argtab[3].meltbp_long = 4506; /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SMAT__V63*/ meltfptr[40]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V66*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4548:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4506:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45] = 0 ;} @@ -8060,16 +6730,16 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4549:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4507:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SMAT__V63*/ meltfptr[40];; - MELT_LOCATION("warmelt-macro.melt:4549:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4507:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V60*/ meltfptr[37] = /*_.RETURN___V68*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:4533:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4491:/ clear"); /*clear*/ /*_.CASETUPL__V61*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.LASTCASE__V62*/ meltfptr[39] = 0 ; @@ -8085,7 +6755,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V68*/ meltfptr[50] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V60*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:4478:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4436:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -8125,11 +6795,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V58*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V60*/ meltfptr[37] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4474:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4432:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4474:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4432:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8152,14 +6822,14 @@ melt_trace_end("MEXPAND_MATCH", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_85_warmelt_macro_MEXPAND_MATCH*/ +} /*end meltrout_84_warmelt_macro_MEXPAND_MATCH*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8172,7 +6842,7 @@ meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_86_warmelt_macro_LAMBDA__st { + struct frame_meltrout_85_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8206,7 +6876,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4486:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4444:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -8217,7 +6887,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4487:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4445:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8225,7 +6895,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4488:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4446:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "MATCH with non-sexpr"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8233,11 +6903,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4444:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4486:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4444:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8254,14 +6924,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_86_warmelt_macro_LAMBDA_*/ +} /*end meltrout_85_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8274,7 +6944,7 @@ meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_87_warmelt_macro_MEXPAND_LETBINDING_st { + struct frame_meltrout_86_warmelt_macro_MEXPAND_LETBINDING_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8308,7 +6978,7 @@ melt_trace_start("MEXPAND_LETBINDING", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4563:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4521:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8333,13 +7003,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4564:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4522:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4564:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4522:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8350,14 +7020,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4564; + argtab[3].meltbp_long = 4522; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4564:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4522:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -8369,17 +7039,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4565:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4565:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4523:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4565:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4523:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8390,7 +7060,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4565)?(4565):__LINE__, __FUNCTION__); + (4523)?(4523):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -8404,7 +7074,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4565:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4523:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -8416,17 +7086,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4566:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4566:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4524:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4566:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4524:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8437,7 +7107,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4566)?(4566):__LINE__, __FUNCTION__); + (4524)?(4524):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -8451,7 +7121,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4566:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4524:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -8461,14 +7131,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4567:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4525:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4568:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4526:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4569:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4527:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -8490,30 +7160,30 @@ lab_endgetargs:; /*_.PAIR_HEAD__V19*/ meltfptr[18] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4576:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4534:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_HEAD__V19*/ meltfptr[18];; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:4577:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4535:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4578:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4536:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 2, "SYMB_DATA");/*_.CTY__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4579:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4537:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 1, "NAMED_NAME");/*_.TYNAM__V24*/ meltfptr[23] = slot; }; ; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:4582:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4540:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8523,36 +7193,36 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4583:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4541:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4582:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4540:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4584:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4542:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V26*/ meltfptr[25] = slot; }; ; /*_#__L6*/ meltfnum[5] = ((/*_.CTYPE_KEYWORD__V26*/ meltfptr[25]) == (/*_.CURARG__V18*/ meltfptr[17]));; - MELT_LOCATION("warmelt-macro.melt:4584:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4542:/ cond"); /*cond*/ if (/*_#__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4585:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4543:/ compute"); /*_.CTYP__V14*/ meltfptr[13] = /*_.SETQ___V28*/ meltfptr[27] = /*_.CTY__V23*/ meltfptr[22];; /*_.IFELSE___V27*/ meltfptr[26] = /*_.SETQ___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4542:/ clear"); /*clear*/ /*_.SETQ___V28*/ meltfptr[27] = 0 ;} ; } else {/*^cond.else*/ @@ -8560,26 +7230,26 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4586:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4544:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27] = slot; }; ; /*_#__L7*/ meltfnum[6] = ((/*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27]) == (/*_.CURARG__V18*/ meltfptr[17]));; - MELT_LOCATION("warmelt-macro.melt:4586:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4544:/ cond"); /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4587:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4545:/ compute"); /*_.CTYP__V14*/ meltfptr[13] = /*_.SETQ___V30*/ meltfptr[29] = /*_.CTY__V23*/ meltfptr[22];; { - MELT_LOCATION("warmelt-macro.melt:4588:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4546:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "obsolete alternate ctype keyword in let binding"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4548:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8591,7 +7261,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4548:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8605,10 +7275,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4590:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4548:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "prefered ctype keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[31]));} ; - MELT_LOCATION("warmelt-macro.melt:4586:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4544:/ quasiblock"); /*epilog*/ @@ -8627,10 +7297,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4593:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4551:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4592:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4550:/ quasiblock"); /*epilog*/ @@ -8640,7 +7310,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4542:/ clear"); /*clear*/ /*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#__L7*/ meltfnum[6] = 0 ;} @@ -8650,7 +7320,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4582:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4540:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#__L6*/ meltfnum[5] = 0 ; @@ -8661,15 +7331,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4595:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4553:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V34*/ meltfptr[30] = /*_.PAIR_TAIL__V33*/ meltfptr[29];; /*_.PAIR_HEAD__V35*/ meltfptr[31] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4596:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4554:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[27] = /*_.PAIR_HEAD__V35*/ meltfptr[31];; /*_.LET___V22*/ meltfptr[21] = /*_.SETQ___V36*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4578:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4536:/ clear"); /*clear*/ /*_.CTY__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.TYNAM__V24*/ meltfptr[23] = 0 ; @@ -8688,7 +7358,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4577:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4535:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ @@ -8700,13 +7370,13 @@ lab_endgetargs:; /*_#IS_A__L8*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:4598:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4556:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4600:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4558:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ meltfptr[26] = slot; }; ; @@ -8714,13 +7384,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4599:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4557:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding cannot bind keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ meltfptr[26]));} ; /*clear*/ /*_.IFELSE___V37*/ meltfptr[25] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4598:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4556:/ clear"); /*clear*/ /*_.NAMED_NAME__V38*/ meltfptr[26] = 0 ;} ; } else {/*^cond.else*/ @@ -8730,23 +7400,23 @@ lab_endgetargs:; /*_#IS_A__L9*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:4601:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4559:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4602:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4560:/ compute"); /*_.VAR__V15*/ meltfptr[14] = /*_.SETQ___V40*/ meltfptr[23] = /*_.CURARG__V18*/ meltfptr[17];; /*_.PAIR_TAIL__V41*/ meltfptr[24] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4603:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4561:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V42*/ meltfptr[29] = /*_.PAIR_TAIL__V41*/ meltfptr[24];; /*_.PAIR_HEAD__V43*/ meltfptr[30] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4604:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4562:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V44*/ meltfptr[31] = /*_.PAIR_HEAD__V43*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4601:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4559:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[27] = /*_.SETQ___V44*/ meltfptr[31];; @@ -8755,7 +7425,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[22] = /*_.PROGN___V45*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4601:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4559:/ clear"); /*clear*/ /*_.SETQ___V40*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V41*/ meltfptr[24] = 0 ; @@ -8778,7 +7448,7 @@ lab_endgetargs:; /*_.IFELSE___V37*/ meltfptr[25] = /*_.IFELSE___V39*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4598:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4556:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V39*/ meltfptr[22] = 0 ;} @@ -8787,7 +7457,7 @@ lab_endgetargs:; ; /*_#NULL__L10*/ meltfnum[4] = ((/*_.VAR__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4606:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4564:/ cond"); /*cond*/ if (/*_#NULL__L10*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8795,7 +7465,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4607:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4565:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing variable in letbinding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8803,13 +7473,13 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4608:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4566:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4610:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4568:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8824,13 +7494,13 @@ lab_endgetargs:; /*_.EXPR__V16*/ meltfptr[15] = /*_.SETQ___V47*/ meltfptr[26] = /*_.MACROEXPAND_1__V46*/ meltfptr[21];; /*_.PAIR_TAIL__V48*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4611:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4569:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V49*/ meltfptr[24] = /*_.PAIR_TAIL__V48*/ meltfptr[23];; /*_.PAIR_HEAD__V50*/ meltfptr[29] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4612:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4570:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V51*/ meltfptr[30] = /*_.PAIR_HEAD__V50*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:4613:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4571:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8846,12 +7516,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4609:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4567:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4608:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4566:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V46*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V47*/ meltfptr[26] = 0 ; @@ -8866,7 +7536,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4615:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4573:/ quasiblock"); /*^apply*/ @@ -8880,24 +7550,24 @@ lab_endgetargs:; ; /*_#NULL__L11*/ meltfnum[5] = ((/*_.PREVBIND__V53*/ meltfptr[27]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4617:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4575:/ cond"); /*cond*/ if (/*_#NULL__L11*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V54*/ meltfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4617:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4575:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4618:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4576:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4619:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4577:/ quasiblock"); /*^cond*/ @@ -8912,7 +7582,7 @@ lab_endgetargs:; /*_.PREVLOC__V56*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4622:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4580:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8926,16 +7596,16 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4620:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4578:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "local let binding hides upper one"), (melt_ptr_t)(/*_.NAMED_NAME__V57*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4623:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4581:/ cond"); /*cond*/ if (/*_.PREVLOC__V56*/ meltfptr[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4626:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4584:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8951,13 +7621,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4624:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4582:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.PREVLOC__V56*/ meltfptr[26]), ( "here is the hidden binding"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ meltfptr[24]));} ; /*clear*/ /*_.IFELSE___V55*/ meltfptr[21] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4623:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4581:/ clear"); /*clear*/ /*_.NAMED_NAME__V58*/ meltfptr[24] = 0 ;} ; } else {/*^cond.else*/ @@ -8966,27 +7636,27 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-macro.melt:4619:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4577:/ clear"); /*clear*/ /*_.PREVLOC__V56*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V57*/ meltfptr[23] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4618:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4576:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:4629:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4587:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4632:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9002,13 +7672,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4630:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4588:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "local let binding hides definition"), (melt_ptr_t)(/*_.NAMED_NAME__V60*/ meltfptr[30]));} ; /*clear*/ /*_.IFELSE___V59*/ meltfptr[29] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4629:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4587:/ clear"); /*clear*/ /*_.NAMED_NAME__V60*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -9021,7 +7691,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[21] = /*_.IFELSE___V59*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4618:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4576:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V59*/ meltfptr[29] = 0 ;} @@ -9031,7 +7701,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[22] = /*_.IFELSE___V55*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4617:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4575:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V55*/ meltfptr[21] = 0 ;} @@ -9040,16 +7710,16 @@ lab_endgetargs:; ; /*_.LET___V52*/ meltfptr[31] = /*_.IFELSE___V54*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4615:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4573:/ clear"); /*clear*/ /*_.PREVBIND__V53*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V54*/ meltfptr[22] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4635:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4593:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4636:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4594:/ quasiblock"); /*^rawallocobj*/ @@ -9079,22 +7749,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V63*/ meltfptr[23]), (4), (/*_.EXPR__V16*/ meltfptr[15]), "SLETB_EXPR"); ; /*_.LETB__V62*/ meltfptr[26] = /*_.INST__V63*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4641:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4599:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETB__V62*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4641:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4599:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V61*/ meltfptr[24] = /*_.RETURN___V64*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4635:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4593:/ clear"); /*clear*/ /*_.LETB__V62*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V64*/ meltfptr[30] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V61*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4567:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4525:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -9126,11 +7796,11 @@ lab_endgetargs:; /*clear*/ /*_.LET___V52*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V61*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4563:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4521:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4563:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4521:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9153,14 +7823,14 @@ melt_trace_end("MEXPAND_LETBINDING", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_87_warmelt_macro_MEXPAND_LETBINDING*/ +} /*end meltrout_86_warmelt_macro_MEXPAND_LETBINDING*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9173,7 +7843,7 @@ meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t first #define meltcallcount 0L #endif - struct frame_meltrout_88_warmelt_macro_MEXPAND_LET_st { + struct frame_meltrout_87_warmelt_macro_MEXPAND_LET_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9207,7 +7877,7 @@ melt_trace_start("MEXPAND_LET", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4645:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4603:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9232,17 +7902,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4646:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4646:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4604:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4646:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4604:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9253,7 +7923,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4646)?(4646):__LINE__, __FUNCTION__); + (4604)?(4604):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -9267,7 +7937,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4646:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4604:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -9279,17 +7949,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4647:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4647:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4605:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4647:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4605:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9300,7 +7970,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4647)?(4647):__LINE__, __FUNCTION__); + (4605)?(4605):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -9314,7 +7984,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4647:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4605:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -9324,14 +7994,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4648:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4606:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4649:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4607:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4650:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4608:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -9349,7 +8019,7 @@ lab_endgetargs:; /*_.BINDEXPR__V15*/ meltfptr[14] = (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4654:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4612:/ apply"); /*apply*/{ /*_.NEWENV__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -9358,7 +8028,7 @@ lab_endgetargs:; /*^compute*/ /*_.BODYTUP__V18*/ meltfptr[17] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4658:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4616:/ cond"); /*cond*/ if (/*_.BINDEXPR__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9366,19 +8036,19 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4659:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4617:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4662:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4620:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V15*/ meltfptr[14]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V21*/ meltfptr[20] = slot; }; ; /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V21*/ meltfptr[20])));; - MELT_LOCATION("warmelt-macro.melt:4664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4622:/ quasiblock"); /*^newclosure*/ @@ -9404,7 +8074,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[2] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4661:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4619:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9415,12 +8085,12 @@ lab_endgetargs:; /*_.PAIRLIST_TO_MULTIPLE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4660:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4618:/ compute"); /*_.BINDTUP__V17*/ meltfptr[16] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIRLIST_TO_MULTIPLE__V25*/ meltfptr[24];; /*_.IFELSE___V20*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4659:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4617:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; @@ -9440,7 +8110,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4668:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4626:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing letbinding-s in LET"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; @@ -9454,7 +8124,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4658:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4616:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} @@ -9464,7 +8134,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4672:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4630:/ quasiblock"); /*^newclosure*/ @@ -9478,7 +8148,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ meltfptr[21])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ meltfptr[15]); ; /*_.LAMBDA___V27*/ meltfptr[20] = /*_.LAMBDA___V28*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4670:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4628:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9487,7 +8157,7 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V29*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BINDTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4684:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4642:/ quasiblock"); /*^newclosure*/ @@ -9507,7 +8177,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ meltfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V30*/ meltfptr[24] = /*_.LAMBDA___V31*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:4683:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4641:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9520,10 +8190,10 @@ lab_endgetargs:; ; /*^compute*/ /*_.BODYTUP__V18*/ meltfptr[17] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4685:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4643:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4686:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4644:/ quasiblock"); /*^rawallocobj*/ @@ -9548,22 +8218,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (3), (/*_.BODYTUP__V18*/ meltfptr[17]), "SLET_BODY"); ; /*_.LETR__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:4690:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4648:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V35*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:4690:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4648:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[33] = /*_.RETURN___V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:4685:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4643:/ clear"); /*clear*/ /*_.LETR__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V37*/ meltfptr[36] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V34*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:4648:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4606:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -9595,11 +8265,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V34*/ meltfptr[33] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4645:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4603:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4645:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4603:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9620,14 +8290,14 @@ melt_trace_end("MEXPAND_LET", meltcallcount); melt_topframe = (struct callframe #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_88_warmelt_macro_MEXPAND_LET*/ +} /*end meltrout_87_warmelt_macro_MEXPAND_LET*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9640,7 +8310,7 @@ meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_89_warmelt_macro_LAMBDA__st { + struct frame_meltrout_88_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9674,7 +8344,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4664:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4622:/ getarg"); /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -9685,7 +8355,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.B__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4665:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4623:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9693,7 +8363,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4666:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4624:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "sexpr expected in LET binding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -9701,7 +8371,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4667:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4625:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9712,11 +8382,11 @@ lab_endgetargs:; /*_.MEXPAND_LETBINDING__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MEXPAND_LETBINDING*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.B__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4622:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4664:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4622:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9735,14 +8405,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_89_warmelt_macro_LAMBDA_*/ +} /*end meltrout_88_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9755,7 +8425,7 @@ meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_90_warmelt_macro_LAMBDA__st { + struct frame_meltrout_89_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9789,7 +8459,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4672:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4630:/ getarg"); /*_.SLB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -9800,17 +8470,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4673:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4631:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4673:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4631:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4673:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4631:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9821,7 +8491,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4673)?(4673):__LINE__, __FUNCTION__); + (4631)?(4631):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -9835,7 +8505,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4673:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4631:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -9845,22 +8515,22 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4674:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4632:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4675:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4633:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 4, "SLETB_EXPR");/*_.SX__V6*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4677:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4635:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 3, "SLETB_BINDER");/*_.SLETB_BINDER__V7*/ meltfptr[6] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4678:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4636:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 2, "SLETB_TYPE");/*_.SLETB_TYPE__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4676:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4634:/ quasiblock"); /*^rawallocobj*/ @@ -9887,7 +8557,7 @@ lab_endgetargs:; /*_.LB__V9*/ meltfptr[8] = /*_.INST__V10*/ meltfptr[9];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4680:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4638:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -9897,11 +8567,11 @@ lab_endgetargs:; /*_#NOT__L3*/ meltfnum[2] = (!(/*_#IS_LIST__L2*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:4680:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4638:/ cond"); /*cond*/ if (/*_#NOT__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4680:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4638:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9912,7 +8582,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4680)?(4680):__LINE__, __FUNCTION__); + (4638)?(4638):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -9926,7 +8596,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4680:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4638:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L3*/ meltfnum[2] = 0 ; @@ -9938,7 +8608,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4681:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4639:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9949,7 +8619,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.PUT_ENV__V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4674:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4632:/ clear"); /*clear*/ /*_.SX__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SLETB_BINDER__V7*/ meltfptr[6] = 0 ; @@ -9961,11 +8631,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V13*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4672:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4630:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:4672:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4630:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9984,14 +8654,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_90_warmelt_macro_LAMBDA_*/ +} /*end meltrout_89_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10004,7 +8674,7 @@ meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_91_warmelt_macro_LAMBDA__st { + struct frame_meltrout_90_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10038,7 +8708,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4684:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4642:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -10062,7 +8732,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4684:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4642:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10079,14 +8749,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_91_warmelt_macro_LAMBDA_*/ +} /*end meltrout_90_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10099,7 +8769,7 @@ meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_ #define meltcallcount 0L #endif - struct frame_meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { + struct frame_meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10133,7 +8803,7 @@ melt_trace_start("YES_RECURSIVELY_CONSTRUCTIBLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4708:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4666:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -10144,13 +8814,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4709:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4667:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4709:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4667:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10161,14 +8831,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4709; + argtab[3].meltbp_long = 4667; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4709:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4667:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -10178,18 +8848,18 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4710:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4668:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RECV__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4710:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4668:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4708:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4666:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:4708:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4666:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10208,14 +8878,14 @@ melt_trace_end("YES_RECURSIVELY_CONSTRUCTIBLE", meltcallcount); melt_topframe = #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/ +} /*end meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10228,7 +8898,7 @@ meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_93_warmelt_macro_MEXPAND_LETREC_st { + struct frame_meltrout_92_warmelt_macro_MEXPAND_LETREC_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10262,7 +8932,7 @@ melt_trace_start("MEXPAND_LETREC", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4721:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4679:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10287,17 +8957,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4722:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4680:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4722:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4680:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4722:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4680:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10308,7 +8978,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4722)?(4722):__LINE__, __FUNCTION__); + (4680)?(4680):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -10322,7 +8992,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4722:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4680:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -10334,17 +9004,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4681:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4723:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4681:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4723:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4681:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10355,7 +9025,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4723)?(4723):__LINE__, __FUNCTION__); + (4681)?(4681):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -10369,7 +9039,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4723:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4681:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -10381,13 +9051,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4724:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4682:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4724:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4682:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10398,14 +9068,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4724; + argtab[3].meltbp_long = 4682; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4724:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4682:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -10415,14 +9085,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4725:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4683:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4726:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4684:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4727:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4685:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -10440,7 +9110,7 @@ lab_endgetargs:; /*_.BINDEXPR__V17*/ meltfptr[16] = (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:4731:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4689:/ apply"); /*apply*/{ /*_.NEWENV__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -10461,7 +9131,7 @@ lab_endgetargs:; /*^compute*/ /*_.BODYTUP__V23*/ meltfptr[22] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4740:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4698:/ cond"); /*cond*/ if (/*_.BINDEXPR__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10469,22 +9139,22 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4741:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4699:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4742:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4700:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4744:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4702:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V17*/ meltfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V27*/ meltfptr[26] = slot; }; ; /*_.LIST_FIRST__V28*/ meltfptr[27] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V27*/ meltfptr[26])));; - MELT_LOCATION("warmelt-macro.melt:4746:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4704:/ quasiblock"); /*^newclosure*/ @@ -10498,7 +9168,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ meltfptr[29])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V29*/ meltfptr[28] = /*_.LAMBDA___V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:4743:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4701:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -10515,23 +9185,23 @@ lab_endgetargs:; /*_.RECSEXPRTUP__V32*/ meltfptr[31] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBRECBIND__L6*/ meltfnum[5])));; - MELT_LOCATION("warmelt-macro.melt:4753:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4711:/ compute"); /*_#NBIND__L4*/ meltfnum[0] = /*_#SETQ___L7*/ meltfnum[6] = /*_#NBRECBIND__L6*/ meltfnum[5];; /*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4754:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4712:/ compute"); /*_.BINDTUP__V19*/ meltfptr[18] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MAKE_MULTIPLE__V33*/ meltfptr[32];; /*_.MAKE_MULTIPLE__V35*/ meltfptr[34] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4755:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4713:/ compute"); /*_.SRCBINDTUP__V20*/ meltfptr[19] = /*_.SETQ___V36*/ meltfptr[35] = /*_.MAKE_MULTIPLE__V35*/ meltfptr[34];; /*_.MAKE_MULTIPLE__V37*/ meltfptr[36] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4756:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4714:/ compute"); /*_.VARTUP__V21*/ meltfptr[20] = /*_.SETQ___V38*/ meltfptr[37] = /*_.MAKE_MULTIPLE__V37*/ meltfptr[36];; /*_.MAKE_MULTIPLE__V39*/ meltfptr[38] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4757:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4715:/ compute"); /*_.EXPRTUP__V22*/ meltfptr[21] = /*_.SETQ___V40*/ meltfptr[39] = /*_.MAKE_MULTIPLE__V39*/ meltfptr[38];; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit1__EACHTUP: */ @@ -10545,13 +9215,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4762:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4720:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4762:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4720:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10562,14 +9232,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4762; + argtab[3].meltbp_long = 4720; /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4762:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4720:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} @@ -10583,23 +9253,23 @@ lab_endgetargs:; /*_#IS_NOT_A__L10*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4763:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4721:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4765:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4723:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4765:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4723:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V44*/ meltfptr[42] = /*_.RETURN___V45*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4763:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4721:/ clear"); /*clear*/ /*_.RETURN___V45*/ meltfptr[44] = 0 ;} ; } else {/*^cond.else*/ @@ -10607,7 +9277,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[42] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4766:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4724:/ quasiblock"); /*^cond*/ @@ -10622,7 +9292,7 @@ lab_endgetargs:; /*_.CURCONT__V46*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4767:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4725:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -10652,7 +9322,7 @@ lab_endgetargs:; /*_#IS_A__L11*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:4773:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4731:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10662,32 +9332,32 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4774:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4732:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "keyword invalid in LETREC binding"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V52*/ meltfptr[51] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4773:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4731:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4776:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4734:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4777:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4735:/ compute"); /*_.CURSYMB__V50*/ meltfptr[49] = /*_.SETQ___V54*/ meltfptr[53] = /*_.CURCOMP__V49*/ meltfptr[48];; /*_.IFELSE___V53*/ meltfptr[52] = /*_.SETQ___V54*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4776:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4734:/ clear"); /*clear*/ /*_.SETQ___V54*/ meltfptr[53] = 0 ;} ; } else {/*^cond.else*/ @@ -10697,10 +9367,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4780:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4738:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - expecting ( )"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4779:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4737:/ quasiblock"); /*epilog*/ @@ -10711,7 +9381,7 @@ lab_endgetargs:; /*_.IFELSE___V52*/ meltfptr[51] = /*_.IFELSE___V53*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4773:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4731:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V53*/ meltfptr[52] = 0 ;} @@ -10720,15 +9390,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V55*/ meltfptr[53] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4782:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4740:/ compute"); /*_.CURPAIR__V48*/ meltfptr[47] = /*_.SETQ___V56*/ meltfptr[52] = /*_.PAIR_TAIL__V55*/ meltfptr[53];; /*_.PAIR_HEAD__V57*/ meltfptr[56] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4783:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4741:/ compute"); /*_.CURCOMP__V49*/ meltfptr[48] = /*_.SETQ___V58*/ meltfptr[57] = /*_.PAIR_HEAD__V57*/ meltfptr[56];; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4784:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4742:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10736,37 +9406,37 @@ lab_endgetargs:; /*_#IS_A__L14*/ meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4785:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4743:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4787:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4745:/ compute"); /*_.CURSEXPR__V51*/ meltfptr[50] = /*_.SETQ___V59*/ meltfptr[58] = /*_.CURCOMP__V49*/ meltfptr[48];; { - MELT_LOCATION("warmelt-macro.melt:4788:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4746:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ meltfptr[31]), (/*_#BINDIX__L8*/ meltfnum[7]), (melt_ptr_t)(/*_.CURSEXPR__V51*/ meltfptr[50]));} ; { - MELT_LOCATION("warmelt-macro.melt:4789:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4747:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (/*_#BINDIX__L8*/ meltfnum[7]), (melt_ptr_t)(/*_.CURSYMB__V50*/ meltfptr[49]));} ; - MELT_LOCATION("warmelt-macro.melt:4786:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4744:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4785:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4743:/ clear"); /*clear*/ /*_.SETQ___V59*/ meltfptr[58] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4784:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4742:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ;} ; } else {/*^cond.else*/ @@ -10776,7 +9446,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4791:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4749:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - missing constructive expression"), (melt_ptr_t)0);} ; /*epilog*/ @@ -10786,7 +9456,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V60*/ meltfptr[58] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4792:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4750:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V60*/ meltfptr[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10794,7 +9464,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4793:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4751:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - more than two components"), (melt_ptr_t)0);} ; /*epilog*/ @@ -10803,7 +9473,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4766:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4724:/ clear"); /*clear*/ /*_.CURCONT__V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.CURLOC__V47*/ meltfptr[46] = 0 ; @@ -10836,7 +9506,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4759:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4717:/ clear"); /*clear*/ /*_.CURBINDEXPR__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_#BINDIX__L8*/ meltfnum[7] = 0 ; @@ -10849,13 +9519,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4795:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4753:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4795:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4753:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10866,14 +9536,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4795; + argtab[3].meltbp_long = 4753; /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ meltfptr[31]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V61*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4795:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4753:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46] = 0 ;} @@ -10885,13 +9555,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4796:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4754:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4796:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4754:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10902,14 +9572,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4796; + argtab[3].meltbp_long = 4754; /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V63*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4796:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4754:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48] = 0 ;} @@ -10919,7 +9589,7 @@ lab_endgetargs:; /*_.IFCPP___V63*/ meltfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4799:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4757:/ quasiblock"); /*^cond*/ @@ -10946,13 +9616,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4804:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4762:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4804:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4762:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10963,14 +9633,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4804; + argtab[3].meltbp_long = 4762; /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V67*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4804:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4762:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53] = 0 ;} @@ -10984,13 +9654,13 @@ lab_endgetargs:; /*_.MAPOBJECT_GET__V69*/ meltfptr[52] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ENVMAP__V65*/ meltfptr[49]), (meltobject_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]));; - MELT_LOCATION("warmelt-macro.melt:4805:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4763:/ cond"); /*cond*/ if (/*_.MAPOBJECT_GET__V69*/ meltfptr[52]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4807:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4765:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11004,17 +9674,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4806:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4764:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "repeated variable in LETREC binding"), (melt_ptr_t)(/*_.NAMED_NAME__V70*/ meltfptr[56]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4805:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4763:/ clear"); /*clear*/ /*_.NAMED_NAME__V70*/ meltfptr[56] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4809:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4767:/ quasiblock"); /*^quasiblock*/ @@ -11042,7 +9712,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V72*/ meltfptr[58]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); ; /*_.CURBIND__V71*/ meltfptr[57] = /*_.INST__V72*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:4815:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4773:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -11053,11 +9723,11 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4816:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4774:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (/*_#VARIX__L17*/ meltfnum[11]), (melt_ptr_t)(/*_.CURBIND__V71*/ meltfptr[57]));} ; - MELT_LOCATION("warmelt-macro.melt:4809:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4767:/ clear"); /*clear*/ /*_.CURBIND__V71*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V73*/ meltfptr[46] = 0 ; @@ -11066,7 +9736,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4801:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4759:/ clear"); /*clear*/ /*_.CURVAR__V66*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_#VARIX__L17*/ meltfnum[11] = 0 ; @@ -11076,17 +9746,17 @@ lab_endgetargs:; /*clear*/ /*_.MAPOBJECT_GET__V69*/ meltfptr[52] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-macro.melt:4799:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4757:/ clear"); /*clear*/ /*_.ENVMAP__V65*/ meltfptr[49] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4818:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4776:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4818:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4776:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11097,14 +9767,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4818; + argtab[3].meltbp_long = 4776; /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V74*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4818:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4776:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53] = 0 ;} @@ -11124,10 +9794,10 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-macro.melt:4824:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4782:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4783:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSEXPR__V76*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11139,16 +9809,16 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V77*/ meltfptr[57] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4783:/ cond"); /*cond*/ if (/*_.LOCA_LOCATION__V77*/ meltfptr[57]) /*then*/ { /*^cond.then*/ /*_.CURLOC__V78*/ meltfptr[46] = /*_.LOCA_LOCATION__V77*/ meltfptr[57];; - } else {MELT_LOCATION("warmelt-macro.melt:4825:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4783:/ cond.else"); /*_.CURLOC__V78*/ meltfptr[46] = /*_.LOC__V13*/ meltfptr[12];; } ; - MELT_LOCATION("warmelt-macro.melt:4826:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4784:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11161,14 +9831,14 @@ lab_endgetargs:; ; /*_.CURBIND__V80*/ meltfptr[53] = (melt_multiple_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (/*_#EXPIX__L20*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:4829:/ msend"); + MELT_LOCATION("warmelt-macro.melt:4787:/ msend"); /*msend*/{ /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ meltfptr[80] = meltgc_send((melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]), (melt_ptr_t)((/*!IS_RECURSIVELY_CONSTRUCTIBLE*/ meltfrout->tabval[16])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#NULL__L21*/ meltfnum[10] = ((/*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ meltfptr[80]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4829:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4787:/ cond"); /*cond*/ if (/*_#NULL__L21*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11176,17 +9846,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4831:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4789:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V78*/ meltfptr[46]), ( "invalid expression in LETREC binding [not recursively constructible]"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4832:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4790:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4832:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4790:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4830:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4788:/ quasiblock"); /*_.PROGN___V84*/ meltfptr[83] = /*_.RETURN___V83*/ meltfptr[82];; @@ -11195,7 +9865,7 @@ lab_endgetargs:; /*_.IF___V82*/ meltfptr[81] = /*_.PROGN___V84*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4829:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4787:/ clear"); /*clear*/ /*_.RETURN___V83*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V84*/ meltfptr[83] = 0 ;} @@ -11205,7 +9875,7 @@ lab_endgetargs:; /*_.IF___V82*/ meltfptr[81] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4833:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4791:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V80*/ meltfptr[53]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[17])))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11226,13 +9896,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4834:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4792:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.EXPRTUP__V22*/ meltfptr[21]), (/*_#EXPIX__L20*/ meltfnum[13]), (melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]));} ; - MELT_LOCATION("warmelt-macro.melt:4835:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4793:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4837:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4795:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11244,11 +9914,11 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V85*/ meltfptr[82] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4837:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4795:/ cond"); /*cond*/ if (/*_.LOCA_LOCATION__V85*/ meltfptr[82]) /*then*/ { /*^cond.then*/ /*_.OR___V86*/ meltfptr[83] = /*_.LOCA_LOCATION__V85*/ meltfptr[82];; - } else {MELT_LOCATION("warmelt-macro.melt:4837:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4795:/ cond.else"); /*_.OR___V86*/ meltfptr[83] = /*_.LOC__V13*/ meltfptr[12];; } @@ -11257,7 +9927,7 @@ lab_endgetargs:; /*_.MULTIPLE_NTH__V87*/ meltfptr[86] = (melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (/*_#EXPIX__L20*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:4836:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4794:/ quasiblock"); /*^rawallocobj*/ @@ -11289,11 +9959,11 @@ lab_endgetargs:; /*_.SBIND__V88*/ meltfptr[87] = /*_.INST__V89*/ meltfptr[88];; { - MELT_LOCATION("warmelt-macro.melt:4843:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4801:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.SRCBINDTUP__V20*/ meltfptr[19]), (/*_#EXPIX__L20*/ meltfnum[13]), (melt_ptr_t)(/*_.SBIND__V88*/ meltfptr[87]));} ; - MELT_LOCATION("warmelt-macro.melt:4835:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4793:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V85*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.OR___V86*/ meltfptr[83] = 0 ; @@ -11302,7 +9972,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.SBIND__V88*/ meltfptr[87] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4824:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4782:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V77*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.CURLOC__V78*/ meltfptr[46] = 0 ; @@ -11321,20 +9991,20 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4821:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4779:/ clear"); /*clear*/ /*_.CURSEXPR__V76*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_#EXPIX__L20*/ meltfnum[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4845:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4803:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4845:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4803:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11345,14 +10015,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4845; + argtab[3].meltbp_long = 4803; /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPRTUP__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V90*/ meltfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4845:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4803:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83] = 0 ;} @@ -11366,7 +10036,7 @@ lab_endgetargs:; /*_.LET___V26*/ meltfptr[25] = /*_.IFCPP___V90*/ meltfptr[82];; - MELT_LOCATION("warmelt-macro.melt:4742:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4700:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V28*/ meltfptr[27] = 0 ; @@ -11407,7 +10077,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.LET___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4741:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4699:/ clear"); /*clear*/ /*_.LET___V26*/ meltfptr[25] = 0 ;} ; } else {/*^cond.else*/ @@ -11419,7 +10089,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4847:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4805:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing letbinding-s in LETREC"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; @@ -11433,7 +10103,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4740:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4698:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ;} @@ -11445,13 +10115,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4849:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4807:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4849:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4807:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11462,14 +10132,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4849; + argtab[3].meltbp_long = 4807; /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SRCBINDTUP__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V92*/ meltfptr[86] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4849:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4807:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87] = 0 ;} @@ -11479,7 +10149,7 @@ lab_endgetargs:; /*_.IFCPP___V92*/ meltfptr[86] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4851:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4809:/ quasiblock"); /*^newclosure*/ @@ -11499,7 +10169,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ meltfptr[46])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V94*/ meltfptr[57] = /*_.LAMBDA___V95*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:4850:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4808:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11518,7 +10188,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[6] = ((/*_#MULTIPLE_LENGTH__L24*/ meltfnum[5]) <= (0));; - MELT_LOCATION("warmelt-macro.melt:4852:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4810:/ cond"); /*cond*/ if (/*_#I__L25*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11526,7 +10196,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4853:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4811:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "emptyy body in LETREC"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11534,10 +10204,10 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4854:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4812:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4855:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4813:/ quasiblock"); /*^rawallocobj*/ @@ -11564,13 +10234,13 @@ lab_endgetargs:; /*_.LETR__V99*/ meltfptr[81] = /*_.INST__V100*/ meltfptr[83];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4859:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4817:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4859:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4817:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11581,14 +10251,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4859; + argtab[3].meltbp_long = 4817; /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LETR__V99*/ meltfptr[81]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V101*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4859:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4817:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27] = 0 ;} @@ -11598,16 +10268,16 @@ lab_endgetargs:; /*_.IFCPP___V101*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4860:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4818:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V99*/ meltfptr[81];; - MELT_LOCATION("warmelt-macro.melt:4860:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4818:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V98*/ meltfptr[80] = /*_.RETURN___V103*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:4854:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4812:/ clear"); /*clear*/ /*_.LETR__V99*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V101*/ meltfptr[26] = 0 ; @@ -11615,7 +10285,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V103*/ meltfptr[28] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V98*/ meltfptr[80];; - MELT_LOCATION("warmelt-macro.melt:4725:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4683:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -11657,11 +10327,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L25*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V98*/ meltfptr[80] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4721:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4679:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4721:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4679:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11684,14 +10354,14 @@ melt_trace_end("MEXPAND_LETREC", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_93_warmelt_macro_MEXPAND_LETREC*/ +} /*end meltrout_92_warmelt_macro_MEXPAND_LETREC*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11704,7 +10374,7 @@ meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_94_warmelt_macro_LAMBDA__st { + struct frame_meltrout_93_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11738,7 +10408,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4746:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4704:/ getarg"); /*_.BX__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -11749,7 +10419,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.BX__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4747:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4705:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11757,7 +10427,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4748:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4706:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "sexpr expected in LETREC binding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11765,11 +10435,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4746:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4704:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.BX__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4746:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4704:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11786,14 +10456,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_94_warmelt_macro_LAMBDA_*/ +} /*end meltrout_93_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11806,7 +10476,7 @@ meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_95_warmelt_macro_LAMBDA__st { + struct frame_meltrout_94_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11840,7 +10510,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4851:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4809:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -11864,7 +10534,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4851:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4809:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11881,14 +10551,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_95_warmelt_macro_LAMBDA_*/ +} /*end meltrout_94_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11901,7 +10571,7 @@ meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_96_warmelt_macro_MEXPAND_LAMBDA_st { + struct frame_meltrout_95_warmelt_macro_MEXPAND_LAMBDA_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11935,7 +10605,7 @@ melt_trace_start("MEXPAND_LAMBDA", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4874:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4832:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -11960,17 +10630,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4875:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4833:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4875:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4833:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4875:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4833:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11981,7 +10651,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4875)?(4875):__LINE__, __FUNCTION__); + (4833)?(4833):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -11995,7 +10665,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4875:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4833:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12007,17 +10677,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4834:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4876:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4834:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4834:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12028,7 +10698,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4876)?(4876):__LINE__, __FUNCTION__); + (4834)?(4834):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12042,7 +10712,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4876:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4834:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12052,14 +10722,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4877:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4835:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4878:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4836:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -12069,7 +10739,7 @@ lab_endgetargs:; /*_.CURPAIR__V13*/ meltfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - MELT_LOCATION("warmelt-macro.melt:4880:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4838:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -12080,7 +10750,7 @@ lab_endgetargs:; /*_#NOTNULL__L3*/ meltfnum[0] = ((/*_.FORMALS__V15*/ meltfptr[14]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:4884:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4842:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12093,7 +10763,7 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = /*_#IS_NOT_A__L5*/ meltfnum[4];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4884:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4842:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[4] = 0 ;} ; } else {/*^cond.else*/ @@ -12101,7 +10771,7 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:4884:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4842:/ cond"); /*cond*/ if (/*_#IF___L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12109,7 +10779,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4885:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4843:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12117,7 +10787,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4886:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4844:/ quasiblock"); /*^apply*/ @@ -12131,9 +10801,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4887:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4845:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_TAIL__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4889:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4847:/ quasiblock"); /*^newclosure*/ @@ -12147,7 +10817,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ meltfptr[13]); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4888:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4846:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12156,10 +10826,10 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ARGTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4890:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4848:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4891:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4849:/ quasiblock"); /*^newclosure*/ @@ -12179,7 +10849,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V24*/ meltfptr[23] = /*_.LAMBDA___V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4890:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4848:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12190,7 +10860,7 @@ lab_endgetargs:; /*_.BODYTUP__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4893:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4851:/ quasiblock"); /*^rawallocobj*/ @@ -12215,16 +10885,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (3), (/*_.BODYTUP__V26*/ meltfptr[25]), "SLAM_BODY"); ; /*_.LAMBR__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4898:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4856:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LAMBR__V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4856:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V23*/ meltfptr[22] = /*_.RETURN___V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:4890:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4848:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V26*/ meltfptr[25] = 0 ; @@ -12234,7 +10904,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V29*/ meltfptr[28] = 0 ; /*_.LET___V16*/ meltfptr[15] = /*_.LET___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4886:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4844:/ clear"); /*clear*/ /*_.ARGTUP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V18*/ meltfptr[17] = 0 ; @@ -12248,7 +10918,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:4877:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4835:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -12266,11 +10936,11 @@ lab_endgetargs:; /*clear*/ /*_#IF___L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V16*/ meltfptr[15] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4874:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4832:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4874:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4832:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12291,14 +10961,14 @@ melt_trace_end("MEXPAND_LAMBDA", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_96_warmelt_macro_MEXPAND_LAMBDA*/ +} /*end meltrout_95_warmelt_macro_MEXPAND_LAMBDA*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12311,7 +10981,7 @@ meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_97_warmelt_macro_LAMBDA__st { + struct frame_meltrout_96_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12345,7 +11015,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4889:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4847:/ getarg"); /*_.LB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12367,7 +11037,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4889:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4847:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12384,14 +11054,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_97_warmelt_macro_LAMBDA_*/ +} /*end meltrout_96_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12404,7 +11074,7 @@ meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_98_warmelt_macro_LAMBDA__st { + struct frame_meltrout_97_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12438,7 +11108,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4891:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4849:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12462,7 +11132,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4891:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4849:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12479,14 +11149,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_98_warmelt_macro_LAMBDA_*/ +} /*end meltrout_97_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12499,7 +11169,7 @@ meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_99_warmelt_macro_MEXPAND_MULTICALL_st { + struct frame_meltrout_98_warmelt_macro_MEXPAND_MULTICALL_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12533,7 +11203,7 @@ melt_trace_start("MEXPAND_MULTICALL", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4916:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4874:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -12558,17 +11228,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4917:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4875:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4917:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4875:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4917:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4875:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12579,7 +11249,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4917)?(4917):__LINE__, __FUNCTION__); + (4875)?(4875):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -12593,7 +11263,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4917:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4875:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12605,17 +11275,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4918:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4918:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4876:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4918:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12626,7 +11296,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4918)?(4918):__LINE__, __FUNCTION__); + (4876)?(4876):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12640,7 +11310,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4918:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4876:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12650,14 +11320,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4919:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4877:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4920:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4878:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -12667,17 +11337,17 @@ lab_endgetargs:; /*_.CURPAIR__V13*/ meltfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - MELT_LOCATION("warmelt-macro.melt:4922:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4880:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4925:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4883:/ quasiblock"); /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4925:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4883:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12688,9 +11358,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4926:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4884:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_TAIL__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4927:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4885:/ quasiblock"); /*_.CURCALLEXP__V21*/ meltfptr[20] = @@ -12703,7 +11373,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_A__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:4928:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4886:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12711,7 +11381,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4929:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4887:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing called expression in MULTICALL"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12721,9 +11391,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V22*/ meltfptr[21] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4930:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4888:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4931:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4889:/ quasiblock"); /*^apply*/ @@ -12739,11 +11409,11 @@ lab_endgetargs:; ; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:4934:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4892:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_#OR___L6*/ meltfnum[5] = /*_#IS_A__L5*/ meltfnum[4];; - } else {MELT_LOCATION("warmelt-macro.melt:4934:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4892:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12755,7 +11425,7 @@ lab_endgetargs:; /*_#OR___L6*/ meltfnum[5] = /*_#IS_A__L7*/ meltfnum[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4934:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4892:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ;} ; } @@ -12764,20 +11434,20 @@ lab_endgetargs:; /*cond*/ if (/*_#OR___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4934:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4892:/ cond.else"); /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4938:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4896:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4938:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4896:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12788,14 +11458,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4938; + argtab[3].meltbp_long = 4896; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURCALL__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4938:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4896:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -12807,17 +11477,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4939:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4897:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "called expression in MULTICALL is invalid, expecting application or send"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4940:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4898:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4940:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4937:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4895:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[27];; @@ -12826,7 +11496,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4934:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4892:/ clear"); /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V29*/ meltfptr[27] = 0 ; @@ -12835,7 +11505,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-macro.melt:4942:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4900:/ quasiblock"); /*^newclosure*/ @@ -12849,7 +11519,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ meltfptr[27])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ meltfptr[13]); ; /*_.LAMBDA___V31*/ meltfptr[26] = /*_.LAMBDA___V32*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4941:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4899:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12858,10 +11528,10 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V33*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RESTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4944:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4902:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4945:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4903:/ quasiblock"); /*^newclosure*/ @@ -12881,7 +11551,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V35*/ meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:4944:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4902:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12892,7 +11562,7 @@ lab_endgetargs:; /*_.BODYTUP__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4947:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4905:/ quasiblock"); /*^rawallocobj*/ @@ -12922,16 +11592,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (4), (/*_.BODYTUP__V37*/ meltfptr[36]), "SMULC_BODY"); ; /*_.MULCR__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:4954:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4912:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULCR__V38*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:4954:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4912:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[33] = /*_.RETURN___V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:4944:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4902:/ clear"); /*clear*/ /*_.LAMBDA___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V37*/ meltfptr[36] = 0 ; @@ -12941,7 +11611,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[39] = 0 ; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V34*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:4931:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4889:/ clear"); /*clear*/ /*_.CURCALL__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; @@ -12957,7 +11627,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V34*/ meltfptr[33] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4927:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4885:/ clear"); /*clear*/ /*_.CURCALLEXP__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; @@ -12971,7 +11641,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; /*_.LET___V15*/ meltfptr[14] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4925:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4883:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RESTUP__V17*/ meltfptr[16] = 0 ; @@ -12983,7 +11653,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4919:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4877:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -12995,11 +11665,11 @@ lab_endgetargs:; /*clear*/ /*_.NEWENV__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4916:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4874:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4916:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4874:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13020,14 +11690,14 @@ melt_trace_end("MEXPAND_MULTICALL", meltcallcount); melt_topframe = (struct cal #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_99_warmelt_macro_MEXPAND_MULTICALL*/ +} /*end meltrout_98_warmelt_macro_MEXPAND_MULTICALL*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13040,7 +11710,7 @@ meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_100_warmelt_macro_LAMBDA__st { + struct frame_meltrout_99_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13074,7 +11744,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4942:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4900:/ getarg"); /*_.LB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -13096,7 +11766,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4942:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4900:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13113,14 +11783,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_100_warmelt_macro_LAMBDA_*/ +} /*end meltrout_99_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13133,7 +11803,7 @@ meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_101_warmelt_macro_LAMBDA__st { + struct frame_meltrout_100_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13167,7 +11837,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4945:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4903:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -13191,7 +11861,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4945:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4903:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13208,14 +11878,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_101_warmelt_macro_LAMBDA_*/ +} /*end meltrout_100_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13228,7 +11898,7 @@ meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_102_warmelt_macro_MEXPAND_QUOTE_st { + struct frame_meltrout_101_warmelt_macro_MEXPAND_QUOTE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13262,7 +11932,7 @@ melt_trace_start("MEXPAND_QUOTE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4970:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4928:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13287,17 +11957,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4971:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4929:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4971:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4929:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4971:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4929:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13308,7 +11978,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4971)?(4971):__LINE__, __FUNCTION__); + (4929)?(4929):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -13322,7 +11992,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4971:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4929:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -13334,17 +12004,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4972:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4930:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4972:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4930:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4972:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4930:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13355,7 +12025,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4972)?(4972):__LINE__, __FUNCTION__); + (4930)?(4930):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -13369,7 +12039,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4972:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4930:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13379,14 +12049,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4973:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4931:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4974:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4932:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -13404,7 +12074,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4978:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4936:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13412,7 +12082,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4979:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4937:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "QUOTE should have only one argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -13422,43 +12092,43 @@ lab_endgetargs:; ; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4980:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4938:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4980:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4938:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:4983:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4941:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4983:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4941:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_INTEGERBOX__L5*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13])) == MELTOBMAG_INT);; - MELT_LOCATION("warmelt-macro.melt:4986:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4944:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4986:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4944:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:4990:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4948:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "QUOTE should have a symbol, string, or integer argument"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4989:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4947:/ quasiblock"); /*epilog*/ @@ -13469,7 +12139,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4983:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4941:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} @@ -13479,7 +12149,7 @@ lab_endgetargs:; /*_.IFELSE___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4980:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4938:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} @@ -13488,23 +12158,23 @@ lab_endgetargs:; ; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:4992:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4950:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4993:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4951:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.QUOTED__V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:4993:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4951:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V19*/ meltfptr[17] = /*_.RETURN___V20*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4992:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4950:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[16] = 0 ;} ; } else {/*^cond.else*/ @@ -13512,7 +12182,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4994:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4952:/ quasiblock"); /*^quasiblock*/ @@ -13535,22 +12205,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (2), (/*_.QUOTED__V14*/ meltfptr[13]), "SQUOTED"); ; /*_.SQU__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4997:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4955:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SQU__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4997:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4955:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V21*/ meltfptr[16] = /*_.RETURN___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4994:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4952:/ clear"); /*clear*/ /*_.SQU__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V24*/ meltfptr[23] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4973:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4931:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -13572,11 +12242,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4970:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4928:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4970:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4928:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13597,14 +12267,14 @@ melt_trace_end("MEXPAND_QUOTE", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_102_warmelt_macro_MEXPAND_QUOTE*/ +} /*end meltrout_101_warmelt_macro_MEXPAND_QUOTE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13617,7 +12287,7 @@ meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_103_warmelt_macro_MEXPAND_COMMENT_st { + struct frame_meltrout_102_warmelt_macro_MEXPAND_COMMENT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13651,7 +12321,7 @@ melt_trace_start("MEXPAND_COMMENT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5008:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4966:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13676,17 +12346,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5009:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4967:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5009:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4967:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5009:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4967:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13697,7 +12367,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5009)?(5009):__LINE__, __FUNCTION__); + (4967)?(4967):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -13711,7 +12381,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5009:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4967:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -13723,17 +12393,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5010:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4968:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5010:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4968:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5010:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4968:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13744,7 +12414,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5010)?(5010):__LINE__, __FUNCTION__); + (4968)?(4968):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -13758,7 +12428,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5010:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4968:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13768,14 +12438,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5011:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4969:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5012:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4970:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -13793,7 +12463,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5016:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4974:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13801,7 +12471,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5017:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4975:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "COMMENT should have only one string argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -13815,7 +12485,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_STRING__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5018:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4976:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13823,17 +12493,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5020:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4978:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "COMMENT without string is ignored"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5021:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4979:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5021:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4979:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5019:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4977:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -13842,7 +12512,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5018:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4976:/ clear"); /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ;} @@ -13852,7 +12522,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5024:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4982:/ quasiblock"); /*^quasiblock*/ @@ -13875,22 +12545,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), (/*_.COMSTR__V14*/ meltfptr[13]), "SCOMM_STR"); ; /*_.SCOM__V20*/ meltfptr[17] = /*_.INST__V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:5027:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4985:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SCOM__V20*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:5027:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4985:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V19*/ meltfptr[16] = /*_.RETURN___V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:5024:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4982:/ clear"); /*clear*/ /*_.SCOM__V20*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V19*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5011:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4969:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -13910,11 +12580,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5008:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4966:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:5008:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4966:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13935,14 +12605,14 @@ melt_trace_end("MEXPAND_COMMENT", meltcallcount); melt_topframe = (struct callf #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_103_warmelt_macro_MEXPAND_COMMENT*/ +} /*end meltrout_102_warmelt_macro_MEXPAND_COMMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13955,7 +12625,7 @@ meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN_st { + struct frame_meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13989,7 +12659,7 @@ melt_trace_start("PAIRLIST_TO_PROGN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5038:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4996:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14021,17 +12691,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5039:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4997:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5039:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4997:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5039:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4997:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14042,7 +12712,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5039)?(5039):__LINE__, __FUNCTION__); + (4997)?(4997):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -14056,7 +12726,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5039:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4997:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -14068,13 +12738,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5040:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4998:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5040:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4998:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14085,14 +12755,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5040; + argtab[3].meltbp_long = 4998; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5040:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4998:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -14104,17 +12774,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5041:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4999:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_PAIR__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:5041:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4999:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5041:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4999:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14125,7 +12795,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5041)?(5041):__LINE__, __FUNCTION__); + (4999)?(4999):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -14139,7 +12809,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5041:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4999:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -14149,10 +12819,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5042:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5000:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5045:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5003:/ quasiblock"); /*^newclosure*/ @@ -14172,7 +12842,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4]); ; /*_.LAMBDA___V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:5042:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5000:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -14183,7 +12853,7 @@ lab_endgetargs:; /*_.BODYTUP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5047:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5005:/ quasiblock"); /*^rawallocobj*/ @@ -14205,13 +12875,13 @@ lab_endgetargs:; /*_.SPROGN__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5051:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5009:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5051:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5009:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14222,14 +12892,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5051; + argtab[3].meltbp_long = 5009; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SPROGN__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5051:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5009:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -14239,16 +12909,16 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5052:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5010:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPROGN__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5052:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5010:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5042:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5000:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V15*/ meltfptr[14] = 0 ; @@ -14258,11 +12928,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5038:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4996:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-macro.melt:5038:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4996:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14285,14 +12955,14 @@ melt_trace_end("PAIRLIST_TO_PROGN", meltcallcount); melt_topframe = (struct cal #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN*/ +} /*end meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14305,7 +12975,7 @@ meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_105_warmelt_macro_LAMBDA__st { + struct frame_meltrout_104_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14339,7 +13009,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5045:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5003:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -14363,7 +13033,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5045:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5003:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14380,14 +13050,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_105_warmelt_macro_LAMBDA_*/ +} /*end meltrout_104_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14400,7 +13070,7 @@ meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN_st { + struct frame_meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14434,7 +13104,7 @@ melt_trace_start("PAIRLIST_TO_RETURN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5056:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5014:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14466,17 +13136,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5057:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5015:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5057:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5015:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5057:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5015:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14487,7 +13157,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5057)?(5057):__LINE__, __FUNCTION__); + (5015)?(5015):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -14501,7 +13171,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5057:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5015:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -14511,10 +13181,10 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5058:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5016:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5061:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5019:/ quasiblock"); /*^newclosure*/ @@ -14534,7 +13204,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5058:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5016:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -14545,7 +13215,7 @@ lab_endgetargs:; /*_.BODYTUP__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5062:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5020:/ quasiblock"); /*^rawallocobj*/ @@ -14569,17 +13239,17 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.INST___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:5058:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5016:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5056:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5014:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:5056:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5014:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14598,14 +13268,14 @@ melt_trace_end("PAIRLIST_TO_RETURN", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN*/ +} /*end meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14618,7 +13288,7 @@ meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_107_warmelt_macro_LAMBDA__st { + struct frame_meltrout_106_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14652,7 +13322,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5061:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5019:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -14676,7 +13346,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5061:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5019:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14693,14 +13363,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_107_warmelt_macro_LAMBDA_*/ +} /*end meltrout_106_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14713,7 +13383,7 @@ meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_108_warmelt_macro_MEXPAND_PROGN_st { + struct frame_meltrout_107_warmelt_macro_MEXPAND_PROGN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14747,7 +13417,7 @@ melt_trace_start("MEXPAND_PROGN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5069:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5027:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14772,17 +13442,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5070:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5028:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5070:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5028:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5070:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5028:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14793,7 +13463,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5070)?(5070):__LINE__, __FUNCTION__); + (5028)?(5028):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -14807,7 +13477,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5070:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5028:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -14817,14 +13487,14 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5071:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5029:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5073:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5031:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V9*/ meltfptr[8] = slot; }; ; @@ -14842,7 +13512,7 @@ lab_endgetargs:; /*_#NOT__L3*/ meltfnum[2] = (!(/*_#IS_PAIR__L2*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5075:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5033:/ cond"); /*cond*/ if (/*_#NOT__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14850,17 +13520,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5077:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5035:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V8*/ meltfptr[7]), ( "empty PROGN"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5078:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5036:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5078:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5036:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5076:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5034:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[13] = /*_.RETURN___V13*/ meltfptr[12];; @@ -14869,7 +13539,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = /*_.PROGN___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5075:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5033:/ clear"); /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V14*/ meltfptr[13] = 0 ;} @@ -14879,10 +13549,10 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5079:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5037:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5080:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5038:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -14895,22 +13565,22 @@ lab_endgetargs:; /*_.PROGR__V16*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIRS__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5084:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5042:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PROGR__V16*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:5084:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5042:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V15*/ meltfptr[12] = /*_.RETURN___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5079:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5037:/ clear"); /*clear*/ /*_.PROGR__V16*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V15*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:5071:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5029:/ clear"); /*clear*/ /*_.SLOC__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V9*/ meltfptr[8] = 0 ; @@ -14926,11 +13596,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V15*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5069:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5027:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:5069:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5027:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14949,7 +13619,205 @@ melt_trace_end("MEXPAND_PROGN", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_108_warmelt_macro_MEXPAND_PROGN*/ +} /*end meltrout_107_warmelt_macro_MEXPAND_PROGN*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_108_warmelt_macro_MEXPAND_RETURN_st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 13 + void* mcfr_varptr[13]; +#define MELTFRAM_NBVARNUM 1 + long mcfr_varnum[1]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<13; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 13; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MEXPAND_RETURN", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:5052:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:5053:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:5053:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:5053:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (5053)?(5053):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:5053:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:5054:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:5055:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ meltfptr[7] = slot; }; + ; + /*_.LIST_FIRST__V9*/ meltfptr[8] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V8*/ meltfptr[7])));; + /*^compute*/ + + /*_.PAIR_TAIL__V10*/ meltfptr[9] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V9*/ meltfptr[8])));; + MELT_LOCATION("warmelt-macro.melt:5056:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ meltfptr[10] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:5055:/ apply"); + /*apply*/{ + union meltparam_un argtab[3]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V11*/ meltfptr[10]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.RETR__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:5060:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETR__V12*/ meltfptr[11];; + MELT_LOCATION("warmelt-macro.melt:5060:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V7*/ meltfptr[5] = /*_.RETURN___V13*/ meltfptr[12];; + + MELT_LOCATION("warmelt-macro.melt:5054:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V9*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V10*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOCA_LOCATION__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETR__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:5052:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; + MELT_LOCATION("warmelt-macro.melt:5052:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MEXPAND_RETURN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_108_warmelt_macro_MEXPAND_RETURN*/ diff --git a/gcc/melt/generated/warmelt-macro-0+04.c b/gcc/melt/generated/warmelt-macro-0+04.c index f447d7fa62d..0ab6930a4cf 100644 --- a/gcc/melt/generated/warmelt-macro-0+04.c +++ b/gcc/melt/generated/warmelt-macro-0+04.c @@ -199,52 +199,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -254,222 +254,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -484,17 +484,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -504,12 +504,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -519,12 +519,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -534,142 +534,137 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - - - -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -700,205 +695,7 @@ static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_m melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_109_warmelt_macro_MEXPAND_RETURN_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 13 - void* mcfr_varptr[13]; -#define MELTFRAM_NBVARNUM 1 - long mcfr_varnum[1]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<13; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 13; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_RETURN", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5094:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5095:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5095:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5095:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5095)?(5095):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:5095:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:5096:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:5097:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ meltfptr[7] = slot; }; - ; - /*_.LIST_FIRST__V9*/ meltfptr[8] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V8*/ meltfptr[7])));; - /*^compute*/ - - /*_.PAIR_TAIL__V10*/ meltfptr[9] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V9*/ meltfptr[8])));; - MELT_LOCATION("warmelt-macro.melt:5098:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ meltfptr[10] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:5097:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V11*/ meltfptr[10]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.RETR__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:5102:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETR__V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:5102:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V7*/ meltfptr[5] = /*_.RETURN___V13*/ meltfptr[12];; - - MELT_LOCATION("warmelt-macro.melt:5096:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V8*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V9*/ meltfptr[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V10*/ meltfptr[9] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOCA_LOCATION__V11*/ meltfptr[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETR__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5094:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:5094:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_RETURN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_109_warmelt_macro_MEXPAND_RETURN*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -911,7 +708,7 @@ meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_110_warmelt_macro_MEXPAND_FOREVER_st { + struct frame_meltrout_109_warmelt_macro_MEXPAND_FOREVER_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -945,7 +742,7 @@ melt_trace_start("MEXPAND_FOREVER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5113:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5071:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -970,17 +767,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5114:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5072:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5114:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5072:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5114:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5072:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -991,7 +788,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5114)?(5114):__LINE__, __FUNCTION__); + (5072)?(5072):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -1005,7 +802,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5114:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5072:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1015,14 +812,14 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5115:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5073:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5116:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5074:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ meltfptr[8] = slot; }; ; @@ -1036,7 +833,7 @@ lab_endgetargs:; /*_.SLABNAM__V12*/ meltfptr[11] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10])));; - MELT_LOCATION("warmelt-macro.melt:5119:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5077:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1047,14 +844,14 @@ lab_endgetargs:; /*_.XLABNAM__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5120:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5078:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#IS_NOT_A__L2*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:5122:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5080:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1062,17 +859,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5124:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5082:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ meltfptr[8]), ( "missing label in FOREVER"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5125:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5083:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:5125:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5083:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5123:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5081:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; @@ -1081,7 +878,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5122:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5080:/ clear"); /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} @@ -1095,9 +892,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V18*/ meltfptr[15] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10])));; - MELT_LOCATION("warmelt-macro.melt:5126:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5084:/ compute"); /*_.CURPAIR__V11*/ meltfptr[10] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5127:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5085:/ quasiblock"); /*^quasiblock*/ @@ -1120,7 +917,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V22*/ meltfptr[21]), (1), (/*_.LOC__V9*/ meltfptr[8]), "LABIND_LOC"); ; /*_.LABIND__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:5130:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5088:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -1129,10 +926,10 @@ lab_endgetargs:; /*_.PUT_ENV__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.NEWENV__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5131:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5089:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5134:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5092:/ quasiblock"); /*^newclosure*/ @@ -1152,7 +949,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ meltfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V25*/ meltfptr[24] = /*_.LAMBDA___V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:5131:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5089:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1163,7 +960,7 @@ lab_endgetargs:; /*_.BODYTUP__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5136:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5094:/ quasiblock"); /*^rawallocobj*/ @@ -1188,16 +985,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V29*/ meltfptr[28]), (3), (/*_.BODYTUP__V27*/ meltfptr[26]), "SFRV_BODY"); ; /*_.FORR__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:5141:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5099:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.FORR__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:5141:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5099:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V24*/ meltfptr[23] = /*_.RETURN___V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:5131:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5089:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V27*/ meltfptr[26] = 0 ; @@ -1207,7 +1004,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V30*/ meltfptr[29] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:5127:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5085:/ clear"); /*clear*/ /*_.LABIND__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V23*/ meltfptr[22] = 0 ; @@ -1215,7 +1012,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:5115:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5073:/ clear"); /*clear*/ /*_.CONT__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V9*/ meltfptr[8] = 0 ; @@ -1239,11 +1036,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5113:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5071:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:5113:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5071:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1262,14 +1059,14 @@ melt_trace_end("MEXPAND_FOREVER", meltcallcount); melt_topframe = (struct callf #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_110_warmelt_macro_MEXPAND_FOREVER*/ +} /*end meltrout_109_warmelt_macro_MEXPAND_FOREVER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -1282,7 +1079,7 @@ meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_111_warmelt_macro_LAMBDA__st { + struct frame_meltrout_110_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -1316,7 +1113,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5134:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5092:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -1340,7 +1137,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5134:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5092:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1357,14 +1154,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_111_warmelt_macro_LAMBDA_*/ +} /*end meltrout_110_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -1377,7 +1174,7 @@ meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_112_warmelt_macro_MEXPAND_EXIT_st { + struct frame_meltrout_111_warmelt_macro_MEXPAND_EXIT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -1411,7 +1208,7 @@ melt_trace_start("MEXPAND_EXIT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5151:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5109:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1436,17 +1233,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5152:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5110:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5152:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5110:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5152:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5110:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1457,7 +1254,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5152)?(5152):__LINE__, __FUNCTION__); + (5110)?(5110):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -1471,7 +1268,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5152:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5110:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1481,14 +1278,14 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5153:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5111:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5154:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5112:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ meltfptr[8] = slot; }; ; @@ -1502,7 +1299,7 @@ lab_endgetargs:; /*_.SLABNAM__V12*/ meltfptr[11] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10])));; - MELT_LOCATION("warmelt-macro.melt:5157:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5115:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1513,14 +1310,14 @@ lab_endgetargs:; /*_.XLABNAM__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5158:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5116:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#IS_NOT_A__L2*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:5160:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5118:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1528,17 +1325,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5162:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5120:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ meltfptr[8]), ( "missing label in EXIT"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5163:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5121:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:5163:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5121:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5161:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5119:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = /*_.RETURN___V16*/ meltfptr[15];; @@ -1547,7 +1344,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5160:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5118:/ clear"); /*clear*/ /*_.RETURN___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V17*/ meltfptr[16] = 0 ;} @@ -1561,9 +1358,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V18*/ meltfptr[15] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10])));; - MELT_LOCATION("warmelt-macro.melt:5164:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5122:/ compute"); /*_.CURPAIR__V11*/ meltfptr[10] = /*_.SETQ___V19*/ meltfptr[16] = /*_.PAIR_TAIL__V18*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5165:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5123:/ quasiblock"); /*^apply*/ @@ -1577,29 +1374,29 @@ lab_endgetargs:; ; /*_#IS_NOT_A__L3*/ meltfnum[2] = !melt_is_instance_of((melt_ptr_t)(/*_.LABIND__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:5166:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5124:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5169:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5127:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XLABNAM__V13*/ meltfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ meltfptr[22] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:5168:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5126:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ meltfptr[8]), ( "bad label in EXIT"), (melt_ptr_t)(/*_.NAMED_NAME__V23*/ meltfptr[22]));} ; - MELT_LOCATION("warmelt-macro.melt:5170:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5128:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:5170:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5128:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5167:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5125:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -1608,7 +1405,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[21] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5166:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5124:/ clear"); /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V24*/ meltfptr[23] = 0 ; @@ -1620,10 +1417,10 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5171:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5129:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5174:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5132:/ quasiblock"); /*^newclosure*/ @@ -1643,7 +1440,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ meltfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V27*/ meltfptr[23] = /*_.LAMBDA___V28*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:5171:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5129:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -1654,7 +1451,7 @@ lab_endgetargs:; /*_.BODYTUP__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5176:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5134:/ quasiblock"); /*^rawallocobj*/ @@ -1679,16 +1476,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (3), (/*_.BODYTUP__V29*/ meltfptr[28]), "SEXI_BODY"); ; /*_.EXR__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:5181:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5139:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXR__V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:5181:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5139:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V26*/ meltfptr[22] = /*_.RETURN___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:5171:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5129:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V29*/ meltfptr[28] = 0 ; @@ -1698,7 +1495,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V32*/ meltfptr[31] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V26*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:5165:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5123:/ clear"); /*clear*/ /*_.LABIND__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L3*/ meltfnum[2] = 0 ; @@ -1708,7 +1505,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V26*/ meltfptr[22] = 0 ; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:5153:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5111:/ clear"); /*clear*/ /*_.CONT__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V9*/ meltfptr[8] = 0 ; @@ -1732,11 +1529,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V19*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5151:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5109:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:5151:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5109:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1755,14 +1552,14 @@ melt_trace_end("MEXPAND_EXIT", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_112_warmelt_macro_MEXPAND_EXIT*/ +} /*end meltrout_111_warmelt_macro_MEXPAND_EXIT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -1775,7 +1572,7 @@ meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_113_warmelt_macro_LAMBDA__st { + struct frame_meltrout_112_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -1809,7 +1606,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5174:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5132:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -1833,7 +1630,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5174:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5132:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1850,14 +1647,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_113_warmelt_macro_LAMBDA_*/ +} /*end meltrout_112_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -1870,7 +1667,7 @@ meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, mel #define meltcallcount 0L #endif - struct frame_meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING_st { + struct frame_meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -1904,7 +1701,7 @@ melt_trace_start("MEXPAND_COMPILE_WARNING", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5192:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5150:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1929,17 +1726,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5193:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5151:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5193:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5151:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5193:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5151:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1950,7 +1747,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5193)?(5193):__LINE__, __FUNCTION__); + (5151)?(5151):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -1964,7 +1761,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5193:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5151:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1976,13 +1773,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5194:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5152:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5194:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5152:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -1993,14 +1790,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5194; + argtab[3].meltbp_long = 5152; /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5194:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5152:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = 0 ;} @@ -2010,14 +1807,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5195:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5153:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5196:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5154:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -2031,7 +1828,7 @@ lab_endgetargs:; /*_.SMSG__V14*/ meltfptr[13] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5199:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5157:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2048,7 +1845,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_STRING__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5201:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5159:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2056,17 +1853,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5203:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5161:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing message string in (COMPILE_WARNING )"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5204:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5162:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:5204:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5162:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5202:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5160:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -2075,7 +1872,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5201:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5159:/ clear"); /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ;} @@ -2089,14 +1886,14 @@ lab_endgetargs:; /*_.PAIR_TAIL__V19*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5205:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5163:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V20*/ meltfptr[17] = /*_.PAIR_TAIL__V19*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5206:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5164:/ quasiblock"); /*_.SEXP__V22*/ meltfptr[21] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5207:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5165:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2109,11 +1906,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5209:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5167:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; /*_#NOTNULL__L5*/ meltfnum[4] = ((/*_.CURPAIR__V13*/ meltfptr[12]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5210:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5168:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2121,7 +1918,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5211:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5169:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "too many arguments in (COMPILE_WARNING [])"), (melt_ptr_t)0);} ; /*epilog*/ @@ -2129,7 +1926,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:5212:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5170:/ quasiblock"); /*^quasiblock*/ @@ -2159,13 +1956,13 @@ lab_endgetargs:; /*_.RES__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5218:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5176:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5218:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5176:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2176,14 +1973,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5218; + argtab[3].meltbp_long = 5176; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.RES__V27*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5218:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5176:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -2193,16 +1990,16 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5219:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5177:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:5219:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5177:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V31*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:5212:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5170:/ clear"); /*clear*/ /*_.RES__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V29*/ meltfptr[28] = 0 ; @@ -2210,7 +2007,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V31*/ meltfptr[29] = 0 ; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:5206:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5164:/ clear"); /*clear*/ /*_.SEXP__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.XEXP__V23*/ meltfptr[22] = 0 ; @@ -2224,7 +2021,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V26*/ meltfptr[25] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:5195:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5153:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -2248,11 +2045,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V20*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5192:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5150:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:5192:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5150:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2273,14 +2070,14 @@ melt_trace_end("MEXPAND_COMPILE_WARNING", meltcallcount); melt_topframe = (stru #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING*/ +} /*end meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2293,7 +2090,7 @@ meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG_st { + struct frame_meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2327,7 +2124,7 @@ melt_trace_start("MEXPAND_ASSERT_MSG", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5234:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5192:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2352,17 +2149,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5235:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5193:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5235:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5193:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5235:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5193:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2373,7 +2170,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5235)?(5235):__LINE__, __FUNCTION__); + (5193)?(5193):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2387,7 +2184,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5235:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5193:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2399,17 +2196,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5236:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5194:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5236:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5194:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5236:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5194:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2420,7 +2217,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5236)?(5236):__LINE__, __FUNCTION__); + (5194)?(5194):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2434,7 +2231,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5236:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5194:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2446,13 +2243,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5237:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5195:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5237:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5195:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2463,14 +2260,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5237; + argtab[3].meltbp_long = 5195; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5237:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5195:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -2480,14 +2277,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5238:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5196:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5239:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5197:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5240:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5198:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -2501,7 +2298,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5242:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5200:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2516,7 +2313,7 @@ lab_endgetargs:; /*^compute*/ /*_.ASSFAIL_SYMB__V19*/ meltfptr[18] = (/*!konst_4_ASSERT_FAILED*/ meltfrout->tabval[4]);; - MELT_LOCATION("warmelt-macro.melt:5245:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5203:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -2531,7 +2328,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_STRING__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5247:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5205:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2539,7 +2336,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5248:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5206:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "non string message in (ASSERT_MSG )"), (melt_ptr_t)0);} ; /*epilog*/ @@ -2549,11 +2346,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V21*/ meltfptr[20] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5249:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5207:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V22*/ meltfptr[21] = /*_.PAIR_TAIL__V21*/ meltfptr[20];; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:5250:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5208:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2561,7 +2358,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5251:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5209:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V24*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2569,7 +2366,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5252:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5210:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "extra arg for (ASSERT_MSG )"), (melt_ptr_t)0);} ; /*epilog*/ @@ -2579,7 +2376,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V25*/ meltfptr[24] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5253:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5211:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2592,7 +2389,7 @@ lab_endgetargs:; ; /*^compute*/ /*_.XTEST__V18*/ meltfptr[17] = /*_.SETQ___V27*/ meltfptr[26] = /*_.MACROEXPAND_1__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:5250:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5208:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.SETQ___V27*/ meltfptr[26];; @@ -2601,7 +2398,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5250:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5208:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_HEAD__V25*/ meltfptr[24] = 0 ; @@ -2617,29 +2414,29 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5255:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5213:/ compute"); /*_.XTEST__V18*/ meltfptr[17] = /*_.SETQ___V29*/ meltfptr[23] = (/*nil*/NULL);; { - MELT_LOCATION("warmelt-macro.melt:5256:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5214:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "empty ASSERT_MSG"), (melt_ptr_t)(/*_.XMSG__V17*/ meltfptr[16]));} ; - MELT_LOCATION("warmelt-macro.melt:5254:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5212:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5250:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5208:/ clear"); /*clear*/ /*_.SETQ___V29*/ meltfptr[23] = 0 ;} ; } ; - MELT_LOCATION("warmelt-macro.melt:5258:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5216:/ quasiblock"); /*_#NULL__L7*/ meltfnum[6] = ((/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5261:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5219:/ cond"); /*cond*/ if (/*_#NULL__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2647,18 +2444,18 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5262:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5220:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "unbound ASSERT_FAILED in (ASSERT_MSG )"), (melt_ptr_t)0);} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5263:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5221:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5263:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5221:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2669,14 +2466,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5263; + argtab[3].meltbp_long = 5221; /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5263:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5221:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27] = 0 ;} @@ -2688,7 +2485,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5264:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5222:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -2698,7 +2495,7 @@ lab_endgetargs:; /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5264:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5222:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2709,14 +2506,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5264; + argtab[3].meltbp_long = 5222; /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.DISCRIM__V35*/ meltfptr[27]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V34*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5264:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5222:/ clear"); /*clear*/ /*_.DISCRIM__V35*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[7] = 0 ; @@ -2730,7 +2527,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5265:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5223:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -2745,7 +2542,7 @@ lab_endgetargs:; ; /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5265:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5223:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2756,14 +2553,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5265; + argtab[3].meltbp_long = 5223; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V38*/ meltfptr[35]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5265:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5223:/ clear"); /*clear*/ /*_.FIND_ENV_DEBUG__V38*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = 0 ; @@ -2777,13 +2574,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5266:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5224:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5266:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5224:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2794,14 +2591,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5266; + argtab[3].meltbp_long = 5224; /*_.DEBUG_MSG_FUN__V41*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_SYMB__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V40*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V41*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5266:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5224:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ meltfptr[38] = 0 ;} @@ -2813,7 +2610,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5267:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5225:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -2821,7 +2618,7 @@ lab_endgetargs:; /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V43*/ meltfptr[42] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5267:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5225:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2832,7 +2629,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5267)?(5267):__LINE__, __FUNCTION__); + (5225)?(5225):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V43*/ meltfptr[42] = 0 ; @@ -2846,7 +2643,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[38] = /*_.IFELSE___V43*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5267:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5225:/ clear"); /*clear*/ /*_.IFELSE___V43*/ meltfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -2854,14 +2651,14 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5268:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5226:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5268:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5226:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5261:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5219:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[42];; @@ -2870,7 +2667,7 @@ lab_endgetargs:; /*_.AFPRIM__V31*/ meltfptr[25] = /*_.PROGN___V45*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5261:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5219:/ clear"); /*clear*/ /*_.IFCPP___V32*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V34*/ meltfptr[23] = 0 ; @@ -2892,20 +2689,20 @@ lab_endgetargs:; /*_#IS_A__L12*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:5269:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5227:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5270:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5228:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), 3, "PBIND_PRIMITIVE");/*_.PBIND_PRIMITIVE__V47*/ meltfptr[23] = slot; }; ; /*_.IFELSE___V46*/ meltfptr[26] = /*_.PBIND_PRIMITIVE__V47*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5269:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5227:/ clear"); /*clear*/ /*_.PBIND_PRIMITIVE__V47*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -2915,13 +2712,13 @@ lab_endgetargs:; /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[8])));; - MELT_LOCATION("warmelt-macro.melt:5271:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5229:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5272:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5230:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V48*/ meltfptr[27] = slot; }; ; @@ -2932,7 +2729,7 @@ lab_endgetargs:; /*_#IF___L14*/ meltfnum[13] = /*_#IS_A__L15*/ meltfnum[14];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5271:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5229:/ clear"); /*clear*/ /*_.VBIND_VALUE__V48*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ;} @@ -2942,20 +2739,20 @@ lab_endgetargs:; /*_#IF___L14*/ meltfnum[13] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:5271:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5229:/ cond"); /*cond*/ if (/*_#IF___L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5274:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5232:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V50*/ meltfptr[38] = slot; }; ; /*_.IFELSE___V49*/ meltfptr[35] = /*_.VBIND_VALUE__V50*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5271:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5229:/ clear"); /*clear*/ /*_.VBIND_VALUE__V50*/ meltfptr[38] = 0 ;} ; } else {/*^cond.else*/ @@ -2965,13 +2762,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5276:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5234:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5276:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5234:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2982,14 +2779,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5276; + argtab[3].meltbp_long = 5234; /*_.DEBUG_MSG_FUN__V52*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V51*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V52*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5276:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5234:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ meltfptr[44] = 0 ;} @@ -3001,17 +2798,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:5277:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5235:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "ASSERT_FAILED not bound to a primitive in (ASSERT_MSG )"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5278:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5236:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5278:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5236:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5275:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5233:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[27] = /*_.RETURN___V53*/ meltfptr[23];; @@ -3020,7 +2817,7 @@ lab_endgetargs:; /*_.IFELSE___V49*/ meltfptr[35] = /*_.PROGN___V54*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5271:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5229:/ clear"); /*clear*/ /*_.IFCPP___V51*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V53*/ meltfptr[23] = 0 ; @@ -3032,7 +2829,7 @@ lab_endgetargs:; /*_.IFELSE___V46*/ meltfptr[26] = /*_.IFELSE___V49*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5269:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5227:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_#IF___L14*/ meltfnum[13] = 0 ; @@ -3044,7 +2841,7 @@ lab_endgetargs:; /*_.AFPRIM__V31*/ meltfptr[25] = /*_.IFELSE___V46*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5261:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5219:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V46*/ meltfptr[26] = 0 ;} @@ -3053,7 +2850,7 @@ lab_endgetargs:; ; /*_#IS_MIXINT__L17*/ meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12])) == MELTOBMAG_MIXINT);; - MELT_LOCATION("warmelt-macro.melt:5281:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5239:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L17*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3066,7 +2863,7 @@ lab_endgetargs:; /*_.FILNAM__V55*/ meltfptr[38] = /*_.MIXINT_VAL__V56*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5281:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5239:/ clear"); /*clear*/ /*_.MIXINT_VAL__V56*/ meltfptr[44] = 0 ;} ; } else {/*^cond.else*/ @@ -3076,7 +2873,7 @@ lab_endgetargs:; /*_#IS_MIXLOC__L18*/ meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION("warmelt-macro.melt:5282:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5240:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L18*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3089,7 +2886,7 @@ lab_endgetargs:; /*_.IFELSE___V57*/ meltfptr[42] = /*_.MIXLOC_VAL__V58*/ meltfptr[23];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5282:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5240:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V58*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ @@ -3102,7 +2899,7 @@ lab_endgetargs:; /*_.FILNAM__V55*/ meltfptr[38] = /*_.IFELSE___V57*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5281:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5239:/ clear"); /*clear*/ /*_#IS_MIXLOC__L18*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V57*/ meltfptr[42] = 0 ;} @@ -3115,7 +2912,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V59*/ meltfptr[27] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[11])), (/*_#GET_INT__L19*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:5287:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:5245:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x5; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -3129,20 +2926,20 @@ lab_endgetargs:; /*^putuple*/ /*putupl#8*/ - melt_assertmsg("putupl [:5287] #8 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5287] #8 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); + melt_assertmsg("putupl [:5245] #8 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5245] #8 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))->tabval[0] = (melt_ptr_t)(/*_.XMSG__V17*/ meltfptr[16]); ; /*^putuple*/ /*putupl#9*/ - melt_assertmsg("putupl [:5287] #9 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5287] #9 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); + melt_assertmsg("putupl [:5245] #9 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5245] #9 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))->tabval[1] = (melt_ptr_t)(/*_.FILNAM__V55*/ meltfptr[38]); ; /*^putuple*/ /*putupl#10*/ - melt_assertmsg("putupl [:5287] #10 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5287] #10 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); + melt_assertmsg("putupl [:5245] #10 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5245] #10 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V61*/ meltfptr[26]))->tabval[2] = (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V59*/ meltfptr[27]); ; /*^touch*/ @@ -3151,12 +2948,12 @@ lab_endgetargs:; /*_.TUPLE___V60*/ meltfptr[35] = /*_.TUPLREC___V61*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5287:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5245:/ clear"); /*clear*/ /*_.TUPLREC___V61*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V61*/ meltfptr[26] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:5283:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5241:/ quasiblock"); /*^rawallocobj*/ @@ -3181,7 +2978,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V63*/ meltfptr[23]), (2), (/*_.TUPLE___V60*/ meltfptr[35]), "SARGOP_ARGS"); ; /*_.APRIM__V62*/ meltfptr[44] = /*_.INST__V63*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:5291:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5249:/ quasiblock"); /*^rawallocobj*/ @@ -3211,7 +3008,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V65*/ meltfptr[26]), (4), (/*_.APRIM__V62*/ meltfptr[44]), "SIF_ELSE"); ; /*_.ATEST__V64*/ meltfptr[42] = /*_.INST__V65*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:5297:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5255:/ quasiblock"); /*^rawallocobj*/ @@ -3243,13 +3040,13 @@ lab_endgetargs:; /*_.ACPPIF__V66*/ meltfptr[65] = /*_.INST__V67*/ meltfptr[66];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5304:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5262:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5304:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5262:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3260,14 +3057,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5304; + argtab[3].meltbp_long = 5262; /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ACPPIF__V66*/ meltfptr[65]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V68*/ meltfptr[67] = /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5304:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5262:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ meltfptr[68] = 0 ;} @@ -3277,16 +3074,16 @@ lab_endgetargs:; /*_.IFCPP___V68*/ meltfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5305:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5263:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.ACPPIF__V66*/ meltfptr[65];; - MELT_LOCATION("warmelt-macro.melt:5305:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5263:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V30*/ meltfptr[24] = /*_.RETURN___V70*/ meltfptr[68];; - MELT_LOCATION("warmelt-macro.melt:5258:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5216:/ clear"); /*clear*/ /*_#NULL__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.AFPRIM__V31*/ meltfptr[25] = 0 ; @@ -3312,7 +3109,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V70*/ meltfptr[68] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V30*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:5238:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5196:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -3344,11 +3141,11 @@ lab_endgetargs:; /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V30*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5234:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5192:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5234:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5192:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3371,14 +3168,14 @@ melt_trace_end("MEXPAND_ASSERT_MSG", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG*/ +} /*end meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -3391,7 +3188,7 @@ meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG_st { + struct frame_meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -3425,7 +3222,7 @@ melt_trace_start("MEXPAND_DEBUG_MSG", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5321:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5279:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3450,17 +3247,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5322:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5280:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5322:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5280:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5322:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5280:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3471,7 +3268,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5322)?(5322):__LINE__, __FUNCTION__); + (5280)?(5280):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3485,7 +3282,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5322:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5280:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3497,17 +3294,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5323:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5281:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5323:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5281:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5323:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5281:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3518,7 +3315,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5323)?(5323):__LINE__, __FUNCTION__); + (5281)?(5281):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3532,7 +3329,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5323:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5281:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3544,13 +3341,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5324:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5282:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5324:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5282:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3561,14 +3358,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5324; + argtab[3].meltbp_long = 5282; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5324:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5282:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -3578,14 +3375,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5325:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5283:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5326:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5284:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5327:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5285:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -3599,7 +3396,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5329:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5287:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -3618,7 +3415,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V20*/ meltfptr[19] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5333:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5291:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V21*/ meltfptr[20] = /*_.PAIR_TAIL__V20*/ meltfptr[19];; /*_#IS_PAIR__L4*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; @@ -3626,7 +3423,7 @@ lab_endgetargs:; /*_#NOT__L5*/ meltfnum[4] = (!(/*_#IS_PAIR__L4*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5334:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5292:/ cond"); /*cond*/ if (/*_#NOT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3634,7 +3431,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5335:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5293:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing message in DEBUG_MSG"), (melt_ptr_t)0);} ; /*epilog*/ @@ -3644,7 +3441,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V22*/ meltfptr[21] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5336:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5294:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -3659,11 +3456,11 @@ lab_endgetargs:; /*_.XMSG__V18*/ meltfptr[17] = /*_.SETQ___V24*/ meltfptr[23] = /*_.MACROEXPAND_1__V23*/ meltfptr[22];; /*_.PAIR_TAIL__V25*/ meltfptr[24] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5337:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5295:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[24];; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:5338:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5296:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3671,7 +3468,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V28*/ meltfptr[27] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5340:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5298:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -3686,9 +3483,9 @@ lab_endgetargs:; /*_.XCOUNT__V19*/ meltfptr[18] = /*_.SETQ___V30*/ meltfptr[29] = /*_.MACROEXPAND_1__V29*/ meltfptr[28];; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5341:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5299:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:5339:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5297:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[32] = /*_.SETQ___V32*/ meltfptr[31];; @@ -3697,7 +3494,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5338:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5296:/ clear"); /*clear*/ /*_.PAIR_HEAD__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.MACROEXPAND_1__V29*/ meltfptr[28] = 0 ; @@ -3715,7 +3512,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5342:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5300:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3723,7 +3520,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5343:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5301:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "too many arguments to DEBUG_MSG"), (melt_ptr_t)0);} ; /*epilog*/ @@ -3737,7 +3534,7 @@ lab_endgetargs:; /*_#NOT__L8*/ meltfnum[7] = (!(/*_#IS_STRING__L7*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:5344:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5302:/ cond"); /*cond*/ if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3745,7 +3542,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5345:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5303:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "message argument should be string in DEBUG_MSG"), (melt_ptr_t)0);} ; /*epilog*/ @@ -3755,23 +3552,23 @@ lab_endgetargs:; ; /*_#NULL__L9*/ meltfnum[8] = ((/*_.XCOUNT__V19*/ meltfptr[18]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5346:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5304:/ cond"); /*cond*/ if (/*_#NULL__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5347:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5305:/ quasiblock"); /*_.CONLIS__V36*/ meltfptr[29] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; { - MELT_LOCATION("warmelt-macro.melt:5348:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5306:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.CONLIS__V36*/ meltfptr[29]), (melt_ptr_t)((/*!konst_5_THE_MELTCALLCOUNT*/ meltfrout->tabval[5])));} ; - MELT_LOCATION("warmelt-macro.melt:5349:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5307:/ quasiblock"); /*^rawallocobj*/ @@ -3791,7 +3588,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V38*/ meltfptr[31]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); ; /*_.INST___V37*/ meltfptr[30] = /*_.INST__V38*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:5349:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5307:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -3806,7 +3603,7 @@ lab_endgetargs:; /*_.XCOUNT__V19*/ meltfptr[18] = /*_.SETQ___V40*/ meltfptr[39] = /*_.MACROEXPAND_1__V39*/ meltfptr[32];; /*_.LET___V35*/ meltfptr[28] = /*_.SETQ___V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:5347:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5305:/ clear"); /*clear*/ /*_.CONLIS__V36*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V37*/ meltfptr[30] = 0 ; @@ -3817,7 +3614,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[27] = /*_.LET___V35*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5346:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5304:/ clear"); /*clear*/ /*_.LET___V35*/ meltfptr[28] = 0 ;} ; } else {/*^cond.else*/ @@ -3825,12 +3622,12 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5353:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5311:/ quasiblock"); /*_#IS_MIXINT__L10*/ meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12])) == MELTOBMAG_MIXINT);; - MELT_LOCATION("warmelt-macro.melt:5355:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5313:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3843,7 +3640,7 @@ lab_endgetargs:; /*_.DFILNAM__V42*/ meltfptr[30] = /*_.MIXINT_VAL__V43*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5355:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5313:/ clear"); /*clear*/ /*_.MIXINT_VAL__V43*/ meltfptr[32] = 0 ;} ; } else {/*^cond.else*/ @@ -3853,7 +3650,7 @@ lab_endgetargs:; /*_#IS_MIXLOC__L11*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION("warmelt-macro.melt:5356:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5314:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3866,7 +3663,7 @@ lab_endgetargs:; /*_.IFELSE___V44*/ meltfptr[39] = /*_.MIXLOC_VAL__V45*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5356:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5314:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V45*/ meltfptr[28] = 0 ;} ; } else {/*^cond.else*/ @@ -3879,7 +3676,7 @@ lab_endgetargs:; /*_.DFILNAM__V42*/ meltfptr[30] = /*_.IFELSE___V44*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5355:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5313:/ clear"); /*clear*/ /*_#IS_MIXLOC__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V44*/ meltfptr[39] = 0 ;} @@ -3892,7 +3689,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V46*/ meltfptr[32] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[8])), (/*_#GET_INT__L12*/ meltfnum[10])));; - MELT_LOCATION("warmelt-macro.melt:5361:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:5319:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(5) rtup_0__TUPLREC__x6; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -3906,32 +3703,32 @@ lab_endgetargs:; /*^putuple*/ /*putupl#11*/ - melt_assertmsg("putupl [:5361] #11 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5361] #11 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); + melt_assertmsg("putupl [:5319] #11 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5319] #11 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))->tabval[0] = (melt_ptr_t)(/*_.XVAL__V17*/ meltfptr[16]); ; /*^putuple*/ /*putupl#12*/ - melt_assertmsg("putupl [:5361] #12 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5361] #12 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); + melt_assertmsg("putupl [:5319] #12 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5319] #12 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))->tabval[1] = (melt_ptr_t)(/*_.XMSG__V18*/ meltfptr[17]); ; /*^putuple*/ /*putupl#13*/ - melt_assertmsg("putupl [:5361] #13 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5361] #13 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); + melt_assertmsg("putupl [:5319] #13 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5319] #13 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))->tabval[2] = (melt_ptr_t)(/*_.XCOUNT__V19*/ meltfptr[18]); ; /*^putuple*/ /*putupl#14*/ - melt_assertmsg("putupl [:5361] #14 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5361] #14 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); + melt_assertmsg("putupl [:5319] #14 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5319] #14 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))->tabval[3] = (melt_ptr_t)(/*_.DFILNAM__V42*/ meltfptr[30]); ; /*^putuple*/ /*putupl#15*/ - melt_assertmsg("putupl [:5361] #15 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:5361] #15 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); + melt_assertmsg("putupl [:5319] #15 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:5319] #15 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V48*/ meltfptr[39]))->tabval[4] = (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V46*/ meltfptr[32]); ; /*^touch*/ @@ -3940,12 +3737,12 @@ lab_endgetargs:; /*_.TUPLE___V47*/ meltfptr[28] = /*_.TUPLREC___V48*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5361:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5319:/ clear"); /*clear*/ /*_.TUPLREC___V48*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V48*/ meltfptr[39] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:5357:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5315:/ quasiblock"); /*^rawallocobj*/ @@ -3970,7 +3767,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V50*/ meltfptr[49]), (2), (/*_.TUPLE___V47*/ meltfptr[28]), "SARGOP_ARGS"); ; /*_.DCALL__V49*/ meltfptr[39] = /*_.INST__V50*/ meltfptr[49];; - MELT_LOCATION("warmelt-macro.melt:5367:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5325:/ quasiblock"); /*^rawallocobj*/ @@ -4002,13 +3799,13 @@ lab_endgetargs:; /*_.DCPPIF__V51*/ meltfptr[50] = /*_.INST__V52*/ meltfptr[51];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5374:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5332:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5374:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5332:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4019,14 +3816,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5374; + argtab[3].meltbp_long = 5332; /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.DCPPIF__V51*/ meltfptr[50]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V53*/ meltfptr[52] = /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5374:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5332:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ meltfptr[53] = 0 ;} @@ -4036,16 +3833,16 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5375:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5333:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V51*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:5375:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5333:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V41*/ meltfptr[29] = /*_.RETURN___V55*/ meltfptr[53];; - MELT_LOCATION("warmelt-macro.melt:5353:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5311:/ clear"); /*clear*/ /*_#IS_MIXINT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DFILNAM__V42*/ meltfptr[30] = 0 ; @@ -4065,7 +3862,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V55*/ meltfptr[53] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V41*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:5325:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5283:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -4113,11 +3910,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V34*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V41*/ meltfptr[29] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5321:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5279:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5321:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5279:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4140,14 +3937,14 @@ melt_trace_end("MEXPAND_DEBUG_MSG", meltcallcount); melt_topframe = (struct cal #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG*/ +} /*end meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4160,7 +3957,7 @@ meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ #define meltcallcount 0L #endif - struct frame_meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES_st { + struct frame_meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4194,7 +3991,7 @@ melt_trace_start("MEXPAND_EXPORT_VALUES", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5382:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5340:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4219,17 +4016,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5383:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5341:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5383:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5341:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5383:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5341:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4240,7 +4037,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5383)?(5383):__LINE__, __FUNCTION__); + (5341)?(5341):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4254,7 +4051,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5383:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5341:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4266,17 +4063,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5384:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5342:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5384:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5342:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5384:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5342:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4287,7 +4084,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5384)?(5384):__LINE__, __FUNCTION__); + (5342)?(5342):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4301,7 +4098,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5384:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5342:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4313,13 +4110,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5385:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5343:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5385:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5343:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4330,14 +4127,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5385; + argtab[3].meltbp_long = 5343; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5385:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5343:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -4347,14 +4144,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5386:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5344:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5387:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5345:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5388:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5346:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -4364,7 +4161,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:5392:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5350:/ quasiblock"); /*^newclosure*/ @@ -4390,7 +4187,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5390:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5348:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4401,7 +4198,7 @@ lab_endgetargs:; /*_.SYMBTUP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5400:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5358:/ quasiblock"); /*^rawallocobj*/ @@ -4423,13 +4220,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5404:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5362:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5404:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5362:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4440,14 +4237,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5404; + argtab[3].meltbp_long = 5362; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5404:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5362:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -4457,16 +4254,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5405:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5363:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5405:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5363:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:5386:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5344:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -4484,11 +4281,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5382:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5340:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5382:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5340:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4511,14 +4308,14 @@ melt_trace_end("MEXPAND_EXPORT_VALUES", meltcallcount); melt_topframe = (struct #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES*/ +} /*end meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4531,7 +4328,7 @@ meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_118_warmelt_macro_LAMBDA__st { + struct frame_meltrout_117_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4565,7 +4362,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5392:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5350:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -4574,7 +4371,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5393:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5351:/ quasiblock"); /*^apply*/ @@ -4590,7 +4387,7 @@ lab_endgetargs:; ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5394:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5352:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4598,13 +4395,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5396:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5354:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5396:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5354:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4615,14 +4412,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5396; + argtab[3].meltbp_long = 5354; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SYM__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5396:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5354:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -4634,30 +4431,30 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:5397:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5355:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[2])), ( "(EXPORT_VALUES ...) expecting symbol"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5395:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5353:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5394:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5352:/ clear"); /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ;} ; } /*noelse*/ ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:5393:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5351:/ clear"); /*clear*/ /*_.SYM__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L1*/ meltfnum[0] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5392:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5350:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5392:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5350:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4674,14 +4471,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_118_warmelt_macro_LAMBDA_*/ +} /*end meltrout_117_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4694,7 +4491,7 @@ meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_p #define meltcallcount 0L #endif - struct frame_meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO_st { + struct frame_meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4728,7 +4525,7 @@ melt_trace_start("MEXPAND_EXPORT_MACRO", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5412:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5370:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4753,17 +4550,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5413:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5371:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5413:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5371:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5413:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5371:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4774,7 +4571,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5413)?(5413):__LINE__, __FUNCTION__); + (5371)?(5371):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4788,7 +4585,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5413:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5371:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4800,17 +4597,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5414:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5372:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5414:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5372:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5414:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5372:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4821,7 +4618,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5414)?(5414):__LINE__, __FUNCTION__); + (5372)?(5372):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4835,7 +4632,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5414:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5372:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4847,13 +4644,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5415:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5373:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5415:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5373:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4864,14 +4661,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5415; + argtab[3].meltbp_long = 5373; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5415:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5373:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -4881,14 +4678,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5416:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5374:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5417:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5375:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5418:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5376:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -4902,7 +4699,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5420:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5378:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4918,7 +4715,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5423:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5381:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4926,7 +4723,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5424:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5382:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(EXPORT_MACRO ) expecting symbol"), (melt_ptr_t)0);} ; /*epilog*/ @@ -4936,14 +4733,14 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V19*/ meltfptr[18] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5425:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5383:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5426:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5384:/ quasiblock"); /*_.PAIR_HEAD__V22*/ meltfptr[21] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5426:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5384:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4956,7 +4753,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5428:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5386:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; @@ -4964,7 +4761,7 @@ lab_endgetargs:; /*_#__L5*/ meltfnum[4] = ((/*_.PAIR_HEAD__V26*/ meltfptr[25]) == ((/*!konst_5_DOC*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:5429:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5387:/ cond"); /*cond*/ if (/*_#__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4972,13 +4769,13 @@ lab_endgetargs:; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5431:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5389:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; /*_.PAIR_HEAD__V30*/ meltfptr[29] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5432:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5390:/ compute"); /*_.DOC__V18*/ meltfptr[17] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_HEAD__V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:5430:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5388:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];; @@ -4987,7 +4784,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5429:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5387:/ clear"); /*clear*/ /*_.PAIR_TAIL__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V29*/ meltfptr[28] = 0 ; @@ -5007,7 +4804,7 @@ lab_endgetargs:; /*_#NULL__L6*/ meltfnum[5] = ((/*_.EXPV__V23*/ meltfptr[22]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5433:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5391:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5015,7 +4812,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5434:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5392:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(EXPORT_MACRO [:doc ]) expecting expander"), (melt_ptr_t)0);} ; /*epilog*/ @@ -5023,7 +4820,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:5435:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5393:/ quasiblock"); /*^quasiblock*/ @@ -5058,13 +4855,13 @@ lab_endgetargs:; /*_.RES__V34*/ meltfptr[28] = /*_.INST__V35*/ meltfptr[29];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5442:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5400:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5442:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5400:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5075,14 +4872,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5442; + argtab[3].meltbp_long = 5400; /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V34*/ meltfptr[28]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V36*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5442:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5400:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ meltfptr[31] = 0 ;} @@ -5092,16 +4889,16 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5443:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5401:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V34*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:5443:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5401:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V33*/ meltfptr[27] = /*_.RETURN___V38*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:5435:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5393:/ clear"); /*clear*/ /*_.RES__V34*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V36*/ meltfptr[30] = 0 ; @@ -5109,7 +4906,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V38*/ meltfptr[31] = 0 ; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V33*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:5426:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5384:/ clear"); /*clear*/ /*_.PAIR_HEAD__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.EXPV__V23*/ meltfptr[22] = 0 ; @@ -5129,7 +4926,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V33*/ meltfptr[27] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:5416:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5374:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -5151,11 +4948,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5412:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5370:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5412:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5370:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5178,14 +4975,14 @@ melt_trace_end("MEXPAND_EXPORT_MACRO", meltcallcount); melt_topframe = (struct #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO*/ +} /*end meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5198,7 +4995,7 @@ meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, mel #define meltcallcount 0L #endif - struct frame_meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO_st { + struct frame_meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5232,7 +5029,7 @@ melt_trace_start("MEXPAND_EXPORT_PATMACRO", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5453:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5411:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5257,17 +5054,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5454:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5412:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5454:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5412:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5454:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5412:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5278,7 +5075,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5454)?(5454):__LINE__, __FUNCTION__); + (5412)?(5412):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -5292,7 +5089,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5454:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5412:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -5304,17 +5101,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5455:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5413:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5455:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5413:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5455:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5413:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5325,7 +5122,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5455)?(5455):__LINE__, __FUNCTION__); + (5413)?(5413):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5339,7 +5136,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5455:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5413:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5351,13 +5148,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5456:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5414:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5456:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5414:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5368,14 +5165,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5456; + argtab[3].meltbp_long = 5414; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5456:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5414:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -5385,14 +5182,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5457:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5415:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5458:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5416:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5459:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5417:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -5406,7 +5203,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5461:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5419:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5428,7 +5225,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L4*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5466:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5424:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5436,7 +5233,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5467:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5425:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(EXPORT_PATMACRO [:doc ]) expecting symbol"), (melt_ptr_t)0);} ; /*epilog*/ @@ -5446,11 +5243,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V21*/ meltfptr[20] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5468:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5426:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V22*/ meltfptr[21] = /*_.PAIR_TAIL__V21*/ meltfptr[20];; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5469:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5427:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5465,7 +5262,7 @@ lab_endgetargs:; /*_.PATEXPV__V18*/ meltfptr[17] = /*_.SETQ___V25*/ meltfptr[24] = /*_.MACROEXPAND_1__V24*/ meltfptr[23];; /*_#NULL__L5*/ meltfnum[4] = ((/*_.PATEXPV__V18*/ meltfptr[17]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5470:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5428:/ cond"); /*cond*/ if (/*_#NULL__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5473,7 +5270,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5471:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5429:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(EXPORT_PATMACRO [:doc ]) expecting patexpander"), (melt_ptr_t)0);} ; /*epilog*/ @@ -5483,11 +5280,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5472:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5430:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; /*_.PAIR_HEAD__V28*/ meltfptr[27] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5473:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5431:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5502,7 +5299,7 @@ lab_endgetargs:; /*_.MACEXPV__V19*/ meltfptr[18] = /*_.SETQ___V30*/ meltfptr[29] = /*_.MACROEXPAND_1__V29*/ meltfptr[28];; /*_#NULL__L6*/ meltfnum[5] = ((/*_.MACEXPV__V19*/ meltfptr[18]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5474:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5432:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5510,7 +5307,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5475:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5433:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(EXPORT_PATMACRO [:doc ]) expecting macexpander"), (melt_ptr_t)0);} ; /*epilog*/ @@ -5520,7 +5317,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5476:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5434:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; /*_.PAIR_HEAD__V33*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; @@ -5528,7 +5325,7 @@ lab_endgetargs:; /*_#__L7*/ meltfnum[6] = ((/*_.PAIR_HEAD__V33*/ meltfptr[32]) == ((/*!konst_5_DOC*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:5477:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5435:/ cond"); /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5536,13 +5333,13 @@ lab_endgetargs:; /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5479:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5437:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V36*/ meltfptr[35] = /*_.PAIR_TAIL__V35*/ meltfptr[34];; /*_.PAIR_HEAD__V37*/ meltfptr[36] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5480:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5438:/ compute"); /*_.DOC__V20*/ meltfptr[19] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_HEAD__V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:5478:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5436:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.SETQ___V38*/ meltfptr[37];; @@ -5551,7 +5348,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5435:/ clear"); /*clear*/ /*_.PAIR_TAIL__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V36*/ meltfptr[35] = 0 ; @@ -5567,7 +5364,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5483:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5441:/ quasiblock"); /*^quasiblock*/ @@ -5607,13 +5404,13 @@ lab_endgetargs:; /*_.RES__V41*/ meltfptr[35] = /*_.INST__V42*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5491:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5449:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5491:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5449:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5624,14 +5421,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5491; + argtab[3].meltbp_long = 5449; /*_.DEBUG_MSG_FUN__V44*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V41*/ meltfptr[35]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V43*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5491:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5449:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[38] = 0 ;} @@ -5641,16 +5438,16 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5492:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5450:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V41*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:5492:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5450:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V40*/ meltfptr[34] = /*_.RETURN___V45*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:5483:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5441:/ clear"); /*clear*/ /*_.RES__V41*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V43*/ meltfptr[37] = 0 ; @@ -5658,7 +5455,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V45*/ meltfptr[38] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V40*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:5457:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5415:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -5714,11 +5511,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V40*/ meltfptr[34] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5453:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5411:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5453:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5411:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5741,14 +5538,14 @@ melt_trace_end("MEXPAND_EXPORT_PATMACRO", meltcallcount); melt_topframe = (stru #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO*/ +} /*end meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5761,7 +5558,7 @@ meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_p #define meltcallcount 0L #endif - struct frame_meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS_st { + struct frame_meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5795,7 +5592,7 @@ melt_trace_start("MEXPAND_EXPORT_CLASS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5499:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5457:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5820,17 +5617,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5500:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5458:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5500:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5458:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5500:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5458:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5841,7 +5638,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5500)?(5500):__LINE__, __FUNCTION__); + (5458)?(5458):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -5855,7 +5652,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5500:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5458:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -5867,17 +5664,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5501:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5459:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5501:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5459:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5501:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5459:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5888,7 +5685,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5501)?(5501):__LINE__, __FUNCTION__); + (5459)?(5459):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5902,7 +5699,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5501:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5459:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5914,13 +5711,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5502:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5460:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5502:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5460:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5931,14 +5728,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5502; + argtab[3].meltbp_long = 5460; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5502:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5460:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -5948,14 +5745,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5503:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5461:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5504:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5462:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5505:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5463:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -5965,7 +5762,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:5509:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5467:/ quasiblock"); /*^newclosure*/ @@ -5991,7 +5788,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5507:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5465:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6002,7 +5799,7 @@ lab_endgetargs:; /*_.SYMBTUP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5515:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5473:/ quasiblock"); /*^rawallocobj*/ @@ -6024,13 +5821,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5519:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5477:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5519:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5477:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6041,14 +5838,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5519; + argtab[3].meltbp_long = 5477; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5519:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5477:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -6058,16 +5855,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5520:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5478:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5520:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5478:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:5503:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5461:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6085,11 +5882,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5499:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5457:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5499:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5457:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6112,14 +5909,14 @@ melt_trace_end("MEXPAND_EXPORT_CLASS", meltcallcount); melt_topframe = (struct #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS*/ +} /*end meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6132,7 +5929,7 @@ meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_122_warmelt_macro_LAMBDA__st { + struct frame_meltrout_121_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6166,7 +5963,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5509:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5467:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -6175,7 +5972,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:5510:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5468:/ quasiblock"); /*^apply*/ @@ -6191,7 +5988,7 @@ lab_endgetargs:; ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5511:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5469:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6199,7 +5996,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5512:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5470:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[2])), ( "(EXPORT_CLASS ...) expecting symbol"), (melt_ptr_t)0);} ; /*epilog*/ @@ -6209,15 +6006,15 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:5510:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5468:/ clear"); /*clear*/ /*_.SYM__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L1*/ meltfnum[0] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5509:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5467:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5509:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5467:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6234,14 +6031,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_122_warmelt_macro_LAMBDA_*/ +} /*end meltrout_121_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6254,7 +6051,7 @@ meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt #define meltcallcount 0L #endif - struct frame_meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM_st { + struct frame_meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6288,7 +6085,7 @@ melt_trace_start("MEXPAND_EXPORT_SYNONYM", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5526:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5484:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6313,17 +6110,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5527:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5485:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5527:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5485:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5527:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5485:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6334,7 +6131,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5527)?(5527):__LINE__, __FUNCTION__); + (5485)?(5485):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6348,7 +6145,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5527:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5485:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6360,17 +6157,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5528:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5486:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5528:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5486:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5528:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5486:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6381,7 +6178,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5528)?(5528):__LINE__, __FUNCTION__); + (5486)?(5486):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6395,7 +6192,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5528:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5486:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6407,13 +6204,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5529:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5487:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5529:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5487:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6424,14 +6221,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5529; + argtab[3].meltbp_long = 5487; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5529:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5487:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -6441,14 +6238,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5530:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5488:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5531:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5489:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5532:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5490:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -6471,7 +6268,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V19*/ meltfptr[18] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5539:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5497:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6486,13 +6283,13 @@ lab_endgetargs:; /*_.NEWSYMB__V16*/ meltfptr[15] = /*_.SETQ___V21*/ meltfptr[20] = /*_.MACROEXPAND_1__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5540:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5498:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5540:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5498:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6503,14 +6300,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5540; + argtab[3].meltbp_long = 5498; /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.NEWSYMB__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V22*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5540:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5498:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} @@ -6524,7 +6321,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L5*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.NEWSYMB__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5541:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5499:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6532,7 +6329,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5542:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5500:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad new name in (EXPORT_SYNONYM [:doc ])"), (melt_ptr_t)0);} ; /*epilog*/ @@ -6542,11 +6339,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5543:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5501:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[22];; /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5545:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5503:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6561,13 +6358,13 @@ lab_endgetargs:; /*_.OLDSYMB__V17*/ meltfptr[16] = /*_.SETQ___V28*/ meltfptr[27] = /*_.MACROEXPAND_1__V27*/ meltfptr[26];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5546:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5504:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5546:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5504:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6578,14 +6375,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5546; + argtab[3].meltbp_long = 5504; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLDSYMB__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5546:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5504:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} @@ -6599,7 +6396,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L7*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.OLDSYMB__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5547:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5505:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6607,7 +6404,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5548:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5506:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "bad old name in (EXPORT_SYNONYM [:doc ])"), (melt_ptr_t)0);} ; /*epilog*/ @@ -6617,7 +6414,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5549:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5507:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[29];; /*_.PAIR_HEAD__V33*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; @@ -6625,7 +6422,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[7] = ((/*_.PAIR_HEAD__V33*/ meltfptr[32]) == ((/*!konst_5_DOC*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:5550:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5508:/ cond"); /*cond*/ if (/*_#__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6633,13 +6430,13 @@ lab_endgetargs:; /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5552:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5510:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V36*/ meltfptr[35] = /*_.PAIR_TAIL__V35*/ meltfptr[34];; /*_.PAIR_HEAD__V37*/ meltfptr[36] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5553:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5511:/ compute"); /*_.DOC__V18*/ meltfptr[17] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_HEAD__V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:5551:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5509:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.SETQ___V38*/ meltfptr[37];; @@ -6648,7 +6445,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5550:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5508:/ clear"); /*clear*/ /*_.PAIR_TAIL__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V36*/ meltfptr[35] = 0 ; @@ -6666,13 +6463,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5555:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5513:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5555:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5513:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6683,14 +6480,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5555; + argtab[3].meltbp_long = 5513; /*_.DEBUG_MSG_FUN__V41*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.DOC__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V40*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V41*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5555:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5513:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ meltfptr[35] = 0 ;} @@ -6700,10 +6497,10 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5556:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5514:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5557:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5515:/ quasiblock"); /*^rawallocobj*/ @@ -6735,13 +6532,13 @@ lab_endgetargs:; /*_.RES__V43*/ meltfptr[37] = /*_.INST__V44*/ meltfptr[38];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5563:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5521:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5563:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5521:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6752,14 +6549,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5563; + argtab[3].meltbp_long = 5521; /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V43*/ meltfptr[37]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V45*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5563:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5521:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} @@ -6769,16 +6566,16 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5564:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5522:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V43*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:5564:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5522:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V42*/ meltfptr[36] = /*_.RETURN___V47*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:5556:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5514:/ clear"); /*clear*/ /*_.RES__V43*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V45*/ meltfptr[35] = 0 ; @@ -6786,7 +6583,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V47*/ meltfptr[45] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V42*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:5530:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5488:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6838,11 +6635,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V40*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V42*/ meltfptr[36] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5526:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5484:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5526:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5484:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6865,14 +6662,14 @@ melt_trace_end("MEXPAND_EXPORT_SYNONYM", meltcallcount); melt_topframe = (struc #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM*/ +} /*end meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6885,7 +6682,7 @@ meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclos #define meltcallcount 0L #endif - struct frame_meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { + struct frame_meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6919,7 +6716,7 @@ melt_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5571:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5529:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6944,17 +6741,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5572:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5530:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5572:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5530:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5572:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5530:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6965,7 +6762,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5572)?(5572):__LINE__, __FUNCTION__); + (5530)?(5530):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6979,7 +6776,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5572:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5530:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6991,17 +6788,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5573:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5531:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5573:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5531:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5573:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5531:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7012,7 +6809,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5573)?(5573):__LINE__, __FUNCTION__); + (5531)?(5531):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7026,7 +6823,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5573:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5531:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7038,13 +6835,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5574:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5532:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5574:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5532:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7055,14 +6852,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5574; + argtab[3].meltbp_long = 5532; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5574:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5532:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7072,14 +6869,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5575:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5533:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5576:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5534:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5577:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5535:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -7089,7 +6886,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:5579:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5537:/ quasiblock"); /*^rawallocobj*/ @@ -7108,7 +6905,7 @@ lab_endgetargs:; /*_#NOTNULL__L4*/ meltfnum[0] = ((/*_.CURPAIR__V15*/ meltfptr[14]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5582:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5540:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7116,7 +6913,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5583:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5541:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -7126,13 +6923,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5584:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5542:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5584:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5542:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7143,14 +6940,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5584; + argtab[3].meltbp_long = 5542; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5542:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -7160,16 +6957,16 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5585:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5543:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5585:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5543:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5575:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5533:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -7185,11 +6982,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5571:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5529:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5571:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5529:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7212,14 +7009,14 @@ melt_trace_end("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +} /*end meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7232,7 +7029,7 @@ meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t c #define meltcallcount 0L #endif - struct frame_meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { + struct frame_meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7266,7 +7063,7 @@ melt_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5594:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5552:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7291,17 +7088,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5595:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5553:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5595:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5553:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5595:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5553:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7312,7 +7109,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5595)?(5595):__LINE__, __FUNCTION__); + (5553)?(5553):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -7326,7 +7123,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5595:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5553:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -7338,17 +7135,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5596:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5554:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5596:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5554:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5596:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5554:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7359,7 +7156,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5596)?(5596):__LINE__, __FUNCTION__); + (5554)?(5554):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7373,7 +7170,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5596:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5554:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7385,13 +7182,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5597:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5555:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5597:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5555:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7402,14 +7199,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5597; + argtab[3].meltbp_long = 5555; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5597:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5555:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7419,14 +7216,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5598:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5556:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5599:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5557:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5600:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5558:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -7436,7 +7233,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:5602:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5560:/ quasiblock"); /*^rawallocobj*/ @@ -7455,7 +7252,7 @@ lab_endgetargs:; /*_#NOTNULL__L4*/ meltfnum[0] = ((/*_.CURPAIR__V15*/ meltfptr[14]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5605:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5563:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7463,7 +7260,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5606:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5564:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -7473,13 +7270,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5607:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5565:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5607:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5565:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7490,14 +7287,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5607; + argtab[3].meltbp_long = 5565; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5607:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5565:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -7507,16 +7304,16 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5608:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5566:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5608:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5566:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5598:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5556:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -7532,11 +7329,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5594:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5552:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5594:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5552:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7559,14 +7356,14 @@ melt_trace_end("MEXPAND_PARENT_MODULE_ENVIRONMENT", meltcallcount); melt_topfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT*/ +} /*end meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7579,7 +7376,7 @@ meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(m #define meltcallcount 0L #endif - struct frame_meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { + struct frame_meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7613,7 +7410,7 @@ melt_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcall /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5617:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5575:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7638,17 +7435,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5618:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5576:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5618:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5576:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5618:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5576:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7659,7 +7456,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5618)?(5618):__LINE__, __FUNCTION__); + (5576)?(5576):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -7673,7 +7470,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5618:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5576:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -7685,17 +7482,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5619:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5577:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5619:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5577:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5619:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5577:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7706,7 +7503,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5619)?(5619):__LINE__, __FUNCTION__); + (5577)?(5577):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7720,7 +7517,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5619:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5577:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7732,13 +7529,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5620:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5578:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5620:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5578:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7749,14 +7546,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5620; + argtab[3].meltbp_long = 5578; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5620:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5578:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7766,14 +7563,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5621:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5579:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5622:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5580:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5623:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5581:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V13*/ meltfptr[12] = slot; }; ; @@ -7783,7 +7580,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:5625:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5583:/ quasiblock"); /*^rawallocobj*/ @@ -7802,7 +7599,7 @@ lab_endgetargs:; /*_#NOTNULL__L4*/ meltfnum[0] = ((/*_.CURPAIR__V15*/ meltfptr[14]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5628:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5586:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7810,7 +7607,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5629:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5587:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -7820,13 +7617,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5630:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5588:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5630:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5588:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7837,14 +7634,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5630; + argtab[3].meltbp_long = 5588; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5630:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5588:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -7854,16 +7651,16 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5631:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5589:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5631:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5589:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5621:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5579:/ clear"); /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.CONT__V13*/ meltfptr[12] = 0 ; @@ -7879,11 +7676,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5617:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5575:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5617:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5575:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7906,14 +7703,14 @@ melt_trace_end("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallco #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +} /*end meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7926,7 +7723,7 @@ meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, me #define meltcallcount 0L #endif - struct frame_meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED_st { + struct frame_meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7960,7 +7757,7 @@ melt_trace_start("MEXPAND_FETCH_PREDEFINED", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5641:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5599:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7985,17 +7782,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5642:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5600:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5642:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5600:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5642:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5600:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8006,7 +7803,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5642)?(5642):__LINE__, __FUNCTION__); + (5600)?(5600):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -8020,7 +7817,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5642:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5600:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -8032,17 +7829,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5643:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5601:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5643:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5601:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5643:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5601:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8053,7 +7850,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5643)?(5643):__LINE__, __FUNCTION__); + (5601)?(5601):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -8067,7 +7864,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5643:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5601:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -8079,13 +7876,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5644:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5602:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5644:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5602:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8096,14 +7893,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5644; + argtab[3].meltbp_long = 5602; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5644:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5602:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -8113,14 +7910,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5645:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5603:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5646:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5604:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5647:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5605:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -8134,7 +7931,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5649:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5607:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8147,7 +7944,7 @@ lab_endgetargs:; ; /*_#NULL__L4*/ meltfnum[0] = ((/*_.CURPAIR__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5651:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5609:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8155,7 +7952,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5652:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5610:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(FETCH_PREDEFINED ) missing argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8169,7 +7966,7 @@ lab_endgetargs:; /*_#NOTNULL__L5*/ meltfnum[4] = ((/*_.PAIR_TAIL__V18*/ meltfptr[17]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5653:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5611:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8177,7 +7974,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5654:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5612:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(FETCH_PREDEFINED ) extra argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8187,11 +7984,11 @@ lab_endgetargs:; ; /*_#IS_A__L6*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5655:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5613:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_#OR___L7*/ meltfnum[6] = /*_#IS_A__L6*/ meltfnum[5];; - } else {MELT_LOCATION("warmelt-macro.melt:5655:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5613:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8203,14 +8000,14 @@ lab_endgetargs:; /*_#OR___L7*/ meltfnum[6] = /*_#IS_INTEGERBOX__L8*/ meltfnum[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5655:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5613:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ meltfnum[7] = 0 ;} ; } ; /*_#NOT__L9*/ meltfnum[7] = (!(/*_#OR___L7*/ meltfnum[6]));; - MELT_LOCATION("warmelt-macro.melt:5655:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5613:/ cond"); /*cond*/ if (/*_#NOT__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8218,7 +8015,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5656:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5614:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(FETCH_PREDEFINED ) invalid argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8226,7 +8023,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:5657:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5615:/ quasiblock"); /*^quasiblock*/ @@ -8251,13 +8048,13 @@ lab_endgetargs:; /*_.RES__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5660:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5618:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5660:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5618:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8268,14 +8065,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5660; + argtab[3].meltbp_long = 5618; /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V22*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5660:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5618:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} @@ -8285,16 +8082,16 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5661:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5619:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:5661:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5619:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V19*/ meltfptr[18] = /*_.RETURN___V24*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:5657:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5615:/ clear"); /*clear*/ /*_.RES__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; @@ -8302,7 +8099,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V24*/ meltfptr[22] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5645:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5603:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -8328,11 +8125,11 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5641:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5599:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5641:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5599:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8355,14 +8152,14 @@ melt_trace_end("MEXPAND_FETCH_PREDEFINED", meltcallcount); melt_topframe = (str #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED*/ +} /*end meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8375,7 +8172,7 @@ meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, me #define meltcallcount 0L #endif - struct frame_meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED_st { + struct frame_meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8409,7 +8206,7 @@ melt_trace_start("MEXPAND_STORE_PREDEFINED", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5667:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5625:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8434,17 +8231,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5668:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5626:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5668:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5626:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5668:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5626:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8455,7 +8252,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5668)?(5668):__LINE__, __FUNCTION__); + (5626)?(5626):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -8469,7 +8266,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5668:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5626:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -8481,17 +8278,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5669:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5627:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5669:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5627:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5669:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5627:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8502,7 +8299,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5669)?(5669):__LINE__, __FUNCTION__); + (5627)?(5627):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -8516,7 +8313,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5669:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5627:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -8528,13 +8325,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5670:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5628:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5670:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5628:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8545,14 +8342,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5670; + argtab[3].meltbp_long = 5628; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5670:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5628:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -8562,14 +8359,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5671:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5629:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5672:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5630:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5673:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5631:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -8583,7 +8380,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5675:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5633:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8599,7 +8396,7 @@ lab_endgetargs:; /*_#NULL__L4*/ meltfnum[0] = ((/*_.CURPAIR__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5678:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5636:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8607,7 +8404,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5679:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5637:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(STORE_PREDEFINED ) missing predef"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8617,11 +8414,11 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V19*/ meltfptr[18] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5680:/ compute"); + MELT_LOCATION("warmelt-macro.melt:5638:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[18];; /*_#NULL__L5*/ meltfnum[4] = ((/*_.CURPAIR__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:5681:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5639:/ cond"); /*cond*/ if (/*_#NULL__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8629,7 +8426,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5682:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5640:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(STORE_PREDEFINED ) missing predef"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8639,7 +8436,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V21*/ meltfptr[20] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:5683:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5641:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8658,7 +8455,7 @@ lab_endgetargs:; /*_#NOTNULL__L6*/ meltfnum[5] = ((/*_.PAIR_TAIL__V24*/ meltfptr[23]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:5684:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5642:/ cond"); /*cond*/ if (/*_#NOTNULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8666,7 +8463,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5685:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5643:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(STORE_PREDEFINED ) extra argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8676,11 +8473,11 @@ lab_endgetargs:; ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:5686:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5644:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_#OR___L8*/ meltfnum[7] = /*_#IS_A__L7*/ meltfnum[6];; - } else {MELT_LOCATION("warmelt-macro.melt:5686:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5644:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8692,14 +8489,14 @@ lab_endgetargs:; /*_#OR___L8*/ meltfnum[7] = /*_#IS_INTEGERBOX__L9*/ meltfnum[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5686:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5644:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ meltfnum[8] = 0 ;} ; } ; /*_#NOT__L10*/ meltfnum[8] = (!(/*_#OR___L8*/ meltfnum[7]));; - MELT_LOCATION("warmelt-macro.melt:5686:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5644:/ cond"); /*cond*/ if (/*_#NOT__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8707,7 +8504,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5687:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5645:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(STORE_PREDEFINED ) invalid predef"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8715,7 +8512,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:5688:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5646:/ quasiblock"); /*^quasiblock*/ @@ -8745,13 +8542,13 @@ lab_endgetargs:; /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5693:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5651:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5693:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5651:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8762,14 +8559,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5693; + argtab[3].meltbp_long = 5651; /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V26*/ meltfptr[25]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V28*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5693:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5651:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} @@ -8779,16 +8576,16 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5694:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5652:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:5694:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5652:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V25*/ meltfptr[24] = /*_.RETURN___V30*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:5688:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5646:/ clear"); /*clear*/ /*_.RES__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; @@ -8796,7 +8593,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V30*/ meltfptr[28] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:5671:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5629:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -8836,11 +8633,11 @@ lab_endgetargs:; /*clear*/ /*_#NOT__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V25*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5667:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5625:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5667:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5625:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8863,7 +8660,7 @@ melt_trace_end("MEXPAND_STORE_PREDEFINED", meltcallcount); melt_topframe = (str #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED*/ +} /*end meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED*/ diff --git a/gcc/melt/generated/warmelt-macro-0.c b/gcc/melt/generated/warmelt-macro-0.c index 5370a3a48cb..451092d860b 100644 --- a/gcc/melt/generated/warmelt-macro-0.c +++ b/gcc/melt/generated/warmelt-macro-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -210,52 +210,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -265,222 +265,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -495,17 +495,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -515,12 +515,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -530,12 +530,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -545,142 +545,137 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - - - -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -758,7 +753,7 @@ melt_trace_start("EXPAND_RESTLIST_AS_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:820:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:799:/ getarg"); /*_.ARGLIST__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -783,17 +778,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:824:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:803:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:824:/ cond"); + MELT_LOCATION("warmelt-macro.melt:803:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:824:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:803:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -804,7 +799,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (824)?(824):__LINE__, __FUNCTION__); + (803)?(803):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -818,7 +813,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:824:/ clear"); + MELT_LOCATION("warmelt-macro.melt:803:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -830,17 +825,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:825:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:804:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:804:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:825:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:804:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -851,7 +846,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (825)?(825):__LINE__, __FUNCTION__); + (804)?(804):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -865,7 +860,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:825:/ clear"); + MELT_LOCATION("warmelt-macro.melt:804:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -877,17 +872,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:826:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:805:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.ARGLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:826:/ cond"); + MELT_LOCATION("warmelt-macro.melt:805:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:826:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:805:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -898,7 +893,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arglist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (826)?(826):__LINE__, __FUNCTION__); + (805)?(805):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -912,7 +907,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:826:/ clear"); + MELT_LOCATION("warmelt-macro.melt:805:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -922,7 +917,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:827:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:806:/ quasiblock"); /*^blockmultialloc*/ @@ -940,7 +935,7 @@ lab_endgetargs:; /*_.EXPRESLIST__V12*/ meltfptr[11] = /*_.LIST___V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:827:/ clear"); + MELT_LOCATION("warmelt-macro.melt:806:/ clear"); /*clear*/ /*_.LIST___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V13*/ meltfptr[12] = 0 ;} /*end multiallocblock*/ @@ -956,13 +951,13 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#COUNT__L4*/ meltfnum[0]) > (0));; - MELT_LOCATION("warmelt-macro.melt:833:/ cond"); + MELT_LOCATION("warmelt-macro.melt:812:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:834:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:813:/ quasiblock"); /*^multiapply*/ @@ -986,12 +981,12 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:837:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:816:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CUREXP__V18*/ meltfptr[17]));} ; /*_#IS_MULTIPLE__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.XTRAEXP__V19*/ meltfptr[18])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:839:/ cond"); + MELT_LOCATION("warmelt-macro.melt:818:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1009,7 +1004,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:843:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:822:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURXTRA__V21*/ meltfptr[20]));} ; if (/*_#XIX__L7*/ meltfnum[6]<0) break; @@ -1017,7 +1012,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:840:/ clear"); + MELT_LOCATION("warmelt-macro.melt:819:/ clear"); /*clear*/ /*_.CURXTRA__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#XIX__L7*/ meltfnum[6] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ @@ -1025,14 +1020,14 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:839:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:818:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L8*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.XTRAEXP__V19*/ meltfptr[18])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:845:/ cond"); + MELT_LOCATION("warmelt-macro.melt:824:/ cond"); /*cond*/ if (/*_#IS_LIST__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1048,14 +1043,14 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:849:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:828:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.CURXTRA__V24*/ meltfptr[23]));} ; } /* end cit3__EACHLIST */ /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:846:/ clear"); + MELT_LOCATION("warmelt-macro.melt:825:/ clear"); /*clear*/ /*_.XTRAPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.CURXTRA__V24*/ meltfptr[23] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ @@ -1063,12 +1058,12 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:845:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:824:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:851:/ cond"); + MELT_LOCATION("warmelt-macro.melt:830:/ cond"); /*cond*/ if (/*_.XTRAEXP__V19*/ meltfptr[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1078,14 +1073,14 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:852:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:831:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V12*/ meltfptr[11]), (melt_ptr_t)(/*_.XTRAEXP__V19*/ meltfptr[18]));} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:851:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:830:/ cond.else"); /*_.IFELSE___V25*/ meltfptr[24] = NULL;; } @@ -1095,7 +1090,7 @@ lab_endgetargs:; /*_.IFELSE___V22*/ meltfptr[21] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:845:/ clear"); + MELT_LOCATION("warmelt-macro.melt:824:/ clear"); /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ;} ; } @@ -1103,7 +1098,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:839:/ clear"); + MELT_LOCATION("warmelt-macro.melt:818:/ clear"); /*clear*/ /*_#IS_LIST__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} @@ -1112,7 +1107,7 @@ lab_endgetargs:; ; /*_.MULTI___V17*/ meltfptr[16] = /*_.IFELSE___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:834:/ clear"); + MELT_LOCATION("warmelt-macro.melt:813:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; @@ -1122,7 +1117,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.MULTI___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:833:/ clear"); + MELT_LOCATION("warmelt-macro.melt:812:/ clear"); /*clear*/ /*_.MULTI___V17*/ meltfptr[16] = 0 ;} ; } else {/*^cond.else*/ @@ -1134,13 +1129,13 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[7] = ((/*_#COUNT__L4*/ meltfnum[0]) + (1));; - MELT_LOCATION("warmelt-macro.melt:856:/ compute"); + MELT_LOCATION("warmelt-macro.melt:835:/ compute"); /*_#COUNT__L4*/ meltfnum[0] = /*_#SETQ___L10*/ meltfnum[5] = /*_#I__L9*/ meltfnum[7];; } /* end cit1__EACHLIST */ /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:830:/ clear"); + MELT_LOCATION("warmelt-macro.melt:809:/ clear"); /*clear*/ /*_.CURPAIR__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.CURARG__V15*/ meltfptr[14] = 0 ; @@ -1153,26 +1148,26 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_#SETQ___L10*/ meltfnum[5] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - MELT_LOCATION("warmelt-macro.melt:858:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:837:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPRESLIST__V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:858:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:837:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:827:/ clear"); + MELT_LOCATION("warmelt-macro.melt:806:/ clear"); /*clear*/ /*_.EXPRESLIST__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#COUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V26*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:820:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:799:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:820:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:799:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1249,7 +1244,7 @@ melt_trace_start("EXPAND_RESTLIST_AS_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:863:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:842:/ getarg"); /*_.ARGLIST__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1274,17 +1269,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:864:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:843:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:864:/ cond"); + MELT_LOCATION("warmelt-macro.melt:843:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:864:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:843:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1295,7 +1290,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (864)?(864):__LINE__, __FUNCTION__); + (843)?(843):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -1309,7 +1304,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:864:/ clear"); + MELT_LOCATION("warmelt-macro.melt:843:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1321,17 +1316,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:865:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:844:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:865:/ cond"); + MELT_LOCATION("warmelt-macro.melt:844:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:865:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:844:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1342,7 +1337,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (865)?(865):__LINE__, __FUNCTION__); + (844)?(844):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -1356,7 +1351,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:865:/ clear"); + MELT_LOCATION("warmelt-macro.melt:844:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -1368,17 +1363,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:866:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:845:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.ARGLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:866:/ cond"); + MELT_LOCATION("warmelt-macro.melt:845:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:866:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:845:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1389,7 +1384,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check arglist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (866)?(866):__LINE__, __FUNCTION__); + (845)?(845):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -1403,7 +1398,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:866:/ clear"); + MELT_LOCATION("warmelt-macro.melt:845:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -1413,7 +1408,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:867:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:846:/ quasiblock"); /*^apply*/ @@ -1427,7 +1422,7 @@ lab_endgetargs:; /*_.EXPRESLIST__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_LIST*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ARGLIST__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:869:/ apply"); + MELT_LOCATION("warmelt-macro.melt:848:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -1438,15 +1433,15 @@ lab_endgetargs:; ; /*_.LET___V11*/ meltfptr[9] = /*_.LIST_TO_MULTIPLE__V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:867:/ clear"); + MELT_LOCATION("warmelt-macro.melt:846:/ clear"); /*clear*/ /*_.EXPRESLIST__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_TO_MULTIPLE__V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:863:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:842:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:863:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:842:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1523,7 +1518,7 @@ melt_trace_start("EXPAND_PAIRLIST_AS_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:874:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:853:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -1548,17 +1543,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:875:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:854:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:875:/ cond"); + MELT_LOCATION("warmelt-macro.melt:854:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:875:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:854:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1569,7 +1564,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (875)?(875):__LINE__, __FUNCTION__); + (854)?(854):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -1583,7 +1578,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:875:/ clear"); + MELT_LOCATION("warmelt-macro.melt:854:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -1595,17 +1590,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:876:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:855:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:876:/ cond"); + MELT_LOCATION("warmelt-macro.melt:855:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:876:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:855:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -1616,7 +1611,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (876)?(876):__LINE__, __FUNCTION__); + (855)?(855):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -1630,7 +1625,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:876:/ clear"); + MELT_LOCATION("warmelt-macro.melt:855:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -1640,7 +1635,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:877:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:856:/ quasiblock"); /*^blockmultialloc*/ @@ -1658,12 +1653,12 @@ lab_endgetargs:; /*_.EXPRESLIST__V10*/ meltfptr[9] = /*_.LIST___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:877:/ clear"); + MELT_LOCATION("warmelt-macro.melt:856:/ clear"); /*clear*/ /*_.LIST___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LIST___V11*/ meltfptr[10] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:879:/ loop"); + MELT_LOCATION("warmelt-macro.melt:858:/ loop"); /*loop*/{ labloop_EXPLOOP_1:;/*^loopbody*/ /*^block*/ @@ -1675,7 +1670,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_PAIR__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:880:/ cond"); + MELT_LOCATION("warmelt-macro.melt:859:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1696,7 +1691,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:881:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:860:/ quasiblock"); /*_.CURARG__V15*/ meltfptr[14] = @@ -1705,9 +1700,9 @@ lab_endgetargs:; /*_.PAIR_TAIL__V16*/ meltfptr[15] = (melt_pair_tail((melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1])));; - MELT_LOCATION("warmelt-macro.melt:883:/ compute"); + MELT_LOCATION("warmelt-macro.melt:862:/ compute"); /*_.PAIR__V2*/ meltfptr[1] = /*_.SETQ___V17*/ meltfptr[16] = /*_.PAIR_TAIL__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:884:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:863:/ quasiblock"); /*^multiapply*/ @@ -1731,12 +1726,12 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:887:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:866:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V10*/ meltfptr[9]), (melt_ptr_t)(/*_.CUREXP__V19*/ meltfptr[18]));} ; /*_#IS_MULTIPLE__L5*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.XTRAEXP__V20*/ meltfptr[19])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION("warmelt-macro.melt:889:/ cond"); + MELT_LOCATION("warmelt-macro.melt:868:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1754,7 +1749,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:893:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:872:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V10*/ meltfptr[9]), (melt_ptr_t)(/*_.CURXTRA__V22*/ meltfptr[21]));} ; if (/*_#XIX__L6*/ meltfnum[5]<0) break; @@ -1762,7 +1757,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:890:/ clear"); + MELT_LOCATION("warmelt-macro.melt:869:/ clear"); /*clear*/ /*_.CURXTRA__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#XIX__L6*/ meltfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ @@ -1770,14 +1765,14 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:889:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:868:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L7*/ meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.XTRAEXP__V20*/ meltfptr[19])) == MELTOBMAG_LIST);; - MELT_LOCATION("warmelt-macro.melt:895:/ cond"); + MELT_LOCATION("warmelt-macro.melt:874:/ cond"); /*cond*/ if (/*_#IS_LIST__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1793,14 +1788,14 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:899:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:878:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V10*/ meltfptr[9]), (melt_ptr_t)(/*_.CURXTRA__V25*/ meltfptr[24]));} ; } /* end cit2__EACHLIST */ /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:896:/ clear"); + MELT_LOCATION("warmelt-macro.melt:875:/ clear"); /*clear*/ /*_.XTRAPAIR__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.CURXTRA__V25*/ meltfptr[24] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ @@ -1808,12 +1803,12 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:895:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:874:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:901:/ cond"); + MELT_LOCATION("warmelt-macro.melt:880:/ cond"); /*cond*/ if (/*_.XTRAEXP__V20*/ meltfptr[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1823,14 +1818,14 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:902:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:881:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.EXPRESLIST__V10*/ meltfptr[9]), (melt_ptr_t)(/*_.XTRAEXP__V20*/ meltfptr[19]));} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:901:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:880:/ cond.else"); /*_.IFELSE___V26*/ meltfptr[25] = NULL;; } @@ -1840,7 +1835,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:895:/ clear"); + MELT_LOCATION("warmelt-macro.melt:874:/ clear"); /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} ; } @@ -1848,7 +1843,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:889:/ clear"); + MELT_LOCATION("warmelt-macro.melt:868:/ clear"); /*clear*/ /*_#IS_LIST__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} @@ -1857,7 +1852,7 @@ lab_endgetargs:; ; /*_.MULTI___V18*/ meltfptr[17] = /*_.IFELSE___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:884:/ clear"); + MELT_LOCATION("warmelt-macro.melt:863:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ; @@ -1866,7 +1861,7 @@ lab_endgetargs:; /*clear*/ /*_.XTRAEXP__V20*/ meltfptr[19] = 0 ; /*_.LET___V14*/ meltfptr[13] = /*_.MULTI___V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:881:/ clear"); + MELT_LOCATION("warmelt-macro.melt:860:/ clear"); /*clear*/ /*_.CURARG__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V16*/ meltfptr[15] = 0 ; @@ -1876,7 +1871,7 @@ lab_endgetargs:; /*clear*/ /*_.MULTI___V18*/ meltfptr[17] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:879:/ clear"); + MELT_LOCATION("warmelt-macro.melt:858:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L4*/ meltfnum[3] = 0 ; @@ -1890,26 +1885,26 @@ lab_endgetargs:; /*_.FOREVER___V12*/ meltfptr[10] = /*_.EXPLOOP__V13*/ meltfptr[12];; } ; - MELT_LOCATION("warmelt-macro.melt:907:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:886:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPRESLIST__V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:907:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:886:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V9*/ meltfptr[7] = /*_.RETURN___V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:877:/ clear"); + MELT_LOCATION("warmelt-macro.melt:856:/ clear"); /*clear*/ /*_.EXPRESLIST__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; - MELT_LOCATION("warmelt-macro.melt:874:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:853:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:874:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:853:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -1984,7 +1979,7 @@ melt_trace_start("EXPAND_PAIRLIST_AS_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:912:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:891:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2009,17 +2004,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:913:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:892:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:913:/ cond"); + MELT_LOCATION("warmelt-macro.melt:892:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:913:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:892:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2030,7 +2025,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check end"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (913)?(913):__LINE__, __FUNCTION__); + (892)?(892):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2044,7 +2039,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:913:/ clear"); + MELT_LOCATION("warmelt-macro.melt:892:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2056,17 +2051,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:914:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:893:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_CLOSURE__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:914:/ cond"); + MELT_LOCATION("warmelt-macro.melt:893:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:914:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:893:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2077,7 +2072,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (914)?(914):__LINE__, __FUNCTION__); + (893)?(893):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2091,7 +2086,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:914:/ clear"); + MELT_LOCATION("warmelt-macro.melt:893:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2105,13 +2100,13 @@ lab_endgetargs:; /*_#IS_PAIR__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:915:/ cond"); + MELT_LOCATION("warmelt-macro.melt:894:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:916:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:895:/ quasiblock"); /*^apply*/ @@ -2125,7 +2120,7 @@ lab_endgetargs:; /*_.EXPRESLIST__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_LIST*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:918:/ apply"); + MELT_LOCATION("warmelt-macro.melt:897:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -2136,14 +2131,14 @@ lab_endgetargs:; ; /*_.LET___V10*/ meltfptr[9] = /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:916:/ clear"); + MELT_LOCATION("warmelt-macro.melt:895:/ clear"); /*clear*/ /*_.EXPRESLIST__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11] = 0 ; /*_.IF___V9*/ meltfptr[7] = /*_.LET___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:915:/ clear"); + MELT_LOCATION("warmelt-macro.melt:894:/ clear"); /*clear*/ /*_.LET___V10*/ meltfptr[9] = 0 ;} ; } else {/*^cond.else*/ @@ -2151,11 +2146,11 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:912:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:891:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:912:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:891:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2191,8 +2186,8 @@ typedef void (*mcfr_initforwmarkrout) ( struct callframe_melt_st*, int); struct excepth_melt_st *mcfr_exh; struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 1650 - void* mcfr_varptr[1650]; +#define MELTFRAM_NBVARPTR 1616 + void* mcfr_varptr[1616]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ @@ -2204,7 +2199,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_macro iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2584); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2455); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE; @@ -2277,1402 +2272,1370 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp struct MELT_STRING_STRUCT(10) dstr_68__SPRIM_OPER; struct MELT_OBJECT_STRUCT(4) dobj_69__SPRIM_OPER; struct MELT_STRING_STRUCT(10) dstr_70__SPRIM_OPER; - struct MELT_OBJECT_STRUCT(3) dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION; - struct MELT_STRING_STRUCT(33) dstr_72__CLASS_SOURCE_VAR; - struct MELT_OBJECT_STRUCT(8) dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION; - struct MELT_STRING_STRUCT(33) dstr_74__CLASS_SOURCE_VAR; - struct MELT_MULTIPLE_STRUCT(5) dtup_75__CLASS_SOURCE_VARIADIC_APPLICATION; - struct MELT_MULTIPLE_STRUCT(4) dtup_76__CLASS_SOURCE_VARIADIC_APPLICATION; - struct MELT_OBJECT_STRUCT(3) dsym_77__SVARI_OPER; - struct MELT_STRING_STRUCT(10) dstr_78__SVARI_OPER; - struct MELT_OBJECT_STRUCT(4) dobj_79__SVARI_OPER; - struct MELT_STRING_STRUCT(10) dstr_80__SVARI_OPER; - struct MELT_OBJECT_STRUCT(3) dsym_81__CLASS_SOURCE_CITERATION; - struct MELT_STRING_STRUCT(23) dstr_82__CLASS_SOURCE_CIT; - struct MELT_OBJECT_STRUCT(8) dobj_83__CLASS_SOURCE_CITERATION; - struct MELT_STRING_STRUCT(23) dstr_84__CLASS_SOURCE_CIT; - struct MELT_MULTIPLE_STRUCT(5) dtup_85__CLASS_SOURCE_CITERATION; - struct MELT_MULTIPLE_STRUCT(6) dtup_86__CLASS_SOURCE_CITERATION; - struct MELT_OBJECT_STRUCT(3) dsym_87__SCITER_OPER; - struct MELT_STRING_STRUCT(11) dstr_88__SCITER_OPER; - struct MELT_OBJECT_STRUCT(4) dobj_89__SCITER_OPER; - struct MELT_STRING_STRUCT(11) dstr_90__SCITER_OPER; - struct MELT_OBJECT_STRUCT(3) dsym_91__SCITER_VARBIND; - struct MELT_STRING_STRUCT(14) dstr_92__SCITER_VARBIND; - struct MELT_OBJECT_STRUCT(4) dobj_93__SCITER_VARBIND; - struct MELT_STRING_STRUCT(14) dstr_94__SCITER_VARBIND; - struct MELT_OBJECT_STRUCT(3) dsym_95__SCITER_BODY; - struct MELT_STRING_STRUCT(11) dstr_96__SCITER_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_97__SCITER_BODY; - struct MELT_STRING_STRUCT(11) dstr_98__SCITER_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_99__CLASS_SOURCE_CMATCHEXPR; - struct MELT_STRING_STRUCT(23) dstr_100__CLASS_SOURCE_CMA; - struct MELT_OBJECT_STRUCT(8) dobj_101__CLASS_SOURCE_CMATCHEXPR; - struct MELT_STRING_STRUCT(23) dstr_102__CLASS_SOURCE_CMA; - struct MELT_MULTIPLE_STRUCT(5) dtup_103__CLASS_SOURCE_CMATCHEXPR; - struct MELT_MULTIPLE_STRUCT(4) dtup_104__CLASS_SOURCE_CMATCHEXPR; - struct MELT_OBJECT_STRUCT(3) dsym_105__SCMATX_CMATCHER; - struct MELT_STRING_STRUCT(15) dstr_106__SCMATX_CMATCHER; - struct MELT_OBJECT_STRUCT(4) dobj_107__SCMATX_CMATCHER; - struct MELT_STRING_STRUCT(15) dstr_108__SCMATX_CMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_109__CLASS_SOURCE_FUNMATCHEXPR; - struct MELT_STRING_STRUCT(25) dstr_110__CLASS_SOURCE_FUN; - struct MELT_OBJECT_STRUCT(8) dobj_111__CLASS_SOURCE_FUNMATCHEXPR; - struct MELT_STRING_STRUCT(25) dstr_112__CLASS_SOURCE_FUN; - struct MELT_MULTIPLE_STRUCT(5) dtup_113__CLASS_SOURCE_FUNMATCHEXPR; - struct MELT_MULTIPLE_STRUCT(5) dtup_114__CLASS_SOURCE_FUNMATCHEXPR; - struct MELT_OBJECT_STRUCT(3) dsym_115__SFMATX_FMATCHER; - struct MELT_STRING_STRUCT(15) dstr_116__SFMATX_FMATCHER; - struct MELT_OBJECT_STRUCT(4) dobj_117__SFMATX_FMATCHER; - struct MELT_STRING_STRUCT(15) dstr_118__SFMATX_FMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_119__SFMATX_FMATBIND; - struct MELT_STRING_STRUCT(15) dstr_120__SFMATX_FMATBIND; - struct MELT_OBJECT_STRUCT(4) dobj_121__SFMATX_FMATBIND; - struct MELT_STRING_STRUCT(15) dstr_122__SFMATX_FMATBIND; - struct MELT_OBJECT_STRUCT(3) dsym_123__CLASS_SOURCE_TUPLE; - struct MELT_STRING_STRUCT(18) dstr_124__CLASS_SOURCE_TUP; - struct MELT_OBJECT_STRUCT(8) dobj_125__CLASS_SOURCE_TUPLE; - struct MELT_STRING_STRUCT(18) dstr_126__CLASS_SOURCE_TUP; - struct MELT_MULTIPLE_STRUCT(5) dtup_127__CLASS_SOURCE_TUPLE; - struct MELT_MULTIPLE_STRUCT(3) dtup_128__CLASS_SOURCE_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_129__CLASS_SOURCE_LIST; - struct MELT_STRING_STRUCT(17) dstr_130__CLASS_SOURCE_LIS; - struct MELT_OBJECT_STRUCT(8) dobj_131__CLASS_SOURCE_LIST; - struct MELT_STRING_STRUCT(17) dstr_132__CLASS_SOURCE_LIS; - struct MELT_MULTIPLE_STRUCT(5) dtup_133__CLASS_SOURCE_LIST; - struct MELT_MULTIPLE_STRUCT(3) dtup_134__CLASS_SOURCE_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_135__CLASS_SOURCE_PROGN; - struct MELT_STRING_STRUCT(18) dstr_136__CLASS_SOURCE_PRO; - struct MELT_OBJECT_STRUCT(8) dobj_137__CLASS_SOURCE_PROGN; - struct MELT_STRING_STRUCT(18) dstr_138__CLASS_SOURCE_PRO; - struct MELT_MULTIPLE_STRUCT(4) dtup_139__CLASS_SOURCE_PROGN; - struct MELT_MULTIPLE_STRUCT(3) dtup_140__CLASS_SOURCE_PROGN; - struct MELT_OBJECT_STRUCT(3) dsym_141__SPROGN_BODY; - struct MELT_STRING_STRUCT(11) dstr_142__SPROGN_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_143__SPROGN_BODY; - struct MELT_STRING_STRUCT(11) dstr_144__SPROGN_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_145__CLASS_SOURCE_RETURN; - struct MELT_STRING_STRUCT(19) dstr_146__CLASS_SOURCE_RET; - struct MELT_OBJECT_STRUCT(8) dobj_147__CLASS_SOURCE_RETURN; - struct MELT_STRING_STRUCT(19) dstr_148__CLASS_SOURCE_RET; - struct MELT_MULTIPLE_STRUCT(5) dtup_149__CLASS_SOURCE_RETURN; - struct MELT_MULTIPLE_STRUCT(3) dtup_150__CLASS_SOURCE_RETURN; - struct MELT_OBJECT_STRUCT(3) dsym_151__CLASS_SOURCE_SETQ; - struct MELT_STRING_STRUCT(17) dstr_152__CLASS_SOURCE_SET; - struct MELT_OBJECT_STRUCT(8) dobj_153__CLASS_SOURCE_SETQ; - struct MELT_STRING_STRUCT(17) dstr_154__CLASS_SOURCE_SET; - struct MELT_MULTIPLE_STRUCT(4) dtup_155__CLASS_SOURCE_SETQ; - struct MELT_MULTIPLE_STRUCT(4) dtup_156__CLASS_SOURCE_SETQ; - struct MELT_OBJECT_STRUCT(3) dsym_157__SSTQ_VAR; - struct MELT_STRING_STRUCT(8) dstr_158__SSTQ_VAR; - struct MELT_OBJECT_STRUCT(4) dobj_159__SSTQ_VAR; - struct MELT_STRING_STRUCT(8) dstr_160__SSTQ_VAR; - struct MELT_OBJECT_STRUCT(3) dsym_161__SSTQ_EXPR; - struct MELT_STRING_STRUCT(9) dstr_162__SSTQ_EXPR; - struct MELT_OBJECT_STRUCT(4) dobj_163__SSTQ_EXPR; - struct MELT_STRING_STRUCT(9) dstr_164__SSTQ_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_165__CLASS_SOURCE_COMMENT; - struct MELT_STRING_STRUCT(20) dstr_166__CLASS_SOURCE_COM; - struct MELT_OBJECT_STRUCT(8) dobj_167__CLASS_SOURCE_COMMENT; - struct MELT_STRING_STRUCT(20) dstr_168__CLASS_SOURCE_COM; - struct MELT_MULTIPLE_STRUCT(4) dtup_169__CLASS_SOURCE_COMMENT; - struct MELT_MULTIPLE_STRUCT(3) dtup_170__CLASS_SOURCE_COMMENT; - struct MELT_OBJECT_STRUCT(3) dsym_171__SCOMM_STR; - struct MELT_STRING_STRUCT(9) dstr_172__SCOMM_STR; - struct MELT_OBJECT_STRUCT(4) dobj_173__SCOMM_STR; - struct MELT_STRING_STRUCT(9) dstr_174__SCOMM_STR; - struct MELT_OBJECT_STRUCT(3) dsym_175__CLASS_SOURCE_QUOTE; - struct MELT_STRING_STRUCT(18) dstr_176__CLASS_SOURCE_QUO; - struct MELT_OBJECT_STRUCT(8) dobj_177__CLASS_SOURCE_QUOTE; - struct MELT_STRING_STRUCT(18) dstr_178__CLASS_SOURCE_QUO; - struct MELT_MULTIPLE_STRUCT(4) dtup_179__CLASS_SOURCE_QUOTE; - struct MELT_MULTIPLE_STRUCT(3) dtup_180__CLASS_SOURCE_QUOTE; - struct MELT_OBJECT_STRUCT(3) dsym_181__SQUOTED; - struct MELT_STRING_STRUCT(7) dstr_182__SQUOTED; - struct MELT_OBJECT_STRUCT(4) dobj_183__SQUOTED; - struct MELT_STRING_STRUCT(7) dstr_184__SQUOTED; - struct MELT_OBJECT_STRUCT(3) dsym_185__CLASS_SOURCE_EXPORTCOMMON; - struct MELT_STRING_STRUCT(25) dstr_186__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_187__CLASS_SOURCE_EXPORTCOMMON; - struct MELT_STRING_STRUCT(25) dstr_188__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(4) dtup_189__CLASS_SOURCE_EXPORTCOMMON; - struct MELT_MULTIPLE_STRUCT(3) dtup_190__CLASS_SOURCE_EXPORTCOMMON; - struct MELT_OBJECT_STRUCT(3) dsym_191__SEXPORT_NAMES; - struct MELT_STRING_STRUCT(13) dstr_192__SEXPORT_NAMES; - struct MELT_OBJECT_STRUCT(4) dobj_193__SEXPORT_NAMES; - struct MELT_STRING_STRUCT(13) dstr_194__SEXPORT_NAMES; - struct MELT_OBJECT_STRUCT(3) dsym_195__CLASS_SOURCE_EXPORT_VALUES; - struct MELT_STRING_STRUCT(26) dstr_196__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_197__CLASS_SOURCE_EXPORT_VALUES; - struct MELT_STRING_STRUCT(26) dstr_198__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(5) dtup_199__CLASS_SOURCE_EXPORT_VALUES; - struct MELT_MULTIPLE_STRUCT(3) dtup_200__CLASS_SOURCE_EXPORT_VALUES; - struct MELT_OBJECT_STRUCT(3) dsym_201__CLASS_SOURCE_EXPORT_CLASS; - struct MELT_STRING_STRUCT(25) dstr_202__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_203__CLASS_SOURCE_EXPORT_CLASS; - struct MELT_STRING_STRUCT(25) dstr_204__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(5) dtup_205__CLASS_SOURCE_EXPORT_CLASS; - struct MELT_MULTIPLE_STRUCT(3) dtup_206__CLASS_SOURCE_EXPORT_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_207__CLASS_SOURCE_EXPORT_MACRO; - struct MELT_STRING_STRUCT(25) dstr_208__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_209__CLASS_SOURCE_EXPORT_MACRO; - struct MELT_STRING_STRUCT(25) dstr_210__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(4) dtup_211__CLASS_SOURCE_EXPORT_MACRO; - struct MELT_MULTIPLE_STRUCT(5) dtup_212__CLASS_SOURCE_EXPORT_MACRO; - struct MELT_OBJECT_STRUCT(3) dsym_213__SEXPMAC_MNAME; - struct MELT_STRING_STRUCT(13) dstr_214__SEXPMAC_MNAME; - struct MELT_OBJECT_STRUCT(4) dobj_215__SEXPMAC_MNAME; - struct MELT_STRING_STRUCT(13) dstr_216__SEXPMAC_MNAME; - struct MELT_OBJECT_STRUCT(3) dsym_217__SEXPMAC_MVAL; - struct MELT_STRING_STRUCT(12) dstr_218__SEXPMAC_MVAL; - struct MELT_OBJECT_STRUCT(4) dobj_219__SEXPMAC_MVAL; - struct MELT_STRING_STRUCT(12) dstr_220__SEXPMAC_MVAL; - struct MELT_OBJECT_STRUCT(3) dsym_221__SEXPMAC_DOC; - struct MELT_STRING_STRUCT(11) dstr_222__SEXPMAC_DOC; - struct MELT_OBJECT_STRUCT(4) dobj_223__SEXPMAC_DOC; - struct MELT_STRING_STRUCT(11) dstr_224__SEXPMAC_DOC; - struct MELT_OBJECT_STRUCT(3) dsym_225__CLASS_SOURCE_EXPORT_PATMACRO; - struct MELT_STRING_STRUCT(28) dstr_226__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_227__CLASS_SOURCE_EXPORT_PATMACRO; - struct MELT_STRING_STRUCT(28) dstr_228__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(5) dtup_229__CLASS_SOURCE_EXPORT_PATMACRO; - struct MELT_MULTIPLE_STRUCT(6) dtup_230__CLASS_SOURCE_EXPORT_PATMACRO; - struct MELT_OBJECT_STRUCT(3) dsym_231__SEXPPAT_PVAL; - struct MELT_STRING_STRUCT(12) dstr_232__SEXPPAT_PVAL; - struct MELT_OBJECT_STRUCT(4) dobj_233__SEXPPAT_PVAL; - struct MELT_STRING_STRUCT(12) dstr_234__SEXPPAT_PVAL; - struct MELT_OBJECT_STRUCT(3) dsym_235__CLASS_SOURCE_EXPORT_SYNONYM; - struct MELT_STRING_STRUCT(27) dstr_236__CLASS_SOURCE_EXP; - struct MELT_OBJECT_STRUCT(8) dobj_237__CLASS_SOURCE_EXPORT_SYNONYM; - struct MELT_STRING_STRUCT(27) dstr_238__CLASS_SOURCE_EXP; - struct MELT_MULTIPLE_STRUCT(4) dtup_239__CLASS_SOURCE_EXPORT_SYNONYM; - struct MELT_MULTIPLE_STRUCT(5) dtup_240__CLASS_SOURCE_EXPORT_SYNONYM; - struct MELT_OBJECT_STRUCT(3) dsym_241__SEXPSYN_NEWNAME; - struct MELT_STRING_STRUCT(15) dstr_242__SEXPSYN_NEWNAME; - struct MELT_OBJECT_STRUCT(4) dobj_243__SEXPSYN_NEWNAME; - struct MELT_STRING_STRUCT(15) dstr_244__SEXPSYN_NEWNAME; - struct MELT_OBJECT_STRUCT(3) dsym_245__SEXPSYN_OLDNAME; - struct MELT_STRING_STRUCT(15) dstr_246__SEXPSYN_OLDNAME; - struct MELT_OBJECT_STRUCT(4) dobj_247__SEXPSYN_OLDNAME; - struct MELT_STRING_STRUCT(15) dstr_248__SEXPSYN_OLDNAME; - struct MELT_OBJECT_STRUCT(3) dsym_249__SEXPSYN_DOC; - struct MELT_STRING_STRUCT(11) dstr_250__SEXPSYN_DOC; - struct MELT_OBJECT_STRUCT(4) dobj_251__SEXPSYN_DOC; - struct MELT_STRING_STRUCT(11) dstr_252__SEXPSYN_DOC; - struct MELT_OBJECT_STRUCT(3) dsym_253__CLASS_SOURCE_DEFINITION; - struct MELT_STRING_STRUCT(23) dstr_254__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_255__CLASS_SOURCE_DEFINITION; - struct MELT_STRING_STRUCT(23) dstr_256__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(4) dtup_257__CLASS_SOURCE_DEFINITION; - struct MELT_MULTIPLE_STRUCT(4) dtup_258__CLASS_SOURCE_DEFINITION; - struct MELT_OBJECT_STRUCT(3) dsym_259__SDEF_NAME; - struct MELT_STRING_STRUCT(9) dstr_260__SDEF_NAME; - struct MELT_OBJECT_STRUCT(4) dobj_261__SDEF_NAME; - struct MELT_STRING_STRUCT(9) dstr_262__SDEF_NAME; - struct MELT_OBJECT_STRUCT(3) dsym_263__SDEF_DOC; - struct MELT_STRING_STRUCT(8) dstr_264__SDEF_DOC; - struct MELT_OBJECT_STRUCT(4) dobj_265__SDEF_DOC; - struct MELT_STRING_STRUCT(8) dstr_266__SDEF_DOC; - struct MELT_OBJECT_STRUCT(3) dsym_267__CLASS_SOURCE_DEFINE; - struct MELT_STRING_STRUCT(19) dstr_268__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_269__CLASS_SOURCE_DEFINE; - struct MELT_STRING_STRUCT(19) dstr_270__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(5) dtup_271__CLASS_SOURCE_DEFINE; - struct MELT_MULTIPLE_STRUCT(5) dtup_272__CLASS_SOURCE_DEFINE; - struct MELT_OBJECT_STRUCT(3) dsym_273__SDEFINE_EXPR; - struct MELT_STRING_STRUCT(12) dstr_274__SDEFINE_EXPR; - struct MELT_OBJECT_STRUCT(4) dobj_275__SDEFINE_EXPR; - struct MELT_STRING_STRUCT(12) dstr_276__SDEFINE_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_277__CLASS_SOURCE_DEFINITION_FORMAL; - struct MELT_STRING_STRUCT(30) dstr_278__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_279__CLASS_SOURCE_DEFINITION_FORMAL; - struct MELT_STRING_STRUCT(30) dstr_280__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(5) dtup_281__CLASS_SOURCE_DEFINITION_FORMAL; - struct MELT_MULTIPLE_STRUCT(5) dtup_282__CLASS_SOURCE_DEFINITION_FORMAL; - struct MELT_OBJECT_STRUCT(3) dsym_283__SFORMAL_ARGS; - struct MELT_STRING_STRUCT(12) dstr_284__SFORMAL_ARGS; - struct MELT_OBJECT_STRUCT(4) dobj_285__SFORMAL_ARGS; - struct MELT_STRING_STRUCT(12) dstr_286__SFORMAL_ARGS; - struct MELT_OBJECT_STRUCT(3) dsym_287__CLASS_SOURCE_DEFUN; - struct MELT_STRING_STRUCT(18) dstr_288__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_289__CLASS_SOURCE_DEFUN; - struct MELT_STRING_STRUCT(18) dstr_290__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_291__CLASS_SOURCE_DEFUN; - struct MELT_MULTIPLE_STRUCT(6) dtup_292__CLASS_SOURCE_DEFUN; - struct MELT_OBJECT_STRUCT(3) dsym_293__SFUN_BODY; - struct MELT_STRING_STRUCT(9) dstr_294__SFUN_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_295__SFUN_BODY; - struct MELT_STRING_STRUCT(9) dstr_296__SFUN_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_297__CLASS_SOURCE_DEFPRIMITIVE; - struct MELT_STRING_STRUCT(25) dstr_298__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_299__CLASS_SOURCE_DEFPRIMITIVE; - struct MELT_STRING_STRUCT(25) dstr_300__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_301__CLASS_SOURCE_DEFPRIMITIVE; - struct MELT_MULTIPLE_STRUCT(7) dtup_302__CLASS_SOURCE_DEFPRIMITIVE; - struct MELT_OBJECT_STRUCT(3) dsym_303__SPRIM_TYPE; - struct MELT_STRING_STRUCT(10) dstr_304__SPRIM_TYPE; - struct MELT_OBJECT_STRUCT(4) dobj_305__SPRIM_TYPE; - struct MELT_STRING_STRUCT(10) dstr_306__SPRIM_TYPE; - struct MELT_OBJECT_STRUCT(3) dsym_307__SPRIM_EXPANSION; - struct MELT_STRING_STRUCT(15) dstr_308__SPRIM_EXPANSION; - struct MELT_OBJECT_STRUCT(4) dobj_309__SPRIM_EXPANSION; - struct MELT_STRING_STRUCT(15) dstr_310__SPRIM_EXPANSION; - struct MELT_OBJECT_STRUCT(3) dsym_311__CLASS_SOURCE_DEFVARIADIC; + struct MELT_OBJECT_STRUCT(3) dsym_71__CLASS_SOURCE_CITERATION; + struct MELT_STRING_STRUCT(23) dstr_72__CLASS_SOURCE_CIT; + struct MELT_OBJECT_STRUCT(8) dobj_73__CLASS_SOURCE_CITERATION; + struct MELT_STRING_STRUCT(23) dstr_74__CLASS_SOURCE_CIT; + struct MELT_MULTIPLE_STRUCT(5) dtup_75__CLASS_SOURCE_CITERATION; + struct MELT_MULTIPLE_STRUCT(6) dtup_76__CLASS_SOURCE_CITERATION; + struct MELT_OBJECT_STRUCT(3) dsym_77__SCITER_OPER; + struct MELT_STRING_STRUCT(11) dstr_78__SCITER_OPER; + struct MELT_OBJECT_STRUCT(4) dobj_79__SCITER_OPER; + struct MELT_STRING_STRUCT(11) dstr_80__SCITER_OPER; + struct MELT_OBJECT_STRUCT(3) dsym_81__SCITER_VARBIND; + struct MELT_STRING_STRUCT(14) dstr_82__SCITER_VARBIND; + struct MELT_OBJECT_STRUCT(4) dobj_83__SCITER_VARBIND; + struct MELT_STRING_STRUCT(14) dstr_84__SCITER_VARBIND; + struct MELT_OBJECT_STRUCT(3) dsym_85__SCITER_BODY; + struct MELT_STRING_STRUCT(11) dstr_86__SCITER_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_87__SCITER_BODY; + struct MELT_STRING_STRUCT(11) dstr_88__SCITER_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_89__CLASS_SOURCE_CMATCHEXPR; + struct MELT_STRING_STRUCT(23) dstr_90__CLASS_SOURCE_CMA; + struct MELT_OBJECT_STRUCT(8) dobj_91__CLASS_SOURCE_CMATCHEXPR; + struct MELT_STRING_STRUCT(23) dstr_92__CLASS_SOURCE_CMA; + struct MELT_MULTIPLE_STRUCT(5) dtup_93__CLASS_SOURCE_CMATCHEXPR; + struct MELT_MULTIPLE_STRUCT(4) dtup_94__CLASS_SOURCE_CMATCHEXPR; + struct MELT_OBJECT_STRUCT(3) dsym_95__SCMATX_CMATCHER; + struct MELT_STRING_STRUCT(15) dstr_96__SCMATX_CMATCHER; + struct MELT_OBJECT_STRUCT(4) dobj_97__SCMATX_CMATCHER; + struct MELT_STRING_STRUCT(15) dstr_98__SCMATX_CMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_99__CLASS_SOURCE_FUNMATCHEXPR; + struct MELT_STRING_STRUCT(25) dstr_100__CLASS_SOURCE_FUN; + struct MELT_OBJECT_STRUCT(8) dobj_101__CLASS_SOURCE_FUNMATCHEXPR; + struct MELT_STRING_STRUCT(25) dstr_102__CLASS_SOURCE_FUN; + struct MELT_MULTIPLE_STRUCT(5) dtup_103__CLASS_SOURCE_FUNMATCHEXPR; + struct MELT_MULTIPLE_STRUCT(5) dtup_104__CLASS_SOURCE_FUNMATCHEXPR; + struct MELT_OBJECT_STRUCT(3) dsym_105__SFMATX_FMATCHER; + struct MELT_STRING_STRUCT(15) dstr_106__SFMATX_FMATCHER; + struct MELT_OBJECT_STRUCT(4) dobj_107__SFMATX_FMATCHER; + struct MELT_STRING_STRUCT(15) dstr_108__SFMATX_FMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_109__SFMATX_FMATBIND; + struct MELT_STRING_STRUCT(15) dstr_110__SFMATX_FMATBIND; + struct MELT_OBJECT_STRUCT(4) dobj_111__SFMATX_FMATBIND; + struct MELT_STRING_STRUCT(15) dstr_112__SFMATX_FMATBIND; + struct MELT_OBJECT_STRUCT(3) dsym_113__CLASS_SOURCE_TUPLE; + struct MELT_STRING_STRUCT(18) dstr_114__CLASS_SOURCE_TUP; + struct MELT_OBJECT_STRUCT(8) dobj_115__CLASS_SOURCE_TUPLE; + struct MELT_STRING_STRUCT(18) dstr_116__CLASS_SOURCE_TUP; + struct MELT_MULTIPLE_STRUCT(5) dtup_117__CLASS_SOURCE_TUPLE; + struct MELT_MULTIPLE_STRUCT(3) dtup_118__CLASS_SOURCE_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_119__CLASS_SOURCE_LIST; + struct MELT_STRING_STRUCT(17) dstr_120__CLASS_SOURCE_LIS; + struct MELT_OBJECT_STRUCT(8) dobj_121__CLASS_SOURCE_LIST; + struct MELT_STRING_STRUCT(17) dstr_122__CLASS_SOURCE_LIS; + struct MELT_MULTIPLE_STRUCT(5) dtup_123__CLASS_SOURCE_LIST; + struct MELT_MULTIPLE_STRUCT(3) dtup_124__CLASS_SOURCE_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_125__CLASS_SOURCE_PROGN; + struct MELT_STRING_STRUCT(18) dstr_126__CLASS_SOURCE_PRO; + struct MELT_OBJECT_STRUCT(8) dobj_127__CLASS_SOURCE_PROGN; + struct MELT_STRING_STRUCT(18) dstr_128__CLASS_SOURCE_PRO; + struct MELT_MULTIPLE_STRUCT(4) dtup_129__CLASS_SOURCE_PROGN; + struct MELT_MULTIPLE_STRUCT(3) dtup_130__CLASS_SOURCE_PROGN; + struct MELT_OBJECT_STRUCT(3) dsym_131__SPROGN_BODY; + struct MELT_STRING_STRUCT(11) dstr_132__SPROGN_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_133__SPROGN_BODY; + struct MELT_STRING_STRUCT(11) dstr_134__SPROGN_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_135__CLASS_SOURCE_RETURN; + struct MELT_STRING_STRUCT(19) dstr_136__CLASS_SOURCE_RET; + struct MELT_OBJECT_STRUCT(8) dobj_137__CLASS_SOURCE_RETURN; + struct MELT_STRING_STRUCT(19) dstr_138__CLASS_SOURCE_RET; + struct MELT_MULTIPLE_STRUCT(5) dtup_139__CLASS_SOURCE_RETURN; + struct MELT_MULTIPLE_STRUCT(3) dtup_140__CLASS_SOURCE_RETURN; + struct MELT_OBJECT_STRUCT(3) dsym_141__CLASS_SOURCE_SETQ; + struct MELT_STRING_STRUCT(17) dstr_142__CLASS_SOURCE_SET; + struct MELT_OBJECT_STRUCT(8) dobj_143__CLASS_SOURCE_SETQ; + struct MELT_STRING_STRUCT(17) dstr_144__CLASS_SOURCE_SET; + struct MELT_MULTIPLE_STRUCT(4) dtup_145__CLASS_SOURCE_SETQ; + struct MELT_MULTIPLE_STRUCT(4) dtup_146__CLASS_SOURCE_SETQ; + struct MELT_OBJECT_STRUCT(3) dsym_147__SSTQ_VAR; + struct MELT_STRING_STRUCT(8) dstr_148__SSTQ_VAR; + struct MELT_OBJECT_STRUCT(4) dobj_149__SSTQ_VAR; + struct MELT_STRING_STRUCT(8) dstr_150__SSTQ_VAR; + struct MELT_OBJECT_STRUCT(3) dsym_151__SSTQ_EXPR; + struct MELT_STRING_STRUCT(9) dstr_152__SSTQ_EXPR; + struct MELT_OBJECT_STRUCT(4) dobj_153__SSTQ_EXPR; + struct MELT_STRING_STRUCT(9) dstr_154__SSTQ_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_155__CLASS_SOURCE_COMMENT; + struct MELT_STRING_STRUCT(20) dstr_156__CLASS_SOURCE_COM; + struct MELT_OBJECT_STRUCT(8) dobj_157__CLASS_SOURCE_COMMENT; + struct MELT_STRING_STRUCT(20) dstr_158__CLASS_SOURCE_COM; + struct MELT_MULTIPLE_STRUCT(4) dtup_159__CLASS_SOURCE_COMMENT; + struct MELT_MULTIPLE_STRUCT(3) dtup_160__CLASS_SOURCE_COMMENT; + struct MELT_OBJECT_STRUCT(3) dsym_161__SCOMM_STR; + struct MELT_STRING_STRUCT(9) dstr_162__SCOMM_STR; + struct MELT_OBJECT_STRUCT(4) dobj_163__SCOMM_STR; + struct MELT_STRING_STRUCT(9) dstr_164__SCOMM_STR; + struct MELT_OBJECT_STRUCT(3) dsym_165__CLASS_SOURCE_QUOTE; + struct MELT_STRING_STRUCT(18) dstr_166__CLASS_SOURCE_QUO; + struct MELT_OBJECT_STRUCT(8) dobj_167__CLASS_SOURCE_QUOTE; + struct MELT_STRING_STRUCT(18) dstr_168__CLASS_SOURCE_QUO; + struct MELT_MULTIPLE_STRUCT(4) dtup_169__CLASS_SOURCE_QUOTE; + struct MELT_MULTIPLE_STRUCT(3) dtup_170__CLASS_SOURCE_QUOTE; + struct MELT_OBJECT_STRUCT(3) dsym_171__SQUOTED; + struct MELT_STRING_STRUCT(7) dstr_172__SQUOTED; + struct MELT_OBJECT_STRUCT(4) dobj_173__SQUOTED; + struct MELT_STRING_STRUCT(7) dstr_174__SQUOTED; + struct MELT_OBJECT_STRUCT(3) dsym_175__CLASS_SOURCE_EXPORTCOMMON; + struct MELT_STRING_STRUCT(25) dstr_176__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_177__CLASS_SOURCE_EXPORTCOMMON; + struct MELT_STRING_STRUCT(25) dstr_178__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(4) dtup_179__CLASS_SOURCE_EXPORTCOMMON; + struct MELT_MULTIPLE_STRUCT(3) dtup_180__CLASS_SOURCE_EXPORTCOMMON; + struct MELT_OBJECT_STRUCT(3) dsym_181__SEXPORT_NAMES; + struct MELT_STRING_STRUCT(13) dstr_182__SEXPORT_NAMES; + struct MELT_OBJECT_STRUCT(4) dobj_183__SEXPORT_NAMES; + struct MELT_STRING_STRUCT(13) dstr_184__SEXPORT_NAMES; + struct MELT_OBJECT_STRUCT(3) dsym_185__CLASS_SOURCE_EXPORT_VALUES; + struct MELT_STRING_STRUCT(26) dstr_186__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_187__CLASS_SOURCE_EXPORT_VALUES; + struct MELT_STRING_STRUCT(26) dstr_188__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(5) dtup_189__CLASS_SOURCE_EXPORT_VALUES; + struct MELT_MULTIPLE_STRUCT(3) dtup_190__CLASS_SOURCE_EXPORT_VALUES; + struct MELT_OBJECT_STRUCT(3) dsym_191__CLASS_SOURCE_EXPORT_CLASS; + struct MELT_STRING_STRUCT(25) dstr_192__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_193__CLASS_SOURCE_EXPORT_CLASS; + struct MELT_STRING_STRUCT(25) dstr_194__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(5) dtup_195__CLASS_SOURCE_EXPORT_CLASS; + struct MELT_MULTIPLE_STRUCT(3) dtup_196__CLASS_SOURCE_EXPORT_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_197__CLASS_SOURCE_EXPORT_MACRO; + struct MELT_STRING_STRUCT(25) dstr_198__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_199__CLASS_SOURCE_EXPORT_MACRO; + struct MELT_STRING_STRUCT(25) dstr_200__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(4) dtup_201__CLASS_SOURCE_EXPORT_MACRO; + struct MELT_MULTIPLE_STRUCT(5) dtup_202__CLASS_SOURCE_EXPORT_MACRO; + struct MELT_OBJECT_STRUCT(3) dsym_203__SEXPMAC_MNAME; + struct MELT_STRING_STRUCT(13) dstr_204__SEXPMAC_MNAME; + struct MELT_OBJECT_STRUCT(4) dobj_205__SEXPMAC_MNAME; + struct MELT_STRING_STRUCT(13) dstr_206__SEXPMAC_MNAME; + struct MELT_OBJECT_STRUCT(3) dsym_207__SEXPMAC_MVAL; + struct MELT_STRING_STRUCT(12) dstr_208__SEXPMAC_MVAL; + struct MELT_OBJECT_STRUCT(4) dobj_209__SEXPMAC_MVAL; + struct MELT_STRING_STRUCT(12) dstr_210__SEXPMAC_MVAL; + struct MELT_OBJECT_STRUCT(3) dsym_211__SEXPMAC_DOC; + struct MELT_STRING_STRUCT(11) dstr_212__SEXPMAC_DOC; + struct MELT_OBJECT_STRUCT(4) dobj_213__SEXPMAC_DOC; + struct MELT_STRING_STRUCT(11) dstr_214__SEXPMAC_DOC; + struct MELT_OBJECT_STRUCT(3) dsym_215__CLASS_SOURCE_EXPORT_PATMACRO; + struct MELT_STRING_STRUCT(28) dstr_216__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_217__CLASS_SOURCE_EXPORT_PATMACRO; + struct MELT_STRING_STRUCT(28) dstr_218__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(5) dtup_219__CLASS_SOURCE_EXPORT_PATMACRO; + struct MELT_MULTIPLE_STRUCT(6) dtup_220__CLASS_SOURCE_EXPORT_PATMACRO; + struct MELT_OBJECT_STRUCT(3) dsym_221__SEXPPAT_PVAL; + struct MELT_STRING_STRUCT(12) dstr_222__SEXPPAT_PVAL; + struct MELT_OBJECT_STRUCT(4) dobj_223__SEXPPAT_PVAL; + struct MELT_STRING_STRUCT(12) dstr_224__SEXPPAT_PVAL; + struct MELT_OBJECT_STRUCT(3) dsym_225__CLASS_SOURCE_EXPORT_SYNONYM; + struct MELT_STRING_STRUCT(27) dstr_226__CLASS_SOURCE_EXP; + struct MELT_OBJECT_STRUCT(8) dobj_227__CLASS_SOURCE_EXPORT_SYNONYM; + struct MELT_STRING_STRUCT(27) dstr_228__CLASS_SOURCE_EXP; + struct MELT_MULTIPLE_STRUCT(4) dtup_229__CLASS_SOURCE_EXPORT_SYNONYM; + struct MELT_MULTIPLE_STRUCT(5) dtup_230__CLASS_SOURCE_EXPORT_SYNONYM; + struct MELT_OBJECT_STRUCT(3) dsym_231__SEXPSYN_NEWNAME; + struct MELT_STRING_STRUCT(15) dstr_232__SEXPSYN_NEWNAME; + struct MELT_OBJECT_STRUCT(4) dobj_233__SEXPSYN_NEWNAME; + struct MELT_STRING_STRUCT(15) dstr_234__SEXPSYN_NEWNAME; + struct MELT_OBJECT_STRUCT(3) dsym_235__SEXPSYN_OLDNAME; + struct MELT_STRING_STRUCT(15) dstr_236__SEXPSYN_OLDNAME; + struct MELT_OBJECT_STRUCT(4) dobj_237__SEXPSYN_OLDNAME; + struct MELT_STRING_STRUCT(15) dstr_238__SEXPSYN_OLDNAME; + struct MELT_OBJECT_STRUCT(3) dsym_239__SEXPSYN_DOC; + struct MELT_STRING_STRUCT(11) dstr_240__SEXPSYN_DOC; + struct MELT_OBJECT_STRUCT(4) dobj_241__SEXPSYN_DOC; + struct MELT_STRING_STRUCT(11) dstr_242__SEXPSYN_DOC; + struct MELT_OBJECT_STRUCT(3) dsym_243__CLASS_SOURCE_DEFINITION; + struct MELT_STRING_STRUCT(23) dstr_244__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_245__CLASS_SOURCE_DEFINITION; + struct MELT_STRING_STRUCT(23) dstr_246__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(4) dtup_247__CLASS_SOURCE_DEFINITION; + struct MELT_MULTIPLE_STRUCT(4) dtup_248__CLASS_SOURCE_DEFINITION; + struct MELT_OBJECT_STRUCT(3) dsym_249__SDEF_NAME; + struct MELT_STRING_STRUCT(9) dstr_250__SDEF_NAME; + struct MELT_OBJECT_STRUCT(4) dobj_251__SDEF_NAME; + struct MELT_STRING_STRUCT(9) dstr_252__SDEF_NAME; + struct MELT_OBJECT_STRUCT(3) dsym_253__SDEF_DOC; + struct MELT_STRING_STRUCT(8) dstr_254__SDEF_DOC; + struct MELT_OBJECT_STRUCT(4) dobj_255__SDEF_DOC; + struct MELT_STRING_STRUCT(8) dstr_256__SDEF_DOC; + struct MELT_OBJECT_STRUCT(3) dsym_257__CLASS_SOURCE_DEFINE; + struct MELT_STRING_STRUCT(19) dstr_258__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_259__CLASS_SOURCE_DEFINE; + struct MELT_STRING_STRUCT(19) dstr_260__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(5) dtup_261__CLASS_SOURCE_DEFINE; + struct MELT_MULTIPLE_STRUCT(5) dtup_262__CLASS_SOURCE_DEFINE; + struct MELT_OBJECT_STRUCT(3) dsym_263__SDEFINE_EXPR; + struct MELT_STRING_STRUCT(12) dstr_264__SDEFINE_EXPR; + struct MELT_OBJECT_STRUCT(4) dobj_265__SDEFINE_EXPR; + struct MELT_STRING_STRUCT(12) dstr_266__SDEFINE_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_267__CLASS_SOURCE_DEFINITION_FORMAL; + struct MELT_STRING_STRUCT(30) dstr_268__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_269__CLASS_SOURCE_DEFINITION_FORMAL; + struct MELT_STRING_STRUCT(30) dstr_270__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(5) dtup_271__CLASS_SOURCE_DEFINITION_FORMAL; + struct MELT_MULTIPLE_STRUCT(5) dtup_272__CLASS_SOURCE_DEFINITION_FORMAL; + struct MELT_OBJECT_STRUCT(3) dsym_273__SFORMAL_ARGS; + struct MELT_STRING_STRUCT(12) dstr_274__SFORMAL_ARGS; + struct MELT_OBJECT_STRUCT(4) dobj_275__SFORMAL_ARGS; + struct MELT_STRING_STRUCT(12) dstr_276__SFORMAL_ARGS; + struct MELT_OBJECT_STRUCT(3) dsym_277__CLASS_SOURCE_DEFUN; + struct MELT_STRING_STRUCT(18) dstr_278__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_279__CLASS_SOURCE_DEFUN; + struct MELT_STRING_STRUCT(18) dstr_280__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_281__CLASS_SOURCE_DEFUN; + struct MELT_MULTIPLE_STRUCT(6) dtup_282__CLASS_SOURCE_DEFUN; + struct MELT_OBJECT_STRUCT(3) dsym_283__SFUN_BODY; + struct MELT_STRING_STRUCT(9) dstr_284__SFUN_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_285__SFUN_BODY; + struct MELT_STRING_STRUCT(9) dstr_286__SFUN_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_287__CLASS_SOURCE_DEFPRIMITIVE; + struct MELT_STRING_STRUCT(25) dstr_288__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_289__CLASS_SOURCE_DEFPRIMITIVE; + struct MELT_STRING_STRUCT(25) dstr_290__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_291__CLASS_SOURCE_DEFPRIMITIVE; + struct MELT_MULTIPLE_STRUCT(7) dtup_292__CLASS_SOURCE_DEFPRIMITIVE; + struct MELT_OBJECT_STRUCT(3) dsym_293__SPRIM_TYPE; + struct MELT_STRING_STRUCT(10) dstr_294__SPRIM_TYPE; + struct MELT_OBJECT_STRUCT(4) dobj_295__SPRIM_TYPE; + struct MELT_STRING_STRUCT(10) dstr_296__SPRIM_TYPE; + struct MELT_OBJECT_STRUCT(3) dsym_297__SPRIM_EXPANSION; + struct MELT_STRING_STRUCT(15) dstr_298__SPRIM_EXPANSION; + struct MELT_OBJECT_STRUCT(4) dobj_299__SPRIM_EXPANSION; + struct MELT_STRING_STRUCT(15) dstr_300__SPRIM_EXPANSION; + struct MELT_OBJECT_STRUCT(3) dsym_301__CLASS_SOURCE_DEFCITERATOR; + struct MELT_STRING_STRUCT(25) dstr_302__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_303__CLASS_SOURCE_DEFCITERATOR; + struct MELT_STRING_STRUCT(25) dstr_304__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_305__CLASS_SOURCE_DEFCITERATOR; + struct MELT_MULTIPLE_STRUCT(6) dtup_306__CLASS_SOURCE_DEFCITERATOR; + struct MELT_OBJECT_STRUCT(3) dsym_307__SCITERDEF_CITERATOR; + struct MELT_STRING_STRUCT(19) dstr_308__SCITERDEF_CITERA; + struct MELT_OBJECT_STRUCT(4) dobj_309__SCITERDEF_CITERATOR; + struct MELT_STRING_STRUCT(19) dstr_310__SCITERDEF_CITERA; + struct MELT_OBJECT_STRUCT(3) dsym_311__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(24) dstr_312__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_313__CLASS_SOURCE_DEFVARIADIC; + struct MELT_OBJECT_STRUCT(8) dobj_313__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(24) dstr_314__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_315__CLASS_SOURCE_DEFVARIADIC; - struct MELT_MULTIPLE_STRUCT(8) dtup_316__CLASS_SOURCE_DEFVARIADIC; - struct MELT_OBJECT_STRUCT(3) dsym_317__SVARIADIC_INITIAL; - struct MELT_STRING_STRUCT(17) dstr_318__SVARIADIC_INITIA; - struct MELT_OBJECT_STRUCT(4) dobj_319__SVARIADIC_INITIAL; - struct MELT_STRING_STRUCT(17) dstr_320__SVARIADIC_INITIA; - struct MELT_OBJECT_STRUCT(3) dsym_321__SVARIADIC_CTYPEHANDLERMAP; - struct MELT_STRING_STRUCT(25) dstr_322__SVARIADIC_CTYPEH; - struct MELT_OBJECT_STRUCT(4) dobj_323__SVARIADIC_CTYPEHANDLERMAP; - struct MELT_STRING_STRUCT(25) dstr_324__SVARIADIC_CTYPEH; - struct MELT_OBJECT_STRUCT(3) dsym_325__SVARIADIC_FINAL; - struct MELT_STRING_STRUCT(15) dstr_326__SVARIADIC_FINAL; - struct MELT_OBJECT_STRUCT(4) dobj_327__SVARIADIC_FINAL; - struct MELT_STRING_STRUCT(15) dstr_328__SVARIADIC_FINAL; - struct MELT_OBJECT_STRUCT(3) dsym_329__CLASS_SOURCE_DEFCITERATOR; - struct MELT_STRING_STRUCT(25) dstr_330__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_331__CLASS_SOURCE_DEFCITERATOR; - struct MELT_STRING_STRUCT(25) dstr_332__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_333__CLASS_SOURCE_DEFCITERATOR; - struct MELT_MULTIPLE_STRUCT(6) dtup_334__CLASS_SOURCE_DEFCITERATOR; - struct MELT_OBJECT_STRUCT(3) dsym_335__SCITERDEF_CITERATOR; - struct MELT_STRING_STRUCT(19) dstr_336__SCITERDEF_CITERA; - struct MELT_OBJECT_STRUCT(4) dobj_337__SCITERDEF_CITERATOR; - struct MELT_STRING_STRUCT(19) dstr_338__SCITERDEF_CITERA; - struct MELT_OBJECT_STRUCT(3) dsym_339__CLASS_SOURCE_DEFCMATCHER; - struct MELT_STRING_STRUCT(24) dstr_340__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_341__CLASS_SOURCE_DEFCMATCHER; - struct MELT_STRING_STRUCT(24) dstr_342__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_343__CLASS_SOURCE_DEFCMATCHER; - struct MELT_MULTIPLE_STRUCT(6) dtup_344__CLASS_SOURCE_DEFCMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_345__SCMATDEF_CMATCHER; - struct MELT_STRING_STRUCT(17) dstr_346__SCMATDEF_CMATCHE; - struct MELT_OBJECT_STRUCT(4) dobj_347__SCMATDEF_CMATCHER; - struct MELT_STRING_STRUCT(17) dstr_348__SCMATDEF_CMATCHE; - struct MELT_OBJECT_STRUCT(3) dsym_349__CLASS_SOURCE_DEFUNMATCHER; + struct MELT_MULTIPLE_STRUCT(6) dtup_315__CLASS_SOURCE_DEFCMATCHER; + struct MELT_MULTIPLE_STRUCT(6) dtup_316__CLASS_SOURCE_DEFCMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_317__SCMATDEF_CMATCHER; + struct MELT_STRING_STRUCT(17) dstr_318__SCMATDEF_CMATCHE; + struct MELT_OBJECT_STRUCT(4) dobj_319__SCMATDEF_CMATCHER; + struct MELT_STRING_STRUCT(17) dstr_320__SCMATDEF_CMATCHE; + struct MELT_OBJECT_STRUCT(3) dsym_321__CLASS_SOURCE_DEFUNMATCHER; + struct MELT_STRING_STRUCT(25) dstr_322__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_323__CLASS_SOURCE_DEFUNMATCHER; + struct MELT_STRING_STRUCT(25) dstr_324__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_325__CLASS_SOURCE_DEFUNMATCHER; + struct MELT_MULTIPLE_STRUCT(10) dtup_326__CLASS_SOURCE_DEFUNMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_327__SFUMATDEF_INS; + struct MELT_STRING_STRUCT(13) dstr_328__SFUMATDEF_INS; + struct MELT_OBJECT_STRUCT(4) dobj_329__SFUMATDEF_INS; + struct MELT_STRING_STRUCT(13) dstr_330__SFUMATDEF_INS; + struct MELT_OBJECT_STRUCT(3) dsym_331__SFUMATDEF_OUTS; + struct MELT_STRING_STRUCT(14) dstr_332__SFUMATDEF_OUTS; + struct MELT_OBJECT_STRUCT(4) dobj_333__SFUMATDEF_OUTS; + struct MELT_STRING_STRUCT(14) dstr_334__SFUMATDEF_OUTS; + struct MELT_OBJECT_STRUCT(3) dsym_335__SFUMATDEF_MATCHF; + struct MELT_STRING_STRUCT(16) dstr_336__SFUMATDEF_MATCHF; + struct MELT_OBJECT_STRUCT(4) dobj_337__SFUMATDEF_MATCHF; + struct MELT_STRING_STRUCT(16) dstr_338__SFUMATDEF_MATCHF; + struct MELT_OBJECT_STRUCT(3) dsym_339__SFUMATDEF_APPLYF; + struct MELT_STRING_STRUCT(16) dstr_340__SFUMATDEF_APPLYF; + struct MELT_OBJECT_STRUCT(4) dobj_341__SFUMATDEF_APPLYF; + struct MELT_STRING_STRUCT(16) dstr_342__SFUMATDEF_APPLYF; + struct MELT_OBJECT_STRUCT(3) dsym_343__SFUMATDEF_DATA; + struct MELT_STRING_STRUCT(14) dstr_344__SFUMATDEF_DATA; + struct MELT_OBJECT_STRUCT(4) dobj_345__SFUMATDEF_DATA; + struct MELT_STRING_STRUCT(14) dstr_346__SFUMATDEF_DATA; + struct MELT_OBJECT_STRUCT(3) dsym_347__CLASS_SOURCE_DEFOBJCOMMON; + struct MELT_STRING_STRUCT(25) dstr_348__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_349__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_STRING_STRUCT(25) dstr_350__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_351__CLASS_SOURCE_DEFUNMATCHER; - struct MELT_STRING_STRUCT(25) dstr_352__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_353__CLASS_SOURCE_DEFUNMATCHER; - struct MELT_MULTIPLE_STRUCT(10) dtup_354__CLASS_SOURCE_DEFUNMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_355__SFUMATDEF_INS; - struct MELT_STRING_STRUCT(13) dstr_356__SFUMATDEF_INS; - struct MELT_OBJECT_STRUCT(4) dobj_357__SFUMATDEF_INS; - struct MELT_STRING_STRUCT(13) dstr_358__SFUMATDEF_INS; - struct MELT_OBJECT_STRUCT(3) dsym_359__SFUMATDEF_OUTS; - struct MELT_STRING_STRUCT(14) dstr_360__SFUMATDEF_OUTS; - struct MELT_OBJECT_STRUCT(4) dobj_361__SFUMATDEF_OUTS; - struct MELT_STRING_STRUCT(14) dstr_362__SFUMATDEF_OUTS; - struct MELT_OBJECT_STRUCT(3) dsym_363__SFUMATDEF_MATCHF; - struct MELT_STRING_STRUCT(16) dstr_364__SFUMATDEF_MATCHF; - struct MELT_OBJECT_STRUCT(4) dobj_365__SFUMATDEF_MATCHF; - struct MELT_STRING_STRUCT(16) dstr_366__SFUMATDEF_MATCHF; - struct MELT_OBJECT_STRUCT(3) dsym_367__SFUMATDEF_APPLYF; - struct MELT_STRING_STRUCT(16) dstr_368__SFUMATDEF_APPLYF; - struct MELT_OBJECT_STRUCT(4) dobj_369__SFUMATDEF_APPLYF; - struct MELT_STRING_STRUCT(16) dstr_370__SFUMATDEF_APPLYF; - struct MELT_OBJECT_STRUCT(3) dsym_371__SFUMATDEF_DATA; - struct MELT_STRING_STRUCT(14) dstr_372__SFUMATDEF_DATA; - struct MELT_OBJECT_STRUCT(4) dobj_373__SFUMATDEF_DATA; - struct MELT_STRING_STRUCT(14) dstr_374__SFUMATDEF_DATA; - struct MELT_OBJECT_STRUCT(3) dsym_375__CLASS_SOURCE_DEFOBJCOMMON; - struct MELT_STRING_STRUCT(25) dstr_376__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_377__CLASS_SOURCE_DEFOBJCOMMON; - struct MELT_STRING_STRUCT(25) dstr_378__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(5) dtup_379__CLASS_SOURCE_DEFOBJCOMMON; - struct MELT_MULTIPLE_STRUCT(5) dtup_380__CLASS_SOURCE_DEFOBJCOMMON; - struct MELT_OBJECT_STRUCT(3) dsym_381__SOBJ_PREDEF; - struct MELT_STRING_STRUCT(11) dstr_382__SOBJ_PREDEF; - struct MELT_OBJECT_STRUCT(4) dobj_383__SOBJ_PREDEF; - struct MELT_STRING_STRUCT(11) dstr_384__SOBJ_PREDEF; - struct MELT_OBJECT_STRUCT(3) dsym_385__CLASS_SOURCE_DEFCLASS; - struct MELT_STRING_STRUCT(21) dstr_386__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_387__CLASS_SOURCE_DEFCLASS; - struct MELT_STRING_STRUCT(21) dstr_388__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_389__CLASS_SOURCE_DEFCLASS; - struct MELT_MULTIPLE_STRUCT(8) dtup_390__CLASS_SOURCE_DEFCLASS; - struct MELT_OBJECT_STRUCT(3) dsym_391__SCLASS_CLABIND; - struct MELT_STRING_STRUCT(14) dstr_392__SCLASS_CLABIND; - struct MELT_OBJECT_STRUCT(4) dobj_393__SCLASS_CLABIND; - struct MELT_STRING_STRUCT(14) dstr_394__SCLASS_CLABIND; - struct MELT_OBJECT_STRUCT(3) dsym_395__SCLASS_SUPERBIND; - struct MELT_STRING_STRUCT(16) dstr_396__SCLASS_SUPERBIND; - struct MELT_OBJECT_STRUCT(4) dobj_397__SCLASS_SUPERBIND; - struct MELT_STRING_STRUCT(16) dstr_398__SCLASS_SUPERBIND; - struct MELT_OBJECT_STRUCT(3) dsym_399__SCLASS_FLDBINDS; - struct MELT_STRING_STRUCT(15) dstr_400__SCLASS_FLDBINDS; - struct MELT_OBJECT_STRUCT(4) dobj_401__SCLASS_FLDBINDS; - struct MELT_STRING_STRUCT(15) dstr_402__SCLASS_FLDBINDS; - struct MELT_OBJECT_STRUCT(3) dsym_403__CLASS_SOURCE_DEFINSTANCE; - struct MELT_STRING_STRUCT(24) dstr_404__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_405__CLASS_SOURCE_DEFINSTANCE; - struct MELT_STRING_STRUCT(24) dstr_406__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(6) dtup_407__CLASS_SOURCE_DEFINSTANCE; - struct MELT_MULTIPLE_STRUCT(9) dtup_408__CLASS_SOURCE_DEFINSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_409__SINST_CLASS; - struct MELT_STRING_STRUCT(11) dstr_410__SINST_CLASS; - struct MELT_OBJECT_STRUCT(4) dobj_411__SINST_CLASS; - struct MELT_STRING_STRUCT(11) dstr_412__SINST_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_413__SINST_CLABIND; - struct MELT_STRING_STRUCT(13) dstr_414__SINST_CLABIND; - struct MELT_OBJECT_STRUCT(4) dobj_415__SINST_CLABIND; - struct MELT_STRING_STRUCT(13) dstr_416__SINST_CLABIND; - struct MELT_OBJECT_STRUCT(3) dsym_417__SINST_OBJNUM; - struct MELT_STRING_STRUCT(12) dstr_418__SINST_OBJNUM; - struct MELT_OBJECT_STRUCT(4) dobj_419__SINST_OBJNUM; - struct MELT_STRING_STRUCT(12) dstr_420__SINST_OBJNUM; - struct MELT_OBJECT_STRUCT(3) dsym_421__SINST_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_422__SINST_FIELDS; - struct MELT_OBJECT_STRUCT(4) dobj_423__SINST_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_424__SINST_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_425__CLASS_SOURCE_DEFSELECTOR; - struct MELT_STRING_STRUCT(24) dstr_426__CLASS_SOURCE_DEF; - struct MELT_OBJECT_STRUCT(8) dobj_427__CLASS_SOURCE_DEFSELECTOR; - struct MELT_STRING_STRUCT(24) dstr_428__CLASS_SOURCE_DEF; - struct MELT_MULTIPLE_STRUCT(7) dtup_429__CLASS_SOURCE_DEFSELECTOR; - struct MELT_MULTIPLE_STRUCT(10) dtup_430__CLASS_SOURCE_DEFSELECTOR; - struct MELT_OBJECT_STRUCT(3) dsym_431__SDEFSEL_FORMALS; - struct MELT_STRING_STRUCT(15) dstr_432__SDEFSEL_FORMALS; - struct MELT_OBJECT_STRUCT(4) dobj_433__SDEFSEL_FORMALS; - struct MELT_STRING_STRUCT(15) dstr_434__SDEFSEL_FORMALS; - struct MELT_OBJECT_STRUCT(3) dsym_435__CLASS_SOURCE_FIELDASSIGN; - struct MELT_STRING_STRUCT(24) dstr_436__CLASS_SOURCE_FIE; - struct MELT_OBJECT_STRUCT(8) dobj_437__CLASS_SOURCE_FIELDASSIGN; - struct MELT_STRING_STRUCT(24) dstr_438__CLASS_SOURCE_FIE; - struct MELT_MULTIPLE_STRUCT(4) dtup_439__CLASS_SOURCE_FIELDASSIGN; - struct MELT_MULTIPLE_STRUCT(4) dtup_440__CLASS_SOURCE_FIELDASSIGN; - struct MELT_OBJECT_STRUCT(3) dsym_441__SFLA_FIELD; - struct MELT_STRING_STRUCT(10) dstr_442__SFLA_FIELD; - struct MELT_OBJECT_STRUCT(4) dobj_443__SFLA_FIELD; - struct MELT_STRING_STRUCT(10) dstr_444__SFLA_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_445__SFLA_EXPR; - struct MELT_STRING_STRUCT(9) dstr_446__SFLA_EXPR; - struct MELT_OBJECT_STRUCT(4) dobj_447__SFLA_EXPR; - struct MELT_STRING_STRUCT(9) dstr_448__SFLA_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_449__CLASS_SOURCE_INSTANCE; - struct MELT_STRING_STRUCT(21) dstr_450__CLASS_SOURCE_INS; - struct MELT_OBJECT_STRUCT(8) dobj_451__CLASS_SOURCE_INSTANCE; - struct MELT_STRING_STRUCT(21) dstr_452__CLASS_SOURCE_INS; - struct MELT_MULTIPLE_STRUCT(4) dtup_453__CLASS_SOURCE_INSTANCE; - struct MELT_MULTIPLE_STRUCT(5) dtup_454__CLASS_SOURCE_INSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_455__SMINS_CLASS; - struct MELT_STRING_STRUCT(11) dstr_456__SMINS_CLASS; - struct MELT_OBJECT_STRUCT(4) dobj_457__SMINS_CLASS; - struct MELT_STRING_STRUCT(11) dstr_458__SMINS_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_459__SMINS_CLABIND; - struct MELT_STRING_STRUCT(13) dstr_460__SMINS_CLABIND; - struct MELT_OBJECT_STRUCT(4) dobj_461__SMINS_CLABIND; - struct MELT_STRING_STRUCT(13) dstr_462__SMINS_CLABIND; - struct MELT_OBJECT_STRUCT(3) dsym_463__SMINS_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_464__SMINS_FIELDS; - struct MELT_OBJECT_STRUCT(4) dobj_465__SMINS_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_466__SMINS_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_467__CLASS_SOURCE_GET_FIELD; - struct MELT_STRING_STRUCT(22) dstr_468__CLASS_SOURCE_GET; - struct MELT_OBJECT_STRUCT(8) dobj_469__CLASS_SOURCE_GET_FIELD; - struct MELT_STRING_STRUCT(22) dstr_470__CLASS_SOURCE_GET; - struct MELT_MULTIPLE_STRUCT(4) dtup_471__CLASS_SOURCE_GET_FIELD; - struct MELT_MULTIPLE_STRUCT(4) dtup_472__CLASS_SOURCE_GET_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_473__SUGET_OBJ; - struct MELT_STRING_STRUCT(9) dstr_474__SUGET_OBJ; - struct MELT_OBJECT_STRUCT(4) dobj_475__SUGET_OBJ; - struct MELT_STRING_STRUCT(9) dstr_476__SUGET_OBJ; - struct MELT_OBJECT_STRUCT(3) dsym_477__SUGET_FIELD; - struct MELT_STRING_STRUCT(11) dstr_478__SUGET_FIELD; - struct MELT_OBJECT_STRUCT(4) dobj_479__SUGET_FIELD; - struct MELT_STRING_STRUCT(11) dstr_480__SUGET_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD; - struct MELT_STRING_STRUCT(29) dstr_482__CLASS_SOURCE_UNS; - struct MELT_OBJECT_STRUCT(8) dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD; - struct MELT_STRING_STRUCT(29) dstr_484__CLASS_SOURCE_UNS; - struct MELT_MULTIPLE_STRUCT(5) dtup_485__CLASS_SOURCE_UNSAFE_GET_FIELD; - struct MELT_MULTIPLE_STRUCT(4) dtup_486__CLASS_SOURCE_UNSAFE_GET_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_487__CLASS_SOURCE_PUT_FIELDS; - struct MELT_STRING_STRUCT(23) dstr_488__CLASS_SOURCE_PUT; - struct MELT_OBJECT_STRUCT(8) dobj_489__CLASS_SOURCE_PUT_FIELDS; - struct MELT_STRING_STRUCT(23) dstr_490__CLASS_SOURCE_PUT; - struct MELT_MULTIPLE_STRUCT(4) dtup_491__CLASS_SOURCE_PUT_FIELDS; - struct MELT_MULTIPLE_STRUCT(4) dtup_492__CLASS_SOURCE_PUT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_493__SUPUT_OBJ; - struct MELT_STRING_STRUCT(9) dstr_494__SUPUT_OBJ; - struct MELT_OBJECT_STRUCT(4) dobj_495__SUPUT_OBJ; - struct MELT_STRING_STRUCT(9) dstr_496__SUPUT_OBJ; - struct MELT_OBJECT_STRUCT(3) dsym_497__SUPUT_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_498__SUPUT_FIELDS; - struct MELT_OBJECT_STRUCT(4) dobj_499__SUPUT_FIELDS; - struct MELT_STRING_STRUCT(12) dstr_500__SUPUT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - struct MELT_STRING_STRUCT(30) dstr_502__CLASS_SOURCE_UNS; - struct MELT_OBJECT_STRUCT(8) dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - struct MELT_STRING_STRUCT(30) dstr_504__CLASS_SOURCE_UNS; - struct MELT_MULTIPLE_STRUCT(5) dtup_505__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - struct MELT_MULTIPLE_STRUCT(4) dtup_506__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_507__CLASS_SOURCE_IF; - struct MELT_STRING_STRUCT(15) dstr_508__CLASS_SOURCE_IF; - struct MELT_OBJECT_STRUCT(8) dobj_509__CLASS_SOURCE_IF; - struct MELT_STRING_STRUCT(15) dstr_510__CLASS_SOURCE_IF; - struct MELT_MULTIPLE_STRUCT(4) dtup_511__CLASS_SOURCE_IF; - struct MELT_MULTIPLE_STRUCT(4) dtup_512__CLASS_SOURCE_IF; - struct MELT_OBJECT_STRUCT(3) dsym_513__SIF_TEST; - struct MELT_STRING_STRUCT(8) dstr_514__SIF_TEST; - struct MELT_OBJECT_STRUCT(4) dobj_515__SIF_TEST; - struct MELT_STRING_STRUCT(8) dstr_516__SIF_TEST; - struct MELT_OBJECT_STRUCT(3) dsym_517__SIF_THEN; - struct MELT_STRING_STRUCT(8) dstr_518__SIF_THEN; - struct MELT_OBJECT_STRUCT(4) dobj_519__SIF_THEN; - struct MELT_STRING_STRUCT(8) dstr_520__SIF_THEN; - struct MELT_OBJECT_STRUCT(3) dsym_521__CLASS_SOURCE_IFELSE; - struct MELT_STRING_STRUCT(19) dstr_522__CLASS_SOURCE_IFE; - struct MELT_OBJECT_STRUCT(8) dobj_523__CLASS_SOURCE_IFELSE; - struct MELT_STRING_STRUCT(19) dstr_524__CLASS_SOURCE_IFE; - struct MELT_MULTIPLE_STRUCT(5) dtup_525__CLASS_SOURCE_IFELSE; - struct MELT_MULTIPLE_STRUCT(5) dtup_526__CLASS_SOURCE_IFELSE; - struct MELT_OBJECT_STRUCT(3) dsym_527__SIF_ELSE; - struct MELT_STRING_STRUCT(8) dstr_528__SIF_ELSE; - struct MELT_OBJECT_STRUCT(4) dobj_529__SIF_ELSE; - struct MELT_STRING_STRUCT(8) dstr_530__SIF_ELSE; - struct MELT_OBJECT_STRUCT(3) dsym_531__CLASS_SOURCE_OR; - struct MELT_STRING_STRUCT(15) dstr_532__CLASS_SOURCE_OR; - struct MELT_OBJECT_STRUCT(8) dobj_533__CLASS_SOURCE_OR; - struct MELT_STRING_STRUCT(15) dstr_534__CLASS_SOURCE_OR; - struct MELT_MULTIPLE_STRUCT(4) dtup_535__CLASS_SOURCE_OR; - struct MELT_MULTIPLE_STRUCT(3) dtup_536__CLASS_SOURCE_OR; - struct MELT_OBJECT_STRUCT(3) dsym_537__SOR_DISJ; - struct MELT_STRING_STRUCT(8) dstr_538__SOR_DISJ; - struct MELT_OBJECT_STRUCT(4) dobj_539__SOR_DISJ; - struct MELT_STRING_STRUCT(8) dstr_540__SOR_DISJ; - struct MELT_OBJECT_STRUCT(3) dsym_541__CLASS_SOURCE_CPPIF; - struct MELT_STRING_STRUCT(18) dstr_542__CLASS_SOURCE_CPP; - struct MELT_OBJECT_STRUCT(8) dobj_543__CLASS_SOURCE_CPPIF; - struct MELT_STRING_STRUCT(18) dstr_544__CLASS_SOURCE_CPP; - struct MELT_MULTIPLE_STRUCT(4) dtup_545__CLASS_SOURCE_CPPIF; - struct MELT_MULTIPLE_STRUCT(5) dtup_546__CLASS_SOURCE_CPPIF; - struct MELT_OBJECT_STRUCT(3) dsym_547__SIFP_COND; - struct MELT_STRING_STRUCT(9) dstr_548__SIFP_COND; - struct MELT_OBJECT_STRUCT(4) dobj_549__SIFP_COND; - struct MELT_STRING_STRUCT(9) dstr_550__SIFP_COND; - struct MELT_OBJECT_STRUCT(3) dsym_551__SIFP_THEN; - struct MELT_STRING_STRUCT(9) dstr_552__SIFP_THEN; - struct MELT_OBJECT_STRUCT(4) dobj_553__SIFP_THEN; - struct MELT_STRING_STRUCT(9) dstr_554__SIFP_THEN; - struct MELT_OBJECT_STRUCT(3) dsym_555__SIFP_ELSE; - struct MELT_STRING_STRUCT(9) dstr_556__SIFP_ELSE; - struct MELT_OBJECT_STRUCT(4) dobj_557__SIFP_ELSE; - struct MELT_STRING_STRUCT(9) dstr_558__SIFP_ELSE; - struct MELT_OBJECT_STRUCT(3) dsym_559__CLASS_SOURCE_MATCH; - struct MELT_STRING_STRUCT(18) dstr_560__CLASS_SOURCE_MAT; - struct MELT_OBJECT_STRUCT(8) dobj_561__CLASS_SOURCE_MATCH; - struct MELT_STRING_STRUCT(18) dstr_562__CLASS_SOURCE_MAT; - struct MELT_MULTIPLE_STRUCT(4) dtup_563__CLASS_SOURCE_MATCH; - struct MELT_MULTIPLE_STRUCT(4) dtup_564__CLASS_SOURCE_MATCH; - struct MELT_OBJECT_STRUCT(3) dsym_565__SMAT_MATCHEDX; - struct MELT_STRING_STRUCT(13) dstr_566__SMAT_MATCHEDX; - struct MELT_OBJECT_STRUCT(4) dobj_567__SMAT_MATCHEDX; - struct MELT_STRING_STRUCT(13) dstr_568__SMAT_MATCHEDX; - struct MELT_OBJECT_STRUCT(3) dsym_569__SMAT_CASES; - struct MELT_STRING_STRUCT(10) dstr_570__SMAT_CASES; - struct MELT_OBJECT_STRUCT(4) dobj_571__SMAT_CASES; - struct MELT_STRING_STRUCT(10) dstr_572__SMAT_CASES; - struct MELT_OBJECT_STRUCT(3) dsym_573__CLASS_SOURCE_MATCH_CASE; - struct MELT_STRING_STRUCT(23) dstr_574__CLASS_SOURCE_MAT; - struct MELT_OBJECT_STRUCT(8) dobj_575__CLASS_SOURCE_MATCH_CASE; - struct MELT_STRING_STRUCT(23) dstr_576__CLASS_SOURCE_MAT; - struct MELT_MULTIPLE_STRUCT(4) dtup_577__CLASS_SOURCE_MATCH_CASE; - struct MELT_MULTIPLE_STRUCT(4) dtup_578__CLASS_SOURCE_MATCH_CASE; - struct MELT_OBJECT_STRUCT(3) dsym_579__SCAM_PATT; - struct MELT_STRING_STRUCT(9) dstr_580__SCAM_PATT; - struct MELT_OBJECT_STRUCT(4) dobj_581__SCAM_PATT; - struct MELT_STRING_STRUCT(9) dstr_582__SCAM_PATT; - struct MELT_OBJECT_STRUCT(3) dsym_583__SCAM_BODY; - struct MELT_STRING_STRUCT(9) dstr_584__SCAM_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_585__SCAM_BODY; - struct MELT_STRING_STRUCT(9) dstr_586__SCAM_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_587__CLASS_SOURCE_LET_BINDING; - struct MELT_STRING_STRUCT(24) dstr_588__CLASS_SOURCE_LET; - struct MELT_OBJECT_STRUCT(8) dobj_589__CLASS_SOURCE_LET_BINDING; - struct MELT_STRING_STRUCT(24) dstr_590__CLASS_SOURCE_LET; - struct MELT_MULTIPLE_STRUCT(4) dtup_591__CLASS_SOURCE_LET_BINDING; - struct MELT_MULTIPLE_STRUCT(5) dtup_592__CLASS_SOURCE_LET_BINDING; - struct MELT_OBJECT_STRUCT(3) dsym_593__SLETB_TYPE; - struct MELT_STRING_STRUCT(10) dstr_594__SLETB_TYPE; - struct MELT_OBJECT_STRUCT(4) dobj_595__SLETB_TYPE; - struct MELT_STRING_STRUCT(10) dstr_596__SLETB_TYPE; - struct MELT_OBJECT_STRUCT(3) dsym_597__SLETB_BINDER; - struct MELT_STRING_STRUCT(12) dstr_598__SLETB_BINDER; - struct MELT_OBJECT_STRUCT(4) dobj_599__SLETB_BINDER; - struct MELT_STRING_STRUCT(12) dstr_600__SLETB_BINDER; - struct MELT_OBJECT_STRUCT(3) dsym_601__SLETB_EXPR; - struct MELT_STRING_STRUCT(10) dstr_602__SLETB_EXPR; - struct MELT_OBJECT_STRUCT(4) dobj_603__SLETB_EXPR; - struct MELT_STRING_STRUCT(10) dstr_604__SLETB_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_605__CLASS_SOURCE_LETREC_BINDING; - struct MELT_STRING_STRUCT(27) dstr_606__CLASS_SOURCE_LET; - struct MELT_OBJECT_STRUCT(8) dobj_607__CLASS_SOURCE_LETREC_BINDING; - struct MELT_STRING_STRUCT(27) dstr_608__CLASS_SOURCE_LET; - struct MELT_MULTIPLE_STRUCT(5) dtup_609__CLASS_SOURCE_LETREC_BINDING; - struct MELT_MULTIPLE_STRUCT(5) dtup_610__CLASS_SOURCE_LETREC_BINDING; - struct MELT_OBJECT_STRUCT(3) dsym_611__CLASS_SOURCE_LET; - struct MELT_STRING_STRUCT(16) dstr_612__CLASS_SOURCE_LET; - struct MELT_OBJECT_STRUCT(8) dobj_613__CLASS_SOURCE_LET; - struct MELT_STRING_STRUCT(16) dstr_614__CLASS_SOURCE_LET; - struct MELT_MULTIPLE_STRUCT(4) dtup_615__CLASS_SOURCE_LET; - struct MELT_MULTIPLE_STRUCT(4) dtup_616__CLASS_SOURCE_LET; - struct MELT_OBJECT_STRUCT(3) dsym_617__SLET_BINDINGS; - struct MELT_STRING_STRUCT(13) dstr_618__SLET_BINDINGS; - struct MELT_OBJECT_STRUCT(4) dobj_619__SLET_BINDINGS; - struct MELT_STRING_STRUCT(13) dstr_620__SLET_BINDINGS; - struct MELT_OBJECT_STRUCT(3) dsym_621__SLET_BODY; - struct MELT_STRING_STRUCT(9) dstr_622__SLET_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_623__SLET_BODY; - struct MELT_STRING_STRUCT(9) dstr_624__SLET_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_625__CLASS_SOURCE_LETREC; - struct MELT_STRING_STRUCT(19) dstr_626__CLASS_SOURCE_LET; - struct MELT_OBJECT_STRUCT(8) dobj_627__CLASS_SOURCE_LETREC; - struct MELT_STRING_STRUCT(19) dstr_628__CLASS_SOURCE_LET; - struct MELT_MULTIPLE_STRUCT(5) dtup_629__CLASS_SOURCE_LETREC; - struct MELT_MULTIPLE_STRUCT(4) dtup_630__CLASS_SOURCE_LETREC; - struct MELT_OBJECT_STRUCT(3) dsym_631__CLASS_SOURCE_LAMBDA; - struct MELT_STRING_STRUCT(19) dstr_632__CLASS_SOURCE_LAM; - struct MELT_OBJECT_STRUCT(8) dobj_633__CLASS_SOURCE_LAMBDA; - struct MELT_STRING_STRUCT(19) dstr_634__CLASS_SOURCE_LAM; - struct MELT_MULTIPLE_STRUCT(4) dtup_635__CLASS_SOURCE_LAMBDA; - struct MELT_MULTIPLE_STRUCT(4) dtup_636__CLASS_SOURCE_LAMBDA; - struct MELT_OBJECT_STRUCT(3) dsym_637__SLAM_ARGBIND; - struct MELT_STRING_STRUCT(12) dstr_638__SLAM_ARGBIND; - struct MELT_OBJECT_STRUCT(4) dobj_639__SLAM_ARGBIND; - struct MELT_STRING_STRUCT(12) dstr_640__SLAM_ARGBIND; - struct MELT_OBJECT_STRUCT(3) dsym_641__SLAM_BODY; - struct MELT_STRING_STRUCT(9) dstr_642__SLAM_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_643__SLAM_BODY; - struct MELT_STRING_STRUCT(9) dstr_644__SLAM_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_645__CLASS_SOURCE_MULTICALL; - struct MELT_STRING_STRUCT(22) dstr_646__CLASS_SOURCE_MUL; - struct MELT_OBJECT_STRUCT(8) dobj_647__CLASS_SOURCE_MULTICALL; - struct MELT_STRING_STRUCT(22) dstr_648__CLASS_SOURCE_MUL; - struct MELT_MULTIPLE_STRUCT(4) dtup_649__CLASS_SOURCE_MULTICALL; - struct MELT_MULTIPLE_STRUCT(5) dtup_650__CLASS_SOURCE_MULTICALL; - struct MELT_OBJECT_STRUCT(3) dsym_651__SMULC_RESBIND; - struct MELT_STRING_STRUCT(13) dstr_652__SMULC_RESBIND; - struct MELT_OBJECT_STRUCT(4) dobj_653__SMULC_RESBIND; - struct MELT_STRING_STRUCT(13) dstr_654__SMULC_RESBIND; - struct MELT_OBJECT_STRUCT(3) dsym_655__SMULC_CALL; - struct MELT_STRING_STRUCT(10) dstr_656__SMULC_CALL; - struct MELT_OBJECT_STRUCT(4) dobj_657__SMULC_CALL; - struct MELT_STRING_STRUCT(10) dstr_658__SMULC_CALL; - struct MELT_OBJECT_STRUCT(3) dsym_659__SMULC_BODY; - struct MELT_STRING_STRUCT(10) dstr_660__SMULC_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_661__SMULC_BODY; - struct MELT_STRING_STRUCT(10) dstr_662__SMULC_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_663__CLASS_SOURCE_LABELLED; - struct MELT_STRING_STRUCT(21) dstr_664__CLASS_SOURCE_LAB; - struct MELT_OBJECT_STRUCT(8) dobj_665__CLASS_SOURCE_LABELLED; - struct MELT_STRING_STRUCT(21) dstr_666__CLASS_SOURCE_LAB; - struct MELT_MULTIPLE_STRUCT(4) dtup_667__CLASS_SOURCE_LABELLED; - struct MELT_MULTIPLE_STRUCT(3) dtup_668__CLASS_SOURCE_LABELLED; - struct MELT_OBJECT_STRUCT(3) dsym_669__SLABEL_BIND; - struct MELT_STRING_STRUCT(11) dstr_670__SLABEL_BIND; - struct MELT_OBJECT_STRUCT(4) dobj_671__SLABEL_BIND; - struct MELT_STRING_STRUCT(11) dstr_672__SLABEL_BIND; - struct MELT_OBJECT_STRUCT(3) dsym_673__CLASS_SOURCE_FOREVER; - struct MELT_STRING_STRUCT(20) dstr_674__CLASS_SOURCE_FOR; - struct MELT_OBJECT_STRUCT(8) dobj_675__CLASS_SOURCE_FOREVER; - struct MELT_STRING_STRUCT(20) dstr_676__CLASS_SOURCE_FOR; - struct MELT_MULTIPLE_STRUCT(5) dtup_677__CLASS_SOURCE_FOREVER; - struct MELT_MULTIPLE_STRUCT(4) dtup_678__CLASS_SOURCE_FOREVER; - struct MELT_OBJECT_STRUCT(3) dsym_679__SFRV_BODY; - struct MELT_STRING_STRUCT(9) dstr_680__SFRV_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_681__SFRV_BODY; - struct MELT_STRING_STRUCT(9) dstr_682__SFRV_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_683__CLASS_SOURCE_EXIT; - struct MELT_STRING_STRUCT(17) dstr_684__CLASS_SOURCE_EXI; - struct MELT_OBJECT_STRUCT(8) dobj_685__CLASS_SOURCE_EXIT; - struct MELT_STRING_STRUCT(17) dstr_686__CLASS_SOURCE_EXI; - struct MELT_MULTIPLE_STRUCT(5) dtup_687__CLASS_SOURCE_EXIT; - struct MELT_MULTIPLE_STRUCT(4) dtup_688__CLASS_SOURCE_EXIT; - struct MELT_OBJECT_STRUCT(3) dsym_689__SEXI_BODY; - struct MELT_STRING_STRUCT(9) dstr_690__SEXI_BODY; - struct MELT_OBJECT_STRUCT(4) dobj_691__SEXI_BODY; - struct MELT_STRING_STRUCT(9) dstr_692__SEXI_BODY; - struct MELT_OBJECT_STRUCT(3) dsym_693__CLASS_SOURCE_COMPILEWARNING; - struct MELT_STRING_STRUCT(27) dstr_694__CLASS_SOURCE_COM; - struct MELT_OBJECT_STRUCT(8) dobj_695__CLASS_SOURCE_COMPILEWARNING; - struct MELT_STRING_STRUCT(27) dstr_696__CLASS_SOURCE_COM; - struct MELT_MULTIPLE_STRUCT(4) dtup_697__CLASS_SOURCE_COMPILEWARNING; - struct MELT_MULTIPLE_STRUCT(4) dtup_698__CLASS_SOURCE_COMPILEWARNING; - struct MELT_OBJECT_STRUCT(3) dsym_699__SCWARN_MSG; - struct MELT_STRING_STRUCT(10) dstr_700__SCWARN_MSG; - struct MELT_OBJECT_STRUCT(4) dobj_701__SCWARN_MSG; - struct MELT_STRING_STRUCT(10) dstr_702__SCWARN_MSG; - struct MELT_OBJECT_STRUCT(3) dsym_703__SCWARN_EXPR; - struct MELT_STRING_STRUCT(11) dstr_704__SCWARN_EXPR; - struct MELT_OBJECT_STRUCT(4) dobj_705__SCWARN_EXPR; - struct MELT_STRING_STRUCT(11) dstr_706__SCWARN_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(49) dstr_708__CLASS_SOURCE_CUR; - struct MELT_OBJECT_STRUCT(8) dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(49) dstr_710__CLASS_SOURCE_CUR; - struct MELT_MULTIPLE_STRUCT(4) dtup_711__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_MULTIPLE_STRUCT(3) dtup_712__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_713__CMEC_COMMENT; - struct MELT_STRING_STRUCT(12) dstr_714__CMEC_COMMENT; - struct MELT_OBJECT_STRUCT(4) dobj_715__CMEC_COMMENT; - struct MELT_STRING_STRUCT(12) dstr_716__CMEC_COMMENT; - struct MELT_OBJECT_STRUCT(3) dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - struct MELT_STRING_STRUCT(38) dstr_718__CLASS_SOURCE_PAR; - struct MELT_OBJECT_STRUCT(8) dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - struct MELT_STRING_STRUCT(38) dstr_720__CLASS_SOURCE_PAR; - struct MELT_MULTIPLE_STRUCT(4) dtup_721__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - struct MELT_MULTIPLE_STRUCT(2) dtup_722__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - struct MELT_OBJECT_STRUCT(3) dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(56) dstr_724__CLASS_SOURCE_UPD; - struct MELT_OBJECT_STRUCT(8) dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(56) dstr_726__CLASS_SOURCE_UPD; - struct MELT_MULTIPLE_STRUCT(4) dtup_727__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_MULTIPLE_STRUCT(3) dtup_728__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_729__SUCME_COMMENT; - struct MELT_STRING_STRUCT(13) dstr_730__SUCME_COMMENT; - struct MELT_OBJECT_STRUCT(4) dobj_731__SUCME_COMMENT; - struct MELT_STRING_STRUCT(13) dstr_732__SUCME_COMMENT; - struct MELT_OBJECT_STRUCT(3) dsym_733__CLASS_SOURCE_FETCH_PREDEFINED; - struct MELT_STRING_STRUCT(29) dstr_734__CLASS_SOURCE_FET; - struct MELT_OBJECT_STRUCT(8) dobj_735__CLASS_SOURCE_FETCH_PREDEFINED; - struct MELT_STRING_STRUCT(29) dstr_736__CLASS_SOURCE_FET; - struct MELT_MULTIPLE_STRUCT(4) dtup_737__CLASS_SOURCE_FETCH_PREDEFINED; - struct MELT_MULTIPLE_STRUCT(3) dtup_738__CLASS_SOURCE_FETCH_PREDEFINED; - struct MELT_OBJECT_STRUCT(3) dsym_739__SFEPD_PREDEF; - struct MELT_STRING_STRUCT(12) dstr_740__SFEPD_PREDEF; - struct MELT_OBJECT_STRUCT(4) dobj_741__SFEPD_PREDEF; - struct MELT_STRING_STRUCT(12) dstr_742__SFEPD_PREDEF; - struct MELT_OBJECT_STRUCT(3) dsym_743__CLASS_SOURCE_STORE_PREDEFINED; - struct MELT_STRING_STRUCT(29) dstr_744__CLASS_SOURCE_STO; - struct MELT_OBJECT_STRUCT(8) dobj_745__CLASS_SOURCE_STORE_PREDEFINED; - struct MELT_STRING_STRUCT(29) dstr_746__CLASS_SOURCE_STO; - struct MELT_MULTIPLE_STRUCT(4) dtup_747__CLASS_SOURCE_STORE_PREDEFINED; - struct MELT_MULTIPLE_STRUCT(4) dtup_748__CLASS_SOURCE_STORE_PREDEFINED; - struct MELT_OBJECT_STRUCT(3) dsym_749__SSTPD_PREDEF; - struct MELT_STRING_STRUCT(12) dstr_750__SSTPD_PREDEF; - struct MELT_OBJECT_STRUCT(4) dobj_751__SSTPD_PREDEF; - struct MELT_STRING_STRUCT(12) dstr_752__SSTPD_PREDEF; - struct MELT_OBJECT_STRUCT(3) dsym_753__SSTPD_VALUE; - struct MELT_STRING_STRUCT(11) dstr_754__SSTPD_VALUE; - struct MELT_OBJECT_STRUCT(4) dobj_755__SSTPD_VALUE; - struct MELT_STRING_STRUCT(11) dstr_756__SSTPD_VALUE; - struct MELT_OBJECT_STRUCT(3) dsym_757__CLASS_SOURCE_CODECHUNK; - struct MELT_STRING_STRUCT(22) dstr_758__CLASS_SOURCE_COD; - struct MELT_OBJECT_STRUCT(8) dobj_759__CLASS_SOURCE_CODECHUNK; - struct MELT_STRING_STRUCT(22) dstr_760__CLASS_SOURCE_COD; - struct MELT_MULTIPLE_STRUCT(4) dtup_761__CLASS_SOURCE_CODECHUNK; - struct MELT_MULTIPLE_STRUCT(4) dtup_762__CLASS_SOURCE_CODECHUNK; - struct MELT_OBJECT_STRUCT(3) dsym_763__SCH_GENSYM; - struct MELT_STRING_STRUCT(10) dstr_764__SCH_GENSYM; - struct MELT_OBJECT_STRUCT(4) dobj_765__SCH_GENSYM; - struct MELT_STRING_STRUCT(10) dstr_766__SCH_GENSYM; - struct MELT_OBJECT_STRUCT(3) dsym_767__SCH_CHUNKS; - struct MELT_STRING_STRUCT(10) dstr_768__SCH_CHUNKS; - struct MELT_OBJECT_STRUCT(4) dobj_769__SCH_CHUNKS; - struct MELT_STRING_STRUCT(10) dstr_770__SCH_CHUNKS; - struct MELT_OBJECT_STRUCT(3) dsym_771__CLASS_SOURCE_PATTERN; - struct MELT_STRING_STRUCT(20) dstr_772__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_773__CLASS_SOURCE_PATTERN; - struct MELT_STRING_STRUCT(20) dstr_774__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(4) dtup_775__CLASS_SOURCE_PATTERN; - struct MELT_MULTIPLE_STRUCT(3) dtup_776__CLASS_SOURCE_PATTERN; - struct MELT_OBJECT_STRUCT(3) dsym_777__PAT_WEIGHT; - struct MELT_STRING_STRUCT(10) dstr_778__PAT_WEIGHT; - struct MELT_OBJECT_STRUCT(4) dobj_779__PAT_WEIGHT; - struct MELT_STRING_STRUCT(10) dstr_780__PAT_WEIGHT; - struct MELT_OBJECT_STRUCT(3) dsym_781__CLASS_SOURCE_PATTERN_OR; - struct MELT_STRING_STRUCT(23) dstr_782__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_783__CLASS_SOURCE_PATTERN_OR; - struct MELT_STRING_STRUCT(23) dstr_784__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_785__CLASS_SOURCE_PATTERN_OR; - struct MELT_MULTIPLE_STRUCT(4) dtup_786__CLASS_SOURCE_PATTERN_OR; - struct MELT_OBJECT_STRUCT(3) dsym_787__ORPAT_DISJ; - struct MELT_STRING_STRUCT(10) dstr_788__ORPAT_DISJ; - struct MELT_OBJECT_STRUCT(4) dobj_789__ORPAT_DISJ; - struct MELT_STRING_STRUCT(10) dstr_790__ORPAT_DISJ; - struct MELT_OBJECT_STRUCT(3) dsym_791__CLASS_SOURCE_PATTERN_AND; - struct MELT_STRING_STRUCT(24) dstr_792__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_793__CLASS_SOURCE_PATTERN_AND; - struct MELT_STRING_STRUCT(24) dstr_794__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_795__CLASS_SOURCE_PATTERN_AND; - struct MELT_MULTIPLE_STRUCT(4) dtup_796__CLASS_SOURCE_PATTERN_AND; - struct MELT_OBJECT_STRUCT(3) dsym_797__ANDPAT_CONJ; - struct MELT_STRING_STRUCT(11) dstr_798__ANDPAT_CONJ; - struct MELT_OBJECT_STRUCT(4) dobj_799__ANDPAT_CONJ; - struct MELT_STRING_STRUCT(11) dstr_800__ANDPAT_CONJ; - struct MELT_OBJECT_STRUCT(3) dsym_801__CLASS_SOURCE_PATTERN_WHEN; - struct MELT_STRING_STRUCT(25) dstr_802__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_803__CLASS_SOURCE_PATTERN_WHEN; - struct MELT_STRING_STRUCT(25) dstr_804__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_805__CLASS_SOURCE_PATTERN_WHEN; - struct MELT_MULTIPLE_STRUCT(5) dtup_806__CLASS_SOURCE_PATTERN_WHEN; - struct MELT_OBJECT_STRUCT(3) dsym_807__WHENPAT_SUBPAT; - struct MELT_STRING_STRUCT(14) dstr_808__WHENPAT_SUBPAT; - struct MELT_OBJECT_STRUCT(4) dobj_809__WHENPAT_SUBPAT; - struct MELT_STRING_STRUCT(14) dstr_810__WHENPAT_SUBPAT; - struct MELT_OBJECT_STRUCT(3) dsym_811__WHENPAT_COND; - struct MELT_STRING_STRUCT(12) dstr_812__WHENPAT_COND; - struct MELT_OBJECT_STRUCT(4) dobj_813__WHENPAT_COND; - struct MELT_STRING_STRUCT(12) dstr_814__WHENPAT_COND; - struct MELT_OBJECT_STRUCT(3) dsym_815__CLASS_SOURCE_PATTERN_VARIABLE; - struct MELT_STRING_STRUCT(29) dstr_816__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_817__CLASS_SOURCE_PATTERN_VARIABLE; - struct MELT_STRING_STRUCT(29) dstr_818__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_819__CLASS_SOURCE_PATTERN_VARIABLE; - struct MELT_MULTIPLE_STRUCT(5) dtup_820__CLASS_SOURCE_PATTERN_VARIABLE; - struct MELT_OBJECT_STRUCT(3) dsym_821__SPATVAR_SYMB; - struct MELT_STRING_STRUCT(12) dstr_822__SPATVAR_SYMB; - struct MELT_OBJECT_STRUCT(4) dobj_823__SPATVAR_SYMB; - struct MELT_STRING_STRUCT(12) dstr_824__SPATVAR_SYMB; - struct MELT_OBJECT_STRUCT(3) dsym_825__SPATVAR_NBOCC; - struct MELT_STRING_STRUCT(13) dstr_826__SPATVAR_NBOCC; - struct MELT_OBJECT_STRUCT(4) dobj_827__SPATVAR_NBOCC; - struct MELT_STRING_STRUCT(13) dstr_828__SPATVAR_NBOCC; - struct MELT_OBJECT_STRUCT(3) dsym_829__SPAT_VAR; - struct MELT_STRING_STRUCT(8) dstr_830__SPAT_VAR; - struct MELT_OBJECT_STRUCT(3) dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - struct MELT_STRING_STRUCT(35) dstr_832__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - struct MELT_STRING_STRUCT(35) dstr_834__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(6) dtup_835__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - struct MELT_MULTIPLE_STRUCT(5) dtup_836__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - struct MELT_OBJECT_STRUCT(3) dsym_837__CLASS_SOURCE_PATTERN_CONSTANT; - struct MELT_STRING_STRUCT(29) dstr_838__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_839__CLASS_SOURCE_PATTERN_CONSTANT; - struct MELT_STRING_STRUCT(29) dstr_840__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_841__CLASS_SOURCE_PATTERN_CONSTANT; - struct MELT_MULTIPLE_STRUCT(4) dtup_842__CLASS_SOURCE_PATTERN_CONSTANT; - struct MELT_OBJECT_STRUCT(3) dsym_843__SPAT_CONSTX; - struct MELT_STRING_STRUCT(11) dstr_844__SPAT_CONSTX; - struct MELT_OBJECT_STRUCT(4) dobj_845__SPAT_CONSTX; - struct MELT_STRING_STRUCT(11) dstr_846__SPAT_CONSTX; - struct MELT_OBJECT_STRUCT(3) dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT; - struct MELT_STRING_STRUCT(30) dstr_848__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT; - struct MELT_STRING_STRUCT(30) dstr_850__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_851__CLASS_SOURCE_PATTERN_CONSTRUCT; - struct MELT_MULTIPLE_STRUCT(4) dtup_852__CLASS_SOURCE_PATTERN_CONSTRUCT; - struct MELT_OBJECT_STRUCT(3) dsym_853__CTPAT_SUBPA; - struct MELT_STRING_STRUCT(11) dstr_854__CTPAT_SUBPA; - struct MELT_OBJECT_STRUCT(4) dobj_855__CTPAT_SUBPA; - struct MELT_STRING_STRUCT(11) dstr_856__CTPAT_SUBPA; - struct MELT_OBJECT_STRUCT(3) dsym_857__CLASS_SOURCE_PATTERN_TUPLE; - struct MELT_STRING_STRUCT(26) dstr_858__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_859__CLASS_SOURCE_PATTERN_TUPLE; - struct MELT_STRING_STRUCT(26) dstr_860__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(6) dtup_861__CLASS_SOURCE_PATTERN_TUPLE; - struct MELT_MULTIPLE_STRUCT(4) dtup_862__CLASS_SOURCE_PATTERN_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_863__CLASS_SOURCE_PATTERN_LIST; - struct MELT_STRING_STRUCT(25) dstr_864__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_865__CLASS_SOURCE_PATTERN_LIST; - struct MELT_STRING_STRUCT(25) dstr_866__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(6) dtup_867__CLASS_SOURCE_PATTERN_LIST; - struct MELT_MULTIPLE_STRUCT(4) dtup_868__CLASS_SOURCE_PATTERN_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_869__CLASS_SOURCE_PATTERN_OBJECT; - struct MELT_STRING_STRUCT(27) dstr_870__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_871__CLASS_SOURCE_PATTERN_OBJECT; - struct MELT_STRING_STRUCT(27) dstr_872__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(5) dtup_873__CLASS_SOURCE_PATTERN_OBJECT; - struct MELT_MULTIPLE_STRUCT(5) dtup_874__CLASS_SOURCE_PATTERN_OBJECT; - struct MELT_OBJECT_STRUCT(3) dsym_875__SPAT_CLASS; - struct MELT_STRING_STRUCT(10) dstr_876__SPAT_CLASS; - struct MELT_OBJECT_STRUCT(4) dobj_877__SPAT_CLASS; - struct MELT_STRING_STRUCT(10) dstr_878__SPAT_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_879__SPAT_FIELDS; - struct MELT_STRING_STRUCT(11) dstr_880__SPAT_FIELDS; - struct MELT_OBJECT_STRUCT(4) dobj_881__SPAT_FIELDS; - struct MELT_STRING_STRUCT(11) dstr_882__SPAT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_883__CLASS_SOURCE_PATTERN_INSTANCE; - struct MELT_STRING_STRUCT(29) dstr_884__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_885__CLASS_SOURCE_PATTERN_INSTANCE; - struct MELT_STRING_STRUCT(29) dstr_886__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(6) dtup_887__CLASS_SOURCE_PATTERN_INSTANCE; - struct MELT_MULTIPLE_STRUCT(5) dtup_888__CLASS_SOURCE_PATTERN_INSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_889__CLASS_SOURCE_FIELD_PATTERN; - struct MELT_STRING_STRUCT(26) dstr_890__CLASS_SOURCE_FIE; - struct MELT_OBJECT_STRUCT(8) dobj_891__CLASS_SOURCE_FIELD_PATTERN; - struct MELT_STRING_STRUCT(26) dstr_892__CLASS_SOURCE_FIE; - struct MELT_MULTIPLE_STRUCT(4) dtup_893__CLASS_SOURCE_FIELD_PATTERN; - struct MELT_MULTIPLE_STRUCT(4) dtup_894__CLASS_SOURCE_FIELD_PATTERN; - struct MELT_OBJECT_STRUCT(3) dsym_895__SPAF_FIELD; - struct MELT_STRING_STRUCT(10) dstr_896__SPAF_FIELD; - struct MELT_OBJECT_STRUCT(4) dobj_897__SPAF_FIELD; - struct MELT_STRING_STRUCT(10) dstr_898__SPAF_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_899__SPAF_PATTERN; - struct MELT_STRING_STRUCT(12) dstr_900__SPAF_PATTERN; - struct MELT_OBJECT_STRUCT(4) dobj_901__SPAF_PATTERN; - struct MELT_STRING_STRUCT(12) dstr_902__SPAF_PATTERN; - struct MELT_OBJECT_STRUCT(3) dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE; - struct MELT_STRING_STRUCT(30) dstr_904__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE; - struct MELT_STRING_STRUCT(30) dstr_906__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(6) dtup_907__CLASS_SOURCE_PATTERN_COMPOSITE; - struct MELT_MULTIPLE_STRUCT(9) dtup_908__CLASS_SOURCE_PATTERN_COMPOSITE; - struct MELT_OBJECT_STRUCT(3) dsym_909__SPAC_OPERATOR; - struct MELT_STRING_STRUCT(13) dstr_910__SPAC_OPERATOR; - struct MELT_OBJECT_STRUCT(4) dobj_911__SPAC_OPERATOR; - struct MELT_STRING_STRUCT(13) dstr_912__SPAC_OPERATOR; - struct MELT_OBJECT_STRUCT(3) dsym_913__SPAC_OPERBIND; - struct MELT_STRING_STRUCT(13) dstr_914__SPAC_OPERBIND; - struct MELT_OBJECT_STRUCT(4) dobj_915__SPAC_OPERBIND; - struct MELT_STRING_STRUCT(13) dstr_916__SPAC_OPERBIND; - struct MELT_OBJECT_STRUCT(3) dsym_917__SPAC_INARGS; - struct MELT_STRING_STRUCT(11) dstr_918__SPAC_INARGS; - struct MELT_OBJECT_STRUCT(4) dobj_919__SPAC_INARGS; - struct MELT_STRING_STRUCT(11) dstr_920__SPAC_INARGS; - struct MELT_OBJECT_STRUCT(3) dsym_921__SPAC_OUTARGS; - struct MELT_STRING_STRUCT(12) dstr_922__SPAC_OUTARGS; - struct MELT_OBJECT_STRUCT(4) dobj_923__SPAC_OUTARGS; - struct MELT_STRING_STRUCT(12) dstr_924__SPAC_OUTARGS; - struct MELT_OBJECT_STRUCT(3) dsym_925__CLASS_SOURCE_PATTERN_MATCHER; - struct MELT_STRING_STRUCT(28) dstr_926__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_927__CLASS_SOURCE_PATTERN_MATCHER; - struct MELT_STRING_STRUCT(28) dstr_928__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(7) dtup_929__CLASS_SOURCE_PATTERN_MATCHER; - struct MELT_MULTIPLE_STRUCT(9) dtup_930__CLASS_SOURCE_PATTERN_MATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_931__CLASS_SOURCE_PATTERN_C_MATCH; - struct MELT_STRING_STRUCT(28) dstr_932__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_933__CLASS_SOURCE_PATTERN_C_MATCH; - struct MELT_STRING_STRUCT(28) dstr_934__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(8) dtup_935__CLASS_SOURCE_PATTERN_C_MATCH; - struct MELT_MULTIPLE_STRUCT(9) dtup_936__CLASS_SOURCE_PATTERN_C_MATCH; - struct MELT_OBJECT_STRUCT(3) dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH; - struct MELT_STRING_STRUCT(30) dstr_938__CLASS_SOURCE_PAT; - struct MELT_OBJECT_STRUCT(8) dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH; - struct MELT_STRING_STRUCT(30) dstr_940__CLASS_SOURCE_PAT; - struct MELT_MULTIPLE_STRUCT(8) dtup_941__CLASS_SOURCE_PATTERN_FUN_MATCH; - struct MELT_MULTIPLE_STRUCT(9) dtup_942__CLASS_SOURCE_PATTERN_FUN_MATCH; - struct MELT_ROUTINE_STRUCT(2) drout_943__EXPAND_RESTLIST_AS_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_944__EXPAND_RESTLIST_AS_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_945__CLASS_ENVIRONMENT; - struct MELT_STRING_STRUCT(17) dstr_946__CLASS_ENVIRONMEN; - struct MELT_ROUTINE_STRUCT(4) drout_947__EXPAND_RESTLIST_AS_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_948__EXPAND_RESTLIST_AS_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_949__LIST_TO_MULTIPLE; - struct MELT_STRING_STRUCT(16) dstr_950__LIST_TO_MULTIPLE; - struct MELT_OBJECT_STRUCT(3) dsym_951__DISCR_MULTIPLE; - struct MELT_STRING_STRUCT(14) dstr_952__DISCR_MULTIPLE; - struct MELT_ROUTINE_STRUCT(2) drout_953__EXPAND_PAIRLIST_AS_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_954__EXPAND_PAIRLIST_AS_LIST; - struct MELT_ROUTINE_STRUCT(4) drout_955__EXPAND_PAIRLIST_AS_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_956__EXPAND_PAIRLIST_AS_TUPLE; - struct MELT_ROUTINE_STRUCT(5) drout_957__EXPAND_APPLY; - struct MELT_CLOSURE_STRUCT(0) dclo_958__EXPAND_APPLY; - struct MELT_OBJECT_STRUCT(3) dsym_959__CLASS_SEXPR; - struct MELT_STRING_STRUCT(11) dstr_960__CLASS_SEXPR; - struct MELT_ROUTINE_STRUCT(7) drout_961__EXPAND_MSEND; - struct MELT_CLOSURE_STRUCT(0) dclo_962__EXPAND_MSEND; - struct MELT_OBJECT_STRUCT(3) dsym_963__CLASS_SYMBOL; - struct MELT_STRING_STRUCT(12) dstr_964__CLASS_SYMBOL; - struct MELT_OBJECT_STRUCT(3) dsym_965__DEBUG_MSG_FUN; - struct MELT_STRING_STRUCT(13) dstr_966__DEBUG_MSG_FUN; - struct MELT_ROUTINE_STRUCT(10) drout_967__EXPAND_FIELDEXPR; - struct MELT_CLOSURE_STRUCT(0) dclo_968__EXPAND_FIELDEXPR; - struct MELT_OBJECT_STRUCT(3) dsym_969__CLASS_FIELD; - struct MELT_STRING_STRUCT(11) dstr_970__CLASS_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_971__CLASS_KEYWORD; - struct MELT_STRING_STRUCT(13) dstr_972__CLASS_KEYWORD; - struct MELT_OBJECT_STRUCT(3) dsym_973__CLASS_NAMED; - struct MELT_STRING_STRUCT(11) dstr_974__CLASS_NAMED; - struct MELT_ROUTINE_STRUCT(8) drout_975__EXPAND_CITERATION; - struct MELT_CLOSURE_STRUCT(0) dclo_976__EXPAND_CITERATION; - struct MELT_OBJECT_STRUCT(3) dsym_977__CLASS_CITERATOR; - struct MELT_STRING_STRUCT(15) dstr_978__CLASS_CITERATOR; - struct MELT_ROUTINE_STRUCT(6) drout_979__EXPAND_CMATCHEXPR; - struct MELT_CLOSURE_STRUCT(0) dclo_980__EXPAND_CMATCHEXPR; - struct MELT_OBJECT_STRUCT(3) dsym_981__CLASS_CMATCHER; - struct MELT_STRING_STRUCT(14) dstr_982__CLASS_CMATCHER; - struct MELT_ROUTINE_STRUCT(6) drout_983__EXPAND_FUNMATCHEXPR; - struct MELT_CLOSURE_STRUCT(0) dclo_984__EXPAND_FUNMATCHEXPR; - struct MELT_OBJECT_STRUCT(3) dsym_985__CLASS_FUNMATCHER; - struct MELT_STRING_STRUCT(16) dstr_986__CLASS_FUNMATCHER; - struct MELT_ROUTINE_STRUCT(5) drout_987__EXPAND_KEYWORDFUN; - struct MELT_CLOSURE_STRUCT(0) dclo_988__EXPAND_KEYWORDFUN; - struct MELT_ROUTINE_STRUCT(33) drout_989__MACROEXPAND_1; - struct MELT_CLOSURE_STRUCT(0) dclo_990__MACROEXPAND_1; - struct MELT_OBJECT_STRUCT(3) dsym_991__FIND_ENV; - struct MELT_STRING_STRUCT(8) dstr_992__FIND_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_993__CLASS_MACRO_BINDING; - struct MELT_STRING_STRUCT(19) dstr_994__CLASS_MACRO_BIND; - struct MELT_OBJECT_STRUCT(3) dsym_995__CLASS_SELECTOR_BINDING; - struct MELT_STRING_STRUCT(22) dstr_996__CLASS_SELECTOR_B; - struct MELT_OBJECT_STRUCT(3) dsym_997__CLASS_PRIMITIVE_BINDING; - struct MELT_STRING_STRUCT(23) dstr_998__CLASS_PRIMITIVE_; - struct MELT_OBJECT_STRUCT(3) dsym_999__CLASS_CITERATOR_BINDING; - struct MELT_STRING_STRUCT(23) dstr_1000__CLASS_CITERATOR_; - struct MELT_OBJECT_STRUCT(3) dsym_1001__CLASS_CMATCHER_BINDING; - struct MELT_STRING_STRUCT(22) dstr_1002__CLASS_CMATCHER_B; - struct MELT_OBJECT_STRUCT(3) dsym_1003__CLASS_FUNMATCHER_BINDING; - struct MELT_STRING_STRUCT(24) dstr_1004__CLASS_FUNMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_1005__CLASS_FIELD_BINDING; - struct MELT_STRING_STRUCT(19) dstr_1006__CLASS_FIELD_BIND; - struct MELT_OBJECT_STRUCT(3) dsym_1007__CLASS_VALUE_BINDING; - struct MELT_STRING_STRUCT(19) dstr_1008__CLASS_VALUE_BIND; - struct MELT_OBJECT_STRUCT(3) dsym_1009__CLASS_PRIMITIVE; - struct MELT_STRING_STRUCT(15) dstr_1010__CLASS_PRIMITIVE; - struct MELT_ROUTINE_STRUCT(1) drout_1011__LAMBDA_; - struct MELT_ROUTINE_STRUCT(5) drout_1012__EXPAND_PRIMITIVE; - struct MELT_CLOSURE_STRUCT(0) dclo_1013__EXPAND_PRIMITIVE; - struct MELT_OBJECT_STRUCT(3) dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_STRING_STRUCT(31) dstr_1015__CLASS_PATTERN_EX; - struct MELT_OBJECT_STRUCT(3) dsym_1016__CLASS_ROOT; - struct MELT_STRING_STRUCT(10) dstr_1017__CLASS_ROOT; - struct MELT_OBJECT_STRUCT(8) dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_STRING_STRUCT(31) dstr_1019__CLASS_PATTERN_EX; - struct MELT_MULTIPLE_STRUCT(1) dtup_1020__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_MULTIPLE_STRUCT(3) dtup_1021__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_OBJECT_STRUCT(3) dsym_1022__PCTX_MEXPANDER; - struct MELT_STRING_STRUCT(14) dstr_1023__PCTX_MEXPANDER; - struct MELT_OBJECT_STRUCT(4) dobj_1024__PCTX_MEXPANDER; - struct MELT_STRING_STRUCT(14) dstr_1025__PCTX_MEXPANDER; - struct MELT_OBJECT_STRUCT(3) dsym_1026__PCTX_PEXPANDER; - struct MELT_STRING_STRUCT(14) dstr_1027__PCTX_PEXPANDER; - struct MELT_OBJECT_STRUCT(4) dobj_1028__PCTX_PEXPANDER; - struct MELT_STRING_STRUCT(14) dstr_1029__PCTX_PEXPANDER; - struct MELT_OBJECT_STRUCT(3) dsym_1030__PCTX_VARMAP; - struct MELT_STRING_STRUCT(11) dstr_1031__PCTX_VARMAP; - struct MELT_OBJECT_STRUCT(4) dobj_1032__PCTX_VARMAP; - struct MELT_STRING_STRUCT(11) dstr_1033__PCTX_VARMAP; - struct MELT_ROUTINE_STRUCT(5) drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_1035__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_1036__PAIRLIST_TO_MULTIPLE; - struct MELT_STRING_STRUCT(20) dstr_1037__PAIRLIST_TO_MULT; - struct MELT_ROUTINE_STRUCT(1) drout_1038__LAMBDA_; - struct MELT_ROUTINE_STRUCT(14) drout_1039__PATMACEXPAND_FOR_MATCHER; - struct MELT_CLOSURE_STRUCT(0) dclo_1040__PATMACEXPAND_FOR_MATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_1041__CLASS_ANY_MATCHER; - struct MELT_STRING_STRUCT(17) dstr_1042__CLASS_ANY_MATCHE; - struct MELT_OBJECT_STRUCT(3) dsym_1043__DISCR_BOX; - struct MELT_STRING_STRUCT(9) dstr_1044__DISCR_BOX; - struct MELT_OBJECT_STRUCT(3) dsym_1045__MULTIPLE_MAP; - struct MELT_STRING_STRUCT(12) dstr_1046__MULTIPLE_MAP; - struct MELT_ROUTINE_STRUCT(3) drout_1047__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1048__CLASS_FORMAL_BINDING; - struct MELT_STRING_STRUCT(20) dstr_1049__CLASS_FORMAL_BIN; - struct MELT_ROUTINE_STRUCT(2) drout_1050__LAMBDA_; - struct MELT_ROUTINE_STRUCT(5) drout_1051__PATTERN_WEIGHT_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_1052__PATTERN_WEIGHT_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_1053__DISCR_INTEGER; - struct MELT_STRING_STRUCT(13) dstr_1054__DISCR_INTEGER; - struct MELT_ROUTINE_STRUCT(2) drout_1055__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1056__DISCR_CONSTANT_INTEGER; - struct MELT_STRING_STRUCT(22) dstr_1057__DISCR_CONSTANT_I; - struct MELT_ROUTINE_STRUCT(19) drout_1058__PATTERNEXPAND_EXPR; - struct MELT_CLOSURE_STRUCT(0) dclo_1059__PATTERNEXPAND_EXPR; - struct MELT_OBJECT_STRUCT(3) dsym_1060__CLASS_PATMACRO_BINDING; - struct MELT_STRING_STRUCT(22) dstr_1061__CLASS_PATMACRO_B; - struct MELT_ROUTINE_STRUCT(17) drout_1062__PATTERNEXPAND_1; - struct MELT_CLOSURE_STRUCT(0) dclo_1063__PATTERNEXPAND_1; - struct MELT_OBJECT_STRUCT(3) dsym_1064__QUESTION; - struct MELT_STRING_STRUCT(8) dstr_1065__QUESTION; - struct meltint_st dint_1066__; - struct MELT_OBJECT_STRUCT(3) dsym_1067__; - struct MELT_STRING_STRUCT(1) dstr_1068__; - struct meltint_st dint_1069__; - struct meltint_st dint_1070__; - struct meltint_st dint_1071__; - struct MELT_ROUTINE_STRUCT(5) drout_1072__MACROEXPAND_TOPLEVEL_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_1073__MACROEXPAND_TOPLEVEL_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_1074__DISCR_LIST; - struct MELT_STRING_STRUCT(10) dstr_1075__DISCR_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_1076__CLASS_LOCATED; - struct MELT_STRING_STRUCT(13) dstr_1077__CLASS_LOCATED; - struct MELT_ROUTINE_STRUCT(11) drout_1078__LAMBDA_ARG_BINDINGS; - struct MELT_CLOSURE_STRUCT(0) dclo_1079__LAMBDA_ARG_BINDINGS; - struct MELT_OBJECT_STRUCT(3) dsym_1080__CTYPE_VALUE; - struct MELT_STRING_STRUCT(11) dstr_1081__CTYPE_VALUE; - struct MELT_OBJECT_STRUCT(3) dsym_1082__DISCR_MAP_OBJECTS; - struct MELT_STRING_STRUCT(17) dstr_1083__DISCR_MAP_OBJECT; - struct MELT_OBJECT_STRUCT(3) dsym_1084__CLASS_CTYPE; - struct MELT_STRING_STRUCT(11) dstr_1085__CLASS_CTYPE; - struct MELT_ROUTINE_STRUCT(6) drout_1086__INSTALL_INITIAL_MACRO; - struct MELT_CLOSURE_STRUCT(0) dclo_1087__INSTALL_INITIAL_MACRO; - struct MELT_OBJECT_STRUCT(3) dsym_1088__PUT_ENV; - struct MELT_STRING_STRUCT(7) dstr_1089__PUT_ENV; - struct MELT_OBJECT_STRUCT(3) dsym_1090__INITIAL_ENVIRONMENT; - struct MELT_STRING_STRUCT(19) dstr_1091__INITIAL_ENVIRONM; - struct MELT_ROUTINE_STRUCT(5) drout_1092__INSTALL_INITIAL_PATMACRO; - struct MELT_CLOSURE_STRUCT(0) dclo_1093__INSTALL_INITIAL_PATMACRO; - struct MELT_OBJECT_STRUCT(3) dsym_1094__WARN_SHADOW; - struct MELT_STRING_STRUCT(11) dstr_1095__WARN_SHADOW; - struct MELT_OBJECT_STRUCT(5) dobj_1096__WARN_SHADOW; - struct MELT_MULTIPLE_STRUCT(1) dtup_1097__WARN_SHADOW; - struct MELT_MULTIPLE_STRUCT(0) dtup_1098__WARN_SHADOW; - struct MELT_STRING_STRUCT(11) dstr_1099__warn_shadow; - struct MELT_STRING_STRUCT(11) dstr_1100__WARN_SHADOW; - struct MELT_ROUTINE_STRUCT(3) drout_1101__WARN_IF_REDEFINED; - struct MELT_CLOSURE_STRUCT(0) dclo_1102__WARN_IF_REDEFINED; - struct MELT_ROUTINE_STRUCT(6) drout_1103__FLATTEN_FOR_C_CODE_EXPANSION; - struct MELT_CLOSURE_STRUCT(0) dclo_1104__FLATTEN_FOR_C_CODE_EXPANSION; - struct MELT_OBJECT_STRUCT(3) dsym_1105__DISCR_VERBATIM_STRING; - struct MELT_STRING_STRUCT(21) dstr_1106__DISCR_VERBATIM_S; - struct MELT_ROUTINE_STRUCT(5) drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION; - struct MELT_CLOSURE_STRUCT(0) dclo_1108__PARSE_PAIRLIST_C_CODE_EXPANSION; - struct MELT_ROUTINE_STRUCT(3) drout_1109__CHECK_C_EXPANSION; - struct MELT_CLOSURE_STRUCT(0) dclo_1110__CHECK_C_EXPANSION; - struct MELT_ROUTINE_STRUCT(19) drout_1111__MEXPAND_DEFPRIMITIVE; - struct MELT_CLOSURE_STRUCT(0) dclo_1112__MEXPAND_DEFPRIMITIVE; - struct MELT_OBJECT_STRUCT(3) dsym_1113__DOC; - struct MELT_STRING_STRUCT(3) dstr_1114__DOC; - struct MELT_OBJECT_STRUCT(3) dsym_1115__CLASS_ANY_BINDING; - struct MELT_STRING_STRUCT(17) dstr_1116__CLASS_ANY_BINDIN; - struct MELT_OBJECT_STRUCT(3) dsym_1117__DEFPRIMITIVE; - struct MELT_STRING_STRUCT(12) dstr_1118__DEFPRIMITIVE; - struct MELT_ROUTINE_STRUCT(15) drout_1119__MEXPAND_DEFCITERATOR; - struct MELT_CLOSURE_STRUCT(0) dclo_1120__MEXPAND_DEFCITERATOR; - struct MELT_OBJECT_STRUCT(3) dsym_1121__DEFCITERATOR; - struct MELT_STRING_STRUCT(12) dstr_1122__DEFCITERATOR; - struct MELT_ROUTINE_STRUCT(3) drout_1123__MEXPAND_DEFVARIADIC; - struct MELT_CLOSURE_STRUCT(0) dclo_1124__MEXPAND_DEFVARIADIC; - struct MELT_OBJECT_STRUCT(3) dsym_1125__DEFVARIADIC; - struct MELT_STRING_STRUCT(11) dstr_1126__DEFVARIADIC; - struct MELT_ROUTINE_STRUCT(18) drout_1127__MEXPAND_DEFCMATCHER; - struct MELT_CLOSURE_STRUCT(0) dclo_1128__MEXPAND_DEFCMATCHER; - struct MELT_OBJECT_STRUCT(3) dsym_1129__MULTIPLE_EVERY; - struct MELT_STRING_STRUCT(14) dstr_1130__MULTIPLE_EVERY; - struct MELT_ROUTINE_STRUCT(0) drout_1131__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1132__DEFCMATCHER; - struct MELT_STRING_STRUCT(11) dstr_1133__DEFCMATCHER; - struct MELT_ROUTINE_STRUCT(14) drout_1134__MEXPAND_DEFUNMATCHER; - struct MELT_CLOSURE_STRUCT(0) dclo_1135__MEXPAND_DEFUNMATCHER; - struct MELT_ROUTINE_STRUCT(0) drout_1136__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1137__DEFUNMATCHER; - struct MELT_STRING_STRUCT(12) dstr_1138__DEFUNMATCHER; - struct MELT_ROUTINE_STRUCT(16) drout_1139__MEXPAND_DEFUN; - struct MELT_CLOSURE_STRUCT(0) dclo_1140__MEXPAND_DEFUN; - struct MELT_OBJECT_STRUCT(3) dsym_1141__FRESH_ENV; - struct MELT_STRING_STRUCT(9) dstr_1142__FRESH_ENV; - struct MELT_ROUTINE_STRUCT(1) drout_1143__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1144__CLASS_FUNCTION_BINDING; - struct MELT_STRING_STRUCT(22) dstr_1145__CLASS_FUNCTION_B; - struct MELT_OBJECT_STRUCT(3) dsym_1146__DEFUN; - struct MELT_STRING_STRUCT(5) dstr_1147__DEFUN; - struct MELT_ROUTINE_STRUCT(2) drout_1148__MEXPAND_DEFINE; - struct MELT_CLOSURE_STRUCT(0) dclo_1149__MEXPAND_DEFINE; - struct MELT_OBJECT_STRUCT(3) dsym_1150__DEFINE; - struct MELT_STRING_STRUCT(6) dstr_1151__DEFINE; - struct MELT_ROUTINE_STRUCT(15) drout_1152__SCAN_DEFCLASS; - struct MELT_CLOSURE_STRUCT(0) dclo_1153__SCAN_DEFCLASS; - struct MELT_OBJECT_STRUCT(3) dsym_1154__SUPER; - struct MELT_STRING_STRUCT(5) dstr_1155__SUPER; - struct MELT_OBJECT_STRUCT(3) dsym_1156__CLASS_CLASS_BINDING; - struct MELT_STRING_STRUCT(19) dstr_1157__CLASS_CLASS_BIND; - struct MELT_OBJECT_STRUCT(3) dsym_1158__CLASS_CLASS; - struct MELT_STRING_STRUCT(11) dstr_1159__CLASS_CLASS; - struct MELT_OBJECT_STRUCT(3) dsym_1160__FIELDS; - struct MELT_STRING_STRUCT(6) dstr_1161__FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_1162__PREDEF; - struct MELT_STRING_STRUCT(6) dstr_1163__PREDEF; - struct MELT_ROUTINE_STRUCT(27) drout_1164__MEXPAND_DEFCLASS; - struct MELT_CLOSURE_STRUCT(0) dclo_1165__MEXPAND_DEFCLASS; - struct MELT_OBJECT_STRUCT(3) dsym_1166__DISCR_CLASS_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_1167__DISCR_CLASS_SEQU; - struct MELT_OBJECT_STRUCT(3) dsym_1168__DISCR_MAP_STRINGS; - struct MELT_STRING_STRUCT(17) dstr_1169__DISCR_MAP_STRING; - struct MELT_OBJECT_STRUCT(3) dsym_1170__DISCR_FIELD_SEQUENCE; - struct MELT_STRING_STRUCT(20) dstr_1171__DISCR_FIELD_SEQU; - struct MELT_ROUTINE_STRUCT(1) drout_1172__LAMBDA_; - struct MELT_ROUTINE_STRUCT(9) drout_1173__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1174__DEFCLASS; - struct MELT_STRING_STRUCT(8) dstr_1175__DEFCLASS; - struct MELT_ROUTINE_STRUCT(15) drout_1176__PARSE_FIELD_ASSIGNMENT; - struct MELT_CLOSURE_STRUCT(0) dclo_1177__PARSE_FIELD_ASSIGNMENT; - struct MELT_OBJECT_STRUCT(3) dsym_1178__MULTIPLE_ITERATE_TEST; - struct MELT_STRING_STRUCT(21) dstr_1179__MULTIPLE_ITERATE; - struct MELT_ROUTINE_STRUCT(3) drout_1180__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1181__TRUE; - struct MELT_STRING_STRUCT(4) dstr_1182__TRUE; - struct MELT_ROUTINE_STRUCT(21) drout_1183__MEXPAND_DEFINSTANCE; - struct MELT_CLOSURE_STRUCT(0) dclo_1184__MEXPAND_DEFINSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_1185__OBJ_NUM; - struct MELT_STRING_STRUCT(7) dstr_1186__OBJ_NUM; - struct MELT_OBJECT_STRUCT(3) dsym_1187__CLASS_INSTANCE_BINDING; - struct MELT_STRING_STRUCT(22) dstr_1188__CLASS_INSTANCE_B; - struct MELT_OBJECT_STRUCT(3) dsym_1189__DEFINSTANCE; - struct MELT_STRING_STRUCT(11) dstr_1190__DEFINSTANCE; - struct MELT_ROUTINE_STRUCT(28) drout_1191__MEXPAND_DEFSELECTOR; - struct MELT_CLOSURE_STRUCT(0) dclo_1192__MEXPAND_DEFSELECTOR; - struct MELT_OBJECT_STRUCT(3) dsym_1193__MELT_MODE_CONTAINER; - struct MELT_STRING_STRUCT(19) dstr_1194__MELT_MODE_CONTAI; - struct MELT_OBJECT_STRUCT(3) dsym_1195__CLASS_CONTAINER; - struct MELT_STRING_STRUCT(15) dstr_1196__CLASS_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_1197__FORMALS; - struct MELT_STRING_STRUCT(7) dstr_1198__FORMALS; - struct MELT_OBJECT_STRUCT(3) dsym_1199__DEFSELECTOR; - struct MELT_STRING_STRUCT(11) dstr_1200__DEFSELECTOR; - struct MELT_ROUTINE_STRUCT(14) drout_1201__MEXPAND_INSTANCE; - struct MELT_CLOSURE_STRUCT(0) dclo_1202__MEXPAND_INSTANCE; - struct MELT_OBJECT_STRUCT(3) dsym_1203__INSTANCE; - struct MELT_STRING_STRUCT(8) dstr_1204__INSTANCE; - struct MELT_ROUTINE_STRUCT(8) drout_1205__MEXPAND_LOAD; - struct MELT_CLOSURE_STRUCT(0) dclo_1206__MEXPAND_LOAD; - struct MELT_OBJECT_STRUCT(3) dsym_1207__LOAD; - struct MELT_STRING_STRUCT(4) dstr_1208__LOAD; - struct MELT_ROUTINE_STRUCT(12) drout_1209__PARSE_FIELD_PATTERN; - struct MELT_CLOSURE_STRUCT(0) dclo_1210__PARSE_FIELD_PATTERN; - struct MELT_ROUTINE_STRUCT(1) drout_1211__LAMBDA_; - struct MELT_ROUTINE_STRUCT(20) drout_1212__PATEXPAND_INSTANCE; - struct MELT_CLOSURE_STRUCT(0) dclo_1213__PATEXPAND_INSTANCE; - struct MELT_ROUTINE_STRUCT(1) drout_1214__LAMBDA_; - struct MELT_ROUTINE_STRUCT(20) drout_1215__PATEXPAND_OBJECT; - struct MELT_CLOSURE_STRUCT(0) dclo_1216__PATEXPAND_OBJECT; - struct MELT_ROUTINE_STRUCT(1) drout_1217__LAMBDA_; - struct MELT_ROUTINE_STRUCT(3) drout_1218__MEXPAND_OBJECT; - struct MELT_CLOSURE_STRUCT(0) dclo_1219__MEXPAND_OBJECT; - struct MELT_OBJECT_STRUCT(3) dsym_1220__OBJECT; - struct MELT_STRING_STRUCT(6) dstr_1221__OBJECT; - struct MELT_ROUTINE_STRUCT(10) drout_1222__MEXPAND_CODE_CHUNK; - struct MELT_CLOSURE_STRUCT(0) dclo_1223__MEXPAND_CODE_CHUNK; - struct MELT_OBJECT_STRUCT(3) dsym_1224__CODE_CHUNK; - struct MELT_STRING_STRUCT(10) dstr_1225__CODE_CHUNK; - struct MELT_ROUTINE_STRUCT(9) drout_1226__MEXPAND_UNSAFE_PUT_FIELDS; - struct MELT_CLOSURE_STRUCT(0) dclo_1227__MEXPAND_UNSAFE_PUT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_1228__UNSAFE_PUT_FIELDS; - struct MELT_STRING_STRUCT(17) dstr_1229__UNSAFE_PUT_FIELD; - struct MELT_ROUTINE_STRUCT(9) drout_1230__MEXPAND_PUT_FIELDS; - struct MELT_CLOSURE_STRUCT(0) dclo_1231__MEXPAND_PUT_FIELDS; - struct MELT_OBJECT_STRUCT(3) dsym_1232__PUT_FIELDS; - struct MELT_STRING_STRUCT(10) dstr_1233__PUT_FIELDS; - struct MELT_ROUTINE_STRUCT(6) drout_1234__MEXPAND_UNSAFE_GET_FIELD; - struct MELT_CLOSURE_STRUCT(0) dclo_1235__MEXPAND_UNSAFE_GET_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_1236__UNSAFE_GET_FIELD; - struct MELT_STRING_STRUCT(16) dstr_1237__UNSAFE_GET_FIELD; - struct MELT_ROUTINE_STRUCT(6) drout_1238__MEXPAND_GET_FIELD; - struct MELT_CLOSURE_STRUCT(0) dclo_1239__MEXPAND_GET_FIELD; - struct MELT_OBJECT_STRUCT(3) dsym_1240__GET_FIELD; - struct MELT_STRING_STRUCT(9) dstr_1241__GET_FIELD; - struct MELT_ROUTINE_STRUCT(5) drout_1242__MEXPAND_SETQ; - struct MELT_CLOSURE_STRUCT(0) dclo_1243__MEXPAND_SETQ; - struct MELT_OBJECT_STRUCT(3) dsym_1244__SETQ; - struct MELT_STRING_STRUCT(4) dstr_1245__SETQ; - struct MELT_ROUTINE_STRUCT(6) drout_1246__MEXPAND_IF; - struct MELT_CLOSURE_STRUCT(0) dclo_1247__MEXPAND_IF; - struct MELT_OBJECT_STRUCT(3) dsym_1248__IF; - struct MELT_STRING_STRUCT(2) dstr_1249__IF; - struct MELT_ROUTINE_STRUCT(6) drout_1250__MEXPAND_CPPIF; - struct MELT_CLOSURE_STRUCT(0) dclo_1251__MEXPAND_CPPIF; - struct MELT_OBJECT_STRUCT(3) dsym_1252__CPPIF; - struct MELT_STRING_STRUCT(5) dstr_1253__CPPIF; - struct MELT_ROUTINE_STRUCT(0) drout_1254__FILTERGCCVERSION; - struct MELT_CLOSURE_STRUCT(0) dclo_1255__FILTERGCCVERSION; - struct MELT_ROUTINE_STRUCT(6) drout_1256__MEXPAND_GCCIF; - struct MELT_CLOSURE_STRUCT(0) dclo_1257__MEXPAND_GCCIF; - struct MELT_OBJECT_STRUCT(3) dsym_1258__GCCIF; - struct MELT_STRING_STRUCT(5) dstr_1259__GCCIF; - struct MELT_ROUTINE_STRUCT(12) drout_1260__MEXPAND_COND; - struct MELT_CLOSURE_STRUCT(0) dclo_1261__MEXPAND_COND; - struct MELT_ROUTINE_STRUCT(1) drout_1262__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1263__ELSE; - struct MELT_STRING_STRUCT(4) dstr_1264__ELSE; - struct MELT_OBJECT_STRUCT(3) dsym_1265__COND; - struct MELT_STRING_STRUCT(4) dstr_1266__COND; - struct MELT_ROUTINE_STRUCT(8) drout_1267__MEXPAND_AND; - struct MELT_CLOSURE_STRUCT(0) dclo_1268__MEXPAND_AND; - struct MELT_ROUTINE_STRUCT(1) drout_1269__LAMBDA_; - struct MELT_ROUTINE_STRUCT(10) drout_1270__PATEXPAND_AS; - struct MELT_CLOSURE_STRUCT(0) dclo_1271__PATEXPAND_AS; - struct MELT_ROUTINE_STRUCT(3) drout_1272__MEXPAND_AS; - struct MELT_CLOSURE_STRUCT(0) dclo_1273__MEXPAND_AS; - struct MELT_OBJECT_STRUCT(3) dsym_1274__AS; - struct MELT_STRING_STRUCT(2) dstr_1275__AS; - struct MELT_ROUTINE_STRUCT(4) drout_1276__PATEXPAND_WHEN; - struct MELT_CLOSURE_STRUCT(0) dclo_1277__PATEXPAND_WHEN; - struct MELT_ROUTINE_STRUCT(3) drout_1278__MEXPAND_WHEN; - struct MELT_CLOSURE_STRUCT(0) dclo_1279__MEXPAND_WHEN; - struct MELT_OBJECT_STRUCT(3) dsym_1280__WHEN; - struct MELT_STRING_STRUCT(4) dstr_1281__WHEN; - struct MELT_ROUTINE_STRUCT(8) drout_1282__PATEXPAND_AND; - struct MELT_CLOSURE_STRUCT(0) dclo_1283__PATEXPAND_AND; - struct MELT_OBJECT_STRUCT(3) dsym_1284__AND; - struct MELT_STRING_STRUCT(3) dstr_1285__AND; - struct MELT_ROUTINE_STRUCT(8) drout_1286__MEXPAND_OR; - struct MELT_CLOSURE_STRUCT(0) dclo_1287__MEXPAND_OR; + struct MELT_MULTIPLE_STRUCT(5) dtup_351__CLASS_SOURCE_DEFOBJCOMMON; + struct MELT_MULTIPLE_STRUCT(5) dtup_352__CLASS_SOURCE_DEFOBJCOMMON; + struct MELT_OBJECT_STRUCT(3) dsym_353__SOBJ_PREDEF; + struct MELT_STRING_STRUCT(11) dstr_354__SOBJ_PREDEF; + struct MELT_OBJECT_STRUCT(4) dobj_355__SOBJ_PREDEF; + struct MELT_STRING_STRUCT(11) dstr_356__SOBJ_PREDEF; + struct MELT_OBJECT_STRUCT(3) dsym_357__CLASS_SOURCE_DEFCLASS; + struct MELT_STRING_STRUCT(21) dstr_358__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_359__CLASS_SOURCE_DEFCLASS; + struct MELT_STRING_STRUCT(21) dstr_360__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_361__CLASS_SOURCE_DEFCLASS; + struct MELT_MULTIPLE_STRUCT(8) dtup_362__CLASS_SOURCE_DEFCLASS; + struct MELT_OBJECT_STRUCT(3) dsym_363__SCLASS_CLABIND; + struct MELT_STRING_STRUCT(14) dstr_364__SCLASS_CLABIND; + struct MELT_OBJECT_STRUCT(4) dobj_365__SCLASS_CLABIND; + struct MELT_STRING_STRUCT(14) dstr_366__SCLASS_CLABIND; + struct MELT_OBJECT_STRUCT(3) dsym_367__SCLASS_SUPERBIND; + struct MELT_STRING_STRUCT(16) dstr_368__SCLASS_SUPERBIND; + struct MELT_OBJECT_STRUCT(4) dobj_369__SCLASS_SUPERBIND; + struct MELT_STRING_STRUCT(16) dstr_370__SCLASS_SUPERBIND; + struct MELT_OBJECT_STRUCT(3) dsym_371__SCLASS_FLDBINDS; + struct MELT_STRING_STRUCT(15) dstr_372__SCLASS_FLDBINDS; + struct MELT_OBJECT_STRUCT(4) dobj_373__SCLASS_FLDBINDS; + struct MELT_STRING_STRUCT(15) dstr_374__SCLASS_FLDBINDS; + struct MELT_OBJECT_STRUCT(3) dsym_375__CLASS_SOURCE_DEFINSTANCE; + struct MELT_STRING_STRUCT(24) dstr_376__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_377__CLASS_SOURCE_DEFINSTANCE; + struct MELT_STRING_STRUCT(24) dstr_378__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(6) dtup_379__CLASS_SOURCE_DEFINSTANCE; + struct MELT_MULTIPLE_STRUCT(9) dtup_380__CLASS_SOURCE_DEFINSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_381__SINST_CLASS; + struct MELT_STRING_STRUCT(11) dstr_382__SINST_CLASS; + struct MELT_OBJECT_STRUCT(4) dobj_383__SINST_CLASS; + struct MELT_STRING_STRUCT(11) dstr_384__SINST_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_385__SINST_CLABIND; + struct MELT_STRING_STRUCT(13) dstr_386__SINST_CLABIND; + struct MELT_OBJECT_STRUCT(4) dobj_387__SINST_CLABIND; + struct MELT_STRING_STRUCT(13) dstr_388__SINST_CLABIND; + struct MELT_OBJECT_STRUCT(3) dsym_389__SINST_OBJNUM; + struct MELT_STRING_STRUCT(12) dstr_390__SINST_OBJNUM; + struct MELT_OBJECT_STRUCT(4) dobj_391__SINST_OBJNUM; + struct MELT_STRING_STRUCT(12) dstr_392__SINST_OBJNUM; + struct MELT_OBJECT_STRUCT(3) dsym_393__SINST_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_394__SINST_FIELDS; + struct MELT_OBJECT_STRUCT(4) dobj_395__SINST_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_396__SINST_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_397__CLASS_SOURCE_DEFSELECTOR; + struct MELT_STRING_STRUCT(24) dstr_398__CLASS_SOURCE_DEF; + struct MELT_OBJECT_STRUCT(8) dobj_399__CLASS_SOURCE_DEFSELECTOR; + struct MELT_STRING_STRUCT(24) dstr_400__CLASS_SOURCE_DEF; + struct MELT_MULTIPLE_STRUCT(7) dtup_401__CLASS_SOURCE_DEFSELECTOR; + struct MELT_MULTIPLE_STRUCT(10) dtup_402__CLASS_SOURCE_DEFSELECTOR; + struct MELT_OBJECT_STRUCT(3) dsym_403__SDEFSEL_FORMALS; + struct MELT_STRING_STRUCT(15) dstr_404__SDEFSEL_FORMALS; + struct MELT_OBJECT_STRUCT(4) dobj_405__SDEFSEL_FORMALS; + struct MELT_STRING_STRUCT(15) dstr_406__SDEFSEL_FORMALS; + struct MELT_OBJECT_STRUCT(3) dsym_407__CLASS_SOURCE_FIELDASSIGN; + struct MELT_STRING_STRUCT(24) dstr_408__CLASS_SOURCE_FIE; + struct MELT_OBJECT_STRUCT(8) dobj_409__CLASS_SOURCE_FIELDASSIGN; + struct MELT_STRING_STRUCT(24) dstr_410__CLASS_SOURCE_FIE; + struct MELT_MULTIPLE_STRUCT(4) dtup_411__CLASS_SOURCE_FIELDASSIGN; + struct MELT_MULTIPLE_STRUCT(4) dtup_412__CLASS_SOURCE_FIELDASSIGN; + struct MELT_OBJECT_STRUCT(3) dsym_413__SFLA_FIELD; + struct MELT_STRING_STRUCT(10) dstr_414__SFLA_FIELD; + struct MELT_OBJECT_STRUCT(4) dobj_415__SFLA_FIELD; + struct MELT_STRING_STRUCT(10) dstr_416__SFLA_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_417__SFLA_EXPR; + struct MELT_STRING_STRUCT(9) dstr_418__SFLA_EXPR; + struct MELT_OBJECT_STRUCT(4) dobj_419__SFLA_EXPR; + struct MELT_STRING_STRUCT(9) dstr_420__SFLA_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_421__CLASS_SOURCE_INSTANCE; + struct MELT_STRING_STRUCT(21) dstr_422__CLASS_SOURCE_INS; + struct MELT_OBJECT_STRUCT(8) dobj_423__CLASS_SOURCE_INSTANCE; + struct MELT_STRING_STRUCT(21) dstr_424__CLASS_SOURCE_INS; + struct MELT_MULTIPLE_STRUCT(4) dtup_425__CLASS_SOURCE_INSTANCE; + struct MELT_MULTIPLE_STRUCT(5) dtup_426__CLASS_SOURCE_INSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_427__SMINS_CLASS; + struct MELT_STRING_STRUCT(11) dstr_428__SMINS_CLASS; + struct MELT_OBJECT_STRUCT(4) dobj_429__SMINS_CLASS; + struct MELT_STRING_STRUCT(11) dstr_430__SMINS_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_431__SMINS_CLABIND; + struct MELT_STRING_STRUCT(13) dstr_432__SMINS_CLABIND; + struct MELT_OBJECT_STRUCT(4) dobj_433__SMINS_CLABIND; + struct MELT_STRING_STRUCT(13) dstr_434__SMINS_CLABIND; + struct MELT_OBJECT_STRUCT(3) dsym_435__SMINS_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_436__SMINS_FIELDS; + struct MELT_OBJECT_STRUCT(4) dobj_437__SMINS_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_438__SMINS_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_439__CLASS_SOURCE_GET_FIELD; + struct MELT_STRING_STRUCT(22) dstr_440__CLASS_SOURCE_GET; + struct MELT_OBJECT_STRUCT(8) dobj_441__CLASS_SOURCE_GET_FIELD; + struct MELT_STRING_STRUCT(22) dstr_442__CLASS_SOURCE_GET; + struct MELT_MULTIPLE_STRUCT(4) dtup_443__CLASS_SOURCE_GET_FIELD; + struct MELT_MULTIPLE_STRUCT(4) dtup_444__CLASS_SOURCE_GET_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_445__SUGET_OBJ; + struct MELT_STRING_STRUCT(9) dstr_446__SUGET_OBJ; + struct MELT_OBJECT_STRUCT(4) dobj_447__SUGET_OBJ; + struct MELT_STRING_STRUCT(9) dstr_448__SUGET_OBJ; + struct MELT_OBJECT_STRUCT(3) dsym_449__SUGET_FIELD; + struct MELT_STRING_STRUCT(11) dstr_450__SUGET_FIELD; + struct MELT_OBJECT_STRUCT(4) dobj_451__SUGET_FIELD; + struct MELT_STRING_STRUCT(11) dstr_452__SUGET_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD; + struct MELT_STRING_STRUCT(29) dstr_454__CLASS_SOURCE_UNS; + struct MELT_OBJECT_STRUCT(8) dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD; + struct MELT_STRING_STRUCT(29) dstr_456__CLASS_SOURCE_UNS; + struct MELT_MULTIPLE_STRUCT(5) dtup_457__CLASS_SOURCE_UNSAFE_GET_FIELD; + struct MELT_MULTIPLE_STRUCT(4) dtup_458__CLASS_SOURCE_UNSAFE_GET_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_459__CLASS_SOURCE_PUT_FIELDS; + struct MELT_STRING_STRUCT(23) dstr_460__CLASS_SOURCE_PUT; + struct MELT_OBJECT_STRUCT(8) dobj_461__CLASS_SOURCE_PUT_FIELDS; + struct MELT_STRING_STRUCT(23) dstr_462__CLASS_SOURCE_PUT; + struct MELT_MULTIPLE_STRUCT(4) dtup_463__CLASS_SOURCE_PUT_FIELDS; + struct MELT_MULTIPLE_STRUCT(4) dtup_464__CLASS_SOURCE_PUT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_465__SUPUT_OBJ; + struct MELT_STRING_STRUCT(9) dstr_466__SUPUT_OBJ; + struct MELT_OBJECT_STRUCT(4) dobj_467__SUPUT_OBJ; + struct MELT_STRING_STRUCT(9) dstr_468__SUPUT_OBJ; + struct MELT_OBJECT_STRUCT(3) dsym_469__SUPUT_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_470__SUPUT_FIELDS; + struct MELT_OBJECT_STRUCT(4) dobj_471__SUPUT_FIELDS; + struct MELT_STRING_STRUCT(12) dstr_472__SUPUT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + struct MELT_STRING_STRUCT(30) dstr_474__CLASS_SOURCE_UNS; + struct MELT_OBJECT_STRUCT(8) dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + struct MELT_STRING_STRUCT(30) dstr_476__CLASS_SOURCE_UNS; + struct MELT_MULTIPLE_STRUCT(5) dtup_477__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + struct MELT_MULTIPLE_STRUCT(4) dtup_478__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_479__CLASS_SOURCE_IF; + struct MELT_STRING_STRUCT(15) dstr_480__CLASS_SOURCE_IF; + struct MELT_OBJECT_STRUCT(8) dobj_481__CLASS_SOURCE_IF; + struct MELT_STRING_STRUCT(15) dstr_482__CLASS_SOURCE_IF; + struct MELT_MULTIPLE_STRUCT(4) dtup_483__CLASS_SOURCE_IF; + struct MELT_MULTIPLE_STRUCT(4) dtup_484__CLASS_SOURCE_IF; + struct MELT_OBJECT_STRUCT(3) dsym_485__SIF_TEST; + struct MELT_STRING_STRUCT(8) dstr_486__SIF_TEST; + struct MELT_OBJECT_STRUCT(4) dobj_487__SIF_TEST; + struct MELT_STRING_STRUCT(8) dstr_488__SIF_TEST; + struct MELT_OBJECT_STRUCT(3) dsym_489__SIF_THEN; + struct MELT_STRING_STRUCT(8) dstr_490__SIF_THEN; + struct MELT_OBJECT_STRUCT(4) dobj_491__SIF_THEN; + struct MELT_STRING_STRUCT(8) dstr_492__SIF_THEN; + struct MELT_OBJECT_STRUCT(3) dsym_493__CLASS_SOURCE_IFELSE; + struct MELT_STRING_STRUCT(19) dstr_494__CLASS_SOURCE_IFE; + struct MELT_OBJECT_STRUCT(8) dobj_495__CLASS_SOURCE_IFELSE; + struct MELT_STRING_STRUCT(19) dstr_496__CLASS_SOURCE_IFE; + struct MELT_MULTIPLE_STRUCT(5) dtup_497__CLASS_SOURCE_IFELSE; + struct MELT_MULTIPLE_STRUCT(5) dtup_498__CLASS_SOURCE_IFELSE; + struct MELT_OBJECT_STRUCT(3) dsym_499__SIF_ELSE; + struct MELT_STRING_STRUCT(8) dstr_500__SIF_ELSE; + struct MELT_OBJECT_STRUCT(4) dobj_501__SIF_ELSE; + struct MELT_STRING_STRUCT(8) dstr_502__SIF_ELSE; + struct MELT_OBJECT_STRUCT(3) dsym_503__CLASS_SOURCE_OR; + struct MELT_STRING_STRUCT(15) dstr_504__CLASS_SOURCE_OR; + struct MELT_OBJECT_STRUCT(8) dobj_505__CLASS_SOURCE_OR; + struct MELT_STRING_STRUCT(15) dstr_506__CLASS_SOURCE_OR; + struct MELT_MULTIPLE_STRUCT(4) dtup_507__CLASS_SOURCE_OR; + struct MELT_MULTIPLE_STRUCT(3) dtup_508__CLASS_SOURCE_OR; + struct MELT_OBJECT_STRUCT(3) dsym_509__SOR_DISJ; + struct MELT_STRING_STRUCT(8) dstr_510__SOR_DISJ; + struct MELT_OBJECT_STRUCT(4) dobj_511__SOR_DISJ; + struct MELT_STRING_STRUCT(8) dstr_512__SOR_DISJ; + struct MELT_OBJECT_STRUCT(3) dsym_513__CLASS_SOURCE_CPPIF; + struct MELT_STRING_STRUCT(18) dstr_514__CLASS_SOURCE_CPP; + struct MELT_OBJECT_STRUCT(8) dobj_515__CLASS_SOURCE_CPPIF; + struct MELT_STRING_STRUCT(18) dstr_516__CLASS_SOURCE_CPP; + struct MELT_MULTIPLE_STRUCT(4) dtup_517__CLASS_SOURCE_CPPIF; + struct MELT_MULTIPLE_STRUCT(5) dtup_518__CLASS_SOURCE_CPPIF; + struct MELT_OBJECT_STRUCT(3) dsym_519__SIFP_COND; + struct MELT_STRING_STRUCT(9) dstr_520__SIFP_COND; + struct MELT_OBJECT_STRUCT(4) dobj_521__SIFP_COND; + struct MELT_STRING_STRUCT(9) dstr_522__SIFP_COND; + struct MELT_OBJECT_STRUCT(3) dsym_523__SIFP_THEN; + struct MELT_STRING_STRUCT(9) dstr_524__SIFP_THEN; + struct MELT_OBJECT_STRUCT(4) dobj_525__SIFP_THEN; + struct MELT_STRING_STRUCT(9) dstr_526__SIFP_THEN; + struct MELT_OBJECT_STRUCT(3) dsym_527__SIFP_ELSE; + struct MELT_STRING_STRUCT(9) dstr_528__SIFP_ELSE; + struct MELT_OBJECT_STRUCT(4) dobj_529__SIFP_ELSE; + struct MELT_STRING_STRUCT(9) dstr_530__SIFP_ELSE; + struct MELT_OBJECT_STRUCT(3) dsym_531__CLASS_SOURCE_MATCH; + struct MELT_STRING_STRUCT(18) dstr_532__CLASS_SOURCE_MAT; + struct MELT_OBJECT_STRUCT(8) dobj_533__CLASS_SOURCE_MATCH; + struct MELT_STRING_STRUCT(18) dstr_534__CLASS_SOURCE_MAT; + struct MELT_MULTIPLE_STRUCT(4) dtup_535__CLASS_SOURCE_MATCH; + struct MELT_MULTIPLE_STRUCT(4) dtup_536__CLASS_SOURCE_MATCH; + struct MELT_OBJECT_STRUCT(3) dsym_537__SMAT_MATCHEDX; + struct MELT_STRING_STRUCT(13) dstr_538__SMAT_MATCHEDX; + struct MELT_OBJECT_STRUCT(4) dobj_539__SMAT_MATCHEDX; + struct MELT_STRING_STRUCT(13) dstr_540__SMAT_MATCHEDX; + struct MELT_OBJECT_STRUCT(3) dsym_541__SMAT_CASES; + struct MELT_STRING_STRUCT(10) dstr_542__SMAT_CASES; + struct MELT_OBJECT_STRUCT(4) dobj_543__SMAT_CASES; + struct MELT_STRING_STRUCT(10) dstr_544__SMAT_CASES; + struct MELT_OBJECT_STRUCT(3) dsym_545__CLASS_SOURCE_MATCH_CASE; + struct MELT_STRING_STRUCT(23) dstr_546__CLASS_SOURCE_MAT; + struct MELT_OBJECT_STRUCT(8) dobj_547__CLASS_SOURCE_MATCH_CASE; + struct MELT_STRING_STRUCT(23) dstr_548__CLASS_SOURCE_MAT; + struct MELT_MULTIPLE_STRUCT(4) dtup_549__CLASS_SOURCE_MATCH_CASE; + struct MELT_MULTIPLE_STRUCT(4) dtup_550__CLASS_SOURCE_MATCH_CASE; + struct MELT_OBJECT_STRUCT(3) dsym_551__SCAM_PATT; + struct MELT_STRING_STRUCT(9) dstr_552__SCAM_PATT; + struct MELT_OBJECT_STRUCT(4) dobj_553__SCAM_PATT; + struct MELT_STRING_STRUCT(9) dstr_554__SCAM_PATT; + struct MELT_OBJECT_STRUCT(3) dsym_555__SCAM_BODY; + struct MELT_STRING_STRUCT(9) dstr_556__SCAM_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_557__SCAM_BODY; + struct MELT_STRING_STRUCT(9) dstr_558__SCAM_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_559__CLASS_SOURCE_LET_BINDING; + struct MELT_STRING_STRUCT(24) dstr_560__CLASS_SOURCE_LET; + struct MELT_OBJECT_STRUCT(8) dobj_561__CLASS_SOURCE_LET_BINDING; + struct MELT_STRING_STRUCT(24) dstr_562__CLASS_SOURCE_LET; + struct MELT_MULTIPLE_STRUCT(4) dtup_563__CLASS_SOURCE_LET_BINDING; + struct MELT_MULTIPLE_STRUCT(5) dtup_564__CLASS_SOURCE_LET_BINDING; + struct MELT_OBJECT_STRUCT(3) dsym_565__SLETB_TYPE; + struct MELT_STRING_STRUCT(10) dstr_566__SLETB_TYPE; + struct MELT_OBJECT_STRUCT(4) dobj_567__SLETB_TYPE; + struct MELT_STRING_STRUCT(10) dstr_568__SLETB_TYPE; + struct MELT_OBJECT_STRUCT(3) dsym_569__SLETB_BINDER; + struct MELT_STRING_STRUCT(12) dstr_570__SLETB_BINDER; + struct MELT_OBJECT_STRUCT(4) dobj_571__SLETB_BINDER; + struct MELT_STRING_STRUCT(12) dstr_572__SLETB_BINDER; + struct MELT_OBJECT_STRUCT(3) dsym_573__SLETB_EXPR; + struct MELT_STRING_STRUCT(10) dstr_574__SLETB_EXPR; + struct MELT_OBJECT_STRUCT(4) dobj_575__SLETB_EXPR; + struct MELT_STRING_STRUCT(10) dstr_576__SLETB_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_577__CLASS_SOURCE_LETREC_BINDING; + struct MELT_STRING_STRUCT(27) dstr_578__CLASS_SOURCE_LET; + struct MELT_OBJECT_STRUCT(8) dobj_579__CLASS_SOURCE_LETREC_BINDING; + struct MELT_STRING_STRUCT(27) dstr_580__CLASS_SOURCE_LET; + struct MELT_MULTIPLE_STRUCT(5) dtup_581__CLASS_SOURCE_LETREC_BINDING; + struct MELT_MULTIPLE_STRUCT(5) dtup_582__CLASS_SOURCE_LETREC_BINDING; + struct MELT_OBJECT_STRUCT(3) dsym_583__CLASS_SOURCE_LET; + struct MELT_STRING_STRUCT(16) dstr_584__CLASS_SOURCE_LET; + struct MELT_OBJECT_STRUCT(8) dobj_585__CLASS_SOURCE_LET; + struct MELT_STRING_STRUCT(16) dstr_586__CLASS_SOURCE_LET; + struct MELT_MULTIPLE_STRUCT(4) dtup_587__CLASS_SOURCE_LET; + struct MELT_MULTIPLE_STRUCT(4) dtup_588__CLASS_SOURCE_LET; + struct MELT_OBJECT_STRUCT(3) dsym_589__SLET_BINDINGS; + struct MELT_STRING_STRUCT(13) dstr_590__SLET_BINDINGS; + struct MELT_OBJECT_STRUCT(4) dobj_591__SLET_BINDINGS; + struct MELT_STRING_STRUCT(13) dstr_592__SLET_BINDINGS; + struct MELT_OBJECT_STRUCT(3) dsym_593__SLET_BODY; + struct MELT_STRING_STRUCT(9) dstr_594__SLET_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_595__SLET_BODY; + struct MELT_STRING_STRUCT(9) dstr_596__SLET_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_597__CLASS_SOURCE_LETREC; + struct MELT_STRING_STRUCT(19) dstr_598__CLASS_SOURCE_LET; + struct MELT_OBJECT_STRUCT(8) dobj_599__CLASS_SOURCE_LETREC; + struct MELT_STRING_STRUCT(19) dstr_600__CLASS_SOURCE_LET; + struct MELT_MULTIPLE_STRUCT(5) dtup_601__CLASS_SOURCE_LETREC; + struct MELT_MULTIPLE_STRUCT(4) dtup_602__CLASS_SOURCE_LETREC; + struct MELT_OBJECT_STRUCT(3) dsym_603__CLASS_SOURCE_LAMBDA; + struct MELT_STRING_STRUCT(19) dstr_604__CLASS_SOURCE_LAM; + struct MELT_OBJECT_STRUCT(8) dobj_605__CLASS_SOURCE_LAMBDA; + struct MELT_STRING_STRUCT(19) dstr_606__CLASS_SOURCE_LAM; + struct MELT_MULTIPLE_STRUCT(4) dtup_607__CLASS_SOURCE_LAMBDA; + struct MELT_MULTIPLE_STRUCT(4) dtup_608__CLASS_SOURCE_LAMBDA; + struct MELT_OBJECT_STRUCT(3) dsym_609__SLAM_ARGBIND; + struct MELT_STRING_STRUCT(12) dstr_610__SLAM_ARGBIND; + struct MELT_OBJECT_STRUCT(4) dobj_611__SLAM_ARGBIND; + struct MELT_STRING_STRUCT(12) dstr_612__SLAM_ARGBIND; + struct MELT_OBJECT_STRUCT(3) dsym_613__SLAM_BODY; + struct MELT_STRING_STRUCT(9) dstr_614__SLAM_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_615__SLAM_BODY; + struct MELT_STRING_STRUCT(9) dstr_616__SLAM_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_617__CLASS_SOURCE_MULTICALL; + struct MELT_STRING_STRUCT(22) dstr_618__CLASS_SOURCE_MUL; + struct MELT_OBJECT_STRUCT(8) dobj_619__CLASS_SOURCE_MULTICALL; + struct MELT_STRING_STRUCT(22) dstr_620__CLASS_SOURCE_MUL; + struct MELT_MULTIPLE_STRUCT(4) dtup_621__CLASS_SOURCE_MULTICALL; + struct MELT_MULTIPLE_STRUCT(5) dtup_622__CLASS_SOURCE_MULTICALL; + struct MELT_OBJECT_STRUCT(3) dsym_623__SMULC_RESBIND; + struct MELT_STRING_STRUCT(13) dstr_624__SMULC_RESBIND; + struct MELT_OBJECT_STRUCT(4) dobj_625__SMULC_RESBIND; + struct MELT_STRING_STRUCT(13) dstr_626__SMULC_RESBIND; + struct MELT_OBJECT_STRUCT(3) dsym_627__SMULC_CALL; + struct MELT_STRING_STRUCT(10) dstr_628__SMULC_CALL; + struct MELT_OBJECT_STRUCT(4) dobj_629__SMULC_CALL; + struct MELT_STRING_STRUCT(10) dstr_630__SMULC_CALL; + struct MELT_OBJECT_STRUCT(3) dsym_631__SMULC_BODY; + struct MELT_STRING_STRUCT(10) dstr_632__SMULC_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_633__SMULC_BODY; + struct MELT_STRING_STRUCT(10) dstr_634__SMULC_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_635__CLASS_SOURCE_LABELLED; + struct MELT_STRING_STRUCT(21) dstr_636__CLASS_SOURCE_LAB; + struct MELT_OBJECT_STRUCT(8) dobj_637__CLASS_SOURCE_LABELLED; + struct MELT_STRING_STRUCT(21) dstr_638__CLASS_SOURCE_LAB; + struct MELT_MULTIPLE_STRUCT(4) dtup_639__CLASS_SOURCE_LABELLED; + struct MELT_MULTIPLE_STRUCT(3) dtup_640__CLASS_SOURCE_LABELLED; + struct MELT_OBJECT_STRUCT(3) dsym_641__SLABEL_BIND; + struct MELT_STRING_STRUCT(11) dstr_642__SLABEL_BIND; + struct MELT_OBJECT_STRUCT(4) dobj_643__SLABEL_BIND; + struct MELT_STRING_STRUCT(11) dstr_644__SLABEL_BIND; + struct MELT_OBJECT_STRUCT(3) dsym_645__CLASS_SOURCE_FOREVER; + struct MELT_STRING_STRUCT(20) dstr_646__CLASS_SOURCE_FOR; + struct MELT_OBJECT_STRUCT(8) dobj_647__CLASS_SOURCE_FOREVER; + struct MELT_STRING_STRUCT(20) dstr_648__CLASS_SOURCE_FOR; + struct MELT_MULTIPLE_STRUCT(5) dtup_649__CLASS_SOURCE_FOREVER; + struct MELT_MULTIPLE_STRUCT(4) dtup_650__CLASS_SOURCE_FOREVER; + struct MELT_OBJECT_STRUCT(3) dsym_651__SFRV_BODY; + struct MELT_STRING_STRUCT(9) dstr_652__SFRV_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_653__SFRV_BODY; + struct MELT_STRING_STRUCT(9) dstr_654__SFRV_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_655__CLASS_SOURCE_EXIT; + struct MELT_STRING_STRUCT(17) dstr_656__CLASS_SOURCE_EXI; + struct MELT_OBJECT_STRUCT(8) dobj_657__CLASS_SOURCE_EXIT; + struct MELT_STRING_STRUCT(17) dstr_658__CLASS_SOURCE_EXI; + struct MELT_MULTIPLE_STRUCT(5) dtup_659__CLASS_SOURCE_EXIT; + struct MELT_MULTIPLE_STRUCT(4) dtup_660__CLASS_SOURCE_EXIT; + struct MELT_OBJECT_STRUCT(3) dsym_661__SEXI_BODY; + struct MELT_STRING_STRUCT(9) dstr_662__SEXI_BODY; + struct MELT_OBJECT_STRUCT(4) dobj_663__SEXI_BODY; + struct MELT_STRING_STRUCT(9) dstr_664__SEXI_BODY; + struct MELT_OBJECT_STRUCT(3) dsym_665__CLASS_SOURCE_COMPILEWARNING; + struct MELT_STRING_STRUCT(27) dstr_666__CLASS_SOURCE_COM; + struct MELT_OBJECT_STRUCT(8) dobj_667__CLASS_SOURCE_COMPILEWARNING; + struct MELT_STRING_STRUCT(27) dstr_668__CLASS_SOURCE_COM; + struct MELT_MULTIPLE_STRUCT(4) dtup_669__CLASS_SOURCE_COMPILEWARNING; + struct MELT_MULTIPLE_STRUCT(4) dtup_670__CLASS_SOURCE_COMPILEWARNING; + struct MELT_OBJECT_STRUCT(3) dsym_671__SCWARN_MSG; + struct MELT_STRING_STRUCT(10) dstr_672__SCWARN_MSG; + struct MELT_OBJECT_STRUCT(4) dobj_673__SCWARN_MSG; + struct MELT_STRING_STRUCT(10) dstr_674__SCWARN_MSG; + struct MELT_OBJECT_STRUCT(3) dsym_675__SCWARN_EXPR; + struct MELT_STRING_STRUCT(11) dstr_676__SCWARN_EXPR; + struct MELT_OBJECT_STRUCT(4) dobj_677__SCWARN_EXPR; + struct MELT_STRING_STRUCT(11) dstr_678__SCWARN_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(49) dstr_680__CLASS_SOURCE_CUR; + struct MELT_OBJECT_STRUCT(8) dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(49) dstr_682__CLASS_SOURCE_CUR; + struct MELT_MULTIPLE_STRUCT(4) dtup_683__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_MULTIPLE_STRUCT(3) dtup_684__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_685__CMEC_COMMENT; + struct MELT_STRING_STRUCT(12) dstr_686__CMEC_COMMENT; + struct MELT_OBJECT_STRUCT(4) dobj_687__CMEC_COMMENT; + struct MELT_STRING_STRUCT(12) dstr_688__CMEC_COMMENT; + struct MELT_OBJECT_STRUCT(3) dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + struct MELT_STRING_STRUCT(38) dstr_690__CLASS_SOURCE_PAR; + struct MELT_OBJECT_STRUCT(8) dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + struct MELT_STRING_STRUCT(38) dstr_692__CLASS_SOURCE_PAR; + struct MELT_MULTIPLE_STRUCT(4) dtup_693__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + struct MELT_MULTIPLE_STRUCT(2) dtup_694__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + struct MELT_OBJECT_STRUCT(3) dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(56) dstr_696__CLASS_SOURCE_UPD; + struct MELT_OBJECT_STRUCT(8) dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(56) dstr_698__CLASS_SOURCE_UPD; + struct MELT_MULTIPLE_STRUCT(4) dtup_699__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_MULTIPLE_STRUCT(3) dtup_700__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_701__SUCME_COMMENT; + struct MELT_STRING_STRUCT(13) dstr_702__SUCME_COMMENT; + struct MELT_OBJECT_STRUCT(4) dobj_703__SUCME_COMMENT; + struct MELT_STRING_STRUCT(13) dstr_704__SUCME_COMMENT; + struct MELT_OBJECT_STRUCT(3) dsym_705__CLASS_SOURCE_FETCH_PREDEFINED; + struct MELT_STRING_STRUCT(29) dstr_706__CLASS_SOURCE_FET; + struct MELT_OBJECT_STRUCT(8) dobj_707__CLASS_SOURCE_FETCH_PREDEFINED; + struct MELT_STRING_STRUCT(29) dstr_708__CLASS_SOURCE_FET; + struct MELT_MULTIPLE_STRUCT(4) dtup_709__CLASS_SOURCE_FETCH_PREDEFINED; + struct MELT_MULTIPLE_STRUCT(3) dtup_710__CLASS_SOURCE_FETCH_PREDEFINED; + struct MELT_OBJECT_STRUCT(3) dsym_711__SFEPD_PREDEF; + struct MELT_STRING_STRUCT(12) dstr_712__SFEPD_PREDEF; + struct MELT_OBJECT_STRUCT(4) dobj_713__SFEPD_PREDEF; + struct MELT_STRING_STRUCT(12) dstr_714__SFEPD_PREDEF; + struct MELT_OBJECT_STRUCT(3) dsym_715__CLASS_SOURCE_STORE_PREDEFINED; + struct MELT_STRING_STRUCT(29) dstr_716__CLASS_SOURCE_STO; + struct MELT_OBJECT_STRUCT(8) dobj_717__CLASS_SOURCE_STORE_PREDEFINED; + struct MELT_STRING_STRUCT(29) dstr_718__CLASS_SOURCE_STO; + struct MELT_MULTIPLE_STRUCT(4) dtup_719__CLASS_SOURCE_STORE_PREDEFINED; + struct MELT_MULTIPLE_STRUCT(4) dtup_720__CLASS_SOURCE_STORE_PREDEFINED; + struct MELT_OBJECT_STRUCT(3) dsym_721__SSTPD_PREDEF; + struct MELT_STRING_STRUCT(12) dstr_722__SSTPD_PREDEF; + struct MELT_OBJECT_STRUCT(4) dobj_723__SSTPD_PREDEF; + struct MELT_STRING_STRUCT(12) dstr_724__SSTPD_PREDEF; + struct MELT_OBJECT_STRUCT(3) dsym_725__SSTPD_VALUE; + struct MELT_STRING_STRUCT(11) dstr_726__SSTPD_VALUE; + struct MELT_OBJECT_STRUCT(4) dobj_727__SSTPD_VALUE; + struct MELT_STRING_STRUCT(11) dstr_728__SSTPD_VALUE; + struct MELT_OBJECT_STRUCT(3) dsym_729__CLASS_SOURCE_CODECHUNK; + struct MELT_STRING_STRUCT(22) dstr_730__CLASS_SOURCE_COD; + struct MELT_OBJECT_STRUCT(8) dobj_731__CLASS_SOURCE_CODECHUNK; + struct MELT_STRING_STRUCT(22) dstr_732__CLASS_SOURCE_COD; + struct MELT_MULTIPLE_STRUCT(4) dtup_733__CLASS_SOURCE_CODECHUNK; + struct MELT_MULTIPLE_STRUCT(4) dtup_734__CLASS_SOURCE_CODECHUNK; + struct MELT_OBJECT_STRUCT(3) dsym_735__SCH_GENSYM; + struct MELT_STRING_STRUCT(10) dstr_736__SCH_GENSYM; + struct MELT_OBJECT_STRUCT(4) dobj_737__SCH_GENSYM; + struct MELT_STRING_STRUCT(10) dstr_738__SCH_GENSYM; + struct MELT_OBJECT_STRUCT(3) dsym_739__SCH_CHUNKS; + struct MELT_STRING_STRUCT(10) dstr_740__SCH_CHUNKS; + struct MELT_OBJECT_STRUCT(4) dobj_741__SCH_CHUNKS; + struct MELT_STRING_STRUCT(10) dstr_742__SCH_CHUNKS; + struct MELT_OBJECT_STRUCT(3) dsym_743__CLASS_SOURCE_PATTERN; + struct MELT_STRING_STRUCT(20) dstr_744__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_745__CLASS_SOURCE_PATTERN; + struct MELT_STRING_STRUCT(20) dstr_746__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(4) dtup_747__CLASS_SOURCE_PATTERN; + struct MELT_MULTIPLE_STRUCT(3) dtup_748__CLASS_SOURCE_PATTERN; + struct MELT_OBJECT_STRUCT(3) dsym_749__PAT_WEIGHT; + struct MELT_STRING_STRUCT(10) dstr_750__PAT_WEIGHT; + struct MELT_OBJECT_STRUCT(4) dobj_751__PAT_WEIGHT; + struct MELT_STRING_STRUCT(10) dstr_752__PAT_WEIGHT; + struct MELT_OBJECT_STRUCT(3) dsym_753__CLASS_SOURCE_PATTERN_OR; + struct MELT_STRING_STRUCT(23) dstr_754__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_755__CLASS_SOURCE_PATTERN_OR; + struct MELT_STRING_STRUCT(23) dstr_756__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_757__CLASS_SOURCE_PATTERN_OR; + struct MELT_MULTIPLE_STRUCT(4) dtup_758__CLASS_SOURCE_PATTERN_OR; + struct MELT_OBJECT_STRUCT(3) dsym_759__ORPAT_DISJ; + struct MELT_STRING_STRUCT(10) dstr_760__ORPAT_DISJ; + struct MELT_OBJECT_STRUCT(4) dobj_761__ORPAT_DISJ; + struct MELT_STRING_STRUCT(10) dstr_762__ORPAT_DISJ; + struct MELT_OBJECT_STRUCT(3) dsym_763__CLASS_SOURCE_PATTERN_AND; + struct MELT_STRING_STRUCT(24) dstr_764__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_765__CLASS_SOURCE_PATTERN_AND; + struct MELT_STRING_STRUCT(24) dstr_766__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_767__CLASS_SOURCE_PATTERN_AND; + struct MELT_MULTIPLE_STRUCT(4) dtup_768__CLASS_SOURCE_PATTERN_AND; + struct MELT_OBJECT_STRUCT(3) dsym_769__ANDPAT_CONJ; + struct MELT_STRING_STRUCT(11) dstr_770__ANDPAT_CONJ; + struct MELT_OBJECT_STRUCT(4) dobj_771__ANDPAT_CONJ; + struct MELT_STRING_STRUCT(11) dstr_772__ANDPAT_CONJ; + struct MELT_OBJECT_STRUCT(3) dsym_773__CLASS_SOURCE_PATTERN_WHEN; + struct MELT_STRING_STRUCT(25) dstr_774__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_775__CLASS_SOURCE_PATTERN_WHEN; + struct MELT_STRING_STRUCT(25) dstr_776__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_777__CLASS_SOURCE_PATTERN_WHEN; + struct MELT_MULTIPLE_STRUCT(5) dtup_778__CLASS_SOURCE_PATTERN_WHEN; + struct MELT_OBJECT_STRUCT(3) dsym_779__WHENPAT_SUBPAT; + struct MELT_STRING_STRUCT(14) dstr_780__WHENPAT_SUBPAT; + struct MELT_OBJECT_STRUCT(4) dobj_781__WHENPAT_SUBPAT; + struct MELT_STRING_STRUCT(14) dstr_782__WHENPAT_SUBPAT; + struct MELT_OBJECT_STRUCT(3) dsym_783__WHENPAT_COND; + struct MELT_STRING_STRUCT(12) dstr_784__WHENPAT_COND; + struct MELT_OBJECT_STRUCT(4) dobj_785__WHENPAT_COND; + struct MELT_STRING_STRUCT(12) dstr_786__WHENPAT_COND; + struct MELT_OBJECT_STRUCT(3) dsym_787__CLASS_SOURCE_PATTERN_VARIABLE; + struct MELT_STRING_STRUCT(29) dstr_788__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_789__CLASS_SOURCE_PATTERN_VARIABLE; + struct MELT_STRING_STRUCT(29) dstr_790__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_791__CLASS_SOURCE_PATTERN_VARIABLE; + struct MELT_MULTIPLE_STRUCT(5) dtup_792__CLASS_SOURCE_PATTERN_VARIABLE; + struct MELT_OBJECT_STRUCT(3) dsym_793__SPATVAR_SYMB; + struct MELT_STRING_STRUCT(12) dstr_794__SPATVAR_SYMB; + struct MELT_OBJECT_STRUCT(4) dobj_795__SPATVAR_SYMB; + struct MELT_STRING_STRUCT(12) dstr_796__SPATVAR_SYMB; + struct MELT_OBJECT_STRUCT(3) dsym_797__SPATVAR_NBOCC; + struct MELT_STRING_STRUCT(13) dstr_798__SPATVAR_NBOCC; + struct MELT_OBJECT_STRUCT(4) dobj_799__SPATVAR_NBOCC; + struct MELT_STRING_STRUCT(13) dstr_800__SPATVAR_NBOCC; + struct MELT_OBJECT_STRUCT(3) dsym_801__SPAT_VAR; + struct MELT_STRING_STRUCT(8) dstr_802__SPAT_VAR; + struct MELT_OBJECT_STRUCT(3) dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + struct MELT_STRING_STRUCT(35) dstr_804__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + struct MELT_STRING_STRUCT(35) dstr_806__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(6) dtup_807__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + struct MELT_MULTIPLE_STRUCT(5) dtup_808__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + struct MELT_OBJECT_STRUCT(3) dsym_809__CLASS_SOURCE_PATTERN_CONSTANT; + struct MELT_STRING_STRUCT(29) dstr_810__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_811__CLASS_SOURCE_PATTERN_CONSTANT; + struct MELT_STRING_STRUCT(29) dstr_812__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_813__CLASS_SOURCE_PATTERN_CONSTANT; + struct MELT_MULTIPLE_STRUCT(4) dtup_814__CLASS_SOURCE_PATTERN_CONSTANT; + struct MELT_OBJECT_STRUCT(3) dsym_815__SPAT_CONSTX; + struct MELT_STRING_STRUCT(11) dstr_816__SPAT_CONSTX; + struct MELT_OBJECT_STRUCT(4) dobj_817__SPAT_CONSTX; + struct MELT_STRING_STRUCT(11) dstr_818__SPAT_CONSTX; + struct MELT_OBJECT_STRUCT(3) dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT; + struct MELT_STRING_STRUCT(30) dstr_820__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT; + struct MELT_STRING_STRUCT(30) dstr_822__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_823__CLASS_SOURCE_PATTERN_CONSTRUCT; + struct MELT_MULTIPLE_STRUCT(4) dtup_824__CLASS_SOURCE_PATTERN_CONSTRUCT; + struct MELT_OBJECT_STRUCT(3) dsym_825__CTPAT_SUBPA; + struct MELT_STRING_STRUCT(11) dstr_826__CTPAT_SUBPA; + struct MELT_OBJECT_STRUCT(4) dobj_827__CTPAT_SUBPA; + struct MELT_STRING_STRUCT(11) dstr_828__CTPAT_SUBPA; + struct MELT_OBJECT_STRUCT(3) dsym_829__CLASS_SOURCE_PATTERN_TUPLE; + struct MELT_STRING_STRUCT(26) dstr_830__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_831__CLASS_SOURCE_PATTERN_TUPLE; + struct MELT_STRING_STRUCT(26) dstr_832__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(6) dtup_833__CLASS_SOURCE_PATTERN_TUPLE; + struct MELT_MULTIPLE_STRUCT(4) dtup_834__CLASS_SOURCE_PATTERN_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_835__CLASS_SOURCE_PATTERN_LIST; + struct MELT_STRING_STRUCT(25) dstr_836__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_837__CLASS_SOURCE_PATTERN_LIST; + struct MELT_STRING_STRUCT(25) dstr_838__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(6) dtup_839__CLASS_SOURCE_PATTERN_LIST; + struct MELT_MULTIPLE_STRUCT(4) dtup_840__CLASS_SOURCE_PATTERN_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_841__CLASS_SOURCE_PATTERN_OBJECT; + struct MELT_STRING_STRUCT(27) dstr_842__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_843__CLASS_SOURCE_PATTERN_OBJECT; + struct MELT_STRING_STRUCT(27) dstr_844__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(5) dtup_845__CLASS_SOURCE_PATTERN_OBJECT; + struct MELT_MULTIPLE_STRUCT(5) dtup_846__CLASS_SOURCE_PATTERN_OBJECT; + struct MELT_OBJECT_STRUCT(3) dsym_847__SPAT_CLASS; + struct MELT_STRING_STRUCT(10) dstr_848__SPAT_CLASS; + struct MELT_OBJECT_STRUCT(4) dobj_849__SPAT_CLASS; + struct MELT_STRING_STRUCT(10) dstr_850__SPAT_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_851__SPAT_FIELDS; + struct MELT_STRING_STRUCT(11) dstr_852__SPAT_FIELDS; + struct MELT_OBJECT_STRUCT(4) dobj_853__SPAT_FIELDS; + struct MELT_STRING_STRUCT(11) dstr_854__SPAT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_855__CLASS_SOURCE_PATTERN_INSTANCE; + struct MELT_STRING_STRUCT(29) dstr_856__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_857__CLASS_SOURCE_PATTERN_INSTANCE; + struct MELT_STRING_STRUCT(29) dstr_858__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(6) dtup_859__CLASS_SOURCE_PATTERN_INSTANCE; + struct MELT_MULTIPLE_STRUCT(5) dtup_860__CLASS_SOURCE_PATTERN_INSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_861__CLASS_SOURCE_FIELD_PATTERN; + struct MELT_STRING_STRUCT(26) dstr_862__CLASS_SOURCE_FIE; + struct MELT_OBJECT_STRUCT(8) dobj_863__CLASS_SOURCE_FIELD_PATTERN; + struct MELT_STRING_STRUCT(26) dstr_864__CLASS_SOURCE_FIE; + struct MELT_MULTIPLE_STRUCT(4) dtup_865__CLASS_SOURCE_FIELD_PATTERN; + struct MELT_MULTIPLE_STRUCT(4) dtup_866__CLASS_SOURCE_FIELD_PATTERN; + struct MELT_OBJECT_STRUCT(3) dsym_867__SPAF_FIELD; + struct MELT_STRING_STRUCT(10) dstr_868__SPAF_FIELD; + struct MELT_OBJECT_STRUCT(4) dobj_869__SPAF_FIELD; + struct MELT_STRING_STRUCT(10) dstr_870__SPAF_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_871__SPAF_PATTERN; + struct MELT_STRING_STRUCT(12) dstr_872__SPAF_PATTERN; + struct MELT_OBJECT_STRUCT(4) dobj_873__SPAF_PATTERN; + struct MELT_STRING_STRUCT(12) dstr_874__SPAF_PATTERN; + struct MELT_OBJECT_STRUCT(3) dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE; + struct MELT_STRING_STRUCT(30) dstr_876__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE; + struct MELT_STRING_STRUCT(30) dstr_878__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(6) dtup_879__CLASS_SOURCE_PATTERN_COMPOSITE; + struct MELT_MULTIPLE_STRUCT(9) dtup_880__CLASS_SOURCE_PATTERN_COMPOSITE; + struct MELT_OBJECT_STRUCT(3) dsym_881__SPAC_OPERATOR; + struct MELT_STRING_STRUCT(13) dstr_882__SPAC_OPERATOR; + struct MELT_OBJECT_STRUCT(4) dobj_883__SPAC_OPERATOR; + struct MELT_STRING_STRUCT(13) dstr_884__SPAC_OPERATOR; + struct MELT_OBJECT_STRUCT(3) dsym_885__SPAC_OPERBIND; + struct MELT_STRING_STRUCT(13) dstr_886__SPAC_OPERBIND; + struct MELT_OBJECT_STRUCT(4) dobj_887__SPAC_OPERBIND; + struct MELT_STRING_STRUCT(13) dstr_888__SPAC_OPERBIND; + struct MELT_OBJECT_STRUCT(3) dsym_889__SPAC_INARGS; + struct MELT_STRING_STRUCT(11) dstr_890__SPAC_INARGS; + struct MELT_OBJECT_STRUCT(4) dobj_891__SPAC_INARGS; + struct MELT_STRING_STRUCT(11) dstr_892__SPAC_INARGS; + struct MELT_OBJECT_STRUCT(3) dsym_893__SPAC_OUTARGS; + struct MELT_STRING_STRUCT(12) dstr_894__SPAC_OUTARGS; + struct MELT_OBJECT_STRUCT(4) dobj_895__SPAC_OUTARGS; + struct MELT_STRING_STRUCT(12) dstr_896__SPAC_OUTARGS; + struct MELT_OBJECT_STRUCT(3) dsym_897__CLASS_SOURCE_PATTERN_MATCHER; + struct MELT_STRING_STRUCT(28) dstr_898__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_899__CLASS_SOURCE_PATTERN_MATCHER; + struct MELT_STRING_STRUCT(28) dstr_900__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(7) dtup_901__CLASS_SOURCE_PATTERN_MATCHER; + struct MELT_MULTIPLE_STRUCT(9) dtup_902__CLASS_SOURCE_PATTERN_MATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_903__CLASS_SOURCE_PATTERN_C_MATCH; + struct MELT_STRING_STRUCT(28) dstr_904__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_905__CLASS_SOURCE_PATTERN_C_MATCH; + struct MELT_STRING_STRUCT(28) dstr_906__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(8) dtup_907__CLASS_SOURCE_PATTERN_C_MATCH; + struct MELT_MULTIPLE_STRUCT(9) dtup_908__CLASS_SOURCE_PATTERN_C_MATCH; + struct MELT_OBJECT_STRUCT(3) dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH; + struct MELT_STRING_STRUCT(30) dstr_910__CLASS_SOURCE_PAT; + struct MELT_OBJECT_STRUCT(8) dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH; + struct MELT_STRING_STRUCT(30) dstr_912__CLASS_SOURCE_PAT; + struct MELT_MULTIPLE_STRUCT(8) dtup_913__CLASS_SOURCE_PATTERN_FUN_MATCH; + struct MELT_MULTIPLE_STRUCT(9) dtup_914__CLASS_SOURCE_PATTERN_FUN_MATCH; + struct MELT_ROUTINE_STRUCT(2) drout_915__EXPAND_RESTLIST_AS_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_916__EXPAND_RESTLIST_AS_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_917__CLASS_ENVIRONMENT; + struct MELT_STRING_STRUCT(17) dstr_918__CLASS_ENVIRONMEN; + struct MELT_ROUTINE_STRUCT(4) drout_919__EXPAND_RESTLIST_AS_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_920__EXPAND_RESTLIST_AS_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_921__LIST_TO_MULTIPLE; + struct MELT_STRING_STRUCT(16) dstr_922__LIST_TO_MULTIPLE; + struct MELT_OBJECT_STRUCT(3) dsym_923__DISCR_MULTIPLE; + struct MELT_STRING_STRUCT(14) dstr_924__DISCR_MULTIPLE; + struct MELT_ROUTINE_STRUCT(2) drout_925__EXPAND_PAIRLIST_AS_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_926__EXPAND_PAIRLIST_AS_LIST; + struct MELT_ROUTINE_STRUCT(4) drout_927__EXPAND_PAIRLIST_AS_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_928__EXPAND_PAIRLIST_AS_TUPLE; + struct MELT_ROUTINE_STRUCT(5) drout_929__EXPAND_APPLY; + struct MELT_CLOSURE_STRUCT(0) dclo_930__EXPAND_APPLY; + struct MELT_OBJECT_STRUCT(3) dsym_931__CLASS_SEXPR; + struct MELT_STRING_STRUCT(11) dstr_932__CLASS_SEXPR; + struct MELT_ROUTINE_STRUCT(7) drout_933__EXPAND_MSEND; + struct MELT_CLOSURE_STRUCT(0) dclo_934__EXPAND_MSEND; + struct MELT_OBJECT_STRUCT(3) dsym_935__CLASS_SYMBOL; + struct MELT_STRING_STRUCT(12) dstr_936__CLASS_SYMBOL; + struct MELT_OBJECT_STRUCT(3) dsym_937__DEBUG_MSG_FUN; + struct MELT_STRING_STRUCT(13) dstr_938__DEBUG_MSG_FUN; + struct MELT_ROUTINE_STRUCT(10) drout_939__EXPAND_FIELDEXPR; + struct MELT_CLOSURE_STRUCT(0) dclo_940__EXPAND_FIELDEXPR; + struct MELT_OBJECT_STRUCT(3) dsym_941__CLASS_FIELD; + struct MELT_STRING_STRUCT(11) dstr_942__CLASS_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_943__CLASS_KEYWORD; + struct MELT_STRING_STRUCT(13) dstr_944__CLASS_KEYWORD; + struct MELT_OBJECT_STRUCT(3) dsym_945__CLASS_NAMED; + struct MELT_STRING_STRUCT(11) dstr_946__CLASS_NAMED; + struct MELT_ROUTINE_STRUCT(8) drout_947__EXPAND_CITERATION; + struct MELT_CLOSURE_STRUCT(0) dclo_948__EXPAND_CITERATION; + struct MELT_OBJECT_STRUCT(3) dsym_949__CLASS_CITERATOR; + struct MELT_STRING_STRUCT(15) dstr_950__CLASS_CITERATOR; + struct MELT_ROUTINE_STRUCT(6) drout_951__EXPAND_CMATCHEXPR; + struct MELT_CLOSURE_STRUCT(0) dclo_952__EXPAND_CMATCHEXPR; + struct MELT_OBJECT_STRUCT(3) dsym_953__CLASS_CMATCHER; + struct MELT_STRING_STRUCT(14) dstr_954__CLASS_CMATCHER; + struct MELT_ROUTINE_STRUCT(6) drout_955__EXPAND_FUNMATCHEXPR; + struct MELT_CLOSURE_STRUCT(0) dclo_956__EXPAND_FUNMATCHEXPR; + struct MELT_OBJECT_STRUCT(3) dsym_957__CLASS_FUNMATCHER; + struct MELT_STRING_STRUCT(16) dstr_958__CLASS_FUNMATCHER; + struct MELT_ROUTINE_STRUCT(5) drout_959__EXPAND_KEYWORDFUN; + struct MELT_CLOSURE_STRUCT(0) dclo_960__EXPAND_KEYWORDFUN; + struct MELT_ROUTINE_STRUCT(33) drout_961__MACROEXPAND_1; + struct MELT_CLOSURE_STRUCT(0) dclo_962__MACROEXPAND_1; + struct MELT_OBJECT_STRUCT(3) dsym_963__FIND_ENV; + struct MELT_STRING_STRUCT(8) dstr_964__FIND_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_965__CLASS_MACRO_BINDING; + struct MELT_STRING_STRUCT(19) dstr_966__CLASS_MACRO_BIND; + struct MELT_OBJECT_STRUCT(3) dsym_967__CLASS_SELECTOR_BINDING; + struct MELT_STRING_STRUCT(22) dstr_968__CLASS_SELECTOR_B; + struct MELT_OBJECT_STRUCT(3) dsym_969__CLASS_PRIMITIVE_BINDING; + struct MELT_STRING_STRUCT(23) dstr_970__CLASS_PRIMITIVE_; + struct MELT_OBJECT_STRUCT(3) dsym_971__CLASS_CITERATOR_BINDING; + struct MELT_STRING_STRUCT(23) dstr_972__CLASS_CITERATOR_; + struct MELT_OBJECT_STRUCT(3) dsym_973__CLASS_CMATCHER_BINDING; + struct MELT_STRING_STRUCT(22) dstr_974__CLASS_CMATCHER_B; + struct MELT_OBJECT_STRUCT(3) dsym_975__CLASS_FUNMATCHER_BINDING; + struct MELT_STRING_STRUCT(24) dstr_976__CLASS_FUNMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_977__CLASS_FIELD_BINDING; + struct MELT_STRING_STRUCT(19) dstr_978__CLASS_FIELD_BIND; + struct MELT_OBJECT_STRUCT(3) dsym_979__CLASS_VALUE_BINDING; + struct MELT_STRING_STRUCT(19) dstr_980__CLASS_VALUE_BIND; + struct MELT_OBJECT_STRUCT(3) dsym_981__CLASS_PRIMITIVE; + struct MELT_STRING_STRUCT(15) dstr_982__CLASS_PRIMITIVE; + struct MELT_ROUTINE_STRUCT(1) drout_983__LAMBDA_; + struct MELT_ROUTINE_STRUCT(5) drout_984__EXPAND_PRIMITIVE; + struct MELT_CLOSURE_STRUCT(0) dclo_985__EXPAND_PRIMITIVE; + struct MELT_OBJECT_STRUCT(3) dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_STRING_STRUCT(31) dstr_987__CLASS_PATTERN_EX; + struct MELT_OBJECT_STRUCT(3) dsym_988__CLASS_ROOT; + struct MELT_STRING_STRUCT(10) dstr_989__CLASS_ROOT; + struct MELT_OBJECT_STRUCT(8) dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_STRING_STRUCT(31) dstr_991__CLASS_PATTERN_EX; + struct MELT_MULTIPLE_STRUCT(1) dtup_992__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_MULTIPLE_STRUCT(3) dtup_993__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_OBJECT_STRUCT(3) dsym_994__PCTX_MEXPANDER; + struct MELT_STRING_STRUCT(14) dstr_995__PCTX_MEXPANDER; + struct MELT_OBJECT_STRUCT(4) dobj_996__PCTX_MEXPANDER; + struct MELT_STRING_STRUCT(14) dstr_997__PCTX_MEXPANDER; + struct MELT_OBJECT_STRUCT(3) dsym_998__PCTX_PEXPANDER; + struct MELT_STRING_STRUCT(14) dstr_999__PCTX_PEXPANDER; + struct MELT_OBJECT_STRUCT(4) dobj_1000__PCTX_PEXPANDER; + struct MELT_STRING_STRUCT(14) dstr_1001__PCTX_PEXPANDER; + struct MELT_OBJECT_STRUCT(3) dsym_1002__PCTX_VARMAP; + struct MELT_STRING_STRUCT(11) dstr_1003__PCTX_VARMAP; + struct MELT_OBJECT_STRUCT(4) dobj_1004__PCTX_VARMAP; + struct MELT_STRING_STRUCT(11) dstr_1005__PCTX_VARMAP; + struct MELT_ROUTINE_STRUCT(5) drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_1007__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_1008__PAIRLIST_TO_MULTIPLE; + struct MELT_STRING_STRUCT(20) dstr_1009__PAIRLIST_TO_MULT; + struct MELT_ROUTINE_STRUCT(1) drout_1010__LAMBDA_; + struct MELT_ROUTINE_STRUCT(14) drout_1011__PATMACEXPAND_FOR_MATCHER; + struct MELT_CLOSURE_STRUCT(0) dclo_1012__PATMACEXPAND_FOR_MATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_1013__CLASS_ANY_MATCHER; + struct MELT_STRING_STRUCT(17) dstr_1014__CLASS_ANY_MATCHE; + struct MELT_OBJECT_STRUCT(3) dsym_1015__DISCR_BOX; + struct MELT_STRING_STRUCT(9) dstr_1016__DISCR_BOX; + struct MELT_OBJECT_STRUCT(3) dsym_1017__MULTIPLE_MAP; + struct MELT_STRING_STRUCT(12) dstr_1018__MULTIPLE_MAP; + struct MELT_ROUTINE_STRUCT(3) drout_1019__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1020__CLASS_FORMAL_BINDING; + struct MELT_STRING_STRUCT(20) dstr_1021__CLASS_FORMAL_BIN; + struct MELT_ROUTINE_STRUCT(2) drout_1022__LAMBDA_; + struct MELT_ROUTINE_STRUCT(5) drout_1023__PATTERN_WEIGHT_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_1024__PATTERN_WEIGHT_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_1025__DISCR_INTEGER; + struct MELT_STRING_STRUCT(13) dstr_1026__DISCR_INTEGER; + struct MELT_ROUTINE_STRUCT(2) drout_1027__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1028__DISCR_CONSTANT_INTEGER; + struct MELT_STRING_STRUCT(22) dstr_1029__DISCR_CONSTANT_I; + struct MELT_ROUTINE_STRUCT(19) drout_1030__PATTERNEXPAND_EXPR; + struct MELT_CLOSURE_STRUCT(0) dclo_1031__PATTERNEXPAND_EXPR; + struct MELT_OBJECT_STRUCT(3) dsym_1032__CLASS_PATMACRO_BINDING; + struct MELT_STRING_STRUCT(22) dstr_1033__CLASS_PATMACRO_B; + struct MELT_ROUTINE_STRUCT(17) drout_1034__PATTERNEXPAND_1; + struct MELT_CLOSURE_STRUCT(0) dclo_1035__PATTERNEXPAND_1; + struct MELT_OBJECT_STRUCT(3) dsym_1036__QUESTION; + struct MELT_STRING_STRUCT(8) dstr_1037__QUESTION; + struct meltint_st dint_1038__; + struct MELT_OBJECT_STRUCT(3) dsym_1039__; + struct MELT_STRING_STRUCT(1) dstr_1040__; + struct meltint_st dint_1041__; + struct meltint_st dint_1042__; + struct meltint_st dint_1043__; + struct MELT_ROUTINE_STRUCT(5) drout_1044__MACROEXPAND_TOPLEVEL_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_1045__MACROEXPAND_TOPLEVEL_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_1046__DISCR_LIST; + struct MELT_STRING_STRUCT(10) dstr_1047__DISCR_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_1048__CLASS_LOCATED; + struct MELT_STRING_STRUCT(13) dstr_1049__CLASS_LOCATED; + struct MELT_ROUTINE_STRUCT(11) drout_1050__LAMBDA_ARG_BINDINGS; + struct MELT_CLOSURE_STRUCT(0) dclo_1051__LAMBDA_ARG_BINDINGS; + struct MELT_OBJECT_STRUCT(3) dsym_1052__CTYPE_VALUE; + struct MELT_STRING_STRUCT(11) dstr_1053__CTYPE_VALUE; + struct MELT_OBJECT_STRUCT(3) dsym_1054__DISCR_MAP_OBJECTS; + struct MELT_STRING_STRUCT(17) dstr_1055__DISCR_MAP_OBJECT; + struct MELT_OBJECT_STRUCT(3) dsym_1056__CLASS_CTYPE; + struct MELT_STRING_STRUCT(11) dstr_1057__CLASS_CTYPE; + struct MELT_ROUTINE_STRUCT(6) drout_1058__INSTALL_INITIAL_MACRO; + struct MELT_CLOSURE_STRUCT(0) dclo_1059__INSTALL_INITIAL_MACRO; + struct MELT_OBJECT_STRUCT(3) dsym_1060__PUT_ENV; + struct MELT_STRING_STRUCT(7) dstr_1061__PUT_ENV; + struct MELT_OBJECT_STRUCT(3) dsym_1062__INITIAL_ENVIRONMENT; + struct MELT_STRING_STRUCT(19) dstr_1063__INITIAL_ENVIRONM; + struct MELT_ROUTINE_STRUCT(5) drout_1064__INSTALL_INITIAL_PATMACRO; + struct MELT_CLOSURE_STRUCT(0) dclo_1065__INSTALL_INITIAL_PATMACRO; + struct MELT_OBJECT_STRUCT(3) dsym_1066__WARN_SHADOW; + struct MELT_STRING_STRUCT(11) dstr_1067__WARN_SHADOW; + struct MELT_OBJECT_STRUCT(5) dobj_1068__WARN_SHADOW; + struct MELT_MULTIPLE_STRUCT(1) dtup_1069__WARN_SHADOW; + struct MELT_MULTIPLE_STRUCT(0) dtup_1070__WARN_SHADOW; + struct MELT_STRING_STRUCT(11) dstr_1071__warn_shadow; + struct MELT_STRING_STRUCT(11) dstr_1072__WARN_SHADOW; + struct MELT_ROUTINE_STRUCT(3) drout_1073__WARN_IF_REDEFINED; + struct MELT_CLOSURE_STRUCT(0) dclo_1074__WARN_IF_REDEFINED; + struct MELT_ROUTINE_STRUCT(6) drout_1075__FLATTEN_FOR_C_CODE_EXPANSION; + struct MELT_CLOSURE_STRUCT(0) dclo_1076__FLATTEN_FOR_C_CODE_EXPANSION; + struct MELT_OBJECT_STRUCT(3) dsym_1077__DISCR_VERBATIM_STRING; + struct MELT_STRING_STRUCT(21) dstr_1078__DISCR_VERBATIM_S; + struct MELT_ROUTINE_STRUCT(5) drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION; + struct MELT_CLOSURE_STRUCT(0) dclo_1080__PARSE_PAIRLIST_C_CODE_EXPANSION; + struct MELT_ROUTINE_STRUCT(3) drout_1081__CHECK_C_EXPANSION; + struct MELT_CLOSURE_STRUCT(0) dclo_1082__CHECK_C_EXPANSION; + struct MELT_ROUTINE_STRUCT(19) drout_1083__MEXPAND_DEFPRIMITIVE; + struct MELT_CLOSURE_STRUCT(0) dclo_1084__MEXPAND_DEFPRIMITIVE; + struct MELT_OBJECT_STRUCT(3) dsym_1085__DOC; + struct MELT_STRING_STRUCT(3) dstr_1086__DOC; + struct MELT_OBJECT_STRUCT(3) dsym_1087__CLASS_ANY_BINDING; + struct MELT_STRING_STRUCT(17) dstr_1088__CLASS_ANY_BINDIN; + struct MELT_OBJECT_STRUCT(3) dsym_1089__DEFPRIMITIVE; + struct MELT_STRING_STRUCT(12) dstr_1090__DEFPRIMITIVE; + struct MELT_ROUTINE_STRUCT(15) drout_1091__MEXPAND_DEFCITERATOR; + struct MELT_CLOSURE_STRUCT(0) dclo_1092__MEXPAND_DEFCITERATOR; + struct MELT_OBJECT_STRUCT(3) dsym_1093__DEFCITERATOR; + struct MELT_STRING_STRUCT(12) dstr_1094__DEFCITERATOR; + struct MELT_ROUTINE_STRUCT(18) drout_1095__MEXPAND_DEFCMATCHER; + struct MELT_CLOSURE_STRUCT(0) dclo_1096__MEXPAND_DEFCMATCHER; + struct MELT_OBJECT_STRUCT(3) dsym_1097__MULTIPLE_EVERY; + struct MELT_STRING_STRUCT(14) dstr_1098__MULTIPLE_EVERY; + struct MELT_ROUTINE_STRUCT(0) drout_1099__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1100__DEFCMATCHER; + struct MELT_STRING_STRUCT(11) dstr_1101__DEFCMATCHER; + struct MELT_ROUTINE_STRUCT(14) drout_1102__MEXPAND_DEFUNMATCHER; + struct MELT_CLOSURE_STRUCT(0) dclo_1103__MEXPAND_DEFUNMATCHER; + struct MELT_ROUTINE_STRUCT(0) drout_1104__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1105__DEFUNMATCHER; + struct MELT_STRING_STRUCT(12) dstr_1106__DEFUNMATCHER; + struct MELT_ROUTINE_STRUCT(16) drout_1107__MEXPAND_DEFUN; + struct MELT_CLOSURE_STRUCT(0) dclo_1108__MEXPAND_DEFUN; + struct MELT_OBJECT_STRUCT(3) dsym_1109__FRESH_ENV; + struct MELT_STRING_STRUCT(9) dstr_1110__FRESH_ENV; + struct MELT_ROUTINE_STRUCT(1) drout_1111__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1112__CLASS_FUNCTION_BINDING; + struct MELT_STRING_STRUCT(22) dstr_1113__CLASS_FUNCTION_B; + struct MELT_OBJECT_STRUCT(3) dsym_1114__DEFUN; + struct MELT_STRING_STRUCT(5) dstr_1115__DEFUN; + struct MELT_ROUTINE_STRUCT(2) drout_1116__MEXPAND_DEFINE; + struct MELT_CLOSURE_STRUCT(0) dclo_1117__MEXPAND_DEFINE; + struct MELT_OBJECT_STRUCT(3) dsym_1118__DEFINE; + struct MELT_STRING_STRUCT(6) dstr_1119__DEFINE; + struct MELT_ROUTINE_STRUCT(15) drout_1120__SCAN_DEFCLASS; + struct MELT_CLOSURE_STRUCT(0) dclo_1121__SCAN_DEFCLASS; + struct MELT_OBJECT_STRUCT(3) dsym_1122__SUPER; + struct MELT_STRING_STRUCT(5) dstr_1123__SUPER; + struct MELT_OBJECT_STRUCT(3) dsym_1124__CLASS_CLASS_BINDING; + struct MELT_STRING_STRUCT(19) dstr_1125__CLASS_CLASS_BIND; + struct MELT_OBJECT_STRUCT(3) dsym_1126__CLASS_CLASS; + struct MELT_STRING_STRUCT(11) dstr_1127__CLASS_CLASS; + struct MELT_OBJECT_STRUCT(3) dsym_1128__FIELDS; + struct MELT_STRING_STRUCT(6) dstr_1129__FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_1130__PREDEF; + struct MELT_STRING_STRUCT(6) dstr_1131__PREDEF; + struct MELT_ROUTINE_STRUCT(27) drout_1132__MEXPAND_DEFCLASS; + struct MELT_CLOSURE_STRUCT(0) dclo_1133__MEXPAND_DEFCLASS; + struct MELT_OBJECT_STRUCT(3) dsym_1134__DISCR_CLASS_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_1135__DISCR_CLASS_SEQU; + struct MELT_OBJECT_STRUCT(3) dsym_1136__DISCR_MAP_STRINGS; + struct MELT_STRING_STRUCT(17) dstr_1137__DISCR_MAP_STRING; + struct MELT_OBJECT_STRUCT(3) dsym_1138__DISCR_FIELD_SEQUENCE; + struct MELT_STRING_STRUCT(20) dstr_1139__DISCR_FIELD_SEQU; + struct MELT_ROUTINE_STRUCT(1) drout_1140__LAMBDA_; + struct MELT_ROUTINE_STRUCT(9) drout_1141__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1142__DEFCLASS; + struct MELT_STRING_STRUCT(8) dstr_1143__DEFCLASS; + struct MELT_ROUTINE_STRUCT(15) drout_1144__PARSE_FIELD_ASSIGNMENT; + struct MELT_CLOSURE_STRUCT(0) dclo_1145__PARSE_FIELD_ASSIGNMENT; + struct MELT_OBJECT_STRUCT(3) dsym_1146__MULTIPLE_ITERATE_TEST; + struct MELT_STRING_STRUCT(21) dstr_1147__MULTIPLE_ITERATE; + struct MELT_ROUTINE_STRUCT(3) drout_1148__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1149__TRUE; + struct MELT_STRING_STRUCT(4) dstr_1150__TRUE; + struct MELT_ROUTINE_STRUCT(21) drout_1151__MEXPAND_DEFINSTANCE; + struct MELT_CLOSURE_STRUCT(0) dclo_1152__MEXPAND_DEFINSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_1153__OBJ_NUM; + struct MELT_STRING_STRUCT(7) dstr_1154__OBJ_NUM; + struct MELT_OBJECT_STRUCT(3) dsym_1155__CLASS_INSTANCE_BINDING; + struct MELT_STRING_STRUCT(22) dstr_1156__CLASS_INSTANCE_B; + struct MELT_OBJECT_STRUCT(3) dsym_1157__DEFINSTANCE; + struct MELT_STRING_STRUCT(11) dstr_1158__DEFINSTANCE; + struct MELT_ROUTINE_STRUCT(28) drout_1159__MEXPAND_DEFSELECTOR; + struct MELT_CLOSURE_STRUCT(0) dclo_1160__MEXPAND_DEFSELECTOR; + struct MELT_OBJECT_STRUCT(3) dsym_1161__MELT_MODE_CONTAINER; + struct MELT_STRING_STRUCT(19) dstr_1162__MELT_MODE_CONTAI; + struct MELT_OBJECT_STRUCT(3) dsym_1163__CLASS_CONTAINER; + struct MELT_STRING_STRUCT(15) dstr_1164__CLASS_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_1165__FORMALS; + struct MELT_STRING_STRUCT(7) dstr_1166__FORMALS; + struct MELT_OBJECT_STRUCT(3) dsym_1167__DEFSELECTOR; + struct MELT_STRING_STRUCT(11) dstr_1168__DEFSELECTOR; + struct MELT_ROUTINE_STRUCT(14) drout_1169__MEXPAND_INSTANCE; + struct MELT_CLOSURE_STRUCT(0) dclo_1170__MEXPAND_INSTANCE; + struct MELT_OBJECT_STRUCT(3) dsym_1171__INSTANCE; + struct MELT_STRING_STRUCT(8) dstr_1172__INSTANCE; + struct MELT_ROUTINE_STRUCT(8) drout_1173__MEXPAND_LOAD; + struct MELT_CLOSURE_STRUCT(0) dclo_1174__MEXPAND_LOAD; + struct MELT_OBJECT_STRUCT(3) dsym_1175__LOAD; + struct MELT_STRING_STRUCT(4) dstr_1176__LOAD; + struct MELT_ROUTINE_STRUCT(12) drout_1177__PARSE_FIELD_PATTERN; + struct MELT_CLOSURE_STRUCT(0) dclo_1178__PARSE_FIELD_PATTERN; + struct MELT_ROUTINE_STRUCT(1) drout_1179__LAMBDA_; + struct MELT_ROUTINE_STRUCT(20) drout_1180__PATEXPAND_INSTANCE; + struct MELT_CLOSURE_STRUCT(0) dclo_1181__PATEXPAND_INSTANCE; + struct MELT_ROUTINE_STRUCT(1) drout_1182__LAMBDA_; + struct MELT_ROUTINE_STRUCT(20) drout_1183__PATEXPAND_OBJECT; + struct MELT_CLOSURE_STRUCT(0) dclo_1184__PATEXPAND_OBJECT; + struct MELT_ROUTINE_STRUCT(1) drout_1185__LAMBDA_; + struct MELT_ROUTINE_STRUCT(3) drout_1186__MEXPAND_OBJECT; + struct MELT_CLOSURE_STRUCT(0) dclo_1187__MEXPAND_OBJECT; + struct MELT_OBJECT_STRUCT(3) dsym_1188__OBJECT; + struct MELT_STRING_STRUCT(6) dstr_1189__OBJECT; + struct MELT_ROUTINE_STRUCT(10) drout_1190__MEXPAND_CODE_CHUNK; + struct MELT_CLOSURE_STRUCT(0) dclo_1191__MEXPAND_CODE_CHUNK; + struct MELT_OBJECT_STRUCT(3) dsym_1192__CODE_CHUNK; + struct MELT_STRING_STRUCT(10) dstr_1193__CODE_CHUNK; + struct MELT_ROUTINE_STRUCT(9) drout_1194__MEXPAND_UNSAFE_PUT_FIELDS; + struct MELT_CLOSURE_STRUCT(0) dclo_1195__MEXPAND_UNSAFE_PUT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_1196__UNSAFE_PUT_FIELDS; + struct MELT_STRING_STRUCT(17) dstr_1197__UNSAFE_PUT_FIELD; + struct MELT_ROUTINE_STRUCT(9) drout_1198__MEXPAND_PUT_FIELDS; + struct MELT_CLOSURE_STRUCT(0) dclo_1199__MEXPAND_PUT_FIELDS; + struct MELT_OBJECT_STRUCT(3) dsym_1200__PUT_FIELDS; + struct MELT_STRING_STRUCT(10) dstr_1201__PUT_FIELDS; + struct MELT_ROUTINE_STRUCT(6) drout_1202__MEXPAND_UNSAFE_GET_FIELD; + struct MELT_CLOSURE_STRUCT(0) dclo_1203__MEXPAND_UNSAFE_GET_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_1204__UNSAFE_GET_FIELD; + struct MELT_STRING_STRUCT(16) dstr_1205__UNSAFE_GET_FIELD; + struct MELT_ROUTINE_STRUCT(6) drout_1206__MEXPAND_GET_FIELD; + struct MELT_CLOSURE_STRUCT(0) dclo_1207__MEXPAND_GET_FIELD; + struct MELT_OBJECT_STRUCT(3) dsym_1208__GET_FIELD; + struct MELT_STRING_STRUCT(9) dstr_1209__GET_FIELD; + struct MELT_ROUTINE_STRUCT(5) drout_1210__MEXPAND_SETQ; + struct MELT_CLOSURE_STRUCT(0) dclo_1211__MEXPAND_SETQ; + struct MELT_OBJECT_STRUCT(3) dsym_1212__SETQ; + struct MELT_STRING_STRUCT(4) dstr_1213__SETQ; + struct MELT_ROUTINE_STRUCT(6) drout_1214__MEXPAND_IF; + struct MELT_CLOSURE_STRUCT(0) dclo_1215__MEXPAND_IF; + struct MELT_OBJECT_STRUCT(3) dsym_1216__IF; + struct MELT_STRING_STRUCT(2) dstr_1217__IF; + struct MELT_ROUTINE_STRUCT(6) drout_1218__MEXPAND_CPPIF; + struct MELT_CLOSURE_STRUCT(0) dclo_1219__MEXPAND_CPPIF; + struct MELT_OBJECT_STRUCT(3) dsym_1220__CPPIF; + struct MELT_STRING_STRUCT(5) dstr_1221__CPPIF; + struct MELT_ROUTINE_STRUCT(0) drout_1222__FILTERGCCVERSION; + struct MELT_CLOSURE_STRUCT(0) dclo_1223__FILTERGCCVERSION; + struct MELT_ROUTINE_STRUCT(6) drout_1224__MEXPAND_GCCIF; + struct MELT_CLOSURE_STRUCT(0) dclo_1225__MEXPAND_GCCIF; + struct MELT_OBJECT_STRUCT(3) dsym_1226__GCCIF; + struct MELT_STRING_STRUCT(5) dstr_1227__GCCIF; + struct MELT_ROUTINE_STRUCT(12) drout_1228__MEXPAND_COND; + struct MELT_CLOSURE_STRUCT(0) dclo_1229__MEXPAND_COND; + struct MELT_ROUTINE_STRUCT(1) drout_1230__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1231__ELSE; + struct MELT_STRING_STRUCT(4) dstr_1232__ELSE; + struct MELT_OBJECT_STRUCT(3) dsym_1233__COND; + struct MELT_STRING_STRUCT(4) dstr_1234__COND; + struct MELT_ROUTINE_STRUCT(8) drout_1235__MEXPAND_AND; + struct MELT_CLOSURE_STRUCT(0) dclo_1236__MEXPAND_AND; + struct MELT_ROUTINE_STRUCT(1) drout_1237__LAMBDA_; + struct MELT_ROUTINE_STRUCT(10) drout_1238__PATEXPAND_AS; + struct MELT_CLOSURE_STRUCT(0) dclo_1239__PATEXPAND_AS; + struct MELT_ROUTINE_STRUCT(3) drout_1240__MEXPAND_AS; + struct MELT_CLOSURE_STRUCT(0) dclo_1241__MEXPAND_AS; + struct MELT_OBJECT_STRUCT(3) dsym_1242__AS; + struct MELT_STRING_STRUCT(2) dstr_1243__AS; + struct MELT_ROUTINE_STRUCT(4) drout_1244__PATEXPAND_WHEN; + struct MELT_CLOSURE_STRUCT(0) dclo_1245__PATEXPAND_WHEN; + struct MELT_ROUTINE_STRUCT(3) drout_1246__MEXPAND_WHEN; + struct MELT_CLOSURE_STRUCT(0) dclo_1247__MEXPAND_WHEN; + struct MELT_OBJECT_STRUCT(3) dsym_1248__WHEN; + struct MELT_STRING_STRUCT(4) dstr_1249__WHEN; + struct MELT_ROUTINE_STRUCT(8) drout_1250__PATEXPAND_AND; + struct MELT_CLOSURE_STRUCT(0) dclo_1251__PATEXPAND_AND; + struct MELT_OBJECT_STRUCT(3) dsym_1252__AND; + struct MELT_STRING_STRUCT(3) dstr_1253__AND; + struct MELT_ROUTINE_STRUCT(8) drout_1254__MEXPAND_OR; + struct MELT_CLOSURE_STRUCT(0) dclo_1255__MEXPAND_OR; + struct MELT_ROUTINE_STRUCT(1) drout_1256__LAMBDA_; + struct MELT_ROUTINE_STRUCT(8) drout_1257__PATEXPAND_OR; + struct MELT_CLOSURE_STRUCT(0) dclo_1258__PATEXPAND_OR; + struct MELT_OBJECT_STRUCT(3) dsym_1259__OR; + struct MELT_STRING_STRUCT(2) dstr_1260__OR; + struct MELT_ROUTINE_STRUCT(5) drout_1261__MEXPAND_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_1262__MEXPAND_TUPLE; + struct MELT_ROUTINE_STRUCT(6) drout_1263__PATEXPAND_TUPLE; + struct MELT_CLOSURE_STRUCT(0) dclo_1264__PATEXPAND_TUPLE; + struct MELT_OBJECT_STRUCT(3) dsym_1265__TUPLE; + struct MELT_STRING_STRUCT(5) dstr_1266__TUPLE; + struct MELT_ROUTINE_STRUCT(5) drout_1267__MEXPAND_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_1268__MEXPAND_LIST; + struct MELT_ROUTINE_STRUCT(6) drout_1269__PATEXPAND_LIST; + struct MELT_CLOSURE_STRUCT(0) dclo_1270__PATEXPAND_LIST; + struct MELT_OBJECT_STRUCT(3) dsym_1271__LIST; + struct MELT_STRING_STRUCT(4) dstr_1272__LIST; + struct MELT_ROUTINE_STRUCT(17) drout_1273__MEXPAND_MATCH; + struct MELT_CLOSURE_STRUCT(0) dclo_1274__MEXPAND_MATCH; + struct MELT_ROUTINE_STRUCT(1) drout_1275__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1276__MATCH; + struct MELT_STRING_STRUCT(5) dstr_1277__MATCH; + struct MELT_ROUTINE_STRUCT(13) drout_1278__MEXPAND_LETBINDING; + struct MELT_CLOSURE_STRUCT(0) dclo_1279__MEXPAND_LETBINDING; + struct MELT_OBJECT_STRUCT(3) dsym_1280__CLASS_LET_BINDING; + struct MELT_STRING_STRUCT(17) dstr_1281__CLASS_LET_BINDIN; + struct MELT_OBJECT_STRUCT(3) dsym_1282__CLASS_FIXED_BINDING; + struct MELT_STRING_STRUCT(19) dstr_1283__CLASS_FIXED_BIND; + struct MELT_ROUTINE_STRUCT(16) drout_1284__MEXPAND_LET; + struct MELT_CLOSURE_STRUCT(0) dclo_1285__MEXPAND_LET; + struct MELT_ROUTINE_STRUCT(2) drout_1286__LAMBDA_; + struct MELT_ROUTINE_STRUCT(3) drout_1287__LAMBDA_; struct MELT_ROUTINE_STRUCT(1) drout_1288__LAMBDA_; - struct MELT_ROUTINE_STRUCT(8) drout_1289__PATEXPAND_OR; - struct MELT_CLOSURE_STRUCT(0) dclo_1290__PATEXPAND_OR; - struct MELT_OBJECT_STRUCT(3) dsym_1291__OR; - struct MELT_STRING_STRUCT(2) dstr_1292__OR; - struct MELT_ROUTINE_STRUCT(5) drout_1293__MEXPAND_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_1294__MEXPAND_TUPLE; - struct MELT_ROUTINE_STRUCT(6) drout_1295__PATEXPAND_TUPLE; - struct MELT_CLOSURE_STRUCT(0) dclo_1296__PATEXPAND_TUPLE; - struct MELT_OBJECT_STRUCT(3) dsym_1297__TUPLE; - struct MELT_STRING_STRUCT(5) dstr_1298__TUPLE; - struct MELT_ROUTINE_STRUCT(5) drout_1299__MEXPAND_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_1300__MEXPAND_LIST; - struct MELT_ROUTINE_STRUCT(6) drout_1301__PATEXPAND_LIST; - struct MELT_CLOSURE_STRUCT(0) dclo_1302__PATEXPAND_LIST; - struct MELT_OBJECT_STRUCT(3) dsym_1303__LIST; - struct MELT_STRING_STRUCT(4) dstr_1304__LIST; - struct MELT_ROUTINE_STRUCT(17) drout_1305__MEXPAND_MATCH; - struct MELT_CLOSURE_STRUCT(0) dclo_1306__MEXPAND_MATCH; - struct MELT_ROUTINE_STRUCT(1) drout_1307__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1308__MATCH; - struct MELT_STRING_STRUCT(5) dstr_1309__MATCH; - struct MELT_ROUTINE_STRUCT(13) drout_1310__MEXPAND_LETBINDING; - struct MELT_CLOSURE_STRUCT(0) dclo_1311__MEXPAND_LETBINDING; - struct MELT_OBJECT_STRUCT(3) dsym_1312__CLASS_LET_BINDING; - struct MELT_STRING_STRUCT(17) dstr_1313__CLASS_LET_BINDIN; - struct MELT_OBJECT_STRUCT(3) dsym_1314__CLASS_FIXED_BINDING; - struct MELT_STRING_STRUCT(19) dstr_1315__CLASS_FIXED_BIND; - struct MELT_ROUTINE_STRUCT(16) drout_1316__MEXPAND_LET; - struct MELT_CLOSURE_STRUCT(0) dclo_1317__MEXPAND_LET; - struct MELT_ROUTINE_STRUCT(2) drout_1318__LAMBDA_; - struct MELT_ROUTINE_STRUCT(3) drout_1319__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_1320__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1321__LET; - struct MELT_STRING_STRUCT(3) dstr_1322__LET; - struct MELT_ROUTINE_STRUCT(1) drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE; - struct MELT_CLOSURE_STRUCT(0) dclo_1324__YES_RECURSIVELY_CONSTRUCTIBLE; - struct MELT_OBJECT_STRUCT(3) dsym_1325__INSTALL_METHOD; - struct MELT_STRING_STRUCT(14) dstr_1326__INSTALL_METHOD; - struct MELT_ROUTINE_STRUCT(22) drout_1327__MEXPAND_LETREC; - struct MELT_CLOSURE_STRUCT(0) dclo_1328__MEXPAND_LETREC; - struct MELT_ROUTINE_STRUCT(1) drout_1329__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1330__CLASS_LETREC_BINDING; - struct MELT_STRING_STRUCT(20) dstr_1331__CLASS_LETREC_BIN; - struct MELT_ROUTINE_STRUCT(1) drout_1332__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1333__LETREC; - struct MELT_STRING_STRUCT(6) dstr_1334__LETREC; - struct MELT_ROUTINE_STRUCT(12) drout_1335__MEXPAND_LAMBDA; - struct MELT_CLOSURE_STRUCT(0) dclo_1336__MEXPAND_LAMBDA; - struct MELT_ROUTINE_STRUCT(1) drout_1337__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_1338__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1339__LAMBDA; - struct MELT_STRING_STRUCT(6) dstr_1340__LAMBDA; - struct MELT_ROUTINE_STRUCT(16) drout_1341__MEXPAND_MULTICALL; - struct MELT_CLOSURE_STRUCT(0) dclo_1342__MEXPAND_MULTICALL; - struct MELT_ROUTINE_STRUCT(1) drout_1343__LAMBDA_; - struct MELT_ROUTINE_STRUCT(1) drout_1344__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1345__MULTICALL; - struct MELT_STRING_STRUCT(9) dstr_1346__MULTICALL; - struct MELT_ROUTINE_STRUCT(5) drout_1347__MEXPAND_QUOTE; - struct MELT_CLOSURE_STRUCT(0) dclo_1348__MEXPAND_QUOTE; - struct MELT_OBJECT_STRUCT(3) dsym_1349__QUOTE; - struct MELT_STRING_STRUCT(5) dstr_1350__QUOTE; - struct MELT_ROUTINE_STRUCT(3) drout_1351__MEXPAND_COMMENT; - struct MELT_CLOSURE_STRUCT(0) dclo_1352__MEXPAND_COMMENT; - struct MELT_OBJECT_STRUCT(3) dsym_1353__COMMENT; - struct MELT_STRING_STRUCT(7) dstr_1354__COMMENT; - struct MELT_ROUTINE_STRUCT(7) drout_1355__PAIRLIST_TO_PROGN; - struct MELT_CLOSURE_STRUCT(0) dclo_1356__PAIRLIST_TO_PROGN; - struct MELT_ROUTINE_STRUCT(1) drout_1357__LAMBDA_; - struct MELT_ROUTINE_STRUCT(6) drout_1358__PAIRLIST_TO_RETURN; - struct MELT_CLOSURE_STRUCT(0) dclo_1359__PAIRLIST_TO_RETURN; - struct MELT_ROUTINE_STRUCT(1) drout_1360__LAMBDA_; - struct MELT_ROUTINE_STRUCT(2) drout_1361__MEXPAND_PROGN; - struct MELT_CLOSURE_STRUCT(0) dclo_1362__MEXPAND_PROGN; - struct MELT_OBJECT_STRUCT(3) dsym_1363__PROGN; - struct MELT_STRING_STRUCT(5) dstr_1364__PROGN; - struct MELT_ROUTINE_STRUCT(2) drout_1365__MEXPAND_RETURN; - struct MELT_CLOSURE_STRUCT(0) dclo_1366__MEXPAND_RETURN; - struct MELT_OBJECT_STRUCT(3) dsym_1367__RETURN; - struct MELT_STRING_STRUCT(6) dstr_1368__RETURN; - struct MELT_ROUTINE_STRUCT(11) drout_1369__MEXPAND_FOREVER; - struct MELT_CLOSURE_STRUCT(0) dclo_1370__MEXPAND_FOREVER; - struct MELT_OBJECT_STRUCT(3) dsym_1371__CLASS_LABEL_BINDING; - struct MELT_STRING_STRUCT(19) dstr_1372__CLASS_LABEL_BIND; - struct MELT_ROUTINE_STRUCT(1) drout_1373__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1374__FOREVER; - struct MELT_STRING_STRUCT(7) dstr_1375__FOREVER; - struct MELT_ROUTINE_STRUCT(11) drout_1376__MEXPAND_EXIT; - struct MELT_CLOSURE_STRUCT(0) dclo_1377__MEXPAND_EXIT; - struct MELT_ROUTINE_STRUCT(1) drout_1378__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1379__EXIT; - struct MELT_STRING_STRUCT(4) dstr_1380__EXIT; - struct MELT_ROUTINE_STRUCT(4) drout_1381__MEXPAND_COMPILE_WARNING; - struct MELT_CLOSURE_STRUCT(0) dclo_1382__MEXPAND_COMPILE_WARNING; - struct MELT_OBJECT_STRUCT(3) dsym_1383__COMPILE_WARNING; - struct MELT_STRING_STRUCT(15) dstr_1384__COMPILE_WARNING; - struct MELT_ROUTINE_STRUCT(15) drout_1385__MEXPAND_ASSERT_MSG; - struct MELT_CLOSURE_STRUCT(0) dclo_1386__MEXPAND_ASSERT_MSG; - struct MELT_OBJECT_STRUCT(3) dsym_1387__ASSERT_FAILED; - struct MELT_STRING_STRUCT(13) dstr_1388__ASSERT_FAILED; - struct MELT_OBJECT_STRUCT(3) dsym_1389__FIND_ENV_DEBUG; - struct MELT_STRING_STRUCT(14) dstr_1390__FIND_ENV_DEBUG; - struct MELT_OBJECT_STRUCT(3) dsym_1391__ENABLE_CHECKING; - struct MELT_STRING_STRUCT(15) dstr_1392__ENABLE_CHECKING; - struct MELT_OBJECT_STRUCT(3) dsym_1393__ASSERT_MSG; - struct MELT_STRING_STRUCT(10) dstr_1394__ASSERT_MSG; - struct MELT_ROUTINE_STRUCT(11) drout_1395__MEXPAND_DEBUG_MSG; - struct MELT_CLOSURE_STRUCT(0) dclo_1396__MEXPAND_DEBUG_MSG; - struct MELT_OBJECT_STRUCT(3) dsym_1397__THE_MELTCALLCOUNT; - struct MELT_STRING_STRUCT(17) dstr_1398__THE_MELTCALLCOUN; - struct MELT_OBJECT_STRUCT(3) dsym_1399__DEBUG_MSG; - struct MELT_STRING_STRUCT(9) dstr_1400__DEBUG_MSG; - struct MELT_ROUTINE_STRUCT(10) drout_1401__MEXPAND_EXPORT_VALUES; - struct MELT_CLOSURE_STRUCT(0) dclo_1402__MEXPAND_EXPORT_VALUES; - struct MELT_ROUTINE_STRUCT(3) drout_1403__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1404__EXPORT_VALUES; - struct MELT_STRING_STRUCT(13) dstr_1405__EXPORT_VALUES; - struct MELT_ROUTINE_STRUCT(7) drout_1406__MEXPAND_EXPORT_MACRO; - struct MELT_CLOSURE_STRUCT(0) dclo_1407__MEXPAND_EXPORT_MACRO; - struct MELT_OBJECT_STRUCT(3) dsym_1408__EXPORT_MACRO; - struct MELT_STRING_STRUCT(12) dstr_1409__EXPORT_MACRO; - struct MELT_ROUTINE_STRUCT(7) drout_1410__MEXPAND_EXPORT_PATMACRO; - struct MELT_CLOSURE_STRUCT(0) dclo_1411__MEXPAND_EXPORT_PATMACRO; - struct MELT_OBJECT_STRUCT(3) dsym_1412__EXPORT_PATMACRO; - struct MELT_STRING_STRUCT(15) dstr_1413__EXPORT_PATMACRO; - struct MELT_ROUTINE_STRUCT(9) drout_1414__MEXPAND_EXPORT_CLASS; - struct MELT_CLOSURE_STRUCT(0) dclo_1415__MEXPAND_EXPORT_CLASS; - struct MELT_ROUTINE_STRUCT(2) drout_1416__LAMBDA_; - struct MELT_OBJECT_STRUCT(3) dsym_1417__EXPORT_CLASS; - struct MELT_STRING_STRUCT(12) dstr_1418__EXPORT_CLASS; - struct MELT_ROUTINE_STRUCT(7) drout_1419__MEXPAND_EXPORT_SYNONYM; - struct MELT_CLOSURE_STRUCT(0) dclo_1420__MEXPAND_EXPORT_SYNONYM; - struct MELT_OBJECT_STRUCT(3) dsym_1421__EXPORT_SYNONYM; - struct MELT_STRING_STRUCT(14) dstr_1422__EXPORT_SYNONYM; - struct MELT_ROUTINE_STRUCT(4) drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_CLOSURE_STRUCT(0) dclo_1424__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(36) dstr_1426__CURRENT_MODULE_E; - struct MELT_ROUTINE_STRUCT(4) drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT; - struct MELT_CLOSURE_STRUCT(0) dclo_1428__MEXPAND_PARENT_MODULE_ENVIRONMENT; - struct MELT_OBJECT_STRUCT(3) dsym_1429__PARENT_MODULE_ENVIRONMENT; - struct MELT_STRING_STRUCT(25) dstr_1430__PARENT_MODULE_EN; - struct MELT_ROUTINE_STRUCT(4) drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_CLOSURE_STRUCT(0) dclo_1432__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_OBJECT_STRUCT(3) dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - struct MELT_STRING_STRUCT(43) dstr_1434__UPDATE_CURRENT_M; - struct MELT_ROUTINE_STRUCT(6) drout_1435__MEXPAND_FETCH_PREDEFINED; - struct MELT_CLOSURE_STRUCT(0) dclo_1436__MEXPAND_FETCH_PREDEFINED; - struct MELT_OBJECT_STRUCT(3) dsym_1437__FETCH_PREDEFINED; - struct MELT_STRING_STRUCT(16) dstr_1438__FETCH_PREDEFINED; - struct MELT_ROUTINE_STRUCT(6) drout_1439__MEXPAND_STORE_PREDEFINED; - struct MELT_CLOSURE_STRUCT(0) dclo_1440__MEXPAND_STORE_PREDEFINED; - struct MELT_OBJECT_STRUCT(3) dsym_1441__STORE_PREDEFINED; - struct MELT_STRING_STRUCT(16) dstr_1442__STORE_PREDEFINED; - struct MELT_OBJECT_STRUCT(3) dsym_1443__EXPAND_APPLY; - struct MELT_STRING_STRUCT(12) dstr_1444__EXPAND_APPLY; - struct MELT_OBJECT_STRUCT(3) dsym_1445__EXPAND_MSEND; - struct MELT_STRING_STRUCT(12) dstr_1446__EXPAND_MSEND; - struct MELT_OBJECT_STRUCT(3) dsym_1447__EXPAND_PAIRLIST_AS_TUPLE; - struct MELT_STRING_STRUCT(24) dstr_1448__EXPAND_PAIRLIST_; - struct MELT_OBJECT_STRUCT(3) dsym_1449__EXPAND_PRIMITIVE; - struct MELT_STRING_STRUCT(16) dstr_1450__EXPAND_PRIMITIVE; - struct MELT_OBJECT_STRUCT(3) dsym_1451__INSTALL_INITIAL_MACRO; - struct MELT_STRING_STRUCT(21) dstr_1452__INSTALL_INITIAL_; - struct MELT_OBJECT_STRUCT(3) dsym_1453__LAMBDA_ARG_BINDINGS; - struct MELT_STRING_STRUCT(19) dstr_1454__LAMBDA_ARG_BINDI; - struct MELT_OBJECT_STRUCT(3) dsym_1455__MACROEXPAND_1; - struct MELT_STRING_STRUCT(13) dstr_1456__MACROEXPAND_1; - struct MELT_OBJECT_STRUCT(3) dsym_1457__MACROEXPAND_TOPLEVEL_LIST; - struct MELT_STRING_STRUCT(25) dstr_1458__MACROEXPAND_TOPL; - struct MELT_OBJECT_STRUCT(3) dsym_1459__PATTERNEXPAND_1; - struct MELT_STRING_STRUCT(15) dstr_1460__PATTERNEXPAND_1; - struct MELT_OBJECT_STRUCT(3) dsym_1461__PATTERNEXPAND_EXPR; - struct MELT_STRING_STRUCT(18) dstr_1462__PATTERNEXPAND_EX; - struct MELT_OBJECT_STRUCT(3) dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct MELT_STRING_STRUCT(31) dstr_1464__PATTERNEXPAND_PA; - struct MELT_OBJECT_STRUCT(3) dsym_1465__PATTERN_WEIGHT_TUPLE; - struct MELT_STRING_STRUCT(20) dstr_1466__PATTERN_WEIGHT_T; + struct MELT_OBJECT_STRUCT(3) dsym_1289__LET; + struct MELT_STRING_STRUCT(3) dstr_1290__LET; + struct MELT_ROUTINE_STRUCT(1) drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE; + struct MELT_CLOSURE_STRUCT(0) dclo_1292__YES_RECURSIVELY_CONSTRUCTIBLE; + struct MELT_OBJECT_STRUCT(3) dsym_1293__INSTALL_METHOD; + struct MELT_STRING_STRUCT(14) dstr_1294__INSTALL_METHOD; + struct MELT_ROUTINE_STRUCT(22) drout_1295__MEXPAND_LETREC; + struct MELT_CLOSURE_STRUCT(0) dclo_1296__MEXPAND_LETREC; + struct MELT_ROUTINE_STRUCT(1) drout_1297__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1298__CLASS_LETREC_BINDING; + struct MELT_STRING_STRUCT(20) dstr_1299__CLASS_LETREC_BIN; + struct MELT_ROUTINE_STRUCT(1) drout_1300__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1301__LETREC; + struct MELT_STRING_STRUCT(6) dstr_1302__LETREC; + struct MELT_ROUTINE_STRUCT(12) drout_1303__MEXPAND_LAMBDA; + struct MELT_CLOSURE_STRUCT(0) dclo_1304__MEXPAND_LAMBDA; + struct MELT_ROUTINE_STRUCT(1) drout_1305__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_1306__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1307__LAMBDA; + struct MELT_STRING_STRUCT(6) dstr_1308__LAMBDA; + struct MELT_ROUTINE_STRUCT(16) drout_1309__MEXPAND_MULTICALL; + struct MELT_CLOSURE_STRUCT(0) dclo_1310__MEXPAND_MULTICALL; + struct MELT_ROUTINE_STRUCT(1) drout_1311__LAMBDA_; + struct MELT_ROUTINE_STRUCT(1) drout_1312__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1313__MULTICALL; + struct MELT_STRING_STRUCT(9) dstr_1314__MULTICALL; + struct MELT_ROUTINE_STRUCT(5) drout_1315__MEXPAND_QUOTE; + struct MELT_CLOSURE_STRUCT(0) dclo_1316__MEXPAND_QUOTE; + struct MELT_OBJECT_STRUCT(3) dsym_1317__QUOTE; + struct MELT_STRING_STRUCT(5) dstr_1318__QUOTE; + struct MELT_ROUTINE_STRUCT(3) drout_1319__MEXPAND_COMMENT; + struct MELT_CLOSURE_STRUCT(0) dclo_1320__MEXPAND_COMMENT; + struct MELT_OBJECT_STRUCT(3) dsym_1321__COMMENT; + struct MELT_STRING_STRUCT(7) dstr_1322__COMMENT; + struct MELT_ROUTINE_STRUCT(7) drout_1323__PAIRLIST_TO_PROGN; + struct MELT_CLOSURE_STRUCT(0) dclo_1324__PAIRLIST_TO_PROGN; + struct MELT_ROUTINE_STRUCT(1) drout_1325__LAMBDA_; + struct MELT_ROUTINE_STRUCT(6) drout_1326__PAIRLIST_TO_RETURN; + struct MELT_CLOSURE_STRUCT(0) dclo_1327__PAIRLIST_TO_RETURN; + struct MELT_ROUTINE_STRUCT(1) drout_1328__LAMBDA_; + struct MELT_ROUTINE_STRUCT(2) drout_1329__MEXPAND_PROGN; + struct MELT_CLOSURE_STRUCT(0) dclo_1330__MEXPAND_PROGN; + struct MELT_OBJECT_STRUCT(3) dsym_1331__PROGN; + struct MELT_STRING_STRUCT(5) dstr_1332__PROGN; + struct MELT_ROUTINE_STRUCT(2) drout_1333__MEXPAND_RETURN; + struct MELT_CLOSURE_STRUCT(0) dclo_1334__MEXPAND_RETURN; + struct MELT_OBJECT_STRUCT(3) dsym_1335__RETURN; + struct MELT_STRING_STRUCT(6) dstr_1336__RETURN; + struct MELT_ROUTINE_STRUCT(11) drout_1337__MEXPAND_FOREVER; + struct MELT_CLOSURE_STRUCT(0) dclo_1338__MEXPAND_FOREVER; + struct MELT_OBJECT_STRUCT(3) dsym_1339__CLASS_LABEL_BINDING; + struct MELT_STRING_STRUCT(19) dstr_1340__CLASS_LABEL_BIND; + struct MELT_ROUTINE_STRUCT(1) drout_1341__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1342__FOREVER; + struct MELT_STRING_STRUCT(7) dstr_1343__FOREVER; + struct MELT_ROUTINE_STRUCT(11) drout_1344__MEXPAND_EXIT; + struct MELT_CLOSURE_STRUCT(0) dclo_1345__MEXPAND_EXIT; + struct MELT_ROUTINE_STRUCT(1) drout_1346__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1347__EXIT; + struct MELT_STRING_STRUCT(4) dstr_1348__EXIT; + struct MELT_ROUTINE_STRUCT(4) drout_1349__MEXPAND_COMPILE_WARNING; + struct MELT_CLOSURE_STRUCT(0) dclo_1350__MEXPAND_COMPILE_WARNING; + struct MELT_OBJECT_STRUCT(3) dsym_1351__COMPILE_WARNING; + struct MELT_STRING_STRUCT(15) dstr_1352__COMPILE_WARNING; + struct MELT_ROUTINE_STRUCT(15) drout_1353__MEXPAND_ASSERT_MSG; + struct MELT_CLOSURE_STRUCT(0) dclo_1354__MEXPAND_ASSERT_MSG; + struct MELT_OBJECT_STRUCT(3) dsym_1355__ASSERT_FAILED; + struct MELT_STRING_STRUCT(13) dstr_1356__ASSERT_FAILED; + struct MELT_OBJECT_STRUCT(3) dsym_1357__FIND_ENV_DEBUG; + struct MELT_STRING_STRUCT(14) dstr_1358__FIND_ENV_DEBUG; + struct MELT_OBJECT_STRUCT(3) dsym_1359__ENABLE_CHECKING; + struct MELT_STRING_STRUCT(15) dstr_1360__ENABLE_CHECKING; + struct MELT_OBJECT_STRUCT(3) dsym_1361__ASSERT_MSG; + struct MELT_STRING_STRUCT(10) dstr_1362__ASSERT_MSG; + struct MELT_ROUTINE_STRUCT(11) drout_1363__MEXPAND_DEBUG_MSG; + struct MELT_CLOSURE_STRUCT(0) dclo_1364__MEXPAND_DEBUG_MSG; + struct MELT_OBJECT_STRUCT(3) dsym_1365__THE_MELTCALLCOUNT; + struct MELT_STRING_STRUCT(17) dstr_1366__THE_MELTCALLCOUN; + struct MELT_OBJECT_STRUCT(3) dsym_1367__DEBUG_MSG; + struct MELT_STRING_STRUCT(9) dstr_1368__DEBUG_MSG; + struct MELT_ROUTINE_STRUCT(10) drout_1369__MEXPAND_EXPORT_VALUES; + struct MELT_CLOSURE_STRUCT(0) dclo_1370__MEXPAND_EXPORT_VALUES; + struct MELT_ROUTINE_STRUCT(3) drout_1371__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1372__EXPORT_VALUES; + struct MELT_STRING_STRUCT(13) dstr_1373__EXPORT_VALUES; + struct MELT_ROUTINE_STRUCT(7) drout_1374__MEXPAND_EXPORT_MACRO; + struct MELT_CLOSURE_STRUCT(0) dclo_1375__MEXPAND_EXPORT_MACRO; + struct MELT_OBJECT_STRUCT(3) dsym_1376__EXPORT_MACRO; + struct MELT_STRING_STRUCT(12) dstr_1377__EXPORT_MACRO; + struct MELT_ROUTINE_STRUCT(7) drout_1378__MEXPAND_EXPORT_PATMACRO; + struct MELT_CLOSURE_STRUCT(0) dclo_1379__MEXPAND_EXPORT_PATMACRO; + struct MELT_OBJECT_STRUCT(3) dsym_1380__EXPORT_PATMACRO; + struct MELT_STRING_STRUCT(15) dstr_1381__EXPORT_PATMACRO; + struct MELT_ROUTINE_STRUCT(9) drout_1382__MEXPAND_EXPORT_CLASS; + struct MELT_CLOSURE_STRUCT(0) dclo_1383__MEXPAND_EXPORT_CLASS; + struct MELT_ROUTINE_STRUCT(2) drout_1384__LAMBDA_; + struct MELT_OBJECT_STRUCT(3) dsym_1385__EXPORT_CLASS; + struct MELT_STRING_STRUCT(12) dstr_1386__EXPORT_CLASS; + struct MELT_ROUTINE_STRUCT(7) drout_1387__MEXPAND_EXPORT_SYNONYM; + struct MELT_CLOSURE_STRUCT(0) dclo_1388__MEXPAND_EXPORT_SYNONYM; + struct MELT_OBJECT_STRUCT(3) dsym_1389__EXPORT_SYNONYM; + struct MELT_STRING_STRUCT(14) dstr_1390__EXPORT_SYNONYM; + struct MELT_ROUTINE_STRUCT(4) drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_CLOSURE_STRUCT(0) dclo_1392__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(36) dstr_1394__CURRENT_MODULE_E; + struct MELT_ROUTINE_STRUCT(4) drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT; + struct MELT_CLOSURE_STRUCT(0) dclo_1396__MEXPAND_PARENT_MODULE_ENVIRONMENT; + struct MELT_OBJECT_STRUCT(3) dsym_1397__PARENT_MODULE_ENVIRONMENT; + struct MELT_STRING_STRUCT(25) dstr_1398__PARENT_MODULE_EN; + struct MELT_ROUTINE_STRUCT(4) drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_CLOSURE_STRUCT(0) dclo_1400__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_OBJECT_STRUCT(3) dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + struct MELT_STRING_STRUCT(43) dstr_1402__UPDATE_CURRENT_M; + struct MELT_ROUTINE_STRUCT(6) drout_1403__MEXPAND_FETCH_PREDEFINED; + struct MELT_CLOSURE_STRUCT(0) dclo_1404__MEXPAND_FETCH_PREDEFINED; + struct MELT_OBJECT_STRUCT(3) dsym_1405__FETCH_PREDEFINED; + struct MELT_STRING_STRUCT(16) dstr_1406__FETCH_PREDEFINED; + struct MELT_ROUTINE_STRUCT(6) drout_1407__MEXPAND_STORE_PREDEFINED; + struct MELT_CLOSURE_STRUCT(0) dclo_1408__MEXPAND_STORE_PREDEFINED; + struct MELT_OBJECT_STRUCT(3) dsym_1409__STORE_PREDEFINED; + struct MELT_STRING_STRUCT(16) dstr_1410__STORE_PREDEFINED; + struct MELT_OBJECT_STRUCT(3) dsym_1411__EXPAND_APPLY; + struct MELT_STRING_STRUCT(12) dstr_1412__EXPAND_APPLY; + struct MELT_OBJECT_STRUCT(3) dsym_1413__EXPAND_MSEND; + struct MELT_STRING_STRUCT(12) dstr_1414__EXPAND_MSEND; + struct MELT_OBJECT_STRUCT(3) dsym_1415__EXPAND_PAIRLIST_AS_TUPLE; + struct MELT_STRING_STRUCT(24) dstr_1416__EXPAND_PAIRLIST_; + struct MELT_OBJECT_STRUCT(3) dsym_1417__EXPAND_PRIMITIVE; + struct MELT_STRING_STRUCT(16) dstr_1418__EXPAND_PRIMITIVE; + struct MELT_OBJECT_STRUCT(3) dsym_1419__INSTALL_INITIAL_MACRO; + struct MELT_STRING_STRUCT(21) dstr_1420__INSTALL_INITIAL_; + struct MELT_OBJECT_STRUCT(3) dsym_1421__LAMBDA_ARG_BINDINGS; + struct MELT_STRING_STRUCT(19) dstr_1422__LAMBDA_ARG_BINDI; + struct MELT_OBJECT_STRUCT(3) dsym_1423__MACROEXPAND_1; + struct MELT_STRING_STRUCT(13) dstr_1424__MACROEXPAND_1; + struct MELT_OBJECT_STRUCT(3) dsym_1425__MACROEXPAND_TOPLEVEL_LIST; + struct MELT_STRING_STRUCT(25) dstr_1426__MACROEXPAND_TOPL; + struct MELT_OBJECT_STRUCT(3) dsym_1427__PATTERNEXPAND_1; + struct MELT_STRING_STRUCT(15) dstr_1428__PATTERNEXPAND_1; + struct MELT_OBJECT_STRUCT(3) dsym_1429__PATTERNEXPAND_EXPR; + struct MELT_STRING_STRUCT(18) dstr_1430__PATTERNEXPAND_EX; + struct MELT_OBJECT_STRUCT(3) dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct MELT_STRING_STRUCT(31) dstr_1432__PATTERNEXPAND_PA; + struct MELT_OBJECT_STRUCT(3) dsym_1433__PATTERN_WEIGHT_TUPLE; + struct MELT_STRING_STRUCT(20) dstr_1434__PATTERN_WEIGHT_T; long spare_; } *cdat = NULL; cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0); @@ -3723,7 +3686,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_7", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_7.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_7.obj_num = 0; - cdat->dobj_7.obj_hash = 946236552; + cdat->dobj_7.obj_hash = 420991270; cdat->dobj_7.obj_len = 2; /*inimult dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE*/ @@ -3736,7 +3699,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr (/*_.CLASS_SELECTOR__V7*/ meltfptr[6]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 561322314; + cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 210390309; cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4; /*inistring dstr_10__IS_RECURSIVELY_C*/ @@ -3774,7 +3737,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 674222997; + cdat->dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 707568407; cdat->dobj_15__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 8; /*inistring dstr_16__CLASS_SOURCE_LAZ*/ @@ -3808,7 +3771,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_21__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_21__SLAZYMACRO_FUN.obj_num = 2; - cdat->dobj_21__SLAZYMACRO_FUN.obj_hash = 268517253; + cdat->dobj_21__SLAZYMACRO_FUN.obj_hash = 685061405; cdat->dobj_21__SLAZYMACRO_FUN.obj_len = 4; /*inistring dstr_22__SLAZYMACRO_FUN*/ @@ -3834,7 +3797,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_25__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_25__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_25__SLAZYMACRO_OPER.obj_num = 3; - cdat->dobj_25__SLAZYMACRO_OPER.obj_hash = 648426580; + cdat->dobj_25__SLAZYMACRO_OPER.obj_hash = 36030927; cdat->dobj_25__SLAZYMACRO_OPER.obj_len = 4; /*inistring dstr_26__SLAZYMACRO_OPER*/ @@ -3860,7 +3823,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 584323059; + cdat->dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 270419283; cdat->dobj_29__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8; /*inistring dstr_30__CLASS_SOURCE_ARG*/ @@ -3894,7 +3857,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__SARGOP_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__SARGOP_ARGS.obj_num = 2; - cdat->dobj_35__SARGOP_ARGS.obj_hash = 1049535416; + cdat->dobj_35__SARGOP_ARGS.obj_hash = 593463220; cdat->dobj_35__SARGOP_ARGS.obj_len = 4; /*inistring dstr_36__SARGOP_ARGS*/ @@ -3920,7 +3883,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_39__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_39__CLASS_SOURCE_APPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_39__CLASS_SOURCE_APPLY.obj_hash = 1007787147; + cdat->dobj_39__CLASS_SOURCE_APPLY.obj_hash = 160563337; cdat->dobj_39__CLASS_SOURCE_APPLY.obj_len = 8; /*inistring dstr_40__CLASS_SOURCE_APP*/ @@ -3954,7 +3917,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__SAPP_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_45__SAPP_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_45__SAPP_FUN.obj_num = 3; - cdat->dobj_45__SAPP_FUN.obj_hash = 209290874; + cdat->dobj_45__SAPP_FUN.obj_hash = 609327683; cdat->dobj_45__SAPP_FUN.obj_len = 4; /*inistring dstr_46__SAPP_FUN*/ @@ -3980,7 +3943,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_49__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_49__CLASS_SOURCE_MSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_49__CLASS_SOURCE_MSEND.obj_hash = 1069022738; + cdat->dobj_49__CLASS_SOURCE_MSEND.obj_hash = 204655281; cdat->dobj_49__CLASS_SOURCE_MSEND.obj_len = 8; /*inistring dstr_50__CLASS_SOURCE_MSE*/ @@ -4014,7 +3977,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_55__MSEND_SELSYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_55__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_55__MSEND_SELSYMB.obj_num = 3; - cdat->dobj_55__MSEND_SELSYMB.obj_hash = 80493663; + cdat->dobj_55__MSEND_SELSYMB.obj_hash = 202527032; cdat->dobj_55__MSEND_SELSYMB.obj_len = 4; /*inistring dstr_56__MSEND_SELSYMB*/ @@ -4040,7 +4003,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_59__MSEND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_59__MSEND_RECV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_59__MSEND_RECV.obj_num = 4; - cdat->dobj_59__MSEND_RECV.obj_hash = 578033010; + cdat->dobj_59__MSEND_RECV.obj_hash = 375195298; cdat->dobj_59__MSEND_RECV.obj_len = 4; /*inistring dstr_60__MSEND_RECV*/ @@ -4066,7 +4029,7 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_63__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_63__CLASS_SOURCE_PRIMITIVE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_63__CLASS_SOURCE_PRIMITIVE.obj_hash = 49400984; + cdat->dobj_63__CLASS_SOURCE_PRIMITIVE.obj_hash = 781241988; cdat->dobj_63__CLASS_SOURCE_PRIMITIVE.obj_len = 8; /*inistring dstr_64__CLASS_SOURCE_PRI*/ @@ -4100,8477 +4063,8281 @@ static void initialize_module_meltdata_warmelt_macro (initial_frame_st *iniframp if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_69__SPRIM_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_69__SPRIM_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_69__SPRIM_OPER.obj_num = 3; - cdat->dobj_69__SPRIM_OPER.obj_hash = 639700951; + cdat->dobj_69__SPRIM_OPER.obj_hash = 515023157; cdat->dobj_69__SPRIM_OPER.obj_len = 4; /*inistring dstr_70__SPRIM_OPER*/ /*_.VALSTR___V133*/ meltfptr[132] = (void*)&cdat->dstr_70__SPRIM_OPER; cdat->dstr_70__SPRIM_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(cdat->dstr_70__SPRIM_OPER.val, "SPRIM_OPER", sizeof (cdat->dstr_70__SPRIM_OPER.val)-1); - /*iniobj dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V137*/ meltfptr[136]) /*_.VALDATA___V137*/ meltfptr[136] = (void*)&cdat->dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION.obj_hash = 280210072; - cdat->dsym_71__CLASS_SOURCE_VARIADIC_APPLICATION.obj_len = 3; - - /*inistring dstr_72__CLASS_SOURCE_VAR*/ - /*_.VALSTR___V138*/ meltfptr[137] = (void*)&cdat->dstr_72__CLASS_SOURCE_VAR; - cdat->dstr_72__CLASS_SOURCE_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_72__CLASS_SOURCE_VAR.val, "CLASS_SOURCE_VARIADIC_APPLICATION", sizeof (cdat->dstr_72__CLASS_SOURCE_VAR.val)-1); - MELT_LOCATION("warmelt-macro.melt:97:/ iniobj"); - /*iniobj dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION*/ -/*_.VALDATA___V139*/ meltfptr[138] = (void*)&cdat->dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION.obj_hash = 274339451; - cdat->dobj_73__CLASS_SOURCE_VARIADIC_APPLICATION.obj_len = 8; - - /*inistring dstr_74__CLASS_SOURCE_VAR*/ - /*_.VALSTR___V140*/ meltfptr[139] = (void*)&cdat->dstr_74__CLASS_SOURCE_VAR; - cdat->dstr_74__CLASS_SOURCE_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_74__CLASS_SOURCE_VAR.val, "CLASS_SOURCE_VARIADIC_APPLICATION", sizeof (cdat->dstr_74__CLASS_SOURCE_VAR.val)-1); - /*inimult dtup_75__CLASS_SOURCE_VARIADIC_APPLICATION*/ - /*_.VALTUP___V141*/ meltfptr[140] = (void*)&cdat->dtup_75__CLASS_SOURCE_VARIADIC_APPLICATION; - cdat->dtup_75__CLASS_SOURCE_VARIADIC_APPLICATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_75__CLASS_SOURCE_VARIADIC_APPLICATION.nbval = 5; - /*inimult dtup_76__CLASS_SOURCE_VARIADIC_APPLICATION*/ - /*_.VALTUP___V144*/ meltfptr[143] = (void*)&cdat->dtup_76__CLASS_SOURCE_VARIADIC_APPLICATION; - cdat->dtup_76__CLASS_SOURCE_VARIADIC_APPLICATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_76__CLASS_SOURCE_VARIADIC_APPLICATION.nbval = 4; - /*iniobj dsym_77__SVARI_OPER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V145*/ meltfptr[144]) /*_.VALDATA___V145*/ meltfptr[144] = (void*)&cdat->dsym_77__SVARI_OPER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_77__SVARI_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_77__SVARI_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_77__SVARI_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_77__SVARI_OPER.obj_hash = 925129808; - cdat->dsym_77__SVARI_OPER.obj_len = 3; - - /*inistring dstr_78__SVARI_OPER*/ - /*_.VALSTR___V146*/ meltfptr[145] = (void*)&cdat->dstr_78__SVARI_OPER; - cdat->dstr_78__SVARI_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_78__SVARI_OPER.val, "SVARI_OPER", sizeof (cdat->dstr_78__SVARI_OPER.val)-1); + /*iniobj dsym_71__CLASS_SOURCE_CITERATION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V137*/ meltfptr[136]) /*_.VALDATA___V137*/ meltfptr[136] = (void*)&cdat->dsym_71__CLASS_SOURCE_CITERATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__CLASS_SOURCE_CITERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_71__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_71__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_71__CLASS_SOURCE_CITERATION.obj_hash = 723843174; + cdat->dsym_71__CLASS_SOURCE_CITERATION.obj_len = 3; + + /*inistring dstr_72__CLASS_SOURCE_CIT*/ + /*_.VALSTR___V138*/ meltfptr[137] = (void*)&cdat->dstr_72__CLASS_SOURCE_CIT; + cdat->dstr_72__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_72__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_72__CLASS_SOURCE_CIT.val)-1); + MELT_LOCATION("warmelt-macro.melt:98:/ iniobj"); + /*iniobj dobj_73__CLASS_SOURCE_CITERATION*/ +/*_.VALDATA___V139*/ meltfptr[138] = (void*)&cdat->dobj_73__CLASS_SOURCE_CITERATION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_73__CLASS_SOURCE_CITERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_73__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_73__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_73__CLASS_SOURCE_CITERATION.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_73__CLASS_SOURCE_CITERATION.obj_hash = 953545995; + cdat->dobj_73__CLASS_SOURCE_CITERATION.obj_len = 8; + + /*inistring dstr_74__CLASS_SOURCE_CIT*/ + /*_.VALSTR___V140*/ meltfptr[139] = (void*)&cdat->dstr_74__CLASS_SOURCE_CIT; + cdat->dstr_74__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_74__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_74__CLASS_SOURCE_CIT.val)-1); + /*inimult dtup_75__CLASS_SOURCE_CITERATION*/ + /*_.VALTUP___V141*/ meltfptr[140] = (void*)&cdat->dtup_75__CLASS_SOURCE_CITERATION; + cdat->dtup_75__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_75__CLASS_SOURCE_CITERATION.nbval = 5; + /*inimult dtup_76__CLASS_SOURCE_CITERATION*/ + /*_.VALTUP___V148*/ meltfptr[147] = (void*)&cdat->dtup_76__CLASS_SOURCE_CITERATION; + cdat->dtup_76__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_76__CLASS_SOURCE_CITERATION.nbval = 6; + /*iniobj dsym_77__SCITER_OPER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V149*/ meltfptr[148]) /*_.VALDATA___V149*/ meltfptr[148] = (void*)&cdat->dsym_77__SCITER_OPER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_77__SCITER_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_77__SCITER_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_77__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_77__SCITER_OPER.obj_hash = 662216556; + cdat->dsym_77__SCITER_OPER.obj_len = 3; + + /*inistring dstr_78__SCITER_OPER*/ + /*_.VALSTR___V150*/ meltfptr[149] = (void*)&cdat->dstr_78__SCITER_OPER; + cdat->dstr_78__SCITER_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_78__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_78__SCITER_OPER.val)-1); /*^iniobj*/ - /*iniobj dobj_79__SVARI_OPER*/ -/*_.VALDATA___V142*/ meltfptr[141] = (void*)&cdat->dobj_79__SVARI_OPER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_79__SVARI_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_79__SVARI_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_79__SVARI_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_79__SVARI_OPER.obj_num = 3; - cdat->dobj_79__SVARI_OPER.obj_hash = 856000694; - cdat->dobj_79__SVARI_OPER.obj_len = 4; - - /*inistring dstr_80__SVARI_OPER*/ - /*_.VALSTR___V143*/ meltfptr[142] = (void*)&cdat->dstr_80__SVARI_OPER; - cdat->dstr_80__SVARI_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_80__SVARI_OPER.val, "SVARI_OPER", sizeof (cdat->dstr_80__SVARI_OPER.val)-1); - /*iniobj dsym_81__CLASS_SOURCE_CITERATION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V147*/ meltfptr[146]) /*_.VALDATA___V147*/ meltfptr[146] = (void*)&cdat->dsym_81__CLASS_SOURCE_CITERATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__CLASS_SOURCE_CITERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_81__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_81__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_81__CLASS_SOURCE_CITERATION.obj_hash = 723843174; - cdat->dsym_81__CLASS_SOURCE_CITERATION.obj_len = 3; - - /*inistring dstr_82__CLASS_SOURCE_CIT*/ - /*_.VALSTR___V148*/ meltfptr[147] = (void*)&cdat->dstr_82__CLASS_SOURCE_CIT; - cdat->dstr_82__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_82__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_82__CLASS_SOURCE_CIT.val)-1); - MELT_LOCATION("warmelt-macro.melt:107:/ iniobj"); - /*iniobj dobj_83__CLASS_SOURCE_CITERATION*/ -/*_.VALDATA___V149*/ meltfptr[148] = (void*)&cdat->dobj_83__CLASS_SOURCE_CITERATION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_83__CLASS_SOURCE_CITERATION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_83__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_83__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_83__CLASS_SOURCE_CITERATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_83__CLASS_SOURCE_CITERATION.obj_hash = 382180617; - cdat->dobj_83__CLASS_SOURCE_CITERATION.obj_len = 8; - - /*inistring dstr_84__CLASS_SOURCE_CIT*/ - /*_.VALSTR___V150*/ meltfptr[149] = (void*)&cdat->dstr_84__CLASS_SOURCE_CIT; - cdat->dstr_84__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_84__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_84__CLASS_SOURCE_CIT.val)-1); - /*inimult dtup_85__CLASS_SOURCE_CITERATION*/ - /*_.VALTUP___V151*/ meltfptr[150] = (void*)&cdat->dtup_85__CLASS_SOURCE_CITERATION; - cdat->dtup_85__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_85__CLASS_SOURCE_CITERATION.nbval = 5; - /*inimult dtup_86__CLASS_SOURCE_CITERATION*/ - /*_.VALTUP___V158*/ meltfptr[157] = (void*)&cdat->dtup_86__CLASS_SOURCE_CITERATION; - cdat->dtup_86__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_86__CLASS_SOURCE_CITERATION.nbval = 6; - /*iniobj dsym_87__SCITER_OPER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V159*/ meltfptr[158]) /*_.VALDATA___V159*/ meltfptr[158] = (void*)&cdat->dsym_87__SCITER_OPER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_87__SCITER_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_87__SCITER_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_87__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_87__SCITER_OPER.obj_hash = 662216556; - cdat->dsym_87__SCITER_OPER.obj_len = 3; - - /*inistring dstr_88__SCITER_OPER*/ - /*_.VALSTR___V160*/ meltfptr[159] = (void*)&cdat->dstr_88__SCITER_OPER; - cdat->dstr_88__SCITER_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_88__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_88__SCITER_OPER.val)-1); + /*iniobj dobj_79__SCITER_OPER*/ +/*_.VALDATA___V142*/ meltfptr[141] = (void*)&cdat->dobj_79__SCITER_OPER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_79__SCITER_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_79__SCITER_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_79__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_79__SCITER_OPER.obj_num = 3; + cdat->dobj_79__SCITER_OPER.obj_hash = 600736960; + cdat->dobj_79__SCITER_OPER.obj_len = 4; + + /*inistring dstr_80__SCITER_OPER*/ + /*_.VALSTR___V143*/ meltfptr[142] = (void*)&cdat->dstr_80__SCITER_OPER; + cdat->dstr_80__SCITER_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_80__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_80__SCITER_OPER.val)-1); + /*iniobj dsym_81__SCITER_VARBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V151*/ meltfptr[150]) /*_.VALDATA___V151*/ meltfptr[150] = (void*)&cdat->dsym_81__SCITER_VARBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__SCITER_VARBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_81__SCITER_VARBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_81__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_81__SCITER_VARBIND.obj_hash = 394324639; + cdat->dsym_81__SCITER_VARBIND.obj_len = 3; + + /*inistring dstr_82__SCITER_VARBIND*/ + /*_.VALSTR___V152*/ meltfptr[151] = (void*)&cdat->dstr_82__SCITER_VARBIND; + cdat->dstr_82__SCITER_VARBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_82__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_82__SCITER_VARBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_89__SCITER_OPER*/ -/*_.VALDATA___V152*/ meltfptr[151] = (void*)&cdat->dobj_89__SCITER_OPER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_89__SCITER_OPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_89__SCITER_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_89__SCITER_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_89__SCITER_OPER.obj_num = 3; - cdat->dobj_89__SCITER_OPER.obj_hash = 601943692; - cdat->dobj_89__SCITER_OPER.obj_len = 4; - - /*inistring dstr_90__SCITER_OPER*/ - /*_.VALSTR___V153*/ meltfptr[152] = (void*)&cdat->dstr_90__SCITER_OPER; - cdat->dstr_90__SCITER_OPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_90__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_90__SCITER_OPER.val)-1); - /*iniobj dsym_91__SCITER_VARBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (void*)&cdat->dsym_91__SCITER_VARBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_91__SCITER_VARBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_91__SCITER_VARBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_91__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_91__SCITER_VARBIND.obj_hash = 394324639; - cdat->dsym_91__SCITER_VARBIND.obj_len = 3; - - /*inistring dstr_92__SCITER_VARBIND*/ - /*_.VALSTR___V162*/ meltfptr[161] = (void*)&cdat->dstr_92__SCITER_VARBIND; - cdat->dstr_92__SCITER_VARBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_92__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_92__SCITER_VARBIND.val)-1); + /*iniobj dobj_83__SCITER_VARBIND*/ +/*_.VALDATA___V144*/ meltfptr[143] = (void*)&cdat->dobj_83__SCITER_VARBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_83__SCITER_VARBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_83__SCITER_VARBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_83__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_83__SCITER_VARBIND.obj_num = 4; + cdat->dobj_83__SCITER_VARBIND.obj_hash = 418645452; + cdat->dobj_83__SCITER_VARBIND.obj_len = 4; + + /*inistring dstr_84__SCITER_VARBIND*/ + /*_.VALSTR___V145*/ meltfptr[144] = (void*)&cdat->dstr_84__SCITER_VARBIND; + cdat->dstr_84__SCITER_VARBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_84__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_84__SCITER_VARBIND.val)-1); + /*iniobj dsym_85__SCITER_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V153*/ meltfptr[152]) /*_.VALDATA___V153*/ meltfptr[152] = (void*)&cdat->dsym_85__SCITER_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__SCITER_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_85__SCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_85__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_85__SCITER_BODY.obj_hash = 751320796; + cdat->dsym_85__SCITER_BODY.obj_len = 3; + + /*inistring dstr_86__SCITER_BODY*/ + /*_.VALSTR___V154*/ meltfptr[153] = (void*)&cdat->dstr_86__SCITER_BODY; + cdat->dstr_86__SCITER_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_86__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_86__SCITER_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_93__SCITER_VARBIND*/ -/*_.VALDATA___V154*/ meltfptr[153] = (void*)&cdat->dobj_93__SCITER_VARBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_93__SCITER_VARBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_93__SCITER_VARBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_93__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_93__SCITER_VARBIND.obj_num = 4; - cdat->dobj_93__SCITER_VARBIND.obj_hash = 955194920; - cdat->dobj_93__SCITER_VARBIND.obj_len = 4; - - /*inistring dstr_94__SCITER_VARBIND*/ - /*_.VALSTR___V155*/ meltfptr[154] = (void*)&cdat->dstr_94__SCITER_VARBIND; - cdat->dstr_94__SCITER_VARBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_94__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_94__SCITER_VARBIND.val)-1); - /*iniobj dsym_95__SCITER_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V163*/ meltfptr[162]) /*_.VALDATA___V163*/ meltfptr[162] = (void*)&cdat->dsym_95__SCITER_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__SCITER_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_95__SCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_95__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_95__SCITER_BODY.obj_hash = 751320796; - cdat->dsym_95__SCITER_BODY.obj_len = 3; - - /*inistring dstr_96__SCITER_BODY*/ - /*_.VALSTR___V164*/ meltfptr[163] = (void*)&cdat->dstr_96__SCITER_BODY; - cdat->dstr_96__SCITER_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_96__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_96__SCITER_BODY.val)-1); + /*iniobj dobj_87__SCITER_BODY*/ +/*_.VALDATA___V146*/ meltfptr[145] = (void*)&cdat->dobj_87__SCITER_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_87__SCITER_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_87__SCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_87__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_87__SCITER_BODY.obj_num = 5; + cdat->dobj_87__SCITER_BODY.obj_hash = 735384332; + cdat->dobj_87__SCITER_BODY.obj_len = 4; + + /*inistring dstr_88__SCITER_BODY*/ + /*_.VALSTR___V147*/ meltfptr[146] = (void*)&cdat->dstr_88__SCITER_BODY; + cdat->dstr_88__SCITER_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_88__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_88__SCITER_BODY.val)-1); + /*iniobj dsym_89__CLASS_SOURCE_CMATCHEXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V155*/ meltfptr[154]) /*_.VALDATA___V155*/ meltfptr[154] = (void*)&cdat->dsym_89__CLASS_SOURCE_CMATCHEXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_89__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_89__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_89__CLASS_SOURCE_CMATCHEXPR.obj_hash = 558397590; + cdat->dsym_89__CLASS_SOURCE_CMATCHEXPR.obj_len = 3; + + /*inistring dstr_90__CLASS_SOURCE_CMA*/ + /*_.VALSTR___V156*/ meltfptr[155] = (void*)&cdat->dstr_90__CLASS_SOURCE_CMA; + cdat->dstr_90__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_90__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_90__CLASS_SOURCE_CMA.val)-1); + MELT_LOCATION("warmelt-macro.melt:110:/ iniobj"); + /*iniobj dobj_91__CLASS_SOURCE_CMATCHEXPR*/ +/*_.VALDATA___V157*/ meltfptr[156] = (void*)&cdat->dobj_91__CLASS_SOURCE_CMATCHEXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_91__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_91__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_91__CLASS_SOURCE_CMATCHEXPR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_91__CLASS_SOURCE_CMATCHEXPR.obj_hash = 564535654; + cdat->dobj_91__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; + + /*inistring dstr_92__CLASS_SOURCE_CMA*/ + /*_.VALSTR___V158*/ meltfptr[157] = (void*)&cdat->dstr_92__CLASS_SOURCE_CMA; + cdat->dstr_92__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_92__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_92__CLASS_SOURCE_CMA.val)-1); + /*inimult dtup_93__CLASS_SOURCE_CMATCHEXPR*/ + /*_.VALTUP___V159*/ meltfptr[158] = (void*)&cdat->dtup_93__CLASS_SOURCE_CMATCHEXPR; + cdat->dtup_93__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_93__CLASS_SOURCE_CMATCHEXPR.nbval = 5; + /*inimult dtup_94__CLASS_SOURCE_CMATCHEXPR*/ + /*_.VALTUP___V162*/ meltfptr[161] = (void*)&cdat->dtup_94__CLASS_SOURCE_CMATCHEXPR; + cdat->dtup_94__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_94__CLASS_SOURCE_CMATCHEXPR.nbval = 4; + /*iniobj dsym_95__SCMATX_CMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V163*/ meltfptr[162]) /*_.VALDATA___V163*/ meltfptr[162] = (void*)&cdat->dsym_95__SCMATX_CMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__SCMATX_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_95__SCMATX_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_95__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_95__SCMATX_CMATCHER.obj_hash = 479043970; + cdat->dsym_95__SCMATX_CMATCHER.obj_len = 3; + + /*inistring dstr_96__SCMATX_CMATCHER*/ + /*_.VALSTR___V164*/ meltfptr[163] = (void*)&cdat->dstr_96__SCMATX_CMATCHER; + cdat->dstr_96__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_96__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_96__SCMATX_CMATCHER.val)-1); /*^iniobj*/ - /*iniobj dobj_97__SCITER_BODY*/ -/*_.VALDATA___V156*/ meltfptr[155] = (void*)&cdat->dobj_97__SCITER_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_97__SCITER_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__SCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_97__SCITER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_97__SCITER_BODY.obj_num = 5; - cdat->dobj_97__SCITER_BODY.obj_hash = 117668710; - cdat->dobj_97__SCITER_BODY.obj_len = 4; - - /*inistring dstr_98__SCITER_BODY*/ - /*_.VALSTR___V157*/ meltfptr[156] = (void*)&cdat->dstr_98__SCITER_BODY; - cdat->dstr_98__SCITER_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_98__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_98__SCITER_BODY.val)-1); - /*iniobj dsym_99__CLASS_SOURCE_CMATCHEXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V165*/ meltfptr[164]) /*_.VALDATA___V165*/ meltfptr[164] = (void*)&cdat->dsym_99__CLASS_SOURCE_CMATCHEXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_99__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_99__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_99__CLASS_SOURCE_CMATCHEXPR.obj_hash = 558397590; - cdat->dsym_99__CLASS_SOURCE_CMATCHEXPR.obj_len = 3; - - /*inistring dstr_100__CLASS_SOURCE_CMA*/ - /*_.VALSTR___V166*/ meltfptr[165] = (void*)&cdat->dstr_100__CLASS_SOURCE_CMA; - cdat->dstr_100__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_100__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_100__CLASS_SOURCE_CMA.val)-1); + /*iniobj dobj_97__SCMATX_CMATCHER*/ +/*_.VALDATA___V160*/ meltfptr[159] = (void*)&cdat->dobj_97__SCMATX_CMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_97__SCMATX_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_97__SCMATX_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_97__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_97__SCMATX_CMATCHER.obj_num = 3; + cdat->dobj_97__SCMATX_CMATCHER.obj_hash = 751587881; + cdat->dobj_97__SCMATX_CMATCHER.obj_len = 4; + + /*inistring dstr_98__SCMATX_CMATCHER*/ + /*_.VALSTR___V161*/ meltfptr[160] = (void*)&cdat->dstr_98__SCMATX_CMATCHER; + cdat->dstr_98__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_98__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_98__SCMATX_CMATCHER.val)-1); + /*iniobj dsym_99__CLASS_SOURCE_FUNMATCHEXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V165*/ meltfptr[164]) /*_.VALDATA___V165*/ meltfptr[164] = (void*)&cdat->dsym_99__CLASS_SOURCE_FUNMATCHEXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_99__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_99__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_99__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 443076985; + cdat->dsym_99__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 3; + + /*inistring dstr_100__CLASS_SOURCE_FUN*/ + /*_.VALSTR___V166*/ meltfptr[165] = (void*)&cdat->dstr_100__CLASS_SOURCE_FUN; + cdat->dstr_100__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_100__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_100__CLASS_SOURCE_FUN.val)-1); MELT_LOCATION("warmelt-macro.melt:119:/ iniobj"); - /*iniobj dobj_101__CLASS_SOURCE_CMATCHEXPR*/ -/*_.VALDATA___V167*/ meltfptr[166] = (void*)&cdat->dobj_101__CLASS_SOURCE_CMATCHEXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_101__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_101__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_101__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_101__CLASS_SOURCE_CMATCHEXPR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_101__CLASS_SOURCE_CMATCHEXPR.obj_hash = 199409314; - cdat->dobj_101__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; - - /*inistring dstr_102__CLASS_SOURCE_CMA*/ - /*_.VALSTR___V168*/ meltfptr[167] = (void*)&cdat->dstr_102__CLASS_SOURCE_CMA; - cdat->dstr_102__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_102__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_102__CLASS_SOURCE_CMA.val)-1); - /*inimult dtup_103__CLASS_SOURCE_CMATCHEXPR*/ - /*_.VALTUP___V169*/ meltfptr[168] = (void*)&cdat->dtup_103__CLASS_SOURCE_CMATCHEXPR; - cdat->dtup_103__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_103__CLASS_SOURCE_CMATCHEXPR.nbval = 5; - /*inimult dtup_104__CLASS_SOURCE_CMATCHEXPR*/ - /*_.VALTUP___V172*/ meltfptr[171] = (void*)&cdat->dtup_104__CLASS_SOURCE_CMATCHEXPR; - cdat->dtup_104__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_104__CLASS_SOURCE_CMATCHEXPR.nbval = 4; - /*iniobj dsym_105__SCMATX_CMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V173*/ meltfptr[172]) /*_.VALDATA___V173*/ meltfptr[172] = (void*)&cdat->dsym_105__SCMATX_CMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__SCMATX_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_105__SCMATX_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_105__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_105__SCMATX_CMATCHER.obj_hash = 479043970; - cdat->dsym_105__SCMATX_CMATCHER.obj_len = 3; - - /*inistring dstr_106__SCMATX_CMATCHER*/ - /*_.VALSTR___V174*/ meltfptr[173] = (void*)&cdat->dstr_106__SCMATX_CMATCHER; - cdat->dstr_106__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_106__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_106__SCMATX_CMATCHER.val)-1); + /*iniobj dobj_101__CLASS_SOURCE_FUNMATCHEXPR*/ +/*_.VALDATA___V167*/ meltfptr[166] = (void*)&cdat->dobj_101__CLASS_SOURCE_FUNMATCHEXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_101__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_101__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_101__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_101__CLASS_SOURCE_FUNMATCHEXPR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_101__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 232366338; + cdat->dobj_101__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; + + /*inistring dstr_102__CLASS_SOURCE_FUN*/ + /*_.VALSTR___V168*/ meltfptr[167] = (void*)&cdat->dstr_102__CLASS_SOURCE_FUN; + cdat->dstr_102__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_102__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_102__CLASS_SOURCE_FUN.val)-1); + /*inimult dtup_103__CLASS_SOURCE_FUNMATCHEXPR*/ + /*_.VALTUP___V169*/ meltfptr[168] = (void*)&cdat->dtup_103__CLASS_SOURCE_FUNMATCHEXPR; + cdat->dtup_103__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_103__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; + /*inimult dtup_104__CLASS_SOURCE_FUNMATCHEXPR*/ + /*_.VALTUP___V174*/ meltfptr[173] = (void*)&cdat->dtup_104__CLASS_SOURCE_FUNMATCHEXPR; + cdat->dtup_104__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_104__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; + /*iniobj dsym_105__SFMATX_FMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V175*/ meltfptr[174]) /*_.VALDATA___V175*/ meltfptr[174] = (void*)&cdat->dsym_105__SFMATX_FMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__SFMATX_FMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_105__SFMATX_FMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_105__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_105__SFMATX_FMATCHER.obj_hash = 71065864; + cdat->dsym_105__SFMATX_FMATCHER.obj_len = 3; + + /*inistring dstr_106__SFMATX_FMATCHER*/ + /*_.VALSTR___V176*/ meltfptr[175] = (void*)&cdat->dstr_106__SFMATX_FMATCHER; + cdat->dstr_106__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_106__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_106__SFMATX_FMATCHER.val)-1); /*^iniobj*/ - /*iniobj dobj_107__SCMATX_CMATCHER*/ -/*_.VALDATA___V170*/ meltfptr[169] = (void*)&cdat->dobj_107__SCMATX_CMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_107__SCMATX_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__SCMATX_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_107__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_107__SCMATX_CMATCHER.obj_num = 3; - cdat->dobj_107__SCMATX_CMATCHER.obj_hash = 898372201; - cdat->dobj_107__SCMATX_CMATCHER.obj_len = 4; - - /*inistring dstr_108__SCMATX_CMATCHER*/ - /*_.VALSTR___V171*/ meltfptr[170] = (void*)&cdat->dstr_108__SCMATX_CMATCHER; - cdat->dstr_108__SCMATX_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_108__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_108__SCMATX_CMATCHER.val)-1); - /*iniobj dsym_109__CLASS_SOURCE_FUNMATCHEXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V175*/ meltfptr[174]) /*_.VALDATA___V175*/ meltfptr[174] = (void*)&cdat->dsym_109__CLASS_SOURCE_FUNMATCHEXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_109__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_109__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_109__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 443076985; - cdat->dsym_109__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 3; - - /*inistring dstr_110__CLASS_SOURCE_FUN*/ - /*_.VALSTR___V176*/ meltfptr[175] = (void*)&cdat->dstr_110__CLASS_SOURCE_FUN; - cdat->dstr_110__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_110__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_110__CLASS_SOURCE_FUN.val)-1); - MELT_LOCATION("warmelt-macro.melt:128:/ iniobj"); - /*iniobj dobj_111__CLASS_SOURCE_FUNMATCHEXPR*/ -/*_.VALDATA___V177*/ meltfptr[176] = (void*)&cdat->dobj_111__CLASS_SOURCE_FUNMATCHEXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_111__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_111__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_111__CLASS_SOURCE_FUNMATCHEXPR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_111__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 173860059; - cdat->dobj_111__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; - - /*inistring dstr_112__CLASS_SOURCE_FUN*/ - /*_.VALSTR___V178*/ meltfptr[177] = (void*)&cdat->dstr_112__CLASS_SOURCE_FUN; - cdat->dstr_112__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_112__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_112__CLASS_SOURCE_FUN.val)-1); - /*inimult dtup_113__CLASS_SOURCE_FUNMATCHEXPR*/ - /*_.VALTUP___V179*/ meltfptr[178] = (void*)&cdat->dtup_113__CLASS_SOURCE_FUNMATCHEXPR; - cdat->dtup_113__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_113__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; - /*inimult dtup_114__CLASS_SOURCE_FUNMATCHEXPR*/ - /*_.VALTUP___V184*/ meltfptr[183] = (void*)&cdat->dtup_114__CLASS_SOURCE_FUNMATCHEXPR; - cdat->dtup_114__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_114__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; - /*iniobj dsym_115__SFMATX_FMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V185*/ meltfptr[184]) /*_.VALDATA___V185*/ meltfptr[184] = (void*)&cdat->dsym_115__SFMATX_FMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_115__SFMATX_FMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_115__SFMATX_FMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_115__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_115__SFMATX_FMATCHER.obj_hash = 71065864; - cdat->dsym_115__SFMATX_FMATCHER.obj_len = 3; - - /*inistring dstr_116__SFMATX_FMATCHER*/ - /*_.VALSTR___V186*/ meltfptr[185] = (void*)&cdat->dstr_116__SFMATX_FMATCHER; - cdat->dstr_116__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_116__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_116__SFMATX_FMATCHER.val)-1); + /*iniobj dobj_107__SFMATX_FMATCHER*/ +/*_.VALDATA___V170*/ meltfptr[169] = (void*)&cdat->dobj_107__SFMATX_FMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_107__SFMATX_FMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_107__SFMATX_FMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_107__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_107__SFMATX_FMATCHER.obj_num = 3; + cdat->dobj_107__SFMATX_FMATCHER.obj_hash = 211670295; + cdat->dobj_107__SFMATX_FMATCHER.obj_len = 4; + + /*inistring dstr_108__SFMATX_FMATCHER*/ + /*_.VALSTR___V171*/ meltfptr[170] = (void*)&cdat->dstr_108__SFMATX_FMATCHER; + cdat->dstr_108__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_108__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_108__SFMATX_FMATCHER.val)-1); + /*iniobj dsym_109__SFMATX_FMATBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V177*/ meltfptr[176]) /*_.VALDATA___V177*/ meltfptr[176] = (void*)&cdat->dsym_109__SFMATX_FMATBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__SFMATX_FMATBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_109__SFMATX_FMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_109__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_109__SFMATX_FMATBIND.obj_hash = 413504396; + cdat->dsym_109__SFMATX_FMATBIND.obj_len = 3; + + /*inistring dstr_110__SFMATX_FMATBIND*/ + /*_.VALSTR___V178*/ meltfptr[177] = (void*)&cdat->dstr_110__SFMATX_FMATBIND; + cdat->dstr_110__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_110__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_110__SFMATX_FMATBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_117__SFMATX_FMATCHER*/ -/*_.VALDATA___V180*/ meltfptr[179] = (void*)&cdat->dobj_117__SFMATX_FMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_117__SFMATX_FMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_117__SFMATX_FMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_117__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_117__SFMATX_FMATCHER.obj_num = 3; - cdat->dobj_117__SFMATX_FMATCHER.obj_hash = 797727219; - cdat->dobj_117__SFMATX_FMATCHER.obj_len = 4; - - /*inistring dstr_118__SFMATX_FMATCHER*/ - /*_.VALSTR___V181*/ meltfptr[180] = (void*)&cdat->dstr_118__SFMATX_FMATCHER; - cdat->dstr_118__SFMATX_FMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_118__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_118__SFMATX_FMATCHER.val)-1); - /*iniobj dsym_119__SFMATX_FMATBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V187*/ meltfptr[186]) /*_.VALDATA___V187*/ meltfptr[186] = (void*)&cdat->dsym_119__SFMATX_FMATBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__SFMATX_FMATBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_119__SFMATX_FMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_119__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_119__SFMATX_FMATBIND.obj_hash = 413504396; - cdat->dsym_119__SFMATX_FMATBIND.obj_len = 3; - - /*inistring dstr_120__SFMATX_FMATBIND*/ - /*_.VALSTR___V188*/ meltfptr[187] = (void*)&cdat->dstr_120__SFMATX_FMATBIND; - cdat->dstr_120__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_120__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_120__SFMATX_FMATBIND.val)-1); + /*iniobj dobj_111__SFMATX_FMATBIND*/ +/*_.VALDATA___V172*/ meltfptr[171] = (void*)&cdat->dobj_111__SFMATX_FMATBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_111__SFMATX_FMATBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_111__SFMATX_FMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_111__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_111__SFMATX_FMATBIND.obj_num = 4; + cdat->dobj_111__SFMATX_FMATBIND.obj_hash = 862001515; + cdat->dobj_111__SFMATX_FMATBIND.obj_len = 4; + + /*inistring dstr_112__SFMATX_FMATBIND*/ + /*_.VALSTR___V173*/ meltfptr[172] = (void*)&cdat->dstr_112__SFMATX_FMATBIND; + cdat->dstr_112__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_112__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_112__SFMATX_FMATBIND.val)-1); + /*iniobj dsym_113__CLASS_SOURCE_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V179*/ meltfptr[178]) /*_.VALDATA___V179*/ meltfptr[178] = (void*)&cdat->dsym_113__CLASS_SOURCE_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_113__CLASS_SOURCE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_113__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_113__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_113__CLASS_SOURCE_TUPLE.obj_hash = 303778336; + cdat->dsym_113__CLASS_SOURCE_TUPLE.obj_len = 3; + + /*inistring dstr_114__CLASS_SOURCE_TUP*/ + /*_.VALSTR___V180*/ meltfptr[179] = (void*)&cdat->dstr_114__CLASS_SOURCE_TUP; + cdat->dstr_114__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_114__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_114__CLASS_SOURCE_TUP.val)-1); + MELT_LOCATION("warmelt-macro.melt:130:/ iniobj"); + /*iniobj dobj_115__CLASS_SOURCE_TUPLE*/ +/*_.VALDATA___V181*/ meltfptr[180] = (void*)&cdat->dobj_115__CLASS_SOURCE_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_115__CLASS_SOURCE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_115__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_115__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_115__CLASS_SOURCE_TUPLE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_115__CLASS_SOURCE_TUPLE.obj_hash = 589543646; + cdat->dobj_115__CLASS_SOURCE_TUPLE.obj_len = 8; + + /*inistring dstr_116__CLASS_SOURCE_TUP*/ + /*_.VALSTR___V182*/ meltfptr[181] = (void*)&cdat->dstr_116__CLASS_SOURCE_TUP; + cdat->dstr_116__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_116__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_116__CLASS_SOURCE_TUP.val)-1); + /*inimult dtup_117__CLASS_SOURCE_TUPLE*/ + /*_.VALTUP___V183*/ meltfptr[182] = (void*)&cdat->dtup_117__CLASS_SOURCE_TUPLE; + cdat->dtup_117__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_117__CLASS_SOURCE_TUPLE.nbval = 5; + /*inimult dtup_118__CLASS_SOURCE_TUPLE*/ + /*_.VALTUP___V184*/ meltfptr[183] = (void*)&cdat->dtup_118__CLASS_SOURCE_TUPLE; + cdat->dtup_118__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_118__CLASS_SOURCE_TUPLE.nbval = 3; + /*iniobj dsym_119__CLASS_SOURCE_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V185*/ meltfptr[184]) /*_.VALDATA___V185*/ meltfptr[184] = (void*)&cdat->dsym_119__CLASS_SOURCE_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__CLASS_SOURCE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_119__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_119__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_119__CLASS_SOURCE_LIST.obj_hash = 62834193; + cdat->dsym_119__CLASS_SOURCE_LIST.obj_len = 3; + + /*inistring dstr_120__CLASS_SOURCE_LIS*/ + /*_.VALSTR___V186*/ meltfptr[185] = (void*)&cdat->dstr_120__CLASS_SOURCE_LIS; + cdat->dstr_120__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_120__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_120__CLASS_SOURCE_LIS.val)-1); + MELT_LOCATION("warmelt-macro.melt:137:/ iniobj"); + /*iniobj dobj_121__CLASS_SOURCE_LIST*/ +/*_.VALDATA___V187*/ meltfptr[186] = (void*)&cdat->dobj_121__CLASS_SOURCE_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_121__CLASS_SOURCE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_121__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_121__CLASS_SOURCE_LIST.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_121__CLASS_SOURCE_LIST.obj_hash = 887018745; + cdat->dobj_121__CLASS_SOURCE_LIST.obj_len = 8; + + /*inistring dstr_122__CLASS_SOURCE_LIS*/ + /*_.VALSTR___V188*/ meltfptr[187] = (void*)&cdat->dstr_122__CLASS_SOURCE_LIS; + cdat->dstr_122__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_122__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_122__CLASS_SOURCE_LIS.val)-1); + /*inimult dtup_123__CLASS_SOURCE_LIST*/ + /*_.VALTUP___V189*/ meltfptr[188] = (void*)&cdat->dtup_123__CLASS_SOURCE_LIST; + cdat->dtup_123__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_123__CLASS_SOURCE_LIST.nbval = 5; + /*inimult dtup_124__CLASS_SOURCE_LIST*/ + /*_.VALTUP___V190*/ meltfptr[189] = (void*)&cdat->dtup_124__CLASS_SOURCE_LIST; + cdat->dtup_124__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_124__CLASS_SOURCE_LIST.nbval = 3; + /*iniobj dsym_125__CLASS_SOURCE_PROGN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V191*/ meltfptr[190]) /*_.VALDATA___V191*/ meltfptr[190] = (void*)&cdat->dsym_125__CLASS_SOURCE_PROGN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_125__CLASS_SOURCE_PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_125__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_125__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_125__CLASS_SOURCE_PROGN.obj_hash = 819854317; + cdat->dsym_125__CLASS_SOURCE_PROGN.obj_len = 3; + + /*inistring dstr_126__CLASS_SOURCE_PRO*/ + /*_.VALSTR___V192*/ meltfptr[191] = (void*)&cdat->dstr_126__CLASS_SOURCE_PRO; + cdat->dstr_126__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_126__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_126__CLASS_SOURCE_PRO.val)-1); + MELT_LOCATION("warmelt-macro.melt:144:/ iniobj"); + /*iniobj dobj_127__CLASS_SOURCE_PROGN*/ +/*_.VALDATA___V193*/ meltfptr[192] = (void*)&cdat->dobj_127__CLASS_SOURCE_PROGN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_127__CLASS_SOURCE_PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_127__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_127__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_127__CLASS_SOURCE_PROGN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_127__CLASS_SOURCE_PROGN.obj_hash = 268754106; + cdat->dobj_127__CLASS_SOURCE_PROGN.obj_len = 8; + + /*inistring dstr_128__CLASS_SOURCE_PRO*/ + /*_.VALSTR___V194*/ meltfptr[193] = (void*)&cdat->dstr_128__CLASS_SOURCE_PRO; + cdat->dstr_128__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_128__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_128__CLASS_SOURCE_PRO.val)-1); + /*inimult dtup_129__CLASS_SOURCE_PROGN*/ + /*_.VALTUP___V195*/ meltfptr[194] = (void*)&cdat->dtup_129__CLASS_SOURCE_PROGN; + cdat->dtup_129__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_129__CLASS_SOURCE_PROGN.nbval = 4; + /*inimult dtup_130__CLASS_SOURCE_PROGN*/ + /*_.VALTUP___V198*/ meltfptr[197] = (void*)&cdat->dtup_130__CLASS_SOURCE_PROGN; + cdat->dtup_130__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_130__CLASS_SOURCE_PROGN.nbval = 3; + /*iniobj dsym_131__SPROGN_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V199*/ meltfptr[198]) /*_.VALDATA___V199*/ meltfptr[198] = (void*)&cdat->dsym_131__SPROGN_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_131__SPROGN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_131__SPROGN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_131__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_131__SPROGN_BODY.obj_hash = 1027893439; + cdat->dsym_131__SPROGN_BODY.obj_len = 3; + + /*inistring dstr_132__SPROGN_BODY*/ + /*_.VALSTR___V200*/ meltfptr[199] = (void*)&cdat->dstr_132__SPROGN_BODY; + cdat->dstr_132__SPROGN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_132__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_132__SPROGN_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_121__SFMATX_FMATBIND*/ -/*_.VALDATA___V182*/ meltfptr[181] = (void*)&cdat->dobj_121__SFMATX_FMATBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_121__SFMATX_FMATBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__SFMATX_FMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_121__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_121__SFMATX_FMATBIND.obj_num = 4; - cdat->dobj_121__SFMATX_FMATBIND.obj_hash = 1021725065; - cdat->dobj_121__SFMATX_FMATBIND.obj_len = 4; - - /*inistring dstr_122__SFMATX_FMATBIND*/ - /*_.VALSTR___V183*/ meltfptr[182] = (void*)&cdat->dstr_122__SFMATX_FMATBIND; - cdat->dstr_122__SFMATX_FMATBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_122__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_122__SFMATX_FMATBIND.val)-1); - /*iniobj dsym_123__CLASS_SOURCE_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V189*/ meltfptr[188]) /*_.VALDATA___V189*/ meltfptr[188] = (void*)&cdat->dsym_123__CLASS_SOURCE_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_123__CLASS_SOURCE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_123__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_123__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_123__CLASS_SOURCE_TUPLE.obj_hash = 303778336; - cdat->dsym_123__CLASS_SOURCE_TUPLE.obj_len = 3; - - /*inistring dstr_124__CLASS_SOURCE_TUP*/ - /*_.VALSTR___V190*/ meltfptr[189] = (void*)&cdat->dstr_124__CLASS_SOURCE_TUP; - cdat->dstr_124__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_124__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_124__CLASS_SOURCE_TUP.val)-1); - MELT_LOCATION("warmelt-macro.melt:139:/ iniobj"); - /*iniobj dobj_125__CLASS_SOURCE_TUPLE*/ -/*_.VALDATA___V191*/ meltfptr[190] = (void*)&cdat->dobj_125__CLASS_SOURCE_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_125__CLASS_SOURCE_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_125__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_125__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_125__CLASS_SOURCE_TUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_125__CLASS_SOURCE_TUPLE.obj_hash = 575712362; - cdat->dobj_125__CLASS_SOURCE_TUPLE.obj_len = 8; - - /*inistring dstr_126__CLASS_SOURCE_TUP*/ - /*_.VALSTR___V192*/ meltfptr[191] = (void*)&cdat->dstr_126__CLASS_SOURCE_TUP; - cdat->dstr_126__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_126__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_126__CLASS_SOURCE_TUP.val)-1); - /*inimult dtup_127__CLASS_SOURCE_TUPLE*/ - /*_.VALTUP___V193*/ meltfptr[192] = (void*)&cdat->dtup_127__CLASS_SOURCE_TUPLE; - cdat->dtup_127__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_127__CLASS_SOURCE_TUPLE.nbval = 5; - /*inimult dtup_128__CLASS_SOURCE_TUPLE*/ - /*_.VALTUP___V194*/ meltfptr[193] = (void*)&cdat->dtup_128__CLASS_SOURCE_TUPLE; - cdat->dtup_128__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_128__CLASS_SOURCE_TUPLE.nbval = 3; - /*iniobj dsym_129__CLASS_SOURCE_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V195*/ meltfptr[194]) /*_.VALDATA___V195*/ meltfptr[194] = (void*)&cdat->dsym_129__CLASS_SOURCE_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_129__CLASS_SOURCE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_129__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_129__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_129__CLASS_SOURCE_LIST.obj_hash = 62834193; - cdat->dsym_129__CLASS_SOURCE_LIST.obj_len = 3; - - /*inistring dstr_130__CLASS_SOURCE_LIS*/ - /*_.VALSTR___V196*/ meltfptr[195] = (void*)&cdat->dstr_130__CLASS_SOURCE_LIS; - cdat->dstr_130__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_130__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_130__CLASS_SOURCE_LIS.val)-1); - MELT_LOCATION("warmelt-macro.melt:146:/ iniobj"); - /*iniobj dobj_131__CLASS_SOURCE_LIST*/ -/*_.VALDATA___V197*/ meltfptr[196] = (void*)&cdat->dobj_131__CLASS_SOURCE_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_131__CLASS_SOURCE_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_131__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_131__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_131__CLASS_SOURCE_LIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_131__CLASS_SOURCE_LIST.obj_hash = 577529310; - cdat->dobj_131__CLASS_SOURCE_LIST.obj_len = 8; - - /*inistring dstr_132__CLASS_SOURCE_LIS*/ - /*_.VALSTR___V198*/ meltfptr[197] = (void*)&cdat->dstr_132__CLASS_SOURCE_LIS; - cdat->dstr_132__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_132__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_132__CLASS_SOURCE_LIS.val)-1); - /*inimult dtup_133__CLASS_SOURCE_LIST*/ - /*_.VALTUP___V199*/ meltfptr[198] = (void*)&cdat->dtup_133__CLASS_SOURCE_LIST; - cdat->dtup_133__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_133__CLASS_SOURCE_LIST.nbval = 5; - /*inimult dtup_134__CLASS_SOURCE_LIST*/ - /*_.VALTUP___V200*/ meltfptr[199] = (void*)&cdat->dtup_134__CLASS_SOURCE_LIST; - cdat->dtup_134__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_134__CLASS_SOURCE_LIST.nbval = 3; - /*iniobj dsym_135__CLASS_SOURCE_PROGN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V201*/ meltfptr[200]) /*_.VALDATA___V201*/ meltfptr[200] = (void*)&cdat->dsym_135__CLASS_SOURCE_PROGN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__CLASS_SOURCE_PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_135__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_135__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_135__CLASS_SOURCE_PROGN.obj_hash = 819854317; - cdat->dsym_135__CLASS_SOURCE_PROGN.obj_len = 3; - - /*inistring dstr_136__CLASS_SOURCE_PRO*/ - /*_.VALSTR___V202*/ meltfptr[201] = (void*)&cdat->dstr_136__CLASS_SOURCE_PRO; - cdat->dstr_136__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_136__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_136__CLASS_SOURCE_PRO.val)-1); - MELT_LOCATION("warmelt-macro.melt:153:/ iniobj"); - /*iniobj dobj_137__CLASS_SOURCE_PROGN*/ -/*_.VALDATA___V203*/ meltfptr[202] = (void*)&cdat->dobj_137__CLASS_SOURCE_PROGN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_137__CLASS_SOURCE_PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_137__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_137__CLASS_SOURCE_PROGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_137__CLASS_SOURCE_PROGN.obj_hash = 340587539; - cdat->dobj_137__CLASS_SOURCE_PROGN.obj_len = 8; - - /*inistring dstr_138__CLASS_SOURCE_PRO*/ - /*_.VALSTR___V204*/ meltfptr[203] = (void*)&cdat->dstr_138__CLASS_SOURCE_PRO; - cdat->dstr_138__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_138__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_138__CLASS_SOURCE_PRO.val)-1); - /*inimult dtup_139__CLASS_SOURCE_PROGN*/ - /*_.VALTUP___V205*/ meltfptr[204] = (void*)&cdat->dtup_139__CLASS_SOURCE_PROGN; - cdat->dtup_139__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_139__CLASS_SOURCE_PROGN.nbval = 4; - /*inimult dtup_140__CLASS_SOURCE_PROGN*/ - /*_.VALTUP___V208*/ meltfptr[207] = (void*)&cdat->dtup_140__CLASS_SOURCE_PROGN; - cdat->dtup_140__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_140__CLASS_SOURCE_PROGN.nbval = 3; - /*iniobj dsym_141__SPROGN_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V209*/ meltfptr[208]) /*_.VALDATA___V209*/ meltfptr[208] = (void*)&cdat->dsym_141__SPROGN_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_141__SPROGN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_141__SPROGN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_141__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_141__SPROGN_BODY.obj_hash = 1027893439; - cdat->dsym_141__SPROGN_BODY.obj_len = 3; - - /*inistring dstr_142__SPROGN_BODY*/ - /*_.VALSTR___V210*/ meltfptr[209] = (void*)&cdat->dstr_142__SPROGN_BODY; - cdat->dstr_142__SPROGN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_142__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_142__SPROGN_BODY.val)-1); + /*iniobj dobj_133__SPROGN_BODY*/ +/*_.VALDATA___V196*/ meltfptr[195] = (void*)&cdat->dobj_133__SPROGN_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_133__SPROGN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_133__SPROGN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_133__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_133__SPROGN_BODY.obj_num = 2; + cdat->dobj_133__SPROGN_BODY.obj_hash = 798861642; + cdat->dobj_133__SPROGN_BODY.obj_len = 4; + + /*inistring dstr_134__SPROGN_BODY*/ + /*_.VALSTR___V197*/ meltfptr[196] = (void*)&cdat->dstr_134__SPROGN_BODY; + cdat->dstr_134__SPROGN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_134__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_134__SPROGN_BODY.val)-1); + /*iniobj dsym_135__CLASS_SOURCE_RETURN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V201*/ meltfptr[200]) /*_.VALDATA___V201*/ meltfptr[200] = (void*)&cdat->dsym_135__CLASS_SOURCE_RETURN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__CLASS_SOURCE_RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_135__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_135__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_135__CLASS_SOURCE_RETURN.obj_hash = 288930130; + cdat->dsym_135__CLASS_SOURCE_RETURN.obj_len = 3; + + /*inistring dstr_136__CLASS_SOURCE_RET*/ + /*_.VALSTR___V202*/ meltfptr[201] = (void*)&cdat->dstr_136__CLASS_SOURCE_RET; + cdat->dstr_136__CLASS_SOURCE_RET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_136__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_136__CLASS_SOURCE_RET.val)-1); + MELT_LOCATION("warmelt-macro.melt:152:/ iniobj"); + /*iniobj dobj_137__CLASS_SOURCE_RETURN*/ +/*_.VALDATA___V203*/ meltfptr[202] = (void*)&cdat->dobj_137__CLASS_SOURCE_RETURN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_137__CLASS_SOURCE_RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_137__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_137__CLASS_SOURCE_RETURN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_137__CLASS_SOURCE_RETURN.obj_hash = 95157937; + cdat->dobj_137__CLASS_SOURCE_RETURN.obj_len = 8; + + /*inistring dstr_138__CLASS_SOURCE_RET*/ + /*_.VALSTR___V204*/ meltfptr[203] = (void*)&cdat->dstr_138__CLASS_SOURCE_RET; + cdat->dstr_138__CLASS_SOURCE_RET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_138__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_138__CLASS_SOURCE_RET.val)-1); + /*inimult dtup_139__CLASS_SOURCE_RETURN*/ + /*_.VALTUP___V205*/ meltfptr[204] = (void*)&cdat->dtup_139__CLASS_SOURCE_RETURN; + cdat->dtup_139__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_139__CLASS_SOURCE_RETURN.nbval = 5; + /*inimult dtup_140__CLASS_SOURCE_RETURN*/ + /*_.VALTUP___V206*/ meltfptr[205] = (void*)&cdat->dtup_140__CLASS_SOURCE_RETURN; + cdat->dtup_140__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_140__CLASS_SOURCE_RETURN.nbval = 3; + /*iniobj dsym_141__CLASS_SOURCE_SETQ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V207*/ meltfptr[206]) /*_.VALDATA___V207*/ meltfptr[206] = (void*)&cdat->dsym_141__CLASS_SOURCE_SETQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_141__CLASS_SOURCE_SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_141__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_141__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_141__CLASS_SOURCE_SETQ.obj_hash = 335918923; + cdat->dsym_141__CLASS_SOURCE_SETQ.obj_len = 3; + + /*inistring dstr_142__CLASS_SOURCE_SET*/ + /*_.VALSTR___V208*/ meltfptr[207] = (void*)&cdat->dstr_142__CLASS_SOURCE_SET; + cdat->dstr_142__CLASS_SOURCE_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_142__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_142__CLASS_SOURCE_SET.val)-1); + MELT_LOCATION("warmelt-macro.melt:159:/ iniobj"); + /*iniobj dobj_143__CLASS_SOURCE_SETQ*/ +/*_.VALDATA___V209*/ meltfptr[208] = (void*)&cdat->dobj_143__CLASS_SOURCE_SETQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_143__CLASS_SOURCE_SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_143__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_143__CLASS_SOURCE_SETQ.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_143__CLASS_SOURCE_SETQ.obj_hash = 378670448; + cdat->dobj_143__CLASS_SOURCE_SETQ.obj_len = 8; + + /*inistring dstr_144__CLASS_SOURCE_SET*/ + /*_.VALSTR___V210*/ meltfptr[209] = (void*)&cdat->dstr_144__CLASS_SOURCE_SET; + cdat->dstr_144__CLASS_SOURCE_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_144__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_144__CLASS_SOURCE_SET.val)-1); + /*inimult dtup_145__CLASS_SOURCE_SETQ*/ + /*_.VALTUP___V211*/ meltfptr[210] = (void*)&cdat->dtup_145__CLASS_SOURCE_SETQ; + cdat->dtup_145__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_145__CLASS_SOURCE_SETQ.nbval = 4; + /*inimult dtup_146__CLASS_SOURCE_SETQ*/ + /*_.VALTUP___V216*/ meltfptr[215] = (void*)&cdat->dtup_146__CLASS_SOURCE_SETQ; + cdat->dtup_146__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_146__CLASS_SOURCE_SETQ.nbval = 4; + /*iniobj dsym_147__SSTQ_VAR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (void*)&cdat->dsym_147__SSTQ_VAR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_147__SSTQ_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_147__SSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_147__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_147__SSTQ_VAR.obj_hash = 140668190; + cdat->dsym_147__SSTQ_VAR.obj_len = 3; + + /*inistring dstr_148__SSTQ_VAR*/ + /*_.VALSTR___V218*/ meltfptr[217] = (void*)&cdat->dstr_148__SSTQ_VAR; + cdat->dstr_148__SSTQ_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_148__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_148__SSTQ_VAR.val)-1); /*^iniobj*/ - /*iniobj dobj_143__SPROGN_BODY*/ -/*_.VALDATA___V206*/ meltfptr[205] = (void*)&cdat->dobj_143__SPROGN_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_143__SPROGN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__SPROGN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_143__SPROGN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_143__SPROGN_BODY.obj_num = 2; - cdat->dobj_143__SPROGN_BODY.obj_hash = 578473188; - cdat->dobj_143__SPROGN_BODY.obj_len = 4; - - /*inistring dstr_144__SPROGN_BODY*/ - /*_.VALSTR___V207*/ meltfptr[206] = (void*)&cdat->dstr_144__SPROGN_BODY; - cdat->dstr_144__SPROGN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_144__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_144__SPROGN_BODY.val)-1); - /*iniobj dsym_145__CLASS_SOURCE_RETURN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V211*/ meltfptr[210]) /*_.VALDATA___V211*/ meltfptr[210] = (void*)&cdat->dsym_145__CLASS_SOURCE_RETURN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_145__CLASS_SOURCE_RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_145__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_145__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_145__CLASS_SOURCE_RETURN.obj_hash = 288930130; - cdat->dsym_145__CLASS_SOURCE_RETURN.obj_len = 3; - - /*inistring dstr_146__CLASS_SOURCE_RET*/ - /*_.VALSTR___V212*/ meltfptr[211] = (void*)&cdat->dstr_146__CLASS_SOURCE_RET; - cdat->dstr_146__CLASS_SOURCE_RET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_146__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_146__CLASS_SOURCE_RET.val)-1); - MELT_LOCATION("warmelt-macro.melt:161:/ iniobj"); - /*iniobj dobj_147__CLASS_SOURCE_RETURN*/ -/*_.VALDATA___V213*/ meltfptr[212] = (void*)&cdat->dobj_147__CLASS_SOURCE_RETURN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_147__CLASS_SOURCE_RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_147__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_147__CLASS_SOURCE_RETURN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_147__CLASS_SOURCE_RETURN.obj_hash = 1001211390; - cdat->dobj_147__CLASS_SOURCE_RETURN.obj_len = 8; - - /*inistring dstr_148__CLASS_SOURCE_RET*/ - /*_.VALSTR___V214*/ meltfptr[213] = (void*)&cdat->dstr_148__CLASS_SOURCE_RET; - cdat->dstr_148__CLASS_SOURCE_RET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_148__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_148__CLASS_SOURCE_RET.val)-1); - /*inimult dtup_149__CLASS_SOURCE_RETURN*/ - /*_.VALTUP___V215*/ meltfptr[214] = (void*)&cdat->dtup_149__CLASS_SOURCE_RETURN; - cdat->dtup_149__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_149__CLASS_SOURCE_RETURN.nbval = 5; - /*inimult dtup_150__CLASS_SOURCE_RETURN*/ - /*_.VALTUP___V216*/ meltfptr[215] = (void*)&cdat->dtup_150__CLASS_SOURCE_RETURN; - cdat->dtup_150__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_150__CLASS_SOURCE_RETURN.nbval = 3; - /*iniobj dsym_151__CLASS_SOURCE_SETQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (void*)&cdat->dsym_151__CLASS_SOURCE_SETQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_151__CLASS_SOURCE_SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_151__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_151__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_151__CLASS_SOURCE_SETQ.obj_hash = 335918923; - cdat->dsym_151__CLASS_SOURCE_SETQ.obj_len = 3; - - /*inistring dstr_152__CLASS_SOURCE_SET*/ - /*_.VALSTR___V218*/ meltfptr[217] = (void*)&cdat->dstr_152__CLASS_SOURCE_SET; - cdat->dstr_152__CLASS_SOURCE_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_152__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_152__CLASS_SOURCE_SET.val)-1); - MELT_LOCATION("warmelt-macro.melt:168:/ iniobj"); - /*iniobj dobj_153__CLASS_SOURCE_SETQ*/ -/*_.VALDATA___V219*/ meltfptr[218] = (void*)&cdat->dobj_153__CLASS_SOURCE_SETQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_153__CLASS_SOURCE_SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_153__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_153__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_153__CLASS_SOURCE_SETQ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_153__CLASS_SOURCE_SETQ.obj_hash = 320902132; - cdat->dobj_153__CLASS_SOURCE_SETQ.obj_len = 8; - - /*inistring dstr_154__CLASS_SOURCE_SET*/ - /*_.VALSTR___V220*/ meltfptr[219] = (void*)&cdat->dstr_154__CLASS_SOURCE_SET; - cdat->dstr_154__CLASS_SOURCE_SET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_154__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_154__CLASS_SOURCE_SET.val)-1); - /*inimult dtup_155__CLASS_SOURCE_SETQ*/ - /*_.VALTUP___V221*/ meltfptr[220] = (void*)&cdat->dtup_155__CLASS_SOURCE_SETQ; - cdat->dtup_155__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_155__CLASS_SOURCE_SETQ.nbval = 4; - /*inimult dtup_156__CLASS_SOURCE_SETQ*/ - /*_.VALTUP___V226*/ meltfptr[225] = (void*)&cdat->dtup_156__CLASS_SOURCE_SETQ; - cdat->dtup_156__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_156__CLASS_SOURCE_SETQ.nbval = 4; - /*iniobj dsym_157__SSTQ_VAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V227*/ meltfptr[226]) /*_.VALDATA___V227*/ meltfptr[226] = (void*)&cdat->dsym_157__SSTQ_VAR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_157__SSTQ_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_157__SSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_157__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_157__SSTQ_VAR.obj_hash = 140668190; - cdat->dsym_157__SSTQ_VAR.obj_len = 3; - - /*inistring dstr_158__SSTQ_VAR*/ - /*_.VALSTR___V228*/ meltfptr[227] = (void*)&cdat->dstr_158__SSTQ_VAR; - cdat->dstr_158__SSTQ_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_158__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_158__SSTQ_VAR.val)-1); + /*iniobj dobj_149__SSTQ_VAR*/ +/*_.VALDATA___V212*/ meltfptr[211] = (void*)&cdat->dobj_149__SSTQ_VAR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_149__SSTQ_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_149__SSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_149__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_149__SSTQ_VAR.obj_num = 2; + cdat->dobj_149__SSTQ_VAR.obj_hash = 554826424; + cdat->dobj_149__SSTQ_VAR.obj_len = 4; + + /*inistring dstr_150__SSTQ_VAR*/ + /*_.VALSTR___V213*/ meltfptr[212] = (void*)&cdat->dstr_150__SSTQ_VAR; + cdat->dstr_150__SSTQ_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_150__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_150__SSTQ_VAR.val)-1); + /*iniobj dsym_151__SSTQ_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V219*/ meltfptr[218]) /*_.VALDATA___V219*/ meltfptr[218] = (void*)&cdat->dsym_151__SSTQ_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_151__SSTQ_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_151__SSTQ_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_151__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_151__SSTQ_EXPR.obj_hash = 13829252; + cdat->dsym_151__SSTQ_EXPR.obj_len = 3; + + /*inistring dstr_152__SSTQ_EXPR*/ + /*_.VALSTR___V220*/ meltfptr[219] = (void*)&cdat->dstr_152__SSTQ_EXPR; + cdat->dstr_152__SSTQ_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_152__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_152__SSTQ_EXPR.val)-1); /*^iniobj*/ - /*iniobj dobj_159__SSTQ_VAR*/ -/*_.VALDATA___V222*/ meltfptr[221] = (void*)&cdat->dobj_159__SSTQ_VAR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_159__SSTQ_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_159__SSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_159__SSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_159__SSTQ_VAR.obj_num = 2; - cdat->dobj_159__SSTQ_VAR.obj_hash = 893885617; - cdat->dobj_159__SSTQ_VAR.obj_len = 4; - - /*inistring dstr_160__SSTQ_VAR*/ - /*_.VALSTR___V223*/ meltfptr[222] = (void*)&cdat->dstr_160__SSTQ_VAR; - cdat->dstr_160__SSTQ_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_160__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_160__SSTQ_VAR.val)-1); - /*iniobj dsym_161__SSTQ_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V229*/ meltfptr[228]) /*_.VALDATA___V229*/ meltfptr[228] = (void*)&cdat->dsym_161__SSTQ_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__SSTQ_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_161__SSTQ_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_161__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_161__SSTQ_EXPR.obj_hash = 13829252; - cdat->dsym_161__SSTQ_EXPR.obj_len = 3; - - /*inistring dstr_162__SSTQ_EXPR*/ - /*_.VALSTR___V230*/ meltfptr[229] = (void*)&cdat->dstr_162__SSTQ_EXPR; - cdat->dstr_162__SSTQ_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_162__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_162__SSTQ_EXPR.val)-1); + /*iniobj dobj_153__SSTQ_EXPR*/ +/*_.VALDATA___V214*/ meltfptr[213] = (void*)&cdat->dobj_153__SSTQ_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_153__SSTQ_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_153__SSTQ_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_153__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_153__SSTQ_EXPR.obj_num = 3; + cdat->dobj_153__SSTQ_EXPR.obj_hash = 816149579; + cdat->dobj_153__SSTQ_EXPR.obj_len = 4; + + /*inistring dstr_154__SSTQ_EXPR*/ + /*_.VALSTR___V215*/ meltfptr[214] = (void*)&cdat->dstr_154__SSTQ_EXPR; + cdat->dstr_154__SSTQ_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_154__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_154__SSTQ_EXPR.val)-1); + /*iniobj dsym_155__CLASS_SOURCE_COMMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V221*/ meltfptr[220]) /*_.VALDATA___V221*/ meltfptr[220] = (void*)&cdat->dsym_155__CLASS_SOURCE_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_155__CLASS_SOURCE_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_155__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_155__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_155__CLASS_SOURCE_COMMENT.obj_hash = 156677751; + cdat->dsym_155__CLASS_SOURCE_COMMENT.obj_len = 3; + + /*inistring dstr_156__CLASS_SOURCE_COM*/ + /*_.VALSTR___V222*/ meltfptr[221] = (void*)&cdat->dstr_156__CLASS_SOURCE_COM; + cdat->dstr_156__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_156__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_156__CLASS_SOURCE_COM.val)-1); + MELT_LOCATION("warmelt-macro.melt:168:/ iniobj"); + /*iniobj dobj_157__CLASS_SOURCE_COMMENT*/ +/*_.VALDATA___V223*/ meltfptr[222] = (void*)&cdat->dobj_157__CLASS_SOURCE_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_157__CLASS_SOURCE_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_157__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_157__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_157__CLASS_SOURCE_COMMENT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_157__CLASS_SOURCE_COMMENT.obj_hash = 831382161; + cdat->dobj_157__CLASS_SOURCE_COMMENT.obj_len = 8; + + /*inistring dstr_158__CLASS_SOURCE_COM*/ + /*_.VALSTR___V224*/ meltfptr[223] = (void*)&cdat->dstr_158__CLASS_SOURCE_COM; + cdat->dstr_158__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_158__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_158__CLASS_SOURCE_COM.val)-1); + /*inimult dtup_159__CLASS_SOURCE_COMMENT*/ + /*_.VALTUP___V225*/ meltfptr[224] = (void*)&cdat->dtup_159__CLASS_SOURCE_COMMENT; + cdat->dtup_159__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_159__CLASS_SOURCE_COMMENT.nbval = 4; + /*inimult dtup_160__CLASS_SOURCE_COMMENT*/ + /*_.VALTUP___V228*/ meltfptr[227] = (void*)&cdat->dtup_160__CLASS_SOURCE_COMMENT; + cdat->dtup_160__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_160__CLASS_SOURCE_COMMENT.nbval = 3; + /*iniobj dsym_161__SCOMM_STR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V229*/ meltfptr[228]) /*_.VALDATA___V229*/ meltfptr[228] = (void*)&cdat->dsym_161__SCOMM_STR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__SCOMM_STR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_161__SCOMM_STR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_161__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_161__SCOMM_STR.obj_hash = 224660524; + cdat->dsym_161__SCOMM_STR.obj_len = 3; + + /*inistring dstr_162__SCOMM_STR*/ + /*_.VALSTR___V230*/ meltfptr[229] = (void*)&cdat->dstr_162__SCOMM_STR; + cdat->dstr_162__SCOMM_STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_162__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_162__SCOMM_STR.val)-1); /*^iniobj*/ - /*iniobj dobj_163__SSTQ_EXPR*/ -/*_.VALDATA___V224*/ meltfptr[223] = (void*)&cdat->dobj_163__SSTQ_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_163__SSTQ_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_163__SSTQ_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_163__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_163__SSTQ_EXPR.obj_num = 3; - cdat->dobj_163__SSTQ_EXPR.obj_hash = 1040808938; - cdat->dobj_163__SSTQ_EXPR.obj_len = 4; - - /*inistring dstr_164__SSTQ_EXPR*/ - /*_.VALSTR___V225*/ meltfptr[224] = (void*)&cdat->dstr_164__SSTQ_EXPR; - cdat->dstr_164__SSTQ_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_164__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_164__SSTQ_EXPR.val)-1); - /*iniobj dsym_165__CLASS_SOURCE_COMMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (void*)&cdat->dsym_165__CLASS_SOURCE_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_165__CLASS_SOURCE_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_165__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_165__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_165__CLASS_SOURCE_COMMENT.obj_hash = 156677751; - cdat->dsym_165__CLASS_SOURCE_COMMENT.obj_len = 3; - - /*inistring dstr_166__CLASS_SOURCE_COM*/ - /*_.VALSTR___V232*/ meltfptr[231] = (void*)&cdat->dstr_166__CLASS_SOURCE_COM; - cdat->dstr_166__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_166__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_166__CLASS_SOURCE_COM.val)-1); - MELT_LOCATION("warmelt-macro.melt:177:/ iniobj"); - /*iniobj dobj_167__CLASS_SOURCE_COMMENT*/ -/*_.VALDATA___V233*/ meltfptr[232] = (void*)&cdat->dobj_167__CLASS_SOURCE_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_167__CLASS_SOURCE_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_167__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_167__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_167__CLASS_SOURCE_COMMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_167__CLASS_SOURCE_COMMENT.obj_hash = 191536560; - cdat->dobj_167__CLASS_SOURCE_COMMENT.obj_len = 8; - - /*inistring dstr_168__CLASS_SOURCE_COM*/ - /*_.VALSTR___V234*/ meltfptr[233] = (void*)&cdat->dstr_168__CLASS_SOURCE_COM; - cdat->dstr_168__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_168__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_168__CLASS_SOURCE_COM.val)-1); - /*inimult dtup_169__CLASS_SOURCE_COMMENT*/ - /*_.VALTUP___V235*/ meltfptr[234] = (void*)&cdat->dtup_169__CLASS_SOURCE_COMMENT; - cdat->dtup_169__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_169__CLASS_SOURCE_COMMENT.nbval = 4; - /*inimult dtup_170__CLASS_SOURCE_COMMENT*/ - /*_.VALTUP___V238*/ meltfptr[237] = (void*)&cdat->dtup_170__CLASS_SOURCE_COMMENT; - cdat->dtup_170__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_170__CLASS_SOURCE_COMMENT.nbval = 3; - /*iniobj dsym_171__SCOMM_STR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V239*/ meltfptr[238]) /*_.VALDATA___V239*/ meltfptr[238] = (void*)&cdat->dsym_171__SCOMM_STR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_171__SCOMM_STR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_171__SCOMM_STR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_171__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_171__SCOMM_STR.obj_hash = 224660524; - cdat->dsym_171__SCOMM_STR.obj_len = 3; - - /*inistring dstr_172__SCOMM_STR*/ - /*_.VALSTR___V240*/ meltfptr[239] = (void*)&cdat->dstr_172__SCOMM_STR; - cdat->dstr_172__SCOMM_STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_172__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_172__SCOMM_STR.val)-1); + /*iniobj dobj_163__SCOMM_STR*/ +/*_.VALDATA___V226*/ meltfptr[225] = (void*)&cdat->dobj_163__SCOMM_STR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_163__SCOMM_STR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_163__SCOMM_STR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_163__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_163__SCOMM_STR.obj_num = 2; + cdat->dobj_163__SCOMM_STR.obj_hash = 140430628; + cdat->dobj_163__SCOMM_STR.obj_len = 4; + + /*inistring dstr_164__SCOMM_STR*/ + /*_.VALSTR___V227*/ meltfptr[226] = (void*)&cdat->dstr_164__SCOMM_STR; + cdat->dstr_164__SCOMM_STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_164__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_164__SCOMM_STR.val)-1); + /*iniobj dsym_165__CLASS_SOURCE_QUOTE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (void*)&cdat->dsym_165__CLASS_SOURCE_QUOTE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_165__CLASS_SOURCE_QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_165__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_165__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_165__CLASS_SOURCE_QUOTE.obj_hash = 488554331; + cdat->dsym_165__CLASS_SOURCE_QUOTE.obj_len = 3; + + /*inistring dstr_166__CLASS_SOURCE_QUO*/ + /*_.VALSTR___V232*/ meltfptr[231] = (void*)&cdat->dstr_166__CLASS_SOURCE_QUO; + cdat->dstr_166__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_166__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_166__CLASS_SOURCE_QUO.val)-1); + MELT_LOCATION("warmelt-macro.melt:176:/ iniobj"); + /*iniobj dobj_167__CLASS_SOURCE_QUOTE*/ +/*_.VALDATA___V233*/ meltfptr[232] = (void*)&cdat->dobj_167__CLASS_SOURCE_QUOTE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_167__CLASS_SOURCE_QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_167__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_167__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_167__CLASS_SOURCE_QUOTE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_167__CLASS_SOURCE_QUOTE.obj_hash = 407941281; + cdat->dobj_167__CLASS_SOURCE_QUOTE.obj_len = 8; + + /*inistring dstr_168__CLASS_SOURCE_QUO*/ + /*_.VALSTR___V234*/ meltfptr[233] = (void*)&cdat->dstr_168__CLASS_SOURCE_QUO; + cdat->dstr_168__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_168__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_168__CLASS_SOURCE_QUO.val)-1); + /*inimult dtup_169__CLASS_SOURCE_QUOTE*/ + /*_.VALTUP___V235*/ meltfptr[234] = (void*)&cdat->dtup_169__CLASS_SOURCE_QUOTE; + cdat->dtup_169__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_169__CLASS_SOURCE_QUOTE.nbval = 4; + /*inimult dtup_170__CLASS_SOURCE_QUOTE*/ + /*_.VALTUP___V238*/ meltfptr[237] = (void*)&cdat->dtup_170__CLASS_SOURCE_QUOTE; + cdat->dtup_170__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_170__CLASS_SOURCE_QUOTE.nbval = 3; + /*iniobj dsym_171__SQUOTED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V239*/ meltfptr[238]) /*_.VALDATA___V239*/ meltfptr[238] = (void*)&cdat->dsym_171__SQUOTED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_171__SQUOTED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_171__SQUOTED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_171__SQUOTED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_171__SQUOTED.obj_hash = 28914429; + cdat->dsym_171__SQUOTED.obj_len = 3; + + /*inistring dstr_172__SQUOTED*/ + /*_.VALSTR___V240*/ meltfptr[239] = (void*)&cdat->dstr_172__SQUOTED; + cdat->dstr_172__SQUOTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_172__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_172__SQUOTED.val)-1); /*^iniobj*/ - /*iniobj dobj_173__SCOMM_STR*/ -/*_.VALDATA___V236*/ meltfptr[235] = (void*)&cdat->dobj_173__SCOMM_STR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_173__SCOMM_STR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_173__SCOMM_STR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_173__SCOMM_STR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_173__SCOMM_STR.obj_num = 2; - cdat->dobj_173__SCOMM_STR.obj_hash = 552680512; - cdat->dobj_173__SCOMM_STR.obj_len = 4; - - /*inistring dstr_174__SCOMM_STR*/ - /*_.VALSTR___V237*/ meltfptr[236] = (void*)&cdat->dstr_174__SCOMM_STR; - cdat->dstr_174__SCOMM_STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_174__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_174__SCOMM_STR.val)-1); - /*iniobj dsym_175__CLASS_SOURCE_QUOTE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V241*/ meltfptr[240]) /*_.VALDATA___V241*/ meltfptr[240] = (void*)&cdat->dsym_175__CLASS_SOURCE_QUOTE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_175__CLASS_SOURCE_QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_175__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_175__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_175__CLASS_SOURCE_QUOTE.obj_hash = 488554331; - cdat->dsym_175__CLASS_SOURCE_QUOTE.obj_len = 3; - - /*inistring dstr_176__CLASS_SOURCE_QUO*/ - /*_.VALSTR___V242*/ meltfptr[241] = (void*)&cdat->dstr_176__CLASS_SOURCE_QUO; - cdat->dstr_176__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_176__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_176__CLASS_SOURCE_QUO.val)-1); - MELT_LOCATION("warmelt-macro.melt:185:/ iniobj"); - /*iniobj dobj_177__CLASS_SOURCE_QUOTE*/ -/*_.VALDATA___V243*/ meltfptr[242] = (void*)&cdat->dobj_177__CLASS_SOURCE_QUOTE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_177__CLASS_SOURCE_QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_177__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_177__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_177__CLASS_SOURCE_QUOTE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_177__CLASS_SOURCE_QUOTE.obj_hash = 671343000; - cdat->dobj_177__CLASS_SOURCE_QUOTE.obj_len = 8; - - /*inistring dstr_178__CLASS_SOURCE_QUO*/ - /*_.VALSTR___V244*/ meltfptr[243] = (void*)&cdat->dstr_178__CLASS_SOURCE_QUO; - cdat->dstr_178__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_178__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_178__CLASS_SOURCE_QUO.val)-1); - /*inimult dtup_179__CLASS_SOURCE_QUOTE*/ - /*_.VALTUP___V245*/ meltfptr[244] = (void*)&cdat->dtup_179__CLASS_SOURCE_QUOTE; - cdat->dtup_179__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_179__CLASS_SOURCE_QUOTE.nbval = 4; - /*inimult dtup_180__CLASS_SOURCE_QUOTE*/ - /*_.VALTUP___V248*/ meltfptr[247] = (void*)&cdat->dtup_180__CLASS_SOURCE_QUOTE; - cdat->dtup_180__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_180__CLASS_SOURCE_QUOTE.nbval = 3; - /*iniobj dsym_181__SQUOTED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V249*/ meltfptr[248]) /*_.VALDATA___V249*/ meltfptr[248] = (void*)&cdat->dsym_181__SQUOTED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_181__SQUOTED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_181__SQUOTED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_181__SQUOTED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_181__SQUOTED.obj_hash = 28914429; - cdat->dsym_181__SQUOTED.obj_len = 3; - - /*inistring dstr_182__SQUOTED*/ - /*_.VALSTR___V250*/ meltfptr[249] = (void*)&cdat->dstr_182__SQUOTED; - cdat->dstr_182__SQUOTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_182__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_182__SQUOTED.val)-1); + /*iniobj dobj_173__SQUOTED*/ +/*_.VALDATA___V236*/ meltfptr[235] = (void*)&cdat->dobj_173__SQUOTED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_173__SQUOTED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_173__SQUOTED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_173__SQUOTED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_173__SQUOTED.obj_num = 2; + cdat->dobj_173__SQUOTED.obj_hash = 856011291; + cdat->dobj_173__SQUOTED.obj_len = 4; + + /*inistring dstr_174__SQUOTED*/ + /*_.VALSTR___V237*/ meltfptr[236] = (void*)&cdat->dstr_174__SQUOTED; + cdat->dstr_174__SQUOTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_174__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_174__SQUOTED.val)-1); + /*iniobj dsym_175__CLASS_SOURCE_EXPORTCOMMON*/ +/*uniqueobj*/ if (!/*_.VALDATA___V241*/ meltfptr[240]) /*_.VALDATA___V241*/ meltfptr[240] = (void*)&cdat->dsym_175__CLASS_SOURCE_EXPORTCOMMON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_175__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_175__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_175__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_175__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 334297015; + cdat->dsym_175__CLASS_SOURCE_EXPORTCOMMON.obj_len = 3; + + /*inistring dstr_176__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V242*/ meltfptr[241] = (void*)&cdat->dstr_176__CLASS_SOURCE_EXP; + cdat->dstr_176__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_176__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_176__CLASS_SOURCE_EXP.val)-1); + MELT_LOCATION("warmelt-macro.melt:183:/ iniobj"); + /*iniobj dobj_177__CLASS_SOURCE_EXPORTCOMMON*/ +/*_.VALDATA___V243*/ meltfptr[242] = (void*)&cdat->dobj_177__CLASS_SOURCE_EXPORTCOMMON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_177__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_177__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_177__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_177__CLASS_SOURCE_EXPORTCOMMON.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_177__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 731393388; + cdat->dobj_177__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; + + /*inistring dstr_178__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V244*/ meltfptr[243] = (void*)&cdat->dstr_178__CLASS_SOURCE_EXP; + cdat->dstr_178__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_178__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_178__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_179__CLASS_SOURCE_EXPORTCOMMON*/ + /*_.VALTUP___V245*/ meltfptr[244] = (void*)&cdat->dtup_179__CLASS_SOURCE_EXPORTCOMMON; + cdat->dtup_179__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_179__CLASS_SOURCE_EXPORTCOMMON.nbval = 4; + /*inimult dtup_180__CLASS_SOURCE_EXPORTCOMMON*/ + /*_.VALTUP___V248*/ meltfptr[247] = (void*)&cdat->dtup_180__CLASS_SOURCE_EXPORTCOMMON; + cdat->dtup_180__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_180__CLASS_SOURCE_EXPORTCOMMON.nbval = 3; + /*iniobj dsym_181__SEXPORT_NAMES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V249*/ meltfptr[248]) /*_.VALDATA___V249*/ meltfptr[248] = (void*)&cdat->dsym_181__SEXPORT_NAMES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_181__SEXPORT_NAMES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_181__SEXPORT_NAMES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_181__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_181__SEXPORT_NAMES.obj_hash = 1015438775; + cdat->dsym_181__SEXPORT_NAMES.obj_len = 3; + + /*inistring dstr_182__SEXPORT_NAMES*/ + /*_.VALSTR___V250*/ meltfptr[249] = (void*)&cdat->dstr_182__SEXPORT_NAMES; + cdat->dstr_182__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_182__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_182__SEXPORT_NAMES.val)-1); /*^iniobj*/ - /*iniobj dobj_183__SQUOTED*/ -/*_.VALDATA___V246*/ meltfptr[245] = (void*)&cdat->dobj_183__SQUOTED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_183__SQUOTED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__SQUOTED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_183__SQUOTED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_183__SQUOTED.obj_num = 2; - cdat->dobj_183__SQUOTED.obj_hash = 365063442; - cdat->dobj_183__SQUOTED.obj_len = 4; - - /*inistring dstr_184__SQUOTED*/ - /*_.VALSTR___V247*/ meltfptr[246] = (void*)&cdat->dstr_184__SQUOTED; - cdat->dstr_184__SQUOTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_184__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_184__SQUOTED.val)-1); - /*iniobj dsym_185__CLASS_SOURCE_EXPORTCOMMON*/ -/*uniqueobj*/ if (!/*_.VALDATA___V251*/ meltfptr[250]) /*_.VALDATA___V251*/ meltfptr[250] = (void*)&cdat->dsym_185__CLASS_SOURCE_EXPORTCOMMON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_185__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_185__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_185__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_185__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 334297015; - cdat->dsym_185__CLASS_SOURCE_EXPORTCOMMON.obj_len = 3; + /*iniobj dobj_183__SEXPORT_NAMES*/ +/*_.VALDATA___V246*/ meltfptr[245] = (void*)&cdat->dobj_183__SEXPORT_NAMES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_183__SEXPORT_NAMES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__SEXPORT_NAMES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_183__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_183__SEXPORT_NAMES.obj_num = 2; + cdat->dobj_183__SEXPORT_NAMES.obj_hash = 401039683; + cdat->dobj_183__SEXPORT_NAMES.obj_len = 4; + + /*inistring dstr_184__SEXPORT_NAMES*/ + /*_.VALSTR___V247*/ meltfptr[246] = (void*)&cdat->dstr_184__SEXPORT_NAMES; + cdat->dstr_184__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_184__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_184__SEXPORT_NAMES.val)-1); + /*iniobj dsym_185__CLASS_SOURCE_EXPORT_VALUES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V251*/ meltfptr[250]) /*_.VALDATA___V251*/ meltfptr[250] = (void*)&cdat->dsym_185__CLASS_SOURCE_EXPORT_VALUES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_185__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_185__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_185__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_185__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 1002145334; + cdat->dsym_185__CLASS_SOURCE_EXPORT_VALUES.obj_len = 3; /*inistring dstr_186__CLASS_SOURCE_EXP*/ /*_.VALSTR___V252*/ meltfptr[251] = (void*)&cdat->dstr_186__CLASS_SOURCE_EXP; cdat->dstr_186__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_186__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_186__CLASS_SOURCE_EXP.val)-1); + /*small inistring*/ strncpy(cdat->dstr_186__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_186__CLASS_SOURCE_EXP.val)-1); MELT_LOCATION("warmelt-macro.melt:192:/ iniobj"); - /*iniobj dobj_187__CLASS_SOURCE_EXPORTCOMMON*/ -/*_.VALDATA___V253*/ meltfptr[252] = (void*)&cdat->dobj_187__CLASS_SOURCE_EXPORTCOMMON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_187__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_187__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_187__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_187__CLASS_SOURCE_EXPORTCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_187__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 197123013; - cdat->dobj_187__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; + /*iniobj dobj_187__CLASS_SOURCE_EXPORT_VALUES*/ +/*_.VALDATA___V253*/ meltfptr[252] = (void*)&cdat->dobj_187__CLASS_SOURCE_EXPORT_VALUES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_187__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_187__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_187__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_187__CLASS_SOURCE_EXPORT_VALUES.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_187__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 426233883; + cdat->dobj_187__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; /*inistring dstr_188__CLASS_SOURCE_EXP*/ /*_.VALSTR___V254*/ meltfptr[253] = (void*)&cdat->dstr_188__CLASS_SOURCE_EXP; cdat->dstr_188__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_188__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_188__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_189__CLASS_SOURCE_EXPORTCOMMON*/ - /*_.VALTUP___V255*/ meltfptr[254] = (void*)&cdat->dtup_189__CLASS_SOURCE_EXPORTCOMMON; - cdat->dtup_189__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_189__CLASS_SOURCE_EXPORTCOMMON.nbval = 4; - /*inimult dtup_190__CLASS_SOURCE_EXPORTCOMMON*/ - /*_.VALTUP___V258*/ meltfptr[257] = (void*)&cdat->dtup_190__CLASS_SOURCE_EXPORTCOMMON; - cdat->dtup_190__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_190__CLASS_SOURCE_EXPORTCOMMON.nbval = 3; - /*iniobj dsym_191__SEXPORT_NAMES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V259*/ meltfptr[258]) /*_.VALDATA___V259*/ meltfptr[258] = (void*)&cdat->dsym_191__SEXPORT_NAMES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_191__SEXPORT_NAMES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_191__SEXPORT_NAMES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_191__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_191__SEXPORT_NAMES.obj_hash = 1015438775; - cdat->dsym_191__SEXPORT_NAMES.obj_len = 3; - - /*inistring dstr_192__SEXPORT_NAMES*/ - /*_.VALSTR___V260*/ meltfptr[259] = (void*)&cdat->dstr_192__SEXPORT_NAMES; - cdat->dstr_192__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_192__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_192__SEXPORT_NAMES.val)-1); - /*^iniobj*/ - /*iniobj dobj_193__SEXPORT_NAMES*/ -/*_.VALDATA___V256*/ meltfptr[255] = (void*)&cdat->dobj_193__SEXPORT_NAMES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_193__SEXPORT_NAMES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_193__SEXPORT_NAMES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_193__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_193__SEXPORT_NAMES.obj_num = 2; - cdat->dobj_193__SEXPORT_NAMES.obj_hash = 894821285; - cdat->dobj_193__SEXPORT_NAMES.obj_len = 4; - - /*inistring dstr_194__SEXPORT_NAMES*/ - /*_.VALSTR___V257*/ meltfptr[256] = (void*)&cdat->dstr_194__SEXPORT_NAMES; - cdat->dstr_194__SEXPORT_NAMES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_194__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_194__SEXPORT_NAMES.val)-1); - /*iniobj dsym_195__CLASS_SOURCE_EXPORT_VALUES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V261*/ meltfptr[260]) /*_.VALDATA___V261*/ meltfptr[260] = (void*)&cdat->dsym_195__CLASS_SOURCE_EXPORT_VALUES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_195__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_195__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_195__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_195__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 1002145334; - cdat->dsym_195__CLASS_SOURCE_EXPORT_VALUES.obj_len = 3; - - /*inistring dstr_196__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V262*/ meltfptr[261] = (void*)&cdat->dstr_196__CLASS_SOURCE_EXP; - cdat->dstr_196__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_196__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_196__CLASS_SOURCE_EXP.val)-1); - MELT_LOCATION("warmelt-macro.melt:201:/ iniobj"); - /*iniobj dobj_197__CLASS_SOURCE_EXPORT_VALUES*/ -/*_.VALDATA___V263*/ meltfptr[262] = (void*)&cdat->dobj_197__CLASS_SOURCE_EXPORT_VALUES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_197__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_197__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_197__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_197__CLASS_SOURCE_EXPORT_VALUES.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_197__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 468564964; - cdat->dobj_197__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_188__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_188__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_189__CLASS_SOURCE_EXPORT_VALUES*/ + /*_.VALTUP___V255*/ meltfptr[254] = (void*)&cdat->dtup_189__CLASS_SOURCE_EXPORT_VALUES; + cdat->dtup_189__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_189__CLASS_SOURCE_EXPORT_VALUES.nbval = 5; + /*inimult dtup_190__CLASS_SOURCE_EXPORT_VALUES*/ + /*_.VALTUP___V256*/ meltfptr[255] = (void*)&cdat->dtup_190__CLASS_SOURCE_EXPORT_VALUES; + cdat->dtup_190__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_190__CLASS_SOURCE_EXPORT_VALUES.nbval = 3; + /*iniobj dsym_191__CLASS_SOURCE_EXPORT_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (void*)&cdat->dsym_191__CLASS_SOURCE_EXPORT_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_191__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_191__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_191__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_191__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 460824012; + cdat->dsym_191__CLASS_SOURCE_EXPORT_CLASS.obj_len = 3; + + /*inistring dstr_192__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V258*/ meltfptr[257] = (void*)&cdat->dstr_192__CLASS_SOURCE_EXP; + cdat->dstr_192__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_192__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_192__CLASS_SOURCE_EXP.val)-1); + MELT_LOCATION("warmelt-macro.melt:199:/ iniobj"); + /*iniobj dobj_193__CLASS_SOURCE_EXPORT_CLASS*/ +/*_.VALDATA___V259*/ meltfptr[258] = (void*)&cdat->dobj_193__CLASS_SOURCE_EXPORT_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_193__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_193__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_193__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_193__CLASS_SOURCE_EXPORT_CLASS.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_193__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 10525092; + cdat->dobj_193__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; + + /*inistring dstr_194__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V260*/ meltfptr[259] = (void*)&cdat->dstr_194__CLASS_SOURCE_EXP; + cdat->dstr_194__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_194__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_194__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_195__CLASS_SOURCE_EXPORT_CLASS*/ + /*_.VALTUP___V261*/ meltfptr[260] = (void*)&cdat->dtup_195__CLASS_SOURCE_EXPORT_CLASS; + cdat->dtup_195__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_195__CLASS_SOURCE_EXPORT_CLASS.nbval = 5; + /*inimult dtup_196__CLASS_SOURCE_EXPORT_CLASS*/ + /*_.VALTUP___V262*/ meltfptr[261] = (void*)&cdat->dtup_196__CLASS_SOURCE_EXPORT_CLASS; + cdat->dtup_196__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_196__CLASS_SOURCE_EXPORT_CLASS.nbval = 3; + /*iniobj dsym_197__CLASS_SOURCE_EXPORT_MACRO*/ +/*uniqueobj*/ if (!/*_.VALDATA___V263*/ meltfptr[262]) /*_.VALDATA___V263*/ meltfptr[262] = (void*)&cdat->dsym_197__CLASS_SOURCE_EXPORT_MACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_197__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_197__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_197__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_197__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; + cdat->dsym_197__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; /*inistring dstr_198__CLASS_SOURCE_EXP*/ /*_.VALSTR___V264*/ meltfptr[263] = (void*)&cdat->dstr_198__CLASS_SOURCE_EXP; cdat->dstr_198__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_198__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_198__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_199__CLASS_SOURCE_EXPORT_VALUES*/ - /*_.VALTUP___V265*/ meltfptr[264] = (void*)&cdat->dtup_199__CLASS_SOURCE_EXPORT_VALUES; - cdat->dtup_199__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_199__CLASS_SOURCE_EXPORT_VALUES.nbval = 5; - /*inimult dtup_200__CLASS_SOURCE_EXPORT_VALUES*/ - /*_.VALTUP___V266*/ meltfptr[265] = (void*)&cdat->dtup_200__CLASS_SOURCE_EXPORT_VALUES; - cdat->dtup_200__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_200__CLASS_SOURCE_EXPORT_VALUES.nbval = 3; - /*iniobj dsym_201__CLASS_SOURCE_EXPORT_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (void*)&cdat->dsym_201__CLASS_SOURCE_EXPORT_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_201__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_201__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_201__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_201__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 460824012; - cdat->dsym_201__CLASS_SOURCE_EXPORT_CLASS.obj_len = 3; - - /*inistring dstr_202__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V268*/ meltfptr[267] = (void*)&cdat->dstr_202__CLASS_SOURCE_EXP; - cdat->dstr_202__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_202__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_202__CLASS_SOURCE_EXP.val)-1); + /*small inistring*/ strncpy(cdat->dstr_198__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_198__CLASS_SOURCE_EXP.val)-1); MELT_LOCATION("warmelt-macro.melt:208:/ iniobj"); - /*iniobj dobj_203__CLASS_SOURCE_EXPORT_CLASS*/ -/*_.VALDATA___V269*/ meltfptr[268] = (void*)&cdat->dobj_203__CLASS_SOURCE_EXPORT_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_203__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_203__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_203__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_203__CLASS_SOURCE_EXPORT_CLASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_203__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 179971207; - cdat->dobj_203__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; - - /*inistring dstr_204__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V270*/ meltfptr[269] = (void*)&cdat->dstr_204__CLASS_SOURCE_EXP; - cdat->dstr_204__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_204__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_204__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_205__CLASS_SOURCE_EXPORT_CLASS*/ - /*_.VALTUP___V271*/ meltfptr[270] = (void*)&cdat->dtup_205__CLASS_SOURCE_EXPORT_CLASS; - cdat->dtup_205__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_205__CLASS_SOURCE_EXPORT_CLASS.nbval = 5; - /*inimult dtup_206__CLASS_SOURCE_EXPORT_CLASS*/ - /*_.VALTUP___V272*/ meltfptr[271] = (void*)&cdat->dtup_206__CLASS_SOURCE_EXPORT_CLASS; - cdat->dtup_206__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_206__CLASS_SOURCE_EXPORT_CLASS.nbval = 3; - /*iniobj dsym_207__CLASS_SOURCE_EXPORT_MACRO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V273*/ meltfptr[272]) /*_.VALDATA___V273*/ meltfptr[272] = (void*)&cdat->dsym_207__CLASS_SOURCE_EXPORT_MACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_207__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_207__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_207__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_207__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; - cdat->dsym_207__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; - - /*inistring dstr_208__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V274*/ meltfptr[273] = (void*)&cdat->dstr_208__CLASS_SOURCE_EXP; - cdat->dstr_208__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_208__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_208__CLASS_SOURCE_EXP.val)-1); - MELT_LOCATION("warmelt-macro.melt:217:/ iniobj"); - /*iniobj dobj_209__CLASS_SOURCE_EXPORT_MACRO*/ -/*_.VALDATA___V275*/ meltfptr[274] = (void*)&cdat->dobj_209__CLASS_SOURCE_EXPORT_MACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_209__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_209__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_209__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_209__CLASS_SOURCE_EXPORT_MACRO.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_209__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 1049485125; - cdat->dobj_209__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; - - /*inistring dstr_210__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V276*/ meltfptr[275] = (void*)&cdat->dstr_210__CLASS_SOURCE_EXP; - cdat->dstr_210__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_210__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_210__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_211__CLASS_SOURCE_EXPORT_MACRO*/ - /*_.VALTUP___V277*/ meltfptr[276] = (void*)&cdat->dtup_211__CLASS_SOURCE_EXPORT_MACRO; - cdat->dtup_211__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_211__CLASS_SOURCE_EXPORT_MACRO.nbval = 4; - /*inimult dtup_212__CLASS_SOURCE_EXPORT_MACRO*/ - /*_.VALTUP___V284*/ meltfptr[283] = (void*)&cdat->dtup_212__CLASS_SOURCE_EXPORT_MACRO; - cdat->dtup_212__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_212__CLASS_SOURCE_EXPORT_MACRO.nbval = 5; - /*iniobj dsym_213__SEXPMAC_MNAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V285*/ meltfptr[284]) /*_.VALDATA___V285*/ meltfptr[284] = (void*)&cdat->dsym_213__SEXPMAC_MNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_213__SEXPMAC_MNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_213__SEXPMAC_MNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_213__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_213__SEXPMAC_MNAME.obj_hash = 179808938; - cdat->dsym_213__SEXPMAC_MNAME.obj_len = 3; - - /*inistring dstr_214__SEXPMAC_MNAME*/ - /*_.VALSTR___V286*/ meltfptr[285] = (void*)&cdat->dstr_214__SEXPMAC_MNAME; - cdat->dstr_214__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_214__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_214__SEXPMAC_MNAME.val)-1); + /*iniobj dobj_199__CLASS_SOURCE_EXPORT_MACRO*/ +/*_.VALDATA___V265*/ meltfptr[264] = (void*)&cdat->dobj_199__CLASS_SOURCE_EXPORT_MACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_199__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_199__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_199__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_199__CLASS_SOURCE_EXPORT_MACRO.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_199__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 416516064; + cdat->dobj_199__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; + + /*inistring dstr_200__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V266*/ meltfptr[265] = (void*)&cdat->dstr_200__CLASS_SOURCE_EXP; + cdat->dstr_200__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_200__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_200__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_201__CLASS_SOURCE_EXPORT_MACRO*/ + /*_.VALTUP___V267*/ meltfptr[266] = (void*)&cdat->dtup_201__CLASS_SOURCE_EXPORT_MACRO; + cdat->dtup_201__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_201__CLASS_SOURCE_EXPORT_MACRO.nbval = 4; + /*inimult dtup_202__CLASS_SOURCE_EXPORT_MACRO*/ + /*_.VALTUP___V274*/ meltfptr[273] = (void*)&cdat->dtup_202__CLASS_SOURCE_EXPORT_MACRO; + cdat->dtup_202__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_202__CLASS_SOURCE_EXPORT_MACRO.nbval = 5; + /*iniobj dsym_203__SEXPMAC_MNAME*/ +/*uniqueobj*/ if (!/*_.VALDATA___V275*/ meltfptr[274]) /*_.VALDATA___V275*/ meltfptr[274] = (void*)&cdat->dsym_203__SEXPMAC_MNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_203__SEXPMAC_MNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_203__SEXPMAC_MNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_203__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_203__SEXPMAC_MNAME.obj_hash = 179808938; + cdat->dsym_203__SEXPMAC_MNAME.obj_len = 3; + + /*inistring dstr_204__SEXPMAC_MNAME*/ + /*_.VALSTR___V276*/ meltfptr[275] = (void*)&cdat->dstr_204__SEXPMAC_MNAME; + cdat->dstr_204__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_204__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_204__SEXPMAC_MNAME.val)-1); + /*^iniobj*/ + /*iniobj dobj_205__SEXPMAC_MNAME*/ +/*_.VALDATA___V268*/ meltfptr[267] = (void*)&cdat->dobj_205__SEXPMAC_MNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_205__SEXPMAC_MNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_205__SEXPMAC_MNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_205__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_205__SEXPMAC_MNAME.obj_num = 2; + cdat->dobj_205__SEXPMAC_MNAME.obj_hash = 495421797; + cdat->dobj_205__SEXPMAC_MNAME.obj_len = 4; + + /*inistring dstr_206__SEXPMAC_MNAME*/ + /*_.VALSTR___V269*/ meltfptr[268] = (void*)&cdat->dstr_206__SEXPMAC_MNAME; + cdat->dstr_206__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_206__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_206__SEXPMAC_MNAME.val)-1); + /*iniobj dsym_207__SEXPMAC_MVAL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V277*/ meltfptr[276]) /*_.VALDATA___V277*/ meltfptr[276] = (void*)&cdat->dsym_207__SEXPMAC_MVAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_207__SEXPMAC_MVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_207__SEXPMAC_MVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_207__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_207__SEXPMAC_MVAL.obj_hash = 95565036; + cdat->dsym_207__SEXPMAC_MVAL.obj_len = 3; + + /*inistring dstr_208__SEXPMAC_MVAL*/ + /*_.VALSTR___V278*/ meltfptr[277] = (void*)&cdat->dstr_208__SEXPMAC_MVAL; + cdat->dstr_208__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_208__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_208__SEXPMAC_MVAL.val)-1); /*^iniobj*/ - /*iniobj dobj_215__SEXPMAC_MNAME*/ -/*_.VALDATA___V278*/ meltfptr[277] = (void*)&cdat->dobj_215__SEXPMAC_MNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_215__SEXPMAC_MNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_215__SEXPMAC_MNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_215__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_215__SEXPMAC_MNAME.obj_num = 2; - cdat->dobj_215__SEXPMAC_MNAME.obj_hash = 192429791; - cdat->dobj_215__SEXPMAC_MNAME.obj_len = 4; - - /*inistring dstr_216__SEXPMAC_MNAME*/ - /*_.VALSTR___V279*/ meltfptr[278] = (void*)&cdat->dstr_216__SEXPMAC_MNAME; - cdat->dstr_216__SEXPMAC_MNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_216__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_216__SEXPMAC_MNAME.val)-1); - /*iniobj dsym_217__SEXPMAC_MVAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V287*/ meltfptr[286]) /*_.VALDATA___V287*/ meltfptr[286] = (void*)&cdat->dsym_217__SEXPMAC_MVAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_217__SEXPMAC_MVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_217__SEXPMAC_MVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_217__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_217__SEXPMAC_MVAL.obj_hash = 95565036; - cdat->dsym_217__SEXPMAC_MVAL.obj_len = 3; - - /*inistring dstr_218__SEXPMAC_MVAL*/ - /*_.VALSTR___V288*/ meltfptr[287] = (void*)&cdat->dstr_218__SEXPMAC_MVAL; - cdat->dstr_218__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_218__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_218__SEXPMAC_MVAL.val)-1); + /*iniobj dobj_209__SEXPMAC_MVAL*/ +/*_.VALDATA___V270*/ meltfptr[269] = (void*)&cdat->dobj_209__SEXPMAC_MVAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_209__SEXPMAC_MVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_209__SEXPMAC_MVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_209__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_209__SEXPMAC_MVAL.obj_num = 3; + cdat->dobj_209__SEXPMAC_MVAL.obj_hash = 368585406; + cdat->dobj_209__SEXPMAC_MVAL.obj_len = 4; + + /*inistring dstr_210__SEXPMAC_MVAL*/ + /*_.VALSTR___V271*/ meltfptr[270] = (void*)&cdat->dstr_210__SEXPMAC_MVAL; + cdat->dstr_210__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_210__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_210__SEXPMAC_MVAL.val)-1); + /*iniobj dsym_211__SEXPMAC_DOC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V279*/ meltfptr[278]) /*_.VALDATA___V279*/ meltfptr[278] = (void*)&cdat->dsym_211__SEXPMAC_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_211__SEXPMAC_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_211__SEXPMAC_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_211__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_211__SEXPMAC_DOC.obj_hash = 738660567; + cdat->dsym_211__SEXPMAC_DOC.obj_len = 3; + + /*inistring dstr_212__SEXPMAC_DOC*/ + /*_.VALSTR___V280*/ meltfptr[279] = (void*)&cdat->dstr_212__SEXPMAC_DOC; + cdat->dstr_212__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_212__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_212__SEXPMAC_DOC.val)-1); /*^iniobj*/ - /*iniobj dobj_219__SEXPMAC_MVAL*/ -/*_.VALDATA___V280*/ meltfptr[279] = (void*)&cdat->dobj_219__SEXPMAC_MVAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_219__SEXPMAC_MVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_219__SEXPMAC_MVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_219__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_219__SEXPMAC_MVAL.obj_num = 3; - cdat->dobj_219__SEXPMAC_MVAL.obj_hash = 525398245; - cdat->dobj_219__SEXPMAC_MVAL.obj_len = 4; - - /*inistring dstr_220__SEXPMAC_MVAL*/ - /*_.VALSTR___V281*/ meltfptr[280] = (void*)&cdat->dstr_220__SEXPMAC_MVAL; - cdat->dstr_220__SEXPMAC_MVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_220__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_220__SEXPMAC_MVAL.val)-1); - /*iniobj dsym_221__SEXPMAC_DOC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V289*/ meltfptr[288]) /*_.VALDATA___V289*/ meltfptr[288] = (void*)&cdat->dsym_221__SEXPMAC_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_221__SEXPMAC_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_221__SEXPMAC_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_221__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_221__SEXPMAC_DOC.obj_hash = 738660567; - cdat->dsym_221__SEXPMAC_DOC.obj_len = 3; - - /*inistring dstr_222__SEXPMAC_DOC*/ - /*_.VALSTR___V290*/ meltfptr[289] = (void*)&cdat->dstr_222__SEXPMAC_DOC; - cdat->dstr_222__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_222__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_222__SEXPMAC_DOC.val)-1); + /*iniobj dobj_213__SEXPMAC_DOC*/ +/*_.VALDATA___V272*/ meltfptr[271] = (void*)&cdat->dobj_213__SEXPMAC_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_213__SEXPMAC_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_213__SEXPMAC_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_213__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_213__SEXPMAC_DOC.obj_num = 4; + cdat->dobj_213__SEXPMAC_DOC.obj_hash = 42723317; + cdat->dobj_213__SEXPMAC_DOC.obj_len = 4; + + /*inistring dstr_214__SEXPMAC_DOC*/ + /*_.VALSTR___V273*/ meltfptr[272] = (void*)&cdat->dstr_214__SEXPMAC_DOC; + cdat->dstr_214__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_214__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_214__SEXPMAC_DOC.val)-1); + /*iniobj dsym_215__CLASS_SOURCE_EXPORT_PATMACRO*/ +/*uniqueobj*/ if (!/*_.VALDATA___V281*/ meltfptr[280]) /*_.VALDATA___V281*/ meltfptr[280] = (void*)&cdat->dsym_215__CLASS_SOURCE_EXPORT_PATMACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_215__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_215__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_215__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_215__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; + cdat->dsym_215__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; + + /*inistring dstr_216__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V282*/ meltfptr[281] = (void*)&cdat->dstr_216__CLASS_SOURCE_EXP; + cdat->dstr_216__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_216__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_216__CLASS_SOURCE_EXP.val)-1); + MELT_LOCATION("warmelt-macro.melt:221:/ iniobj"); + /*iniobj dobj_217__CLASS_SOURCE_EXPORT_PATMACRO*/ +/*_.VALDATA___V283*/ meltfptr[282] = (void*)&cdat->dobj_217__CLASS_SOURCE_EXPORT_PATMACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_217__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_217__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_217__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_217__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_217__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 716856276; + cdat->dobj_217__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; + + /*inistring dstr_218__CLASS_SOURCE_EXP*/ + /*_.VALSTR___V284*/ meltfptr[283] = (void*)&cdat->dstr_218__CLASS_SOURCE_EXP; + cdat->dstr_218__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_218__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_218__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_219__CLASS_SOURCE_EXPORT_PATMACRO*/ + /*_.VALTUP___V285*/ meltfptr[284] = (void*)&cdat->dtup_219__CLASS_SOURCE_EXPORT_PATMACRO; + cdat->dtup_219__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_219__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 5; + /*inimult dtup_220__CLASS_SOURCE_EXPORT_PATMACRO*/ + /*_.VALTUP___V288*/ meltfptr[287] = (void*)&cdat->dtup_220__CLASS_SOURCE_EXPORT_PATMACRO; + cdat->dtup_220__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_220__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; + /*iniobj dsym_221__SEXPPAT_PVAL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V289*/ meltfptr[288]) /*_.VALDATA___V289*/ meltfptr[288] = (void*)&cdat->dsym_221__SEXPPAT_PVAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_221__SEXPPAT_PVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_221__SEXPPAT_PVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_221__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_221__SEXPPAT_PVAL.obj_hash = 727802015; + cdat->dsym_221__SEXPPAT_PVAL.obj_len = 3; + + /*inistring dstr_222__SEXPPAT_PVAL*/ + /*_.VALSTR___V290*/ meltfptr[289] = (void*)&cdat->dstr_222__SEXPPAT_PVAL; + cdat->dstr_222__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_222__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_222__SEXPPAT_PVAL.val)-1); /*^iniobj*/ - /*iniobj dobj_223__SEXPMAC_DOC*/ -/*_.VALDATA___V282*/ meltfptr[281] = (void*)&cdat->dobj_223__SEXPMAC_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_223__SEXPMAC_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__SEXPMAC_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_223__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_223__SEXPMAC_DOC.obj_num = 4; - cdat->dobj_223__SEXPMAC_DOC.obj_hash = 251549468; - cdat->dobj_223__SEXPMAC_DOC.obj_len = 4; - - /*inistring dstr_224__SEXPMAC_DOC*/ - /*_.VALSTR___V283*/ meltfptr[282] = (void*)&cdat->dstr_224__SEXPMAC_DOC; - cdat->dstr_224__SEXPMAC_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_224__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_224__SEXPMAC_DOC.val)-1); - /*iniobj dsym_225__CLASS_SOURCE_EXPORT_PATMACRO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V291*/ meltfptr[290]) /*_.VALDATA___V291*/ meltfptr[290] = (void*)&cdat->dsym_225__CLASS_SOURCE_EXPORT_PATMACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_225__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_225__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_225__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; - cdat->dsym_225__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; + /*iniobj dobj_223__SEXPPAT_PVAL*/ +/*_.VALDATA___V286*/ meltfptr[285] = (void*)&cdat->dobj_223__SEXPPAT_PVAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_223__SEXPPAT_PVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_223__SEXPPAT_PVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_223__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_223__SEXPPAT_PVAL.obj_num = 5; + cdat->dobj_223__SEXPPAT_PVAL.obj_hash = 656173726; + cdat->dobj_223__SEXPPAT_PVAL.obj_len = 4; + + /*inistring dstr_224__SEXPPAT_PVAL*/ + /*_.VALSTR___V287*/ meltfptr[286] = (void*)&cdat->dstr_224__SEXPPAT_PVAL; + cdat->dstr_224__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_224__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_224__SEXPPAT_PVAL.val)-1); + /*iniobj dsym_225__CLASS_SOURCE_EXPORT_SYNONYM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V291*/ meltfptr[290]) /*_.VALDATA___V291*/ meltfptr[290] = (void*)&cdat->dsym_225__CLASS_SOURCE_EXPORT_SYNONYM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_225__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_225__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_225__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 648101459; + cdat->dsym_225__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 3; /*inistring dstr_226__CLASS_SOURCE_EXP*/ /*_.VALSTR___V292*/ meltfptr[291] = (void*)&cdat->dstr_226__CLASS_SOURCE_EXP; cdat->dstr_226__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_226__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_226__CLASS_SOURCE_EXP.val)-1); - MELT_LOCATION("warmelt-macro.melt:230:/ iniobj"); - /*iniobj dobj_227__CLASS_SOURCE_EXPORT_PATMACRO*/ -/*_.VALDATA___V293*/ meltfptr[292] = (void*)&cdat->dobj_227__CLASS_SOURCE_EXPORT_PATMACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_227__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_227__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_227__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_227__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 809757470; - cdat->dobj_227__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_226__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_226__CLASS_SOURCE_EXP.val)-1); + MELT_LOCATION("warmelt-macro.melt:233:/ iniobj"); + /*iniobj dobj_227__CLASS_SOURCE_EXPORT_SYNONYM*/ +/*_.VALDATA___V293*/ meltfptr[292] = (void*)&cdat->dobj_227__CLASS_SOURCE_EXPORT_SYNONYM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_227__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_227__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_227__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_227__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 625516710; + cdat->dobj_227__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; /*inistring dstr_228__CLASS_SOURCE_EXP*/ /*_.VALSTR___V294*/ meltfptr[293] = (void*)&cdat->dstr_228__CLASS_SOURCE_EXP; cdat->dstr_228__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_228__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_228__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_229__CLASS_SOURCE_EXPORT_PATMACRO*/ - /*_.VALTUP___V295*/ meltfptr[294] = (void*)&cdat->dtup_229__CLASS_SOURCE_EXPORT_PATMACRO; - cdat->dtup_229__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_229__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 5; - /*inimult dtup_230__CLASS_SOURCE_EXPORT_PATMACRO*/ - /*_.VALTUP___V298*/ meltfptr[297] = (void*)&cdat->dtup_230__CLASS_SOURCE_EXPORT_PATMACRO; - cdat->dtup_230__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_230__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; - /*iniobj dsym_231__SEXPPAT_PVAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (void*)&cdat->dsym_231__SEXPPAT_PVAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_231__SEXPPAT_PVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_231__SEXPPAT_PVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_231__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_231__SEXPPAT_PVAL.obj_hash = 727802015; - cdat->dsym_231__SEXPPAT_PVAL.obj_len = 3; - - /*inistring dstr_232__SEXPPAT_PVAL*/ - /*_.VALSTR___V300*/ meltfptr[299] = (void*)&cdat->dstr_232__SEXPPAT_PVAL; - cdat->dstr_232__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_232__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_232__SEXPPAT_PVAL.val)-1); + /*small inistring*/ strncpy(cdat->dstr_228__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_228__CLASS_SOURCE_EXP.val)-1); + /*inimult dtup_229__CLASS_SOURCE_EXPORT_SYNONYM*/ + /*_.VALTUP___V295*/ meltfptr[294] = (void*)&cdat->dtup_229__CLASS_SOURCE_EXPORT_SYNONYM; + cdat->dtup_229__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_229__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 4; + /*inimult dtup_230__CLASS_SOURCE_EXPORT_SYNONYM*/ + /*_.VALTUP___V302*/ meltfptr[301] = (void*)&cdat->dtup_230__CLASS_SOURCE_EXPORT_SYNONYM; + cdat->dtup_230__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_230__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 5; + /*iniobj dsym_231__SEXPSYN_NEWNAME*/ +/*uniqueobj*/ if (!/*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (void*)&cdat->dsym_231__SEXPSYN_NEWNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_231__SEXPSYN_NEWNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_231__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_231__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_231__SEXPSYN_NEWNAME.obj_hash = 389558226; + cdat->dsym_231__SEXPSYN_NEWNAME.obj_len = 3; + + /*inistring dstr_232__SEXPSYN_NEWNAME*/ + /*_.VALSTR___V304*/ meltfptr[303] = (void*)&cdat->dstr_232__SEXPSYN_NEWNAME; + cdat->dstr_232__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_232__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_232__SEXPSYN_NEWNAME.val)-1); /*^iniobj*/ - /*iniobj dobj_233__SEXPPAT_PVAL*/ -/*_.VALDATA___V296*/ meltfptr[295] = (void*)&cdat->dobj_233__SEXPPAT_PVAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_233__SEXPPAT_PVAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_233__SEXPPAT_PVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_233__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_233__SEXPPAT_PVAL.obj_num = 5; - cdat->dobj_233__SEXPPAT_PVAL.obj_hash = 565868099; - cdat->dobj_233__SEXPPAT_PVAL.obj_len = 4; - - /*inistring dstr_234__SEXPPAT_PVAL*/ - /*_.VALSTR___V297*/ meltfptr[296] = (void*)&cdat->dstr_234__SEXPPAT_PVAL; - cdat->dstr_234__SEXPPAT_PVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_234__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_234__SEXPPAT_PVAL.val)-1); - /*iniobj dsym_235__CLASS_SOURCE_EXPORT_SYNONYM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V301*/ meltfptr[300]) /*_.VALDATA___V301*/ meltfptr[300] = (void*)&cdat->dsym_235__CLASS_SOURCE_EXPORT_SYNONYM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_235__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_235__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_235__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_235__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 648101459; - cdat->dsym_235__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 3; - - /*inistring dstr_236__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V302*/ meltfptr[301] = (void*)&cdat->dstr_236__CLASS_SOURCE_EXP; - cdat->dstr_236__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_236__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_236__CLASS_SOURCE_EXP.val)-1); - MELT_LOCATION("warmelt-macro.melt:242:/ iniobj"); - /*iniobj dobj_237__CLASS_SOURCE_EXPORT_SYNONYM*/ -/*_.VALDATA___V303*/ meltfptr[302] = (void*)&cdat->dobj_237__CLASS_SOURCE_EXPORT_SYNONYM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_237__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_237__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_237__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_237__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_237__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 254853636; - cdat->dobj_237__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; - - /*inistring dstr_238__CLASS_SOURCE_EXP*/ - /*_.VALSTR___V304*/ meltfptr[303] = (void*)&cdat->dstr_238__CLASS_SOURCE_EXP; - cdat->dstr_238__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_238__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_238__CLASS_SOURCE_EXP.val)-1); - /*inimult dtup_239__CLASS_SOURCE_EXPORT_SYNONYM*/ - /*_.VALTUP___V305*/ meltfptr[304] = (void*)&cdat->dtup_239__CLASS_SOURCE_EXPORT_SYNONYM; - cdat->dtup_239__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_239__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 4; - /*inimult dtup_240__CLASS_SOURCE_EXPORT_SYNONYM*/ - /*_.VALTUP___V312*/ meltfptr[311] = (void*)&cdat->dtup_240__CLASS_SOURCE_EXPORT_SYNONYM; - cdat->dtup_240__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_240__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 5; - /*iniobj dsym_241__SEXPSYN_NEWNAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V313*/ meltfptr[312]) /*_.VALDATA___V313*/ meltfptr[312] = (void*)&cdat->dsym_241__SEXPSYN_NEWNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_241__SEXPSYN_NEWNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_241__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_241__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_241__SEXPSYN_NEWNAME.obj_hash = 389558226; - cdat->dsym_241__SEXPSYN_NEWNAME.obj_len = 3; - - /*inistring dstr_242__SEXPSYN_NEWNAME*/ - /*_.VALSTR___V314*/ meltfptr[313] = (void*)&cdat->dstr_242__SEXPSYN_NEWNAME; - cdat->dstr_242__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_242__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_242__SEXPSYN_NEWNAME.val)-1); + /*iniobj dobj_233__SEXPSYN_NEWNAME*/ +/*_.VALDATA___V296*/ meltfptr[295] = (void*)&cdat->dobj_233__SEXPSYN_NEWNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_233__SEXPSYN_NEWNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_233__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_233__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_233__SEXPSYN_NEWNAME.obj_num = 2; + cdat->dobj_233__SEXPSYN_NEWNAME.obj_hash = 825573618; + cdat->dobj_233__SEXPSYN_NEWNAME.obj_len = 4; + + /*inistring dstr_234__SEXPSYN_NEWNAME*/ + /*_.VALSTR___V297*/ meltfptr[296] = (void*)&cdat->dstr_234__SEXPSYN_NEWNAME; + cdat->dstr_234__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_234__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_234__SEXPSYN_NEWNAME.val)-1); + /*iniobj dsym_235__SEXPSYN_OLDNAME*/ +/*uniqueobj*/ if (!/*_.VALDATA___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (void*)&cdat->dsym_235__SEXPSYN_OLDNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_235__SEXPSYN_OLDNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_235__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_235__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_235__SEXPSYN_OLDNAME.obj_hash = 233669029; + cdat->dsym_235__SEXPSYN_OLDNAME.obj_len = 3; + + /*inistring dstr_236__SEXPSYN_OLDNAME*/ + /*_.VALSTR___V306*/ meltfptr[305] = (void*)&cdat->dstr_236__SEXPSYN_OLDNAME; + cdat->dstr_236__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_236__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_236__SEXPSYN_OLDNAME.val)-1); /*^iniobj*/ - /*iniobj dobj_243__SEXPSYN_NEWNAME*/ -/*_.VALDATA___V306*/ meltfptr[305] = (void*)&cdat->dobj_243__SEXPSYN_NEWNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_243__SEXPSYN_NEWNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_243__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_243__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_243__SEXPSYN_NEWNAME.obj_num = 2; - cdat->dobj_243__SEXPSYN_NEWNAME.obj_hash = 998930595; - cdat->dobj_243__SEXPSYN_NEWNAME.obj_len = 4; - - /*inistring dstr_244__SEXPSYN_NEWNAME*/ - /*_.VALSTR___V307*/ meltfptr[306] = (void*)&cdat->dstr_244__SEXPSYN_NEWNAME; - cdat->dstr_244__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_244__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_244__SEXPSYN_NEWNAME.val)-1); - /*iniobj dsym_245__SEXPSYN_OLDNAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V315*/ meltfptr[314]) /*_.VALDATA___V315*/ meltfptr[314] = (void*)&cdat->dsym_245__SEXPSYN_OLDNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_245__SEXPSYN_OLDNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_245__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_245__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_245__SEXPSYN_OLDNAME.obj_hash = 233669029; - cdat->dsym_245__SEXPSYN_OLDNAME.obj_len = 3; - - /*inistring dstr_246__SEXPSYN_OLDNAME*/ - /*_.VALSTR___V316*/ meltfptr[315] = (void*)&cdat->dstr_246__SEXPSYN_OLDNAME; - cdat->dstr_246__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_246__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_246__SEXPSYN_OLDNAME.val)-1); + /*iniobj dobj_237__SEXPSYN_OLDNAME*/ +/*_.VALDATA___V298*/ meltfptr[297] = (void*)&cdat->dobj_237__SEXPSYN_OLDNAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_237__SEXPSYN_OLDNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_237__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_237__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_237__SEXPSYN_OLDNAME.obj_num = 3; + cdat->dobj_237__SEXPSYN_OLDNAME.obj_hash = 1027800322; + cdat->dobj_237__SEXPSYN_OLDNAME.obj_len = 4; + + /*inistring dstr_238__SEXPSYN_OLDNAME*/ + /*_.VALSTR___V299*/ meltfptr[298] = (void*)&cdat->dstr_238__SEXPSYN_OLDNAME; + cdat->dstr_238__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_238__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_238__SEXPSYN_OLDNAME.val)-1); + /*iniobj dsym_239__SEXPSYN_DOC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V307*/ meltfptr[306]) /*_.VALDATA___V307*/ meltfptr[306] = (void*)&cdat->dsym_239__SEXPSYN_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_239__SEXPSYN_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_239__SEXPSYN_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_239__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_239__SEXPSYN_DOC.obj_hash = 963580937; + cdat->dsym_239__SEXPSYN_DOC.obj_len = 3; + + /*inistring dstr_240__SEXPSYN_DOC*/ + /*_.VALSTR___V308*/ meltfptr[307] = (void*)&cdat->dstr_240__SEXPSYN_DOC; + cdat->dstr_240__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_240__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_240__SEXPSYN_DOC.val)-1); /*^iniobj*/ - /*iniobj dobj_247__SEXPSYN_OLDNAME*/ -/*_.VALDATA___V308*/ meltfptr[307] = (void*)&cdat->dobj_247__SEXPSYN_OLDNAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_247__SEXPSYN_OLDNAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_247__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_247__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_247__SEXPSYN_OLDNAME.obj_num = 3; - cdat->dobj_247__SEXPSYN_OLDNAME.obj_hash = 559192725; - cdat->dobj_247__SEXPSYN_OLDNAME.obj_len = 4; - - /*inistring dstr_248__SEXPSYN_OLDNAME*/ - /*_.VALSTR___V309*/ meltfptr[308] = (void*)&cdat->dstr_248__SEXPSYN_OLDNAME; - cdat->dstr_248__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_248__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_248__SEXPSYN_OLDNAME.val)-1); - /*iniobj dsym_249__SEXPSYN_DOC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V317*/ meltfptr[316]) /*_.VALDATA___V317*/ meltfptr[316] = (void*)&cdat->dsym_249__SEXPSYN_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_249__SEXPSYN_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_249__SEXPSYN_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_249__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_249__SEXPSYN_DOC.obj_hash = 963580937; - cdat->dsym_249__SEXPSYN_DOC.obj_len = 3; - - /*inistring dstr_250__SEXPSYN_DOC*/ - /*_.VALSTR___V318*/ meltfptr[317] = (void*)&cdat->dstr_250__SEXPSYN_DOC; - cdat->dstr_250__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_250__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_250__SEXPSYN_DOC.val)-1); + /*iniobj dobj_241__SEXPSYN_DOC*/ +/*_.VALDATA___V300*/ meltfptr[299] = (void*)&cdat->dobj_241__SEXPSYN_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_241__SEXPSYN_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_241__SEXPSYN_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_241__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_241__SEXPSYN_DOC.obj_num = 4; + cdat->dobj_241__SEXPSYN_DOC.obj_hash = 757696738; + cdat->dobj_241__SEXPSYN_DOC.obj_len = 4; + + /*inistring dstr_242__SEXPSYN_DOC*/ + /*_.VALSTR___V301*/ meltfptr[300] = (void*)&cdat->dstr_242__SEXPSYN_DOC; + cdat->dstr_242__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_242__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_242__SEXPSYN_DOC.val)-1); + /*iniobj dsym_243__CLASS_SOURCE_DEFINITION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (void*)&cdat->dsym_243__CLASS_SOURCE_DEFINITION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_243__CLASS_SOURCE_DEFINITION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_243__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_243__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_243__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; + cdat->dsym_243__CLASS_SOURCE_DEFINITION.obj_len = 3; + + /*inistring dstr_244__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V310*/ meltfptr[309] = (void*)&cdat->dstr_244__CLASS_SOURCE_DEF; + cdat->dstr_244__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_244__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_244__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:244:/ iniobj"); + /*iniobj dobj_245__CLASS_SOURCE_DEFINITION*/ +/*_.VALDATA___V311*/ meltfptr[310] = (void*)&cdat->dobj_245__CLASS_SOURCE_DEFINITION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_245__CLASS_SOURCE_DEFINITION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_245__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_245__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_245__CLASS_SOURCE_DEFINITION.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_245__CLASS_SOURCE_DEFINITION.obj_hash = 1053956130; + cdat->dobj_245__CLASS_SOURCE_DEFINITION.obj_len = 8; + + /*inistring dstr_246__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V312*/ meltfptr[311] = (void*)&cdat->dstr_246__CLASS_SOURCE_DEF; + cdat->dstr_246__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_246__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_246__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_247__CLASS_SOURCE_DEFINITION*/ + /*_.VALTUP___V313*/ meltfptr[312] = (void*)&cdat->dtup_247__CLASS_SOURCE_DEFINITION; + cdat->dtup_247__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_247__CLASS_SOURCE_DEFINITION.nbval = 4; + /*inimult dtup_248__CLASS_SOURCE_DEFINITION*/ + /*_.VALTUP___V318*/ meltfptr[317] = (void*)&cdat->dtup_248__CLASS_SOURCE_DEFINITION; + cdat->dtup_248__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_248__CLASS_SOURCE_DEFINITION.nbval = 4; + /*iniobj dsym_249__SDEF_NAME*/ +/*uniqueobj*/ if (!/*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (void*)&cdat->dsym_249__SDEF_NAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_249__SDEF_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_249__SDEF_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_249__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_249__SDEF_NAME.obj_hash = 768386693; + cdat->dsym_249__SDEF_NAME.obj_len = 3; + + /*inistring dstr_250__SDEF_NAME*/ + /*_.VALSTR___V320*/ meltfptr[319] = (void*)&cdat->dstr_250__SDEF_NAME; + cdat->dstr_250__SDEF_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_250__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_250__SDEF_NAME.val)-1); /*^iniobj*/ - /*iniobj dobj_251__SEXPSYN_DOC*/ -/*_.VALDATA___V310*/ meltfptr[309] = (void*)&cdat->dobj_251__SEXPSYN_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_251__SEXPSYN_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_251__SEXPSYN_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_251__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_251__SEXPSYN_DOC.obj_num = 4; - cdat->dobj_251__SEXPSYN_DOC.obj_hash = 668616336; - cdat->dobj_251__SEXPSYN_DOC.obj_len = 4; - - /*inistring dstr_252__SEXPSYN_DOC*/ - /*_.VALSTR___V311*/ meltfptr[310] = (void*)&cdat->dstr_252__SEXPSYN_DOC; - cdat->dstr_252__SEXPSYN_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_252__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_252__SEXPSYN_DOC.val)-1); - /*iniobj dsym_253__CLASS_SOURCE_DEFINITION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (void*)&cdat->dsym_253__CLASS_SOURCE_DEFINITION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_253__CLASS_SOURCE_DEFINITION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_253__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_253__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_253__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; - cdat->dsym_253__CLASS_SOURCE_DEFINITION.obj_len = 3; - - /*inistring dstr_254__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V320*/ meltfptr[319] = (void*)&cdat->dstr_254__CLASS_SOURCE_DEF; - cdat->dstr_254__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_254__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_254__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:253:/ iniobj"); - /*iniobj dobj_255__CLASS_SOURCE_DEFINITION*/ -/*_.VALDATA___V321*/ meltfptr[320] = (void*)&cdat->dobj_255__CLASS_SOURCE_DEFINITION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_255__CLASS_SOURCE_DEFINITION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_255__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_255__CLASS_SOURCE_DEFINITION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_255__CLASS_SOURCE_DEFINITION.obj_hash = 623794981; - cdat->dobj_255__CLASS_SOURCE_DEFINITION.obj_len = 8; - - /*inistring dstr_256__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V322*/ meltfptr[321] = (void*)&cdat->dstr_256__CLASS_SOURCE_DEF; - cdat->dstr_256__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_256__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_256__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_257__CLASS_SOURCE_DEFINITION*/ - /*_.VALTUP___V323*/ meltfptr[322] = (void*)&cdat->dtup_257__CLASS_SOURCE_DEFINITION; - cdat->dtup_257__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_257__CLASS_SOURCE_DEFINITION.nbval = 4; - /*inimult dtup_258__CLASS_SOURCE_DEFINITION*/ - /*_.VALTUP___V328*/ meltfptr[327] = (void*)&cdat->dtup_258__CLASS_SOURCE_DEFINITION; - cdat->dtup_258__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_258__CLASS_SOURCE_DEFINITION.nbval = 4; - /*iniobj dsym_259__SDEF_NAME*/ -/*uniqueobj*/ if (!/*_.VALDATA___V329*/ meltfptr[328]) /*_.VALDATA___V329*/ meltfptr[328] = (void*)&cdat->dsym_259__SDEF_NAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_259__SDEF_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_259__SDEF_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_259__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_259__SDEF_NAME.obj_hash = 768386693; - cdat->dsym_259__SDEF_NAME.obj_len = 3; - - /*inistring dstr_260__SDEF_NAME*/ - /*_.VALSTR___V330*/ meltfptr[329] = (void*)&cdat->dstr_260__SDEF_NAME; - cdat->dstr_260__SDEF_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_260__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_260__SDEF_NAME.val)-1); + /*iniobj dobj_251__SDEF_NAME*/ +/*_.VALDATA___V314*/ meltfptr[313] = (void*)&cdat->dobj_251__SDEF_NAME; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_251__SDEF_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_251__SDEF_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_251__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_251__SDEF_NAME.obj_num = 2; + cdat->dobj_251__SDEF_NAME.obj_hash = 976760748; + cdat->dobj_251__SDEF_NAME.obj_len = 4; + + /*inistring dstr_252__SDEF_NAME*/ + /*_.VALSTR___V315*/ meltfptr[314] = (void*)&cdat->dstr_252__SDEF_NAME; + cdat->dstr_252__SDEF_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_252__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_252__SDEF_NAME.val)-1); + /*iniobj dsym_253__SDEF_DOC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V321*/ meltfptr[320]) /*_.VALDATA___V321*/ meltfptr[320] = (void*)&cdat->dsym_253__SDEF_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_253__SDEF_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_253__SDEF_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_253__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_253__SDEF_DOC.obj_hash = 1012921623; + cdat->dsym_253__SDEF_DOC.obj_len = 3; + + /*inistring dstr_254__SDEF_DOC*/ + /*_.VALSTR___V322*/ meltfptr[321] = (void*)&cdat->dstr_254__SDEF_DOC; + cdat->dstr_254__SDEF_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_254__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_254__SDEF_DOC.val)-1); /*^iniobj*/ - /*iniobj dobj_261__SDEF_NAME*/ -/*_.VALDATA___V324*/ meltfptr[323] = (void*)&cdat->dobj_261__SDEF_NAME; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_261__SDEF_NAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_261__SDEF_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_261__SDEF_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_261__SDEF_NAME.obj_num = 2; - cdat->dobj_261__SDEF_NAME.obj_hash = 218832019; - cdat->dobj_261__SDEF_NAME.obj_len = 4; - - /*inistring dstr_262__SDEF_NAME*/ - /*_.VALSTR___V325*/ meltfptr[324] = (void*)&cdat->dstr_262__SDEF_NAME; - cdat->dstr_262__SDEF_NAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_262__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_262__SDEF_NAME.val)-1); - /*iniobj dsym_263__SDEF_DOC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (void*)&cdat->dsym_263__SDEF_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__SDEF_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_263__SDEF_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_263__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_263__SDEF_DOC.obj_hash = 1012921623; - cdat->dsym_263__SDEF_DOC.obj_len = 3; - - /*inistring dstr_264__SDEF_DOC*/ - /*_.VALSTR___V332*/ meltfptr[331] = (void*)&cdat->dstr_264__SDEF_DOC; - cdat->dstr_264__SDEF_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_264__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_264__SDEF_DOC.val)-1); + /*iniobj dobj_255__SDEF_DOC*/ +/*_.VALDATA___V316*/ meltfptr[315] = (void*)&cdat->dobj_255__SDEF_DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_255__SDEF_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_255__SDEF_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_255__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_255__SDEF_DOC.obj_num = 3; + cdat->dobj_255__SDEF_DOC.obj_hash = 76928387; + cdat->dobj_255__SDEF_DOC.obj_len = 4; + + /*inistring dstr_256__SDEF_DOC*/ + /*_.VALSTR___V317*/ meltfptr[316] = (void*)&cdat->dstr_256__SDEF_DOC; + cdat->dstr_256__SDEF_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_256__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_256__SDEF_DOC.val)-1); + /*iniobj dsym_257__CLASS_SOURCE_DEFINE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (void*)&cdat->dsym_257__CLASS_SOURCE_DEFINE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_257__CLASS_SOURCE_DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_257__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_257__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_257__CLASS_SOURCE_DEFINE.obj_hash = 111330536; + cdat->dsym_257__CLASS_SOURCE_DEFINE.obj_len = 3; + + /*inistring dstr_258__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V324*/ meltfptr[323] = (void*)&cdat->dstr_258__CLASS_SOURCE_DEF; + cdat->dstr_258__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_258__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_258__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:254:/ iniobj"); + /*iniobj dobj_259__CLASS_SOURCE_DEFINE*/ +/*_.VALDATA___V325*/ meltfptr[324] = (void*)&cdat->dobj_259__CLASS_SOURCE_DEFINE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_259__CLASS_SOURCE_DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_259__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_259__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_259__CLASS_SOURCE_DEFINE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_259__CLASS_SOURCE_DEFINE.obj_hash = 388153943; + cdat->dobj_259__CLASS_SOURCE_DEFINE.obj_len = 8; + + /*inistring dstr_260__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V326*/ meltfptr[325] = (void*)&cdat->dstr_260__CLASS_SOURCE_DEF; + cdat->dstr_260__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_260__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_260__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_261__CLASS_SOURCE_DEFINE*/ + /*_.VALTUP___V327*/ meltfptr[326] = (void*)&cdat->dtup_261__CLASS_SOURCE_DEFINE; + cdat->dtup_261__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_261__CLASS_SOURCE_DEFINE.nbval = 5; + /*inimult dtup_262__CLASS_SOURCE_DEFINE*/ + /*_.VALTUP___V330*/ meltfptr[329] = (void*)&cdat->dtup_262__CLASS_SOURCE_DEFINE; + cdat->dtup_262__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_262__CLASS_SOURCE_DEFINE.nbval = 5; + /*iniobj dsym_263__SDEFINE_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (void*)&cdat->dsym_263__SDEFINE_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__SDEFINE_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_263__SDEFINE_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_263__SDEFINE_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_263__SDEFINE_EXPR.obj_hash = 376733904; + cdat->dsym_263__SDEFINE_EXPR.obj_len = 3; + + /*inistring dstr_264__SDEFINE_EXPR*/ + /*_.VALSTR___V332*/ meltfptr[331] = (void*)&cdat->dstr_264__SDEFINE_EXPR; + cdat->dstr_264__SDEFINE_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_264__SDEFINE_EXPR.val, "SDEFINE_EXPR", sizeof (cdat->dstr_264__SDEFINE_EXPR.val)-1); /*^iniobj*/ - /*iniobj dobj_265__SDEF_DOC*/ -/*_.VALDATA___V326*/ meltfptr[325] = (void*)&cdat->dobj_265__SDEF_DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_265__SDEF_DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_265__SDEF_DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_265__SDEF_DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_265__SDEF_DOC.obj_num = 3; - cdat->dobj_265__SDEF_DOC.obj_hash = 1004433211; - cdat->dobj_265__SDEF_DOC.obj_len = 4; - - /*inistring dstr_266__SDEF_DOC*/ - /*_.VALSTR___V327*/ meltfptr[326] = (void*)&cdat->dstr_266__SDEF_DOC; - cdat->dstr_266__SDEF_DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_266__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_266__SDEF_DOC.val)-1); - /*iniobj dsym_267__CLASS_SOURCE_DEFINE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V333*/ meltfptr[332]) /*_.VALDATA___V333*/ meltfptr[332] = (void*)&cdat->dsym_267__CLASS_SOURCE_DEFINE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_267__CLASS_SOURCE_DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_267__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_267__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_267__CLASS_SOURCE_DEFINE.obj_hash = 111330536; - cdat->dsym_267__CLASS_SOURCE_DEFINE.obj_len = 3; + /*iniobj dobj_265__SDEFINE_EXPR*/ +/*_.VALDATA___V328*/ meltfptr[327] = (void*)&cdat->dobj_265__SDEFINE_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_265__SDEFINE_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_265__SDEFINE_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_265__SDEFINE_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_265__SDEFINE_EXPR.obj_num = 4; + cdat->dobj_265__SDEFINE_EXPR.obj_hash = 54550099; + cdat->dobj_265__SDEFINE_EXPR.obj_len = 4; + + /*inistring dstr_266__SDEFINE_EXPR*/ + /*_.VALSTR___V329*/ meltfptr[328] = (void*)&cdat->dstr_266__SDEFINE_EXPR; + cdat->dstr_266__SDEFINE_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_266__SDEFINE_EXPR.val, "SDEFINE_EXPR", sizeof (cdat->dstr_266__SDEFINE_EXPR.val)-1); + /*iniobj dsym_267__CLASS_SOURCE_DEFINITION_FORMAL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V333*/ meltfptr[332]) /*_.VALDATA___V333*/ meltfptr[332] = (void*)&cdat->dsym_267__CLASS_SOURCE_DEFINITION_FORMAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_267__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_267__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_267__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_267__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; + cdat->dsym_267__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; /*inistring dstr_268__CLASS_SOURCE_DEF*/ /*_.VALSTR___V334*/ meltfptr[333] = (void*)&cdat->dstr_268__CLASS_SOURCE_DEF; cdat->dstr_268__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_268__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_268__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:263:/ iniobj"); - /*iniobj dobj_269__CLASS_SOURCE_DEFINE*/ -/*_.VALDATA___V335*/ meltfptr[334] = (void*)&cdat->dobj_269__CLASS_SOURCE_DEFINE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_269__CLASS_SOURCE_DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_269__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_269__CLASS_SOURCE_DEFINE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_269__CLASS_SOURCE_DEFINE.obj_hash = 251046132; - cdat->dobj_269__CLASS_SOURCE_DEFINE.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_268__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_268__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:261:/ iniobj"); + /*iniobj dobj_269__CLASS_SOURCE_DEFINITION_FORMAL*/ +/*_.VALDATA___V335*/ meltfptr[334] = (void*)&cdat->dobj_269__CLASS_SOURCE_DEFINITION_FORMAL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_269__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_269__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_269__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_269__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_269__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 1055249725; + cdat->dobj_269__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; /*inistring dstr_270__CLASS_SOURCE_DEF*/ /*_.VALSTR___V336*/ meltfptr[335] = (void*)&cdat->dstr_270__CLASS_SOURCE_DEF; cdat->dstr_270__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_270__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_270__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_271__CLASS_SOURCE_DEFINE*/ - /*_.VALTUP___V337*/ meltfptr[336] = (void*)&cdat->dtup_271__CLASS_SOURCE_DEFINE; - cdat->dtup_271__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_271__CLASS_SOURCE_DEFINE.nbval = 5; - /*inimult dtup_272__CLASS_SOURCE_DEFINE*/ - /*_.VALTUP___V340*/ meltfptr[339] = (void*)&cdat->dtup_272__CLASS_SOURCE_DEFINE; - cdat->dtup_272__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_272__CLASS_SOURCE_DEFINE.nbval = 5; - /*iniobj dsym_273__SDEFINE_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (void*)&cdat->dsym_273__SDEFINE_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__SDEFINE_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_273__SDEFINE_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_273__SDEFINE_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_273__SDEFINE_EXPR.obj_hash = 376733904; - cdat->dsym_273__SDEFINE_EXPR.obj_len = 3; - - /*inistring dstr_274__SDEFINE_EXPR*/ - /*_.VALSTR___V342*/ meltfptr[341] = (void*)&cdat->dstr_274__SDEFINE_EXPR; - cdat->dstr_274__SDEFINE_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_274__SDEFINE_EXPR.val, "SDEFINE_EXPR", sizeof (cdat->dstr_274__SDEFINE_EXPR.val)-1); + /*small inistring*/ strncpy(cdat->dstr_270__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_270__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_271__CLASS_SOURCE_DEFINITION_FORMAL*/ + /*_.VALTUP___V337*/ meltfptr[336] = (void*)&cdat->dtup_271__CLASS_SOURCE_DEFINITION_FORMAL; + cdat->dtup_271__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_271__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; + /*inimult dtup_272__CLASS_SOURCE_DEFINITION_FORMAL*/ + /*_.VALTUP___V340*/ meltfptr[339] = (void*)&cdat->dtup_272__CLASS_SOURCE_DEFINITION_FORMAL; + cdat->dtup_272__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_272__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; + /*iniobj dsym_273__SFORMAL_ARGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (void*)&cdat->dsym_273__SFORMAL_ARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__SFORMAL_ARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_273__SFORMAL_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_273__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_273__SFORMAL_ARGS.obj_hash = 190096587; + cdat->dsym_273__SFORMAL_ARGS.obj_len = 3; + + /*inistring dstr_274__SFORMAL_ARGS*/ + /*_.VALSTR___V342*/ meltfptr[341] = (void*)&cdat->dstr_274__SFORMAL_ARGS; + cdat->dstr_274__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_274__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_274__SFORMAL_ARGS.val)-1); /*^iniobj*/ - /*iniobj dobj_275__SDEFINE_EXPR*/ -/*_.VALDATA___V338*/ meltfptr[337] = (void*)&cdat->dobj_275__SDEFINE_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_275__SDEFINE_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__SDEFINE_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_275__SDEFINE_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_275__SDEFINE_EXPR.obj_num = 4; - cdat->dobj_275__SDEFINE_EXPR.obj_hash = 150734049; - cdat->dobj_275__SDEFINE_EXPR.obj_len = 4; - - /*inistring dstr_276__SDEFINE_EXPR*/ - /*_.VALSTR___V339*/ meltfptr[338] = (void*)&cdat->dstr_276__SDEFINE_EXPR; - cdat->dstr_276__SDEFINE_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_276__SDEFINE_EXPR.val, "SDEFINE_EXPR", sizeof (cdat->dstr_276__SDEFINE_EXPR.val)-1); - /*iniobj dsym_277__CLASS_SOURCE_DEFINITION_FORMAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (void*)&cdat->dsym_277__CLASS_SOURCE_DEFINITION_FORMAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_277__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_277__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_277__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_277__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; - cdat->dsym_277__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; + /*iniobj dobj_275__SFORMAL_ARGS*/ +/*_.VALDATA___V338*/ meltfptr[337] = (void*)&cdat->dobj_275__SFORMAL_ARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_275__SFORMAL_ARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_275__SFORMAL_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_275__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_275__SFORMAL_ARGS.obj_num = 4; + cdat->dobj_275__SFORMAL_ARGS.obj_hash = 247083821; + cdat->dobj_275__SFORMAL_ARGS.obj_len = 4; + + /*inistring dstr_276__SFORMAL_ARGS*/ + /*_.VALSTR___V339*/ meltfptr[338] = (void*)&cdat->dstr_276__SFORMAL_ARGS; + cdat->dstr_276__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_276__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_276__SFORMAL_ARGS.val)-1); + /*iniobj dsym_277__CLASS_SOURCE_DEFUN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (void*)&cdat->dsym_277__CLASS_SOURCE_DEFUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_277__CLASS_SOURCE_DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_277__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_277__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_277__CLASS_SOURCE_DEFUN.obj_hash = 872711296; + cdat->dsym_277__CLASS_SOURCE_DEFUN.obj_len = 3; /*inistring dstr_278__CLASS_SOURCE_DEF*/ /*_.VALSTR___V344*/ meltfptr[343] = (void*)&cdat->dstr_278__CLASS_SOURCE_DEF; cdat->dstr_278__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_278__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_278__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:270:/ iniobj"); - /*iniobj dobj_279__CLASS_SOURCE_DEFINITION_FORMAL*/ -/*_.VALDATA___V345*/ meltfptr[344] = (void*)&cdat->dobj_279__CLASS_SOURCE_DEFINITION_FORMAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_279__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_279__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_279__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_279__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 641872916; - cdat->dobj_279__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_278__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_278__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:269:/ iniobj"); + /*iniobj dobj_279__CLASS_SOURCE_DEFUN*/ +/*_.VALDATA___V345*/ meltfptr[344] = (void*)&cdat->dobj_279__CLASS_SOURCE_DEFUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_279__CLASS_SOURCE_DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_279__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_279__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_279__CLASS_SOURCE_DEFUN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_279__CLASS_SOURCE_DEFUN.obj_hash = 878612105; + cdat->dobj_279__CLASS_SOURCE_DEFUN.obj_len = 8; /*inistring dstr_280__CLASS_SOURCE_DEF*/ /*_.VALSTR___V346*/ meltfptr[345] = (void*)&cdat->dstr_280__CLASS_SOURCE_DEF; cdat->dstr_280__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_280__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_280__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_281__CLASS_SOURCE_DEFINITION_FORMAL*/ - /*_.VALTUP___V347*/ meltfptr[346] = (void*)&cdat->dtup_281__CLASS_SOURCE_DEFINITION_FORMAL; - cdat->dtup_281__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_281__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; - /*inimult dtup_282__CLASS_SOURCE_DEFINITION_FORMAL*/ - /*_.VALTUP___V350*/ meltfptr[349] = (void*)&cdat->dtup_282__CLASS_SOURCE_DEFINITION_FORMAL; - cdat->dtup_282__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_282__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; - /*iniobj dsym_283__SFORMAL_ARGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V351*/ meltfptr[350]) /*_.VALDATA___V351*/ meltfptr[350] = (void*)&cdat->dsym_283__SFORMAL_ARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_283__SFORMAL_ARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_283__SFORMAL_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_283__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_283__SFORMAL_ARGS.obj_hash = 190096587; - cdat->dsym_283__SFORMAL_ARGS.obj_len = 3; - - /*inistring dstr_284__SFORMAL_ARGS*/ - /*_.VALSTR___V352*/ meltfptr[351] = (void*)&cdat->dstr_284__SFORMAL_ARGS; - cdat->dstr_284__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_284__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_284__SFORMAL_ARGS.val)-1); + /*small inistring*/ strncpy(cdat->dstr_280__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_280__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_281__CLASS_SOURCE_DEFUN*/ + /*_.VALTUP___V347*/ meltfptr[346] = (void*)&cdat->dtup_281__CLASS_SOURCE_DEFUN; + cdat->dtup_281__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_281__CLASS_SOURCE_DEFUN.nbval = 6; + /*inimult dtup_282__CLASS_SOURCE_DEFUN*/ + /*_.VALTUP___V350*/ meltfptr[349] = (void*)&cdat->dtup_282__CLASS_SOURCE_DEFUN; + cdat->dtup_282__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_282__CLASS_SOURCE_DEFUN.nbval = 6; + /*iniobj dsym_283__SFUN_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V351*/ meltfptr[350]) /*_.VALDATA___V351*/ meltfptr[350] = (void*)&cdat->dsym_283__SFUN_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_283__SFUN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_283__SFUN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_283__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_283__SFUN_BODY.obj_hash = 860615464; + cdat->dsym_283__SFUN_BODY.obj_len = 3; + + /*inistring dstr_284__SFUN_BODY*/ + /*_.VALSTR___V352*/ meltfptr[351] = (void*)&cdat->dstr_284__SFUN_BODY; + cdat->dstr_284__SFUN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_284__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_284__SFUN_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_285__SFORMAL_ARGS*/ -/*_.VALDATA___V348*/ meltfptr[347] = (void*)&cdat->dobj_285__SFORMAL_ARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_285__SFORMAL_ARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__SFORMAL_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_285__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_285__SFORMAL_ARGS.obj_num = 4; - cdat->dobj_285__SFORMAL_ARGS.obj_hash = 353462146; - cdat->dobj_285__SFORMAL_ARGS.obj_len = 4; - - /*inistring dstr_286__SFORMAL_ARGS*/ - /*_.VALSTR___V349*/ meltfptr[348] = (void*)&cdat->dstr_286__SFORMAL_ARGS; - cdat->dstr_286__SFORMAL_ARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_286__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_286__SFORMAL_ARGS.val)-1); - /*iniobj dsym_287__CLASS_SOURCE_DEFUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V353*/ meltfptr[352]) /*_.VALDATA___V353*/ meltfptr[352] = (void*)&cdat->dsym_287__CLASS_SOURCE_DEFUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_287__CLASS_SOURCE_DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_287__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_287__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_287__CLASS_SOURCE_DEFUN.obj_hash = 872711296; - cdat->dsym_287__CLASS_SOURCE_DEFUN.obj_len = 3; + /*iniobj dobj_285__SFUN_BODY*/ +/*_.VALDATA___V348*/ meltfptr[347] = (void*)&cdat->dobj_285__SFUN_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_285__SFUN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__SFUN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_285__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_285__SFUN_BODY.obj_num = 5; + cdat->dobj_285__SFUN_BODY.obj_hash = 476079611; + cdat->dobj_285__SFUN_BODY.obj_len = 4; + + /*inistring dstr_286__SFUN_BODY*/ + /*_.VALSTR___V349*/ meltfptr[348] = (void*)&cdat->dstr_286__SFUN_BODY; + cdat->dstr_286__SFUN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_286__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_286__SFUN_BODY.val)-1); + /*iniobj dsym_287__CLASS_SOURCE_DEFPRIMITIVE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V353*/ meltfptr[352]) /*_.VALDATA___V353*/ meltfptr[352] = (void*)&cdat->dsym_287__CLASS_SOURCE_DEFPRIMITIVE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_287__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_287__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_287__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_287__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; + cdat->dsym_287__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_288__CLASS_SOURCE_DEF*/ /*_.VALSTR___V354*/ meltfptr[353] = (void*)&cdat->dstr_288__CLASS_SOURCE_DEF; cdat->dstr_288__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_288__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_288__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:278:/ iniobj"); - /*iniobj dobj_289__CLASS_SOURCE_DEFUN*/ -/*_.VALDATA___V355*/ meltfptr[354] = (void*)&cdat->dobj_289__CLASS_SOURCE_DEFUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_289__CLASS_SOURCE_DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_289__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_289__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_289__CLASS_SOURCE_DEFUN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_289__CLASS_SOURCE_DEFUN.obj_hash = 708381206; - cdat->dobj_289__CLASS_SOURCE_DEFUN.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_288__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_288__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:276:/ iniobj"); + /*iniobj dobj_289__CLASS_SOURCE_DEFPRIMITIVE*/ +/*_.VALDATA___V355*/ meltfptr[354] = (void*)&cdat->dobj_289__CLASS_SOURCE_DEFPRIMITIVE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_289__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_289__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_289__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_289__CLASS_SOURCE_DEFPRIMITIVE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_289__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 456158166; + cdat->dobj_289__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; /*inistring dstr_290__CLASS_SOURCE_DEF*/ /*_.VALSTR___V356*/ meltfptr[355] = (void*)&cdat->dstr_290__CLASS_SOURCE_DEF; cdat->dstr_290__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_290__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_290__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_291__CLASS_SOURCE_DEFUN*/ - /*_.VALTUP___V357*/ meltfptr[356] = (void*)&cdat->dtup_291__CLASS_SOURCE_DEFUN; - cdat->dtup_291__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_291__CLASS_SOURCE_DEFUN.nbval = 6; - /*inimult dtup_292__CLASS_SOURCE_DEFUN*/ - /*_.VALTUP___V360*/ meltfptr[359] = (void*)&cdat->dtup_292__CLASS_SOURCE_DEFUN; - cdat->dtup_292__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_292__CLASS_SOURCE_DEFUN.nbval = 6; - /*iniobj dsym_293__SFUN_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V361*/ meltfptr[360]) /*_.VALDATA___V361*/ meltfptr[360] = (void*)&cdat->dsym_293__SFUN_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_293__SFUN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_293__SFUN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_293__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_293__SFUN_BODY.obj_hash = 860615464; - cdat->dsym_293__SFUN_BODY.obj_len = 3; - - /*inistring dstr_294__SFUN_BODY*/ - /*_.VALSTR___V362*/ meltfptr[361] = (void*)&cdat->dstr_294__SFUN_BODY; - cdat->dstr_294__SFUN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_294__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_294__SFUN_BODY.val)-1); + /*small inistring*/ strncpy(cdat->dstr_290__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_290__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_291__CLASS_SOURCE_DEFPRIMITIVE*/ + /*_.VALTUP___V357*/ meltfptr[356] = (void*)&cdat->dtup_291__CLASS_SOURCE_DEFPRIMITIVE; + cdat->dtup_291__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_291__CLASS_SOURCE_DEFPRIMITIVE.nbval = 6; + /*inimult dtup_292__CLASS_SOURCE_DEFPRIMITIVE*/ + /*_.VALTUP___V362*/ meltfptr[361] = (void*)&cdat->dtup_292__CLASS_SOURCE_DEFPRIMITIVE; + cdat->dtup_292__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_292__CLASS_SOURCE_DEFPRIMITIVE.nbval = 7; + /*iniobj dsym_293__SPRIM_TYPE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V363*/ meltfptr[362]) /*_.VALDATA___V363*/ meltfptr[362] = (void*)&cdat->dsym_293__SPRIM_TYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_293__SPRIM_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_293__SPRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_293__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_293__SPRIM_TYPE.obj_hash = 614174808; + cdat->dsym_293__SPRIM_TYPE.obj_len = 3; + + /*inistring dstr_294__SPRIM_TYPE*/ + /*_.VALSTR___V364*/ meltfptr[363] = (void*)&cdat->dstr_294__SPRIM_TYPE; + cdat->dstr_294__SPRIM_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_294__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_294__SPRIM_TYPE.val)-1); /*^iniobj*/ - /*iniobj dobj_295__SFUN_BODY*/ -/*_.VALDATA___V358*/ meltfptr[357] = (void*)&cdat->dobj_295__SFUN_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_295__SFUN_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__SFUN_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_295__SFUN_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_295__SFUN_BODY.obj_num = 5; - cdat->dobj_295__SFUN_BODY.obj_hash = 317519419; - cdat->dobj_295__SFUN_BODY.obj_len = 4; - - /*inistring dstr_296__SFUN_BODY*/ - /*_.VALSTR___V359*/ meltfptr[358] = (void*)&cdat->dstr_296__SFUN_BODY; - cdat->dstr_296__SFUN_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_296__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_296__SFUN_BODY.val)-1); - /*iniobj dsym_297__CLASS_SOURCE_DEFPRIMITIVE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V363*/ meltfptr[362]) /*_.VALDATA___V363*/ meltfptr[362] = (void*)&cdat->dsym_297__CLASS_SOURCE_DEFPRIMITIVE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_297__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_297__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_297__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_297__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; - cdat->dsym_297__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; - - /*inistring dstr_298__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V364*/ meltfptr[363] = (void*)&cdat->dstr_298__CLASS_SOURCE_DEF; - cdat->dstr_298__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_298__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_298__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:285:/ iniobj"); - /*iniobj dobj_299__CLASS_SOURCE_DEFPRIMITIVE*/ -/*_.VALDATA___V365*/ meltfptr[364] = (void*)&cdat->dobj_299__CLASS_SOURCE_DEFPRIMITIVE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_299__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_299__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_299__CLASS_SOURCE_DEFPRIMITIVE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_299__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 456779454; - cdat->dobj_299__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; - - /*inistring dstr_300__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V366*/ meltfptr[365] = (void*)&cdat->dstr_300__CLASS_SOURCE_DEF; - cdat->dstr_300__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_300__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_300__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_301__CLASS_SOURCE_DEFPRIMITIVE*/ - /*_.VALTUP___V367*/ meltfptr[366] = (void*)&cdat->dtup_301__CLASS_SOURCE_DEFPRIMITIVE; - cdat->dtup_301__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_301__CLASS_SOURCE_DEFPRIMITIVE.nbval = 6; - /*inimult dtup_302__CLASS_SOURCE_DEFPRIMITIVE*/ - /*_.VALTUP___V372*/ meltfptr[371] = (void*)&cdat->dtup_302__CLASS_SOURCE_DEFPRIMITIVE; - cdat->dtup_302__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_302__CLASS_SOURCE_DEFPRIMITIVE.nbval = 7; - /*iniobj dsym_303__SPRIM_TYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V373*/ meltfptr[372]) /*_.VALDATA___V373*/ meltfptr[372] = (void*)&cdat->dsym_303__SPRIM_TYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_303__SPRIM_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_303__SPRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_303__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_303__SPRIM_TYPE.obj_hash = 614174808; - cdat->dsym_303__SPRIM_TYPE.obj_len = 3; - - /*inistring dstr_304__SPRIM_TYPE*/ - /*_.VALSTR___V374*/ meltfptr[373] = (void*)&cdat->dstr_304__SPRIM_TYPE; - cdat->dstr_304__SPRIM_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_304__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_304__SPRIM_TYPE.val)-1); + /*iniobj dobj_295__SPRIM_TYPE*/ +/*_.VALDATA___V358*/ meltfptr[357] = (void*)&cdat->dobj_295__SPRIM_TYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_295__SPRIM_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__SPRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_295__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_295__SPRIM_TYPE.obj_num = 5; + cdat->dobj_295__SPRIM_TYPE.obj_hash = 672383889; + cdat->dobj_295__SPRIM_TYPE.obj_len = 4; + + /*inistring dstr_296__SPRIM_TYPE*/ + /*_.VALSTR___V359*/ meltfptr[358] = (void*)&cdat->dstr_296__SPRIM_TYPE; + cdat->dstr_296__SPRIM_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_296__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_296__SPRIM_TYPE.val)-1); + /*iniobj dsym_297__SPRIM_EXPANSION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V365*/ meltfptr[364]) /*_.VALDATA___V365*/ meltfptr[364] = (void*)&cdat->dsym_297__SPRIM_EXPANSION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_297__SPRIM_EXPANSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_297__SPRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_297__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_297__SPRIM_EXPANSION.obj_hash = 343124792; + cdat->dsym_297__SPRIM_EXPANSION.obj_len = 3; + + /*inistring dstr_298__SPRIM_EXPANSION*/ + /*_.VALSTR___V366*/ meltfptr[365] = (void*)&cdat->dstr_298__SPRIM_EXPANSION; + cdat->dstr_298__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_298__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_298__SPRIM_EXPANSION.val)-1); /*^iniobj*/ - /*iniobj dobj_305__SPRIM_TYPE*/ -/*_.VALDATA___V368*/ meltfptr[367] = (void*)&cdat->dobj_305__SPRIM_TYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_305__SPRIM_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__SPRIM_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_305__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_305__SPRIM_TYPE.obj_num = 5; - cdat->dobj_305__SPRIM_TYPE.obj_hash = 1012545990; - cdat->dobj_305__SPRIM_TYPE.obj_len = 4; - - /*inistring dstr_306__SPRIM_TYPE*/ - /*_.VALSTR___V369*/ meltfptr[368] = (void*)&cdat->dstr_306__SPRIM_TYPE; - cdat->dstr_306__SPRIM_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_306__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_306__SPRIM_TYPE.val)-1); - /*iniobj dsym_307__SPRIM_EXPANSION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V375*/ meltfptr[374]) /*_.VALDATA___V375*/ meltfptr[374] = (void*)&cdat->dsym_307__SPRIM_EXPANSION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_307__SPRIM_EXPANSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_307__SPRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_307__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_307__SPRIM_EXPANSION.obj_hash = 343124792; - cdat->dsym_307__SPRIM_EXPANSION.obj_len = 3; - - /*inistring dstr_308__SPRIM_EXPANSION*/ - /*_.VALSTR___V376*/ meltfptr[375] = (void*)&cdat->dstr_308__SPRIM_EXPANSION; - cdat->dstr_308__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_308__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_308__SPRIM_EXPANSION.val)-1); + /*iniobj dobj_299__SPRIM_EXPANSION*/ +/*_.VALDATA___V360*/ meltfptr[359] = (void*)&cdat->dobj_299__SPRIM_EXPANSION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_299__SPRIM_EXPANSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__SPRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_299__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_299__SPRIM_EXPANSION.obj_num = 6; + cdat->dobj_299__SPRIM_EXPANSION.obj_hash = 54444711; + cdat->dobj_299__SPRIM_EXPANSION.obj_len = 4; + + /*inistring dstr_300__SPRIM_EXPANSION*/ + /*_.VALSTR___V361*/ meltfptr[360] = (void*)&cdat->dstr_300__SPRIM_EXPANSION; + cdat->dstr_300__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_300__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_300__SPRIM_EXPANSION.val)-1); + /*iniobj dsym_301__CLASS_SOURCE_DEFCITERATOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V367*/ meltfptr[366]) /*_.VALDATA___V367*/ meltfptr[366] = (void*)&cdat->dsym_301__CLASS_SOURCE_DEFCITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_301__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_301__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_301__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_301__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; + cdat->dsym_301__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; + + /*inistring dstr_302__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V368*/ meltfptr[367] = (void*)&cdat->dstr_302__CLASS_SOURCE_DEF; + cdat->dstr_302__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_302__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_302__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:287:/ iniobj"); + /*iniobj dobj_303__CLASS_SOURCE_DEFCITERATOR*/ +/*_.VALDATA___V369*/ meltfptr[368] = (void*)&cdat->dobj_303__CLASS_SOURCE_DEFCITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_303__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_303__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_303__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_303__CLASS_SOURCE_DEFCITERATOR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_303__CLASS_SOURCE_DEFCITERATOR.obj_hash = 357695736; + cdat->dobj_303__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; + + /*inistring dstr_304__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V370*/ meltfptr[369] = (void*)&cdat->dstr_304__CLASS_SOURCE_DEF; + cdat->dstr_304__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_304__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_304__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_305__CLASS_SOURCE_DEFCITERATOR*/ + /*_.VALTUP___V371*/ meltfptr[370] = (void*)&cdat->dtup_305__CLASS_SOURCE_DEFCITERATOR; + cdat->dtup_305__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_305__CLASS_SOURCE_DEFCITERATOR.nbval = 6; + /*inimult dtup_306__CLASS_SOURCE_DEFCITERATOR*/ + /*_.VALTUP___V374*/ meltfptr[373] = (void*)&cdat->dtup_306__CLASS_SOURCE_DEFCITERATOR; + cdat->dtup_306__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_306__CLASS_SOURCE_DEFCITERATOR.nbval = 6; + /*iniobj dsym_307__SCITERDEF_CITERATOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V375*/ meltfptr[374]) /*_.VALDATA___V375*/ meltfptr[374] = (void*)&cdat->dsym_307__SCITERDEF_CITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_307__SCITERDEF_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_307__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_307__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_307__SCITERDEF_CITERATOR.obj_hash = 321745206; + cdat->dsym_307__SCITERDEF_CITERATOR.obj_len = 3; + + /*inistring dstr_308__SCITERDEF_CITERA*/ + /*_.VALSTR___V376*/ meltfptr[375] = (void*)&cdat->dstr_308__SCITERDEF_CITERA; + cdat->dstr_308__SCITERDEF_CITERA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_308__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_308__SCITERDEF_CITERA.val)-1); /*^iniobj*/ - /*iniobj dobj_309__SPRIM_EXPANSION*/ -/*_.VALDATA___V370*/ meltfptr[369] = (void*)&cdat->dobj_309__SPRIM_EXPANSION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_309__SPRIM_EXPANSION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__SPRIM_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_309__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_309__SPRIM_EXPANSION.obj_num = 6; - cdat->dobj_309__SPRIM_EXPANSION.obj_hash = 284176210; - cdat->dobj_309__SPRIM_EXPANSION.obj_len = 4; - - /*inistring dstr_310__SPRIM_EXPANSION*/ - /*_.VALSTR___V371*/ meltfptr[370] = (void*)&cdat->dstr_310__SPRIM_EXPANSION; - cdat->dstr_310__SPRIM_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_310__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_310__SPRIM_EXPANSION.val)-1); - /*iniobj dsym_311__CLASS_SOURCE_DEFVARIADIC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V377*/ meltfptr[376]) /*_.VALDATA___V377*/ meltfptr[376] = (void*)&cdat->dsym_311__CLASS_SOURCE_DEFVARIADIC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_311__CLASS_SOURCE_DEFVARIADIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_311__CLASS_SOURCE_DEFVARIADIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_311__CLASS_SOURCE_DEFVARIADIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_311__CLASS_SOURCE_DEFVARIADIC.obj_hash = 991127427; - cdat->dsym_311__CLASS_SOURCE_DEFVARIADIC.obj_len = 3; + /*iniobj dobj_309__SCITERDEF_CITERATOR*/ +/*_.VALDATA___V372*/ meltfptr[371] = (void*)&cdat->dobj_309__SCITERDEF_CITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_309__SCITERDEF_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_309__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_309__SCITERDEF_CITERATOR.obj_num = 5; + cdat->dobj_309__SCITERDEF_CITERATOR.obj_hash = 485025718; + cdat->dobj_309__SCITERDEF_CITERATOR.obj_len = 4; + + /*inistring dstr_310__SCITERDEF_CITERA*/ + /*_.VALSTR___V373*/ meltfptr[372] = (void*)&cdat->dstr_310__SCITERDEF_CITERA; + cdat->dstr_310__SCITERDEF_CITERA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_310__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_310__SCITERDEF_CITERA.val)-1); + /*iniobj dsym_311__CLASS_SOURCE_DEFCMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V377*/ meltfptr[376]) /*_.VALDATA___V377*/ meltfptr[376] = (void*)&cdat->dsym_311__CLASS_SOURCE_DEFCMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_311__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_311__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_311__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_311__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; + cdat->dsym_311__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_312__CLASS_SOURCE_DEF*/ /*_.VALSTR___V378*/ meltfptr[377] = (void*)&cdat->dstr_312__CLASS_SOURCE_DEF; cdat->dstr_312__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_312__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFVARIADIC", sizeof (cdat->dstr_312__CLASS_SOURCE_DEF.val)-1); + /*small inistring*/ strncpy(cdat->dstr_312__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_312__CLASS_SOURCE_DEF.val)-1); MELT_LOCATION("warmelt-macro.melt:295:/ iniobj"); - /*iniobj dobj_313__CLASS_SOURCE_DEFVARIADIC*/ -/*_.VALDATA___V379*/ meltfptr[378] = (void*)&cdat->dobj_313__CLASS_SOURCE_DEFVARIADIC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_313__CLASS_SOURCE_DEFVARIADIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__CLASS_SOURCE_DEFVARIADIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_313__CLASS_SOURCE_DEFVARIADIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_313__CLASS_SOURCE_DEFVARIADIC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_313__CLASS_SOURCE_DEFVARIADIC.obj_hash = 196043321; - cdat->dobj_313__CLASS_SOURCE_DEFVARIADIC.obj_len = 8; + /*iniobj dobj_313__CLASS_SOURCE_DEFCMATCHER*/ +/*_.VALDATA___V379*/ meltfptr[378] = (void*)&cdat->dobj_313__CLASS_SOURCE_DEFCMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_313__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_313__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_313__CLASS_SOURCE_DEFCMATCHER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_313__CLASS_SOURCE_DEFCMATCHER.obj_hash = 544322095; + cdat->dobj_313__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; /*inistring dstr_314__CLASS_SOURCE_DEF*/ /*_.VALSTR___V380*/ meltfptr[379] = (void*)&cdat->dstr_314__CLASS_SOURCE_DEF; cdat->dstr_314__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_314__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFVARIADIC", sizeof (cdat->dstr_314__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_315__CLASS_SOURCE_DEFVARIADIC*/ - /*_.VALTUP___V381*/ meltfptr[380] = (void*)&cdat->dtup_315__CLASS_SOURCE_DEFVARIADIC; - cdat->dtup_315__CLASS_SOURCE_DEFVARIADIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_315__CLASS_SOURCE_DEFVARIADIC.nbval = 6; - /*inimult dtup_316__CLASS_SOURCE_DEFVARIADIC*/ - /*_.VALTUP___V388*/ meltfptr[387] = (void*)&cdat->dtup_316__CLASS_SOURCE_DEFVARIADIC; - cdat->dtup_316__CLASS_SOURCE_DEFVARIADIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_316__CLASS_SOURCE_DEFVARIADIC.nbval = 8; - /*iniobj dsym_317__SVARIADIC_INITIAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V389*/ meltfptr[388]) /*_.VALDATA___V389*/ meltfptr[388] = (void*)&cdat->dsym_317__SVARIADIC_INITIAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_317__SVARIADIC_INITIAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_317__SVARIADIC_INITIAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_317__SVARIADIC_INITIAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_317__SVARIADIC_INITIAL.obj_hash = 908523490; - cdat->dsym_317__SVARIADIC_INITIAL.obj_len = 3; - - /*inistring dstr_318__SVARIADIC_INITIA*/ - /*_.VALSTR___V390*/ meltfptr[389] = (void*)&cdat->dstr_318__SVARIADIC_INITIA; - cdat->dstr_318__SVARIADIC_INITIA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_318__SVARIADIC_INITIA.val, "SVARIADIC_INITIAL", sizeof (cdat->dstr_318__SVARIADIC_INITIA.val)-1); + /*small inistring*/ strncpy(cdat->dstr_314__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_314__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_315__CLASS_SOURCE_DEFCMATCHER*/ + /*_.VALTUP___V381*/ meltfptr[380] = (void*)&cdat->dtup_315__CLASS_SOURCE_DEFCMATCHER; + cdat->dtup_315__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_315__CLASS_SOURCE_DEFCMATCHER.nbval = 6; + /*inimult dtup_316__CLASS_SOURCE_DEFCMATCHER*/ + /*_.VALTUP___V384*/ meltfptr[383] = (void*)&cdat->dtup_316__CLASS_SOURCE_DEFCMATCHER; + cdat->dtup_316__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_316__CLASS_SOURCE_DEFCMATCHER.nbval = 6; + /*iniobj dsym_317__SCMATDEF_CMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V385*/ meltfptr[384]) /*_.VALDATA___V385*/ meltfptr[384] = (void*)&cdat->dsym_317__SCMATDEF_CMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_317__SCMATDEF_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_317__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_317__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_317__SCMATDEF_CMATCHER.obj_hash = 75922864; + cdat->dsym_317__SCMATDEF_CMATCHER.obj_len = 3; + + /*inistring dstr_318__SCMATDEF_CMATCHE*/ + /*_.VALSTR___V386*/ meltfptr[385] = (void*)&cdat->dstr_318__SCMATDEF_CMATCHE; + cdat->dstr_318__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_318__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_318__SCMATDEF_CMATCHE.val)-1); /*^iniobj*/ - /*iniobj dobj_319__SVARIADIC_INITIAL*/ -/*_.VALDATA___V382*/ meltfptr[381] = (void*)&cdat->dobj_319__SVARIADIC_INITIAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_319__SVARIADIC_INITIAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_319__SVARIADIC_INITIAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_319__SVARIADIC_INITIAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_319__SVARIADIC_INITIAL.obj_num = 5; - cdat->dobj_319__SVARIADIC_INITIAL.obj_hash = 819395316; - cdat->dobj_319__SVARIADIC_INITIAL.obj_len = 4; - - /*inistring dstr_320__SVARIADIC_INITIA*/ - /*_.VALSTR___V383*/ meltfptr[382] = (void*)&cdat->dstr_320__SVARIADIC_INITIA; - cdat->dstr_320__SVARIADIC_INITIA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_320__SVARIADIC_INITIA.val, "SVARIADIC_INITIAL", sizeof (cdat->dstr_320__SVARIADIC_INITIA.val)-1); - /*iniobj dsym_321__SVARIADIC_CTYPEHANDLERMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (void*)&cdat->dsym_321__SVARIADIC_CTYPEHANDLERMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_321__SVARIADIC_CTYPEHANDLERMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_321__SVARIADIC_CTYPEHANDLERMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_321__SVARIADIC_CTYPEHANDLERMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_321__SVARIADIC_CTYPEHANDLERMAP.obj_hash = 278000785; - cdat->dsym_321__SVARIADIC_CTYPEHANDLERMAP.obj_len = 3; - - /*inistring dstr_322__SVARIADIC_CTYPEH*/ - /*_.VALSTR___V392*/ meltfptr[391] = (void*)&cdat->dstr_322__SVARIADIC_CTYPEH; - cdat->dstr_322__SVARIADIC_CTYPEH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_322__SVARIADIC_CTYPEH.val, "SVARIADIC_CTYPEHANDLERMAP", sizeof (cdat->dstr_322__SVARIADIC_CTYPEH.val)-1); + /*iniobj dobj_319__SCMATDEF_CMATCHER*/ +/*_.VALDATA___V382*/ meltfptr[381] = (void*)&cdat->dobj_319__SCMATDEF_CMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_319__SCMATDEF_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_319__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_319__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_319__SCMATDEF_CMATCHER.obj_num = 5; + cdat->dobj_319__SCMATDEF_CMATCHER.obj_hash = 259324090; + cdat->dobj_319__SCMATDEF_CMATCHER.obj_len = 4; + + /*inistring dstr_320__SCMATDEF_CMATCHE*/ + /*_.VALSTR___V383*/ meltfptr[382] = (void*)&cdat->dstr_320__SCMATDEF_CMATCHE; + cdat->dstr_320__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_320__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_320__SCMATDEF_CMATCHE.val)-1); + /*iniobj dsym_321__CLASS_SOURCE_DEFUNMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V387*/ meltfptr[386]) /*_.VALDATA___V387*/ meltfptr[386] = (void*)&cdat->dsym_321__CLASS_SOURCE_DEFUNMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_321__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_321__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_321__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_321__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 952645922; + cdat->dsym_321__CLASS_SOURCE_DEFUNMATCHER.obj_len = 3; + + /*inistring dstr_322__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V388*/ meltfptr[387] = (void*)&cdat->dstr_322__CLASS_SOURCE_DEF; + cdat->dstr_322__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_322__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_322__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:307:/ iniobj"); + /*iniobj dobj_323__CLASS_SOURCE_DEFUNMATCHER*/ +/*_.VALDATA___V389*/ meltfptr[388] = (void*)&cdat->dobj_323__CLASS_SOURCE_DEFUNMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_323__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_323__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_323__CLASS_SOURCE_DEFUNMATCHER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_323__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 228227799; + cdat->dobj_323__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; + + /*inistring dstr_324__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V390*/ meltfptr[389] = (void*)&cdat->dstr_324__CLASS_SOURCE_DEF; + cdat->dstr_324__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_324__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_324__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_325__CLASS_SOURCE_DEFUNMATCHER*/ + /*_.VALTUP___V391*/ meltfptr[390] = (void*)&cdat->dtup_325__CLASS_SOURCE_DEFUNMATCHER; + cdat->dtup_325__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_325__CLASS_SOURCE_DEFUNMATCHER.nbval = 6; + /*inimult dtup_326__CLASS_SOURCE_DEFUNMATCHER*/ + /*_.VALTUP___V402*/ meltfptr[401] = (void*)&cdat->dtup_326__CLASS_SOURCE_DEFUNMATCHER; + cdat->dtup_326__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_326__CLASS_SOURCE_DEFUNMATCHER.nbval = 10; + /*iniobj dsym_327__SFUMATDEF_INS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V403*/ meltfptr[402]) /*_.VALDATA___V403*/ meltfptr[402] = (void*)&cdat->dsym_327__SFUMATDEF_INS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_327__SFUMATDEF_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_327__SFUMATDEF_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_327__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_327__SFUMATDEF_INS.obj_hash = 827702548; + cdat->dsym_327__SFUMATDEF_INS.obj_len = 3; + + /*inistring dstr_328__SFUMATDEF_INS*/ + /*_.VALSTR___V404*/ meltfptr[403] = (void*)&cdat->dstr_328__SFUMATDEF_INS; + cdat->dstr_328__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_328__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_328__SFUMATDEF_INS.val)-1); /*^iniobj*/ - /*iniobj dobj_323__SVARIADIC_CTYPEHANDLERMAP*/ -/*_.VALDATA___V384*/ meltfptr[383] = (void*)&cdat->dobj_323__SVARIADIC_CTYPEHANDLERMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_323__SVARIADIC_CTYPEHANDLERMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__SVARIADIC_CTYPEHANDLERMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_323__SVARIADIC_CTYPEHANDLERMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_323__SVARIADIC_CTYPEHANDLERMAP.obj_num = 6; - cdat->dobj_323__SVARIADIC_CTYPEHANDLERMAP.obj_hash = 669620073; - cdat->dobj_323__SVARIADIC_CTYPEHANDLERMAP.obj_len = 4; - - /*inistring dstr_324__SVARIADIC_CTYPEH*/ - /*_.VALSTR___V385*/ meltfptr[384] = (void*)&cdat->dstr_324__SVARIADIC_CTYPEH; - cdat->dstr_324__SVARIADIC_CTYPEH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_324__SVARIADIC_CTYPEH.val, "SVARIADIC_CTYPEHANDLERMAP", sizeof (cdat->dstr_324__SVARIADIC_CTYPEH.val)-1); - /*iniobj dsym_325__SVARIADIC_FINAL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V393*/ meltfptr[392]) /*_.VALDATA___V393*/ meltfptr[392] = (void*)&cdat->dsym_325__SVARIADIC_FINAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_325__SVARIADIC_FINAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_325__SVARIADIC_FINAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_325__SVARIADIC_FINAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_325__SVARIADIC_FINAL.obj_hash = 77912875; - cdat->dsym_325__SVARIADIC_FINAL.obj_len = 3; - - /*inistring dstr_326__SVARIADIC_FINAL*/ - /*_.VALSTR___V394*/ meltfptr[393] = (void*)&cdat->dstr_326__SVARIADIC_FINAL; - cdat->dstr_326__SVARIADIC_FINAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_326__SVARIADIC_FINAL.val, "SVARIADIC_FINAL", sizeof (cdat->dstr_326__SVARIADIC_FINAL.val)-1); + /*iniobj dobj_329__SFUMATDEF_INS*/ +/*_.VALDATA___V392*/ meltfptr[391] = (void*)&cdat->dobj_329__SFUMATDEF_INS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_329__SFUMATDEF_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_329__SFUMATDEF_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_329__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_329__SFUMATDEF_INS.obj_num = 5; + cdat->dobj_329__SFUMATDEF_INS.obj_hash = 627118229; + cdat->dobj_329__SFUMATDEF_INS.obj_len = 4; + + /*inistring dstr_330__SFUMATDEF_INS*/ + /*_.VALSTR___V393*/ meltfptr[392] = (void*)&cdat->dstr_330__SFUMATDEF_INS; + cdat->dstr_330__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_330__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_330__SFUMATDEF_INS.val)-1); + /*iniobj dsym_331__SFUMATDEF_OUTS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V405*/ meltfptr[404]) /*_.VALDATA___V405*/ meltfptr[404] = (void*)&cdat->dsym_331__SFUMATDEF_OUTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_331__SFUMATDEF_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_331__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_331__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_331__SFUMATDEF_OUTS.obj_hash = 314080299; + cdat->dsym_331__SFUMATDEF_OUTS.obj_len = 3; + + /*inistring dstr_332__SFUMATDEF_OUTS*/ + /*_.VALSTR___V406*/ meltfptr[405] = (void*)&cdat->dstr_332__SFUMATDEF_OUTS; + cdat->dstr_332__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_332__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_332__SFUMATDEF_OUTS.val)-1); /*^iniobj*/ - /*iniobj dobj_327__SVARIADIC_FINAL*/ -/*_.VALDATA___V386*/ meltfptr[385] = (void*)&cdat->dobj_327__SVARIADIC_FINAL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_327__SVARIADIC_FINAL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_327__SVARIADIC_FINAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_327__SVARIADIC_FINAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_327__SVARIADIC_FINAL.obj_num = 7; - cdat->dobj_327__SVARIADIC_FINAL.obj_hash = 353456933; - cdat->dobj_327__SVARIADIC_FINAL.obj_len = 4; - - /*inistring dstr_328__SVARIADIC_FINAL*/ - /*_.VALSTR___V387*/ meltfptr[386] = (void*)&cdat->dstr_328__SVARIADIC_FINAL; - cdat->dstr_328__SVARIADIC_FINAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_328__SVARIADIC_FINAL.val, "SVARIADIC_FINAL", sizeof (cdat->dstr_328__SVARIADIC_FINAL.val)-1); - /*iniobj dsym_329__CLASS_SOURCE_DEFCITERATOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V395*/ meltfptr[394]) /*_.VALDATA___V395*/ meltfptr[394] = (void*)&cdat->dsym_329__CLASS_SOURCE_DEFCITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_329__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_329__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_329__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_329__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; - cdat->dsym_329__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; - - /*inistring dstr_330__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V396*/ meltfptr[395] = (void*)&cdat->dstr_330__CLASS_SOURCE_DEF; - cdat->dstr_330__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_330__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_330__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:308:/ iniobj"); - /*iniobj dobj_331__CLASS_SOURCE_DEFCITERATOR*/ -/*_.VALDATA___V397*/ meltfptr[396] = (void*)&cdat->dobj_331__CLASS_SOURCE_DEFCITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_331__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_331__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_331__CLASS_SOURCE_DEFCITERATOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_331__CLASS_SOURCE_DEFCITERATOR.obj_hash = 657200576; - cdat->dobj_331__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; - - /*inistring dstr_332__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V398*/ meltfptr[397] = (void*)&cdat->dstr_332__CLASS_SOURCE_DEF; - cdat->dstr_332__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_332__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_332__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_333__CLASS_SOURCE_DEFCITERATOR*/ - /*_.VALTUP___V399*/ meltfptr[398] = (void*)&cdat->dtup_333__CLASS_SOURCE_DEFCITERATOR; - cdat->dtup_333__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_333__CLASS_SOURCE_DEFCITERATOR.nbval = 6; - /*inimult dtup_334__CLASS_SOURCE_DEFCITERATOR*/ - /*_.VALTUP___V402*/ meltfptr[401] = (void*)&cdat->dtup_334__CLASS_SOURCE_DEFCITERATOR; - cdat->dtup_334__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_334__CLASS_SOURCE_DEFCITERATOR.nbval = 6; - /*iniobj dsym_335__SCITERDEF_CITERATOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V403*/ meltfptr[402]) /*_.VALDATA___V403*/ meltfptr[402] = (void*)&cdat->dsym_335__SCITERDEF_CITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_335__SCITERDEF_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_335__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_335__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_335__SCITERDEF_CITERATOR.obj_hash = 321745206; - cdat->dsym_335__SCITERDEF_CITERATOR.obj_len = 3; - - /*inistring dstr_336__SCITERDEF_CITERA*/ - /*_.VALSTR___V404*/ meltfptr[403] = (void*)&cdat->dstr_336__SCITERDEF_CITERA; - cdat->dstr_336__SCITERDEF_CITERA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_336__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_336__SCITERDEF_CITERA.val)-1); + /*iniobj dobj_333__SFUMATDEF_OUTS*/ +/*_.VALDATA___V394*/ meltfptr[393] = (void*)&cdat->dobj_333__SFUMATDEF_OUTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_333__SFUMATDEF_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_333__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_333__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_333__SFUMATDEF_OUTS.obj_num = 6; + cdat->dobj_333__SFUMATDEF_OUTS.obj_hash = 996644877; + cdat->dobj_333__SFUMATDEF_OUTS.obj_len = 4; + + /*inistring dstr_334__SFUMATDEF_OUTS*/ + /*_.VALSTR___V395*/ meltfptr[394] = (void*)&cdat->dstr_334__SFUMATDEF_OUTS; + cdat->dstr_334__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_334__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_334__SFUMATDEF_OUTS.val)-1); + /*iniobj dsym_335__SFUMATDEF_MATCHF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V407*/ meltfptr[406]) /*_.VALDATA___V407*/ meltfptr[406] = (void*)&cdat->dsym_335__SFUMATDEF_MATCHF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_335__SFUMATDEF_MATCHF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_335__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_335__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_335__SFUMATDEF_MATCHF.obj_hash = 105121313; + cdat->dsym_335__SFUMATDEF_MATCHF.obj_len = 3; + + /*inistring dstr_336__SFUMATDEF_MATCHF*/ + /*_.VALSTR___V408*/ meltfptr[407] = (void*)&cdat->dstr_336__SFUMATDEF_MATCHF; + cdat->dstr_336__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_336__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_336__SFUMATDEF_MATCHF.val)-1); /*^iniobj*/ - /*iniobj dobj_337__SCITERDEF_CITERATOR*/ -/*_.VALDATA___V400*/ meltfptr[399] = (void*)&cdat->dobj_337__SCITERDEF_CITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_337__SCITERDEF_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_337__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_337__SCITERDEF_CITERATOR.obj_num = 5; - cdat->dobj_337__SCITERDEF_CITERATOR.obj_hash = 74441124; - cdat->dobj_337__SCITERDEF_CITERATOR.obj_len = 4; - - /*inistring dstr_338__SCITERDEF_CITERA*/ - /*_.VALSTR___V401*/ meltfptr[400] = (void*)&cdat->dstr_338__SCITERDEF_CITERA; - cdat->dstr_338__SCITERDEF_CITERA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_338__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_338__SCITERDEF_CITERA.val)-1); - /*iniobj dsym_339__CLASS_SOURCE_DEFCMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V405*/ meltfptr[404]) /*_.VALDATA___V405*/ meltfptr[404] = (void*)&cdat->dsym_339__CLASS_SOURCE_DEFCMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_339__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_339__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_339__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_339__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; - cdat->dsym_339__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; - - /*inistring dstr_340__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V406*/ meltfptr[405] = (void*)&cdat->dstr_340__CLASS_SOURCE_DEF; - cdat->dstr_340__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_340__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_340__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:316:/ iniobj"); - /*iniobj dobj_341__CLASS_SOURCE_DEFCMATCHER*/ -/*_.VALDATA___V407*/ meltfptr[406] = (void*)&cdat->dobj_341__CLASS_SOURCE_DEFCMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_341__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_341__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_341__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_341__CLASS_SOURCE_DEFCMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_341__CLASS_SOURCE_DEFCMATCHER.obj_hash = 503767042; - cdat->dobj_341__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; - - /*inistring dstr_342__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V408*/ meltfptr[407] = (void*)&cdat->dstr_342__CLASS_SOURCE_DEF; - cdat->dstr_342__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_342__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_342__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_343__CLASS_SOURCE_DEFCMATCHER*/ - /*_.VALTUP___V409*/ meltfptr[408] = (void*)&cdat->dtup_343__CLASS_SOURCE_DEFCMATCHER; - cdat->dtup_343__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_343__CLASS_SOURCE_DEFCMATCHER.nbval = 6; - /*inimult dtup_344__CLASS_SOURCE_DEFCMATCHER*/ - /*_.VALTUP___V412*/ meltfptr[411] = (void*)&cdat->dtup_344__CLASS_SOURCE_DEFCMATCHER; - cdat->dtup_344__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_344__CLASS_SOURCE_DEFCMATCHER.nbval = 6; - /*iniobj dsym_345__SCMATDEF_CMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V413*/ meltfptr[412]) /*_.VALDATA___V413*/ meltfptr[412] = (void*)&cdat->dsym_345__SCMATDEF_CMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_345__SCMATDEF_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_345__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_345__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_345__SCMATDEF_CMATCHER.obj_hash = 75922864; - cdat->dsym_345__SCMATDEF_CMATCHER.obj_len = 3; - - /*inistring dstr_346__SCMATDEF_CMATCHE*/ - /*_.VALSTR___V414*/ meltfptr[413] = (void*)&cdat->dstr_346__SCMATDEF_CMATCHE; - cdat->dstr_346__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_346__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_346__SCMATDEF_CMATCHE.val)-1); + /*iniobj dobj_337__SFUMATDEF_MATCHF*/ +/*_.VALDATA___V396*/ meltfptr[395] = (void*)&cdat->dobj_337__SFUMATDEF_MATCHF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_337__SFUMATDEF_MATCHF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_337__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_337__SFUMATDEF_MATCHF.obj_num = 7; + cdat->dobj_337__SFUMATDEF_MATCHF.obj_hash = 293375188; + cdat->dobj_337__SFUMATDEF_MATCHF.obj_len = 4; + + /*inistring dstr_338__SFUMATDEF_MATCHF*/ + /*_.VALSTR___V397*/ meltfptr[396] = (void*)&cdat->dstr_338__SFUMATDEF_MATCHF; + cdat->dstr_338__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_338__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_338__SFUMATDEF_MATCHF.val)-1); + /*iniobj dsym_339__SFUMATDEF_APPLYF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V409*/ meltfptr[408]) /*_.VALDATA___V409*/ meltfptr[408] = (void*)&cdat->dsym_339__SFUMATDEF_APPLYF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_339__SFUMATDEF_APPLYF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_339__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_339__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_339__SFUMATDEF_APPLYF.obj_hash = 921369127; + cdat->dsym_339__SFUMATDEF_APPLYF.obj_len = 3; + + /*inistring dstr_340__SFUMATDEF_APPLYF*/ + /*_.VALSTR___V410*/ meltfptr[409] = (void*)&cdat->dstr_340__SFUMATDEF_APPLYF; + cdat->dstr_340__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_340__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_340__SFUMATDEF_APPLYF.val)-1); /*^iniobj*/ - /*iniobj dobj_347__SCMATDEF_CMATCHER*/ -/*_.VALDATA___V410*/ meltfptr[409] = (void*)&cdat->dobj_347__SCMATDEF_CMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_347__SCMATDEF_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_347__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_347__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_347__SCMATDEF_CMATCHER.obj_num = 5; - cdat->dobj_347__SCMATDEF_CMATCHER.obj_hash = 394878789; - cdat->dobj_347__SCMATDEF_CMATCHER.obj_len = 4; - - /*inistring dstr_348__SCMATDEF_CMATCHE*/ - /*_.VALSTR___V411*/ meltfptr[410] = (void*)&cdat->dstr_348__SCMATDEF_CMATCHE; - cdat->dstr_348__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_348__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_348__SCMATDEF_CMATCHE.val)-1); - /*iniobj dsym_349__CLASS_SOURCE_DEFUNMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V415*/ meltfptr[414]) /*_.VALDATA___V415*/ meltfptr[414] = (void*)&cdat->dsym_349__CLASS_SOURCE_DEFUNMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_349__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_349__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_349__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_349__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 952645922; - cdat->dsym_349__CLASS_SOURCE_DEFUNMATCHER.obj_len = 3; + /*iniobj dobj_341__SFUMATDEF_APPLYF*/ +/*_.VALDATA___V398*/ meltfptr[397] = (void*)&cdat->dobj_341__SFUMATDEF_APPLYF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_341__SFUMATDEF_APPLYF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_341__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_341__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_341__SFUMATDEF_APPLYF.obj_num = 8; + cdat->dobj_341__SFUMATDEF_APPLYF.obj_hash = 477864864; + cdat->dobj_341__SFUMATDEF_APPLYF.obj_len = 4; + + /*inistring dstr_342__SFUMATDEF_APPLYF*/ + /*_.VALSTR___V399*/ meltfptr[398] = (void*)&cdat->dstr_342__SFUMATDEF_APPLYF; + cdat->dstr_342__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_342__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_342__SFUMATDEF_APPLYF.val)-1); + /*iniobj dsym_343__SFUMATDEF_DATA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V411*/ meltfptr[410]) /*_.VALDATA___V411*/ meltfptr[410] = (void*)&cdat->dsym_343__SFUMATDEF_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_343__SFUMATDEF_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_343__SFUMATDEF_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_343__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_343__SFUMATDEF_DATA.obj_hash = 137569219; + cdat->dsym_343__SFUMATDEF_DATA.obj_len = 3; + + /*inistring dstr_344__SFUMATDEF_DATA*/ + /*_.VALSTR___V412*/ meltfptr[411] = (void*)&cdat->dstr_344__SFUMATDEF_DATA; + cdat->dstr_344__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_344__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_344__SFUMATDEF_DATA.val)-1); + /*^iniobj*/ + /*iniobj dobj_345__SFUMATDEF_DATA*/ +/*_.VALDATA___V400*/ meltfptr[399] = (void*)&cdat->dobj_345__SFUMATDEF_DATA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_345__SFUMATDEF_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345__SFUMATDEF_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_345__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_345__SFUMATDEF_DATA.obj_num = 9; + cdat->dobj_345__SFUMATDEF_DATA.obj_hash = 25631243; + cdat->dobj_345__SFUMATDEF_DATA.obj_len = 4; + + /*inistring dstr_346__SFUMATDEF_DATA*/ + /*_.VALSTR___V401*/ meltfptr[400] = (void*)&cdat->dstr_346__SFUMATDEF_DATA; + cdat->dstr_346__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_346__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_346__SFUMATDEF_DATA.val)-1); + /*iniobj dsym_347__CLASS_SOURCE_DEFOBJCOMMON*/ +/*uniqueobj*/ if (!/*_.VALDATA___V413*/ meltfptr[412]) /*_.VALDATA___V413*/ meltfptr[412] = (void*)&cdat->dsym_347__CLASS_SOURCE_DEFOBJCOMMON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_347__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_347__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_347__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_347__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 59608014; + cdat->dsym_347__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 3; + + /*inistring dstr_348__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V414*/ meltfptr[413] = (void*)&cdat->dstr_348__CLASS_SOURCE_DEF; + cdat->dstr_348__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_348__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_348__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:327:/ iniobj"); + /*iniobj dobj_349__CLASS_SOURCE_DEFOBJCOMMON*/ +/*_.VALDATA___V415*/ meltfptr[414] = (void*)&cdat->dobj_349__CLASS_SOURCE_DEFOBJCOMMON; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_349__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_349__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_349__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_349__CLASS_SOURCE_DEFOBJCOMMON.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_349__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 255761817; + cdat->dobj_349__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; /*inistring dstr_350__CLASS_SOURCE_DEF*/ /*_.VALSTR___V416*/ meltfptr[415] = (void*)&cdat->dstr_350__CLASS_SOURCE_DEF; cdat->dstr_350__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_350__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_350__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:328:/ iniobj"); - /*iniobj dobj_351__CLASS_SOURCE_DEFUNMATCHER*/ -/*_.VALDATA___V417*/ meltfptr[416] = (void*)&cdat->dobj_351__CLASS_SOURCE_DEFUNMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_351__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_351__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_351__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_351__CLASS_SOURCE_DEFUNMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_351__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 850902608; - cdat->dobj_351__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; - - /*inistring dstr_352__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V418*/ meltfptr[417] = (void*)&cdat->dstr_352__CLASS_SOURCE_DEF; - cdat->dstr_352__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_352__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_352__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_353__CLASS_SOURCE_DEFUNMATCHER*/ - /*_.VALTUP___V419*/ meltfptr[418] = (void*)&cdat->dtup_353__CLASS_SOURCE_DEFUNMATCHER; - cdat->dtup_353__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_353__CLASS_SOURCE_DEFUNMATCHER.nbval = 6; - /*inimult dtup_354__CLASS_SOURCE_DEFUNMATCHER*/ - /*_.VALTUP___V430*/ meltfptr[429] = (void*)&cdat->dtup_354__CLASS_SOURCE_DEFUNMATCHER; - cdat->dtup_354__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_354__CLASS_SOURCE_DEFUNMATCHER.nbval = 10; - /*iniobj dsym_355__SFUMATDEF_INS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V431*/ meltfptr[430]) /*_.VALDATA___V431*/ meltfptr[430] = (void*)&cdat->dsym_355__SFUMATDEF_INS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_355__SFUMATDEF_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_355__SFUMATDEF_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_355__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_355__SFUMATDEF_INS.obj_hash = 827702548; - cdat->dsym_355__SFUMATDEF_INS.obj_len = 3; - - /*inistring dstr_356__SFUMATDEF_INS*/ - /*_.VALSTR___V432*/ meltfptr[431] = (void*)&cdat->dstr_356__SFUMATDEF_INS; - cdat->dstr_356__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_356__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_356__SFUMATDEF_INS.val)-1); - /*^iniobj*/ - /*iniobj dobj_357__SFUMATDEF_INS*/ -/*_.VALDATA___V420*/ meltfptr[419] = (void*)&cdat->dobj_357__SFUMATDEF_INS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_357__SFUMATDEF_INS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_357__SFUMATDEF_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_357__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_357__SFUMATDEF_INS.obj_num = 5; - cdat->dobj_357__SFUMATDEF_INS.obj_hash = 772579362; - cdat->dobj_357__SFUMATDEF_INS.obj_len = 4; - - /*inistring dstr_358__SFUMATDEF_INS*/ - /*_.VALSTR___V421*/ meltfptr[420] = (void*)&cdat->dstr_358__SFUMATDEF_INS; - cdat->dstr_358__SFUMATDEF_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_358__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_358__SFUMATDEF_INS.val)-1); - /*iniobj dsym_359__SFUMATDEF_OUTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V433*/ meltfptr[432]) /*_.VALDATA___V433*/ meltfptr[432] = (void*)&cdat->dsym_359__SFUMATDEF_OUTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_359__SFUMATDEF_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_359__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_359__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_359__SFUMATDEF_OUTS.obj_hash = 314080299; - cdat->dsym_359__SFUMATDEF_OUTS.obj_len = 3; - - /*inistring dstr_360__SFUMATDEF_OUTS*/ - /*_.VALSTR___V434*/ meltfptr[433] = (void*)&cdat->dstr_360__SFUMATDEF_OUTS; - cdat->dstr_360__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_360__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_360__SFUMATDEF_OUTS.val)-1); + /*small inistring*/ strncpy(cdat->dstr_350__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_350__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_351__CLASS_SOURCE_DEFOBJCOMMON*/ + /*_.VALTUP___V417*/ meltfptr[416] = (void*)&cdat->dtup_351__CLASS_SOURCE_DEFOBJCOMMON; + cdat->dtup_351__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_351__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; + /*inimult dtup_352__CLASS_SOURCE_DEFOBJCOMMON*/ + /*_.VALTUP___V420*/ meltfptr[419] = (void*)&cdat->dtup_352__CLASS_SOURCE_DEFOBJCOMMON; + cdat->dtup_352__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_352__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; + /*iniobj dsym_353__SOBJ_PREDEF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V421*/ meltfptr[420]) /*_.VALDATA___V421*/ meltfptr[420] = (void*)&cdat->dsym_353__SOBJ_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_353__SOBJ_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_353__SOBJ_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_353__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_353__SOBJ_PREDEF.obj_hash = 86176455; + cdat->dsym_353__SOBJ_PREDEF.obj_len = 3; + + /*inistring dstr_354__SOBJ_PREDEF*/ + /*_.VALSTR___V422*/ meltfptr[421] = (void*)&cdat->dstr_354__SOBJ_PREDEF; + cdat->dstr_354__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_354__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_354__SOBJ_PREDEF.val)-1); /*^iniobj*/ - /*iniobj dobj_361__SFUMATDEF_OUTS*/ -/*_.VALDATA___V422*/ meltfptr[421] = (void*)&cdat->dobj_361__SFUMATDEF_OUTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_361__SFUMATDEF_OUTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_361__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_361__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_361__SFUMATDEF_OUTS.obj_num = 6; - cdat->dobj_361__SFUMATDEF_OUTS.obj_hash = 357813633; - cdat->dobj_361__SFUMATDEF_OUTS.obj_len = 4; - - /*inistring dstr_362__SFUMATDEF_OUTS*/ - /*_.VALSTR___V423*/ meltfptr[422] = (void*)&cdat->dstr_362__SFUMATDEF_OUTS; - cdat->dstr_362__SFUMATDEF_OUTS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_362__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_362__SFUMATDEF_OUTS.val)-1); - /*iniobj dsym_363__SFUMATDEF_MATCHF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V435*/ meltfptr[434]) /*_.VALDATA___V435*/ meltfptr[434] = (void*)&cdat->dsym_363__SFUMATDEF_MATCHF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_363__SFUMATDEF_MATCHF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_363__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_363__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_363__SFUMATDEF_MATCHF.obj_hash = 105121313; - cdat->dsym_363__SFUMATDEF_MATCHF.obj_len = 3; - - /*inistring dstr_364__SFUMATDEF_MATCHF*/ - /*_.VALSTR___V436*/ meltfptr[435] = (void*)&cdat->dstr_364__SFUMATDEF_MATCHF; - cdat->dstr_364__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_364__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_364__SFUMATDEF_MATCHF.val)-1); + /*iniobj dobj_355__SOBJ_PREDEF*/ +/*_.VALDATA___V418*/ meltfptr[417] = (void*)&cdat->dobj_355__SOBJ_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_355__SOBJ_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355__SOBJ_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_355__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_355__SOBJ_PREDEF.obj_num = 4; + cdat->dobj_355__SOBJ_PREDEF.obj_hash = 593976761; + cdat->dobj_355__SOBJ_PREDEF.obj_len = 4; + + /*inistring dstr_356__SOBJ_PREDEF*/ + /*_.VALSTR___V419*/ meltfptr[418] = (void*)&cdat->dstr_356__SOBJ_PREDEF; + cdat->dstr_356__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_356__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_356__SOBJ_PREDEF.val)-1); + /*iniobj dsym_357__CLASS_SOURCE_DEFCLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V423*/ meltfptr[422]) /*_.VALDATA___V423*/ meltfptr[422] = (void*)&cdat->dsym_357__CLASS_SOURCE_DEFCLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_357__CLASS_SOURCE_DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_357__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_357__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_357__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; + cdat->dsym_357__CLASS_SOURCE_DEFCLASS.obj_len = 3; + + /*inistring dstr_358__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V424*/ meltfptr[423] = (void*)&cdat->dstr_358__CLASS_SOURCE_DEF; + cdat->dstr_358__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_358__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_358__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:337:/ iniobj"); + /*iniobj dobj_359__CLASS_SOURCE_DEFCLASS*/ +/*_.VALDATA___V425*/ meltfptr[424] = (void*)&cdat->dobj_359__CLASS_SOURCE_DEFCLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_359__CLASS_SOURCE_DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_359__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_359__CLASS_SOURCE_DEFCLASS.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_359__CLASS_SOURCE_DEFCLASS.obj_hash = 701809423; + cdat->dobj_359__CLASS_SOURCE_DEFCLASS.obj_len = 8; + + /*inistring dstr_360__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V426*/ meltfptr[425] = (void*)&cdat->dstr_360__CLASS_SOURCE_DEF; + cdat->dstr_360__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_360__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_360__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_361__CLASS_SOURCE_DEFCLASS*/ + /*_.VALTUP___V427*/ meltfptr[426] = (void*)&cdat->dtup_361__CLASS_SOURCE_DEFCLASS; + cdat->dtup_361__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_361__CLASS_SOURCE_DEFCLASS.nbval = 6; + /*inimult dtup_362__CLASS_SOURCE_DEFCLASS*/ + /*_.VALTUP___V434*/ meltfptr[433] = (void*)&cdat->dtup_362__CLASS_SOURCE_DEFCLASS; + cdat->dtup_362__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_362__CLASS_SOURCE_DEFCLASS.nbval = 8; + /*iniobj dsym_363__SCLASS_CLABIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V435*/ meltfptr[434]) /*_.VALDATA___V435*/ meltfptr[434] = (void*)&cdat->dsym_363__SCLASS_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_363__SCLASS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_363__SCLASS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_363__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_363__SCLASS_CLABIND.obj_hash = 547477738; + cdat->dsym_363__SCLASS_CLABIND.obj_len = 3; + + /*inistring dstr_364__SCLASS_CLABIND*/ + /*_.VALSTR___V436*/ meltfptr[435] = (void*)&cdat->dstr_364__SCLASS_CLABIND; + cdat->dstr_364__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_364__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_364__SCLASS_CLABIND.val)-1); /*^iniobj*/ - /*iniobj dobj_365__SFUMATDEF_MATCHF*/ -/*_.VALDATA___V424*/ meltfptr[423] = (void*)&cdat->dobj_365__SFUMATDEF_MATCHF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_365__SFUMATDEF_MATCHF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_365__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_365__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_365__SFUMATDEF_MATCHF.obj_num = 7; - cdat->dobj_365__SFUMATDEF_MATCHF.obj_hash = 473348124; - cdat->dobj_365__SFUMATDEF_MATCHF.obj_len = 4; - - /*inistring dstr_366__SFUMATDEF_MATCHF*/ - /*_.VALSTR___V425*/ meltfptr[424] = (void*)&cdat->dstr_366__SFUMATDEF_MATCHF; - cdat->dstr_366__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_366__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_366__SFUMATDEF_MATCHF.val)-1); - /*iniobj dsym_367__SFUMATDEF_APPLYF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V437*/ meltfptr[436]) /*_.VALDATA___V437*/ meltfptr[436] = (void*)&cdat->dsym_367__SFUMATDEF_APPLYF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_367__SFUMATDEF_APPLYF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_367__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_367__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_367__SFUMATDEF_APPLYF.obj_hash = 921369127; - cdat->dsym_367__SFUMATDEF_APPLYF.obj_len = 3; - - /*inistring dstr_368__SFUMATDEF_APPLYF*/ - /*_.VALSTR___V438*/ meltfptr[437] = (void*)&cdat->dstr_368__SFUMATDEF_APPLYF; - cdat->dstr_368__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_368__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_368__SFUMATDEF_APPLYF.val)-1); + /*iniobj dobj_365__SCLASS_CLABIND*/ +/*_.VALDATA___V428*/ meltfptr[427] = (void*)&cdat->dobj_365__SCLASS_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_365__SCLASS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_365__SCLASS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_365__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_365__SCLASS_CLABIND.obj_num = 5; + cdat->dobj_365__SCLASS_CLABIND.obj_hash = 689138906; + cdat->dobj_365__SCLASS_CLABIND.obj_len = 4; + + /*inistring dstr_366__SCLASS_CLABIND*/ + /*_.VALSTR___V429*/ meltfptr[428] = (void*)&cdat->dstr_366__SCLASS_CLABIND; + cdat->dstr_366__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_366__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_366__SCLASS_CLABIND.val)-1); + /*iniobj dsym_367__SCLASS_SUPERBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V437*/ meltfptr[436]) /*_.VALDATA___V437*/ meltfptr[436] = (void*)&cdat->dsym_367__SCLASS_SUPERBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_367__SCLASS_SUPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_367__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_367__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_367__SCLASS_SUPERBIND.obj_hash = 920892924; + cdat->dsym_367__SCLASS_SUPERBIND.obj_len = 3; + + /*inistring dstr_368__SCLASS_SUPERBIND*/ + /*_.VALSTR___V438*/ meltfptr[437] = (void*)&cdat->dstr_368__SCLASS_SUPERBIND; + cdat->dstr_368__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_368__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_368__SCLASS_SUPERBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_369__SFUMATDEF_APPLYF*/ -/*_.VALDATA___V426*/ meltfptr[425] = (void*)&cdat->dobj_369__SFUMATDEF_APPLYF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_369__SFUMATDEF_APPLYF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_369__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_369__SFUMATDEF_APPLYF.obj_num = 8; - cdat->dobj_369__SFUMATDEF_APPLYF.obj_hash = 657923457; - cdat->dobj_369__SFUMATDEF_APPLYF.obj_len = 4; - - /*inistring dstr_370__SFUMATDEF_APPLYF*/ - /*_.VALSTR___V427*/ meltfptr[426] = (void*)&cdat->dstr_370__SFUMATDEF_APPLYF; - cdat->dstr_370__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_370__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_370__SFUMATDEF_APPLYF.val)-1); - /*iniobj dsym_371__SFUMATDEF_DATA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V439*/ meltfptr[438]) /*_.VALDATA___V439*/ meltfptr[438] = (void*)&cdat->dsym_371__SFUMATDEF_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_371__SFUMATDEF_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_371__SFUMATDEF_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_371__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_371__SFUMATDEF_DATA.obj_hash = 137569219; - cdat->dsym_371__SFUMATDEF_DATA.obj_len = 3; - - /*inistring dstr_372__SFUMATDEF_DATA*/ - /*_.VALSTR___V440*/ meltfptr[439] = (void*)&cdat->dstr_372__SFUMATDEF_DATA; - cdat->dstr_372__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_372__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_372__SFUMATDEF_DATA.val)-1); + /*iniobj dobj_369__SCLASS_SUPERBIND*/ +/*_.VALDATA___V430*/ meltfptr[429] = (void*)&cdat->dobj_369__SCLASS_SUPERBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_369__SCLASS_SUPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_369__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_369__SCLASS_SUPERBIND.obj_num = 6; + cdat->dobj_369__SCLASS_SUPERBIND.obj_hash = 245146976; + cdat->dobj_369__SCLASS_SUPERBIND.obj_len = 4; + + /*inistring dstr_370__SCLASS_SUPERBIND*/ + /*_.VALSTR___V431*/ meltfptr[430] = (void*)&cdat->dstr_370__SCLASS_SUPERBIND; + cdat->dstr_370__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_370__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_370__SCLASS_SUPERBIND.val)-1); + /*iniobj dsym_371__SCLASS_FLDBINDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V439*/ meltfptr[438]) /*_.VALDATA___V439*/ meltfptr[438] = (void*)&cdat->dsym_371__SCLASS_FLDBINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_371__SCLASS_FLDBINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_371__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_371__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_371__SCLASS_FLDBINDS.obj_hash = 972028873; + cdat->dsym_371__SCLASS_FLDBINDS.obj_len = 3; + + /*inistring dstr_372__SCLASS_FLDBINDS*/ + /*_.VALSTR___V440*/ meltfptr[439] = (void*)&cdat->dstr_372__SCLASS_FLDBINDS; + cdat->dstr_372__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_372__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_372__SCLASS_FLDBINDS.val)-1); /*^iniobj*/ - /*iniobj dobj_373__SFUMATDEF_DATA*/ -/*_.VALDATA___V428*/ meltfptr[427] = (void*)&cdat->dobj_373__SFUMATDEF_DATA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_373__SFUMATDEF_DATA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__SFUMATDEF_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_373__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_373__SFUMATDEF_DATA.obj_num = 9; - cdat->dobj_373__SFUMATDEF_DATA.obj_hash = 95629620; - cdat->dobj_373__SFUMATDEF_DATA.obj_len = 4; - - /*inistring dstr_374__SFUMATDEF_DATA*/ - /*_.VALSTR___V429*/ meltfptr[428] = (void*)&cdat->dstr_374__SFUMATDEF_DATA; - cdat->dstr_374__SFUMATDEF_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_374__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_374__SFUMATDEF_DATA.val)-1); - /*iniobj dsym_375__CLASS_SOURCE_DEFOBJCOMMON*/ -/*uniqueobj*/ if (!/*_.VALDATA___V441*/ meltfptr[440]) /*_.VALDATA___V441*/ meltfptr[440] = (void*)&cdat->dsym_375__CLASS_SOURCE_DEFOBJCOMMON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_375__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_375__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_375__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_375__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 59608014; - cdat->dsym_375__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 3; + /*iniobj dobj_373__SCLASS_FLDBINDS*/ +/*_.VALDATA___V432*/ meltfptr[431] = (void*)&cdat->dobj_373__SCLASS_FLDBINDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_373__SCLASS_FLDBINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_373__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_373__SCLASS_FLDBINDS.obj_num = 7; + cdat->dobj_373__SCLASS_FLDBINDS.obj_hash = 269270584; + cdat->dobj_373__SCLASS_FLDBINDS.obj_len = 4; + + /*inistring dstr_374__SCLASS_FLDBINDS*/ + /*_.VALSTR___V433*/ meltfptr[432] = (void*)&cdat->dstr_374__SCLASS_FLDBINDS; + cdat->dstr_374__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_374__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_374__SCLASS_FLDBINDS.val)-1); + /*iniobj dsym_375__CLASS_SOURCE_DEFINSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V441*/ meltfptr[440]) /*_.VALDATA___V441*/ meltfptr[440] = (void*)&cdat->dsym_375__CLASS_SOURCE_DEFINSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_375__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_375__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_375__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_375__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; + cdat->dsym_375__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; /*inistring dstr_376__CLASS_SOURCE_DEF*/ /*_.VALSTR___V442*/ meltfptr[441] = (void*)&cdat->dstr_376__CLASS_SOURCE_DEF; cdat->dstr_376__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_376__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_376__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:348:/ iniobj"); - /*iniobj dobj_377__CLASS_SOURCE_DEFOBJCOMMON*/ -/*_.VALDATA___V443*/ meltfptr[442] = (void*)&cdat->dobj_377__CLASS_SOURCE_DEFOBJCOMMON; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_377__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_377__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_377__CLASS_SOURCE_DEFOBJCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_377__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 944045960; - cdat->dobj_377__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_376__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_376__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:350:/ iniobj"); + /*iniobj dobj_377__CLASS_SOURCE_DEFINSTANCE*/ +/*_.VALDATA___V443*/ meltfptr[442] = (void*)&cdat->dobj_377__CLASS_SOURCE_DEFINSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_377__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_377__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_377__CLASS_SOURCE_DEFINSTANCE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_377__CLASS_SOURCE_DEFINSTANCE.obj_hash = 414650941; + cdat->dobj_377__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; /*inistring dstr_378__CLASS_SOURCE_DEF*/ /*_.VALSTR___V444*/ meltfptr[443] = (void*)&cdat->dstr_378__CLASS_SOURCE_DEF; cdat->dstr_378__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_378__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_378__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_379__CLASS_SOURCE_DEFOBJCOMMON*/ - /*_.VALTUP___V445*/ meltfptr[444] = (void*)&cdat->dtup_379__CLASS_SOURCE_DEFOBJCOMMON; - cdat->dtup_379__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_379__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; - /*inimult dtup_380__CLASS_SOURCE_DEFOBJCOMMON*/ - /*_.VALTUP___V448*/ meltfptr[447] = (void*)&cdat->dtup_380__CLASS_SOURCE_DEFOBJCOMMON; - cdat->dtup_380__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_380__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; - /*iniobj dsym_381__SOBJ_PREDEF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V449*/ meltfptr[448]) /*_.VALDATA___V449*/ meltfptr[448] = (void*)&cdat->dsym_381__SOBJ_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_381__SOBJ_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_381__SOBJ_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_381__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_381__SOBJ_PREDEF.obj_hash = 86176455; - cdat->dsym_381__SOBJ_PREDEF.obj_len = 3; - - /*inistring dstr_382__SOBJ_PREDEF*/ - /*_.VALSTR___V450*/ meltfptr[449] = (void*)&cdat->dstr_382__SOBJ_PREDEF; - cdat->dstr_382__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_382__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_382__SOBJ_PREDEF.val)-1); + /*small inistring*/ strncpy(cdat->dstr_378__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_378__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_379__CLASS_SOURCE_DEFINSTANCE*/ + /*_.VALTUP___V445*/ meltfptr[444] = (void*)&cdat->dtup_379__CLASS_SOURCE_DEFINSTANCE; + cdat->dtup_379__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_379__CLASS_SOURCE_DEFINSTANCE.nbval = 6; + /*inimult dtup_380__CLASS_SOURCE_DEFINSTANCE*/ + /*_.VALTUP___V454*/ meltfptr[453] = (void*)&cdat->dtup_380__CLASS_SOURCE_DEFINSTANCE; + cdat->dtup_380__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_380__CLASS_SOURCE_DEFINSTANCE.nbval = 9; + /*iniobj dsym_381__SINST_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V455*/ meltfptr[454]) /*_.VALDATA___V455*/ meltfptr[454] = (void*)&cdat->dsym_381__SINST_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_381__SINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_381__SINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_381__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_381__SINST_CLASS.obj_hash = 251075917; + cdat->dsym_381__SINST_CLASS.obj_len = 3; + + /*inistring dstr_382__SINST_CLASS*/ + /*_.VALSTR___V456*/ meltfptr[455] = (void*)&cdat->dstr_382__SINST_CLASS; + cdat->dstr_382__SINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_382__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_382__SINST_CLASS.val)-1); /*^iniobj*/ - /*iniobj dobj_383__SOBJ_PREDEF*/ -/*_.VALDATA___V446*/ meltfptr[445] = (void*)&cdat->dobj_383__SOBJ_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_383__SOBJ_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_383__SOBJ_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_383__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_383__SOBJ_PREDEF.obj_num = 4; - cdat->dobj_383__SOBJ_PREDEF.obj_hash = 807290570; - cdat->dobj_383__SOBJ_PREDEF.obj_len = 4; - - /*inistring dstr_384__SOBJ_PREDEF*/ - /*_.VALSTR___V447*/ meltfptr[446] = (void*)&cdat->dstr_384__SOBJ_PREDEF; - cdat->dstr_384__SOBJ_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_384__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_384__SOBJ_PREDEF.val)-1); - /*iniobj dsym_385__CLASS_SOURCE_DEFCLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V451*/ meltfptr[450]) /*_.VALDATA___V451*/ meltfptr[450] = (void*)&cdat->dsym_385__CLASS_SOURCE_DEFCLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_385__CLASS_SOURCE_DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_385__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_385__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_385__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; - cdat->dsym_385__CLASS_SOURCE_DEFCLASS.obj_len = 3; - - /*inistring dstr_386__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V452*/ meltfptr[451] = (void*)&cdat->dstr_386__CLASS_SOURCE_DEF; - cdat->dstr_386__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_386__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_386__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:358:/ iniobj"); - /*iniobj dobj_387__CLASS_SOURCE_DEFCLASS*/ -/*_.VALDATA___V453*/ meltfptr[452] = (void*)&cdat->dobj_387__CLASS_SOURCE_DEFCLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_387__CLASS_SOURCE_DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_387__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_387__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_387__CLASS_SOURCE_DEFCLASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_387__CLASS_SOURCE_DEFCLASS.obj_hash = 421158422; - cdat->dobj_387__CLASS_SOURCE_DEFCLASS.obj_len = 8; - - /*inistring dstr_388__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V454*/ meltfptr[453] = (void*)&cdat->dstr_388__CLASS_SOURCE_DEF; - cdat->dstr_388__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_388__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_388__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_389__CLASS_SOURCE_DEFCLASS*/ - /*_.VALTUP___V455*/ meltfptr[454] = (void*)&cdat->dtup_389__CLASS_SOURCE_DEFCLASS; - cdat->dtup_389__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_389__CLASS_SOURCE_DEFCLASS.nbval = 6; - /*inimult dtup_390__CLASS_SOURCE_DEFCLASS*/ - /*_.VALTUP___V462*/ meltfptr[461] = (void*)&cdat->dtup_390__CLASS_SOURCE_DEFCLASS; - cdat->dtup_390__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_390__CLASS_SOURCE_DEFCLASS.nbval = 8; - /*iniobj dsym_391__SCLASS_CLABIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V463*/ meltfptr[462]) /*_.VALDATA___V463*/ meltfptr[462] = (void*)&cdat->dsym_391__SCLASS_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_391__SCLASS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_391__SCLASS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_391__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_391__SCLASS_CLABIND.obj_hash = 547477738; - cdat->dsym_391__SCLASS_CLABIND.obj_len = 3; - - /*inistring dstr_392__SCLASS_CLABIND*/ - /*_.VALSTR___V464*/ meltfptr[463] = (void*)&cdat->dstr_392__SCLASS_CLABIND; - cdat->dstr_392__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_392__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_392__SCLASS_CLABIND.val)-1); + /*iniobj dobj_383__SINST_CLASS*/ +/*_.VALDATA___V446*/ meltfptr[445] = (void*)&cdat->dobj_383__SINST_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_383__SINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_383__SINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_383__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_383__SINST_CLASS.obj_num = 5; + cdat->dobj_383__SINST_CLASS.obj_hash = 728789347; + cdat->dobj_383__SINST_CLASS.obj_len = 4; + + /*inistring dstr_384__SINST_CLASS*/ + /*_.VALSTR___V447*/ meltfptr[446] = (void*)&cdat->dstr_384__SINST_CLASS; + cdat->dstr_384__SINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_384__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_384__SINST_CLASS.val)-1); + /*iniobj dsym_385__SINST_CLABIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V457*/ meltfptr[456]) /*_.VALDATA___V457*/ meltfptr[456] = (void*)&cdat->dsym_385__SINST_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_385__SINST_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_385__SINST_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_385__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_385__SINST_CLABIND.obj_hash = 724106735; + cdat->dsym_385__SINST_CLABIND.obj_len = 3; + + /*inistring dstr_386__SINST_CLABIND*/ + /*_.VALSTR___V458*/ meltfptr[457] = (void*)&cdat->dstr_386__SINST_CLABIND; + cdat->dstr_386__SINST_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_386__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_386__SINST_CLABIND.val)-1); /*^iniobj*/ - /*iniobj dobj_393__SCLASS_CLABIND*/ -/*_.VALDATA___V456*/ meltfptr[455] = (void*)&cdat->dobj_393__SCLASS_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_393__SCLASS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_393__SCLASS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_393__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_393__SCLASS_CLABIND.obj_num = 5; - cdat->dobj_393__SCLASS_CLABIND.obj_hash = 855070638; - cdat->dobj_393__SCLASS_CLABIND.obj_len = 4; - - /*inistring dstr_394__SCLASS_CLABIND*/ - /*_.VALSTR___V457*/ meltfptr[456] = (void*)&cdat->dstr_394__SCLASS_CLABIND; - cdat->dstr_394__SCLASS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_394__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_394__SCLASS_CLABIND.val)-1); - /*iniobj dsym_395__SCLASS_SUPERBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V465*/ meltfptr[464]) /*_.VALDATA___V465*/ meltfptr[464] = (void*)&cdat->dsym_395__SCLASS_SUPERBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_395__SCLASS_SUPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_395__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_395__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_395__SCLASS_SUPERBIND.obj_hash = 920892924; - cdat->dsym_395__SCLASS_SUPERBIND.obj_len = 3; - - /*inistring dstr_396__SCLASS_SUPERBIND*/ - /*_.VALSTR___V466*/ meltfptr[465] = (void*)&cdat->dstr_396__SCLASS_SUPERBIND; - cdat->dstr_396__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_396__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_396__SCLASS_SUPERBIND.val)-1); + /*iniobj dobj_387__SINST_CLABIND*/ +/*_.VALDATA___V448*/ meltfptr[447] = (void*)&cdat->dobj_387__SINST_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_387__SINST_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_387__SINST_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_387__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_387__SINST_CLABIND.obj_num = 6; + cdat->dobj_387__SINST_CLABIND.obj_hash = 962451246; + cdat->dobj_387__SINST_CLABIND.obj_len = 4; + + /*inistring dstr_388__SINST_CLABIND*/ + /*_.VALSTR___V449*/ meltfptr[448] = (void*)&cdat->dstr_388__SINST_CLABIND; + cdat->dstr_388__SINST_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_388__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_388__SINST_CLABIND.val)-1); + /*iniobj dsym_389__SINST_OBJNUM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V459*/ meltfptr[458]) /*_.VALDATA___V459*/ meltfptr[458] = (void*)&cdat->dsym_389__SINST_OBJNUM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_389__SINST_OBJNUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_389__SINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_389__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_389__SINST_OBJNUM.obj_hash = 504129586; + cdat->dsym_389__SINST_OBJNUM.obj_len = 3; + + /*inistring dstr_390__SINST_OBJNUM*/ + /*_.VALSTR___V460*/ meltfptr[459] = (void*)&cdat->dstr_390__SINST_OBJNUM; + cdat->dstr_390__SINST_OBJNUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_390__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_390__SINST_OBJNUM.val)-1); /*^iniobj*/ - /*iniobj dobj_397__SCLASS_SUPERBIND*/ -/*_.VALDATA___V458*/ meltfptr[457] = (void*)&cdat->dobj_397__SCLASS_SUPERBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_397__SCLASS_SUPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_397__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_397__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_397__SCLASS_SUPERBIND.obj_num = 6; - cdat->dobj_397__SCLASS_SUPERBIND.obj_hash = 988168279; - cdat->dobj_397__SCLASS_SUPERBIND.obj_len = 4; - - /*inistring dstr_398__SCLASS_SUPERBIND*/ - /*_.VALSTR___V459*/ meltfptr[458] = (void*)&cdat->dstr_398__SCLASS_SUPERBIND; - cdat->dstr_398__SCLASS_SUPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_398__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_398__SCLASS_SUPERBIND.val)-1); - /*iniobj dsym_399__SCLASS_FLDBINDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V467*/ meltfptr[466]) /*_.VALDATA___V467*/ meltfptr[466] = (void*)&cdat->dsym_399__SCLASS_FLDBINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_399__SCLASS_FLDBINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_399__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_399__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_399__SCLASS_FLDBINDS.obj_hash = 972028873; - cdat->dsym_399__SCLASS_FLDBINDS.obj_len = 3; - - /*inistring dstr_400__SCLASS_FLDBINDS*/ - /*_.VALSTR___V468*/ meltfptr[467] = (void*)&cdat->dstr_400__SCLASS_FLDBINDS; - cdat->dstr_400__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_400__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_400__SCLASS_FLDBINDS.val)-1); + /*iniobj dobj_391__SINST_OBJNUM*/ +/*_.VALDATA___V450*/ meltfptr[449] = (void*)&cdat->dobj_391__SINST_OBJNUM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_391__SINST_OBJNUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__SINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_391__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_391__SINST_OBJNUM.obj_num = 7; + cdat->dobj_391__SINST_OBJNUM.obj_hash = 160706355; + cdat->dobj_391__SINST_OBJNUM.obj_len = 4; + + /*inistring dstr_392__SINST_OBJNUM*/ + /*_.VALSTR___V451*/ meltfptr[450] = (void*)&cdat->dstr_392__SINST_OBJNUM; + cdat->dstr_392__SINST_OBJNUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_392__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_392__SINST_OBJNUM.val)-1); + /*iniobj dsym_393__SINST_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V461*/ meltfptr[460]) /*_.VALDATA___V461*/ meltfptr[460] = (void*)&cdat->dsym_393__SINST_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_393__SINST_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_393__SINST_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_393__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_393__SINST_FIELDS.obj_hash = 827706478; + cdat->dsym_393__SINST_FIELDS.obj_len = 3; + + /*inistring dstr_394__SINST_FIELDS*/ + /*_.VALSTR___V462*/ meltfptr[461] = (void*)&cdat->dstr_394__SINST_FIELDS; + cdat->dstr_394__SINST_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_394__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_394__SINST_FIELDS.val)-1); /*^iniobj*/ - /*iniobj dobj_401__SCLASS_FLDBINDS*/ -/*_.VALDATA___V460*/ meltfptr[459] = (void*)&cdat->dobj_401__SCLASS_FLDBINDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_401__SCLASS_FLDBINDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_401__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_401__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_401__SCLASS_FLDBINDS.obj_num = 7; - cdat->dobj_401__SCLASS_FLDBINDS.obj_hash = 913576630; - cdat->dobj_401__SCLASS_FLDBINDS.obj_len = 4; - - /*inistring dstr_402__SCLASS_FLDBINDS*/ - /*_.VALSTR___V461*/ meltfptr[460] = (void*)&cdat->dstr_402__SCLASS_FLDBINDS; - cdat->dstr_402__SCLASS_FLDBINDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_402__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_402__SCLASS_FLDBINDS.val)-1); - /*iniobj dsym_403__CLASS_SOURCE_DEFINSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V469*/ meltfptr[468]) /*_.VALDATA___V469*/ meltfptr[468] = (void*)&cdat->dsym_403__CLASS_SOURCE_DEFINSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_403__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_403__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_403__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_403__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; - cdat->dsym_403__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; - - /*inistring dstr_404__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V470*/ meltfptr[469] = (void*)&cdat->dstr_404__CLASS_SOURCE_DEF; - cdat->dstr_404__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_404__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_404__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:371:/ iniobj"); - /*iniobj dobj_405__CLASS_SOURCE_DEFINSTANCE*/ -/*_.VALDATA___V471*/ meltfptr[470] = (void*)&cdat->dobj_405__CLASS_SOURCE_DEFINSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_405__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_405__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_405__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_405__CLASS_SOURCE_DEFINSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_405__CLASS_SOURCE_DEFINSTANCE.obj_hash = 479743528; - cdat->dobj_405__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; - - /*inistring dstr_406__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V472*/ meltfptr[471] = (void*)&cdat->dstr_406__CLASS_SOURCE_DEF; - cdat->dstr_406__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_406__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_406__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_407__CLASS_SOURCE_DEFINSTANCE*/ - /*_.VALTUP___V473*/ meltfptr[472] = (void*)&cdat->dtup_407__CLASS_SOURCE_DEFINSTANCE; - cdat->dtup_407__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_407__CLASS_SOURCE_DEFINSTANCE.nbval = 6; - /*inimult dtup_408__CLASS_SOURCE_DEFINSTANCE*/ - /*_.VALTUP___V482*/ meltfptr[481] = (void*)&cdat->dtup_408__CLASS_SOURCE_DEFINSTANCE; - cdat->dtup_408__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_408__CLASS_SOURCE_DEFINSTANCE.nbval = 9; - /*iniobj dsym_409__SINST_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V483*/ meltfptr[482]) /*_.VALDATA___V483*/ meltfptr[482] = (void*)&cdat->dsym_409__SINST_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_409__SINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_409__SINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_409__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_409__SINST_CLASS.obj_hash = 251075917; - cdat->dsym_409__SINST_CLASS.obj_len = 3; - - /*inistring dstr_410__SINST_CLASS*/ - /*_.VALSTR___V484*/ meltfptr[483] = (void*)&cdat->dstr_410__SINST_CLASS; - cdat->dstr_410__SINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_410__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_410__SINST_CLASS.val)-1); + /*iniobj dobj_395__SINST_FIELDS*/ +/*_.VALDATA___V452*/ meltfptr[451] = (void*)&cdat->dobj_395__SINST_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_395__SINST_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__SINST_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_395__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_395__SINST_FIELDS.obj_num = 8; + cdat->dobj_395__SINST_FIELDS.obj_hash = 28801279; + cdat->dobj_395__SINST_FIELDS.obj_len = 4; + + /*inistring dstr_396__SINST_FIELDS*/ + /*_.VALSTR___V453*/ meltfptr[452] = (void*)&cdat->dstr_396__SINST_FIELDS; + cdat->dstr_396__SINST_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_396__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_396__SINST_FIELDS.val)-1); + /*iniobj dsym_397__CLASS_SOURCE_DEFSELECTOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V463*/ meltfptr[462]) /*_.VALDATA___V463*/ meltfptr[462] = (void*)&cdat->dsym_397__CLASS_SOURCE_DEFSELECTOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_397__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_397__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_397__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_397__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; + cdat->dsym_397__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; + + /*inistring dstr_398__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V464*/ meltfptr[463] = (void*)&cdat->dstr_398__CLASS_SOURCE_DEF; + cdat->dstr_398__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_398__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_398__CLASS_SOURCE_DEF.val)-1); + MELT_LOCATION("warmelt-macro.melt:364:/ iniobj"); + /*iniobj dobj_399__CLASS_SOURCE_DEFSELECTOR*/ +/*_.VALDATA___V465*/ meltfptr[464] = (void*)&cdat->dobj_399__CLASS_SOURCE_DEFSELECTOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_399__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_399__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_399__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_399__CLASS_SOURCE_DEFSELECTOR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_399__CLASS_SOURCE_DEFSELECTOR.obj_hash = 438550754; + cdat->dobj_399__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; + + /*inistring dstr_400__CLASS_SOURCE_DEF*/ + /*_.VALSTR___V466*/ meltfptr[465] = (void*)&cdat->dstr_400__CLASS_SOURCE_DEF; + cdat->dstr_400__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_400__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_400__CLASS_SOURCE_DEF.val)-1); + /*inimult dtup_401__CLASS_SOURCE_DEFSELECTOR*/ + /*_.VALTUP___V467*/ meltfptr[466] = (void*)&cdat->dtup_401__CLASS_SOURCE_DEFSELECTOR; + cdat->dtup_401__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_401__CLASS_SOURCE_DEFSELECTOR.nbval = 7; + /*inimult dtup_402__CLASS_SOURCE_DEFSELECTOR*/ + /*_.VALTUP___V470*/ meltfptr[469] = (void*)&cdat->dtup_402__CLASS_SOURCE_DEFSELECTOR; + cdat->dtup_402__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_402__CLASS_SOURCE_DEFSELECTOR.nbval = 10; + /*iniobj dsym_403__SDEFSEL_FORMALS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V471*/ meltfptr[470]) /*_.VALDATA___V471*/ meltfptr[470] = (void*)&cdat->dsym_403__SDEFSEL_FORMALS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_403__SDEFSEL_FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_403__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_403__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_403__SDEFSEL_FORMALS.obj_hash = 800815677; + cdat->dsym_403__SDEFSEL_FORMALS.obj_len = 3; + + /*inistring dstr_404__SDEFSEL_FORMALS*/ + /*_.VALSTR___V472*/ meltfptr[471] = (void*)&cdat->dstr_404__SDEFSEL_FORMALS; + cdat->dstr_404__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_404__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_404__SDEFSEL_FORMALS.val)-1); /*^iniobj*/ - /*iniobj dobj_411__SINST_CLASS*/ -/*_.VALDATA___V474*/ meltfptr[473] = (void*)&cdat->dobj_411__SINST_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_411__SINST_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_411__SINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_411__SINST_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_411__SINST_CLASS.obj_num = 5; - cdat->dobj_411__SINST_CLASS.obj_hash = 917899546; - cdat->dobj_411__SINST_CLASS.obj_len = 4; - - /*inistring dstr_412__SINST_CLASS*/ - /*_.VALSTR___V475*/ meltfptr[474] = (void*)&cdat->dstr_412__SINST_CLASS; - cdat->dstr_412__SINST_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_412__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_412__SINST_CLASS.val)-1); - /*iniobj dsym_413__SINST_CLABIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V485*/ meltfptr[484]) /*_.VALDATA___V485*/ meltfptr[484] = (void*)&cdat->dsym_413__SINST_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_413__SINST_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_413__SINST_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_413__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_413__SINST_CLABIND.obj_hash = 724106735; - cdat->dsym_413__SINST_CLABIND.obj_len = 3; - - /*inistring dstr_414__SINST_CLABIND*/ - /*_.VALSTR___V486*/ meltfptr[485] = (void*)&cdat->dstr_414__SINST_CLABIND; - cdat->dstr_414__SINST_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_414__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_414__SINST_CLABIND.val)-1); + /*iniobj dobj_405__SDEFSEL_FORMALS*/ +/*_.VALDATA___V468*/ meltfptr[467] = (void*)&cdat->dobj_405__SDEFSEL_FORMALS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_405__SDEFSEL_FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_405__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_405__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_405__SDEFSEL_FORMALS.obj_num = 9; + cdat->dobj_405__SDEFSEL_FORMALS.obj_hash = 762603158; + cdat->dobj_405__SDEFSEL_FORMALS.obj_len = 4; + + /*inistring dstr_406__SDEFSEL_FORMALS*/ + /*_.VALSTR___V469*/ meltfptr[468] = (void*)&cdat->dstr_406__SDEFSEL_FORMALS; + cdat->dstr_406__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_406__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_406__SDEFSEL_FORMALS.val)-1); + /*iniobj dsym_407__CLASS_SOURCE_FIELDASSIGN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V473*/ meltfptr[472]) /*_.VALDATA___V473*/ meltfptr[472] = (void*)&cdat->dsym_407__CLASS_SOURCE_FIELDASSIGN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_407__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_407__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_407__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_407__CLASS_SOURCE_FIELDASSIGN.obj_hash = 362514023; + cdat->dsym_407__CLASS_SOURCE_FIELDASSIGN.obj_len = 3; + + /*inistring dstr_408__CLASS_SOURCE_FIE*/ + /*_.VALSTR___V474*/ meltfptr[473] = (void*)&cdat->dstr_408__CLASS_SOURCE_FIE; + cdat->dstr_408__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_408__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_408__CLASS_SOURCE_FIE.val)-1); + MELT_LOCATION("warmelt-macro.melt:373:/ iniobj"); + /*iniobj dobj_409__CLASS_SOURCE_FIELDASSIGN*/ +/*_.VALDATA___V475*/ meltfptr[474] = (void*)&cdat->dobj_409__CLASS_SOURCE_FIELDASSIGN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_409__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_409__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_409__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_409__CLASS_SOURCE_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_409__CLASS_SOURCE_FIELDASSIGN.obj_hash = 796272412; + cdat->dobj_409__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; + + /*inistring dstr_410__CLASS_SOURCE_FIE*/ + /*_.VALSTR___V476*/ meltfptr[475] = (void*)&cdat->dstr_410__CLASS_SOURCE_FIE; + cdat->dstr_410__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_410__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_410__CLASS_SOURCE_FIE.val)-1); + /*inimult dtup_411__CLASS_SOURCE_FIELDASSIGN*/ + /*_.VALTUP___V477*/ meltfptr[476] = (void*)&cdat->dtup_411__CLASS_SOURCE_FIELDASSIGN; + cdat->dtup_411__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_411__CLASS_SOURCE_FIELDASSIGN.nbval = 4; + /*inimult dtup_412__CLASS_SOURCE_FIELDASSIGN*/ + /*_.VALTUP___V482*/ meltfptr[481] = (void*)&cdat->dtup_412__CLASS_SOURCE_FIELDASSIGN; + cdat->dtup_412__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_412__CLASS_SOURCE_FIELDASSIGN.nbval = 4; + /*iniobj dsym_413__SFLA_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V483*/ meltfptr[482]) /*_.VALDATA___V483*/ meltfptr[482] = (void*)&cdat->dsym_413__SFLA_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_413__SFLA_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_413__SFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_413__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_413__SFLA_FIELD.obj_hash = 53606921; + cdat->dsym_413__SFLA_FIELD.obj_len = 3; + + /*inistring dstr_414__SFLA_FIELD*/ + /*_.VALSTR___V484*/ meltfptr[483] = (void*)&cdat->dstr_414__SFLA_FIELD; + cdat->dstr_414__SFLA_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_414__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_414__SFLA_FIELD.val)-1); /*^iniobj*/ - /*iniobj dobj_415__SINST_CLABIND*/ -/*_.VALDATA___V476*/ meltfptr[475] = (void*)&cdat->dobj_415__SINST_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_415__SINST_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_415__SINST_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_415__SINST_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_415__SINST_CLABIND.obj_num = 6; - cdat->dobj_415__SINST_CLABIND.obj_hash = 708763776; - cdat->dobj_415__SINST_CLABIND.obj_len = 4; - - /*inistring dstr_416__SINST_CLABIND*/ - /*_.VALSTR___V477*/ meltfptr[476] = (void*)&cdat->dstr_416__SINST_CLABIND; - cdat->dstr_416__SINST_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_416__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_416__SINST_CLABIND.val)-1); - /*iniobj dsym_417__SINST_OBJNUM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V487*/ meltfptr[486]) /*_.VALDATA___V487*/ meltfptr[486] = (void*)&cdat->dsym_417__SINST_OBJNUM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_417__SINST_OBJNUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_417__SINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_417__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_417__SINST_OBJNUM.obj_hash = 504129586; - cdat->dsym_417__SINST_OBJNUM.obj_len = 3; - - /*inistring dstr_418__SINST_OBJNUM*/ - /*_.VALSTR___V488*/ meltfptr[487] = (void*)&cdat->dstr_418__SINST_OBJNUM; - cdat->dstr_418__SINST_OBJNUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_418__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_418__SINST_OBJNUM.val)-1); + /*iniobj dobj_415__SFLA_FIELD*/ +/*_.VALDATA___V478*/ meltfptr[477] = (void*)&cdat->dobj_415__SFLA_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_415__SFLA_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_415__SFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_415__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_415__SFLA_FIELD.obj_num = 2; + cdat->dobj_415__SFLA_FIELD.obj_hash = 146050287; + cdat->dobj_415__SFLA_FIELD.obj_len = 4; + + /*inistring dstr_416__SFLA_FIELD*/ + /*_.VALSTR___V479*/ meltfptr[478] = (void*)&cdat->dstr_416__SFLA_FIELD; + cdat->dstr_416__SFLA_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_416__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_416__SFLA_FIELD.val)-1); + /*iniobj dsym_417__SFLA_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V485*/ meltfptr[484]) /*_.VALDATA___V485*/ meltfptr[484] = (void*)&cdat->dsym_417__SFLA_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_417__SFLA_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_417__SFLA_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_417__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_417__SFLA_EXPR.obj_hash = 723165498; + cdat->dsym_417__SFLA_EXPR.obj_len = 3; + + /*inistring dstr_418__SFLA_EXPR*/ + /*_.VALSTR___V486*/ meltfptr[485] = (void*)&cdat->dstr_418__SFLA_EXPR; + cdat->dstr_418__SFLA_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_418__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_418__SFLA_EXPR.val)-1); /*^iniobj*/ - /*iniobj dobj_419__SINST_OBJNUM*/ -/*_.VALDATA___V478*/ meltfptr[477] = (void*)&cdat->dobj_419__SINST_OBJNUM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_419__SINST_OBJNUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419__SINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_419__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_419__SINST_OBJNUM.obj_num = 7; - cdat->dobj_419__SINST_OBJNUM.obj_hash = 43768286; - cdat->dobj_419__SINST_OBJNUM.obj_len = 4; - - /*inistring dstr_420__SINST_OBJNUM*/ - /*_.VALSTR___V479*/ meltfptr[478] = (void*)&cdat->dstr_420__SINST_OBJNUM; - cdat->dstr_420__SINST_OBJNUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_420__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_420__SINST_OBJNUM.val)-1); - /*iniobj dsym_421__SINST_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V489*/ meltfptr[488]) /*_.VALDATA___V489*/ meltfptr[488] = (void*)&cdat->dsym_421__SINST_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_421__SINST_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_421__SINST_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_421__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_421__SINST_FIELDS.obj_hash = 827706478; - cdat->dsym_421__SINST_FIELDS.obj_len = 3; - - /*inistring dstr_422__SINST_FIELDS*/ - /*_.VALSTR___V490*/ meltfptr[489] = (void*)&cdat->dstr_422__SINST_FIELDS; - cdat->dstr_422__SINST_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_422__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_422__SINST_FIELDS.val)-1); + /*iniobj dobj_419__SFLA_EXPR*/ +/*_.VALDATA___V480*/ meltfptr[479] = (void*)&cdat->dobj_419__SFLA_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_419__SFLA_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_419__SFLA_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_419__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_419__SFLA_EXPR.obj_num = 3; + cdat->dobj_419__SFLA_EXPR.obj_hash = 876416617; + cdat->dobj_419__SFLA_EXPR.obj_len = 4; + + /*inistring dstr_420__SFLA_EXPR*/ + /*_.VALSTR___V481*/ meltfptr[480] = (void*)&cdat->dstr_420__SFLA_EXPR; + cdat->dstr_420__SFLA_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_420__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_420__SFLA_EXPR.val)-1); + /*iniobj dsym_421__CLASS_SOURCE_INSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V487*/ meltfptr[486]) /*_.VALDATA___V487*/ meltfptr[486] = (void*)&cdat->dsym_421__CLASS_SOURCE_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_421__CLASS_SOURCE_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_421__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_421__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_421__CLASS_SOURCE_INSTANCE.obj_hash = 185000661; + cdat->dsym_421__CLASS_SOURCE_INSTANCE.obj_len = 3; + + /*inistring dstr_422__CLASS_SOURCE_INS*/ + /*_.VALSTR___V488*/ meltfptr[487] = (void*)&cdat->dstr_422__CLASS_SOURCE_INS; + cdat->dstr_422__CLASS_SOURCE_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_422__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_422__CLASS_SOURCE_INS.val)-1); + MELT_LOCATION("warmelt-macro.melt:384:/ iniobj"); + /*iniobj dobj_423__CLASS_SOURCE_INSTANCE*/ +/*_.VALDATA___V489*/ meltfptr[488] = (void*)&cdat->dobj_423__CLASS_SOURCE_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_423__CLASS_SOURCE_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_423__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_423__CLASS_SOURCE_INSTANCE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_423__CLASS_SOURCE_INSTANCE.obj_hash = 166724004; + cdat->dobj_423__CLASS_SOURCE_INSTANCE.obj_len = 8; + + /*inistring dstr_424__CLASS_SOURCE_INS*/ + /*_.VALSTR___V490*/ meltfptr[489] = (void*)&cdat->dstr_424__CLASS_SOURCE_INS; + cdat->dstr_424__CLASS_SOURCE_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_424__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_424__CLASS_SOURCE_INS.val)-1); + /*inimult dtup_425__CLASS_SOURCE_INSTANCE*/ + /*_.VALTUP___V491*/ meltfptr[490] = (void*)&cdat->dtup_425__CLASS_SOURCE_INSTANCE; + cdat->dtup_425__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_425__CLASS_SOURCE_INSTANCE.nbval = 4; + /*inimult dtup_426__CLASS_SOURCE_INSTANCE*/ + /*_.VALTUP___V498*/ meltfptr[497] = (void*)&cdat->dtup_426__CLASS_SOURCE_INSTANCE; + cdat->dtup_426__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_426__CLASS_SOURCE_INSTANCE.nbval = 5; + /*iniobj dsym_427__SMINS_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V499*/ meltfptr[498]) /*_.VALDATA___V499*/ meltfptr[498] = (void*)&cdat->dsym_427__SMINS_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_427__SMINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_427__SMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_427__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_427__SMINS_CLASS.obj_hash = 354373683; + cdat->dsym_427__SMINS_CLASS.obj_len = 3; + + /*inistring dstr_428__SMINS_CLASS*/ + /*_.VALSTR___V500*/ meltfptr[499] = (void*)&cdat->dstr_428__SMINS_CLASS; + cdat->dstr_428__SMINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_428__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_428__SMINS_CLASS.val)-1); /*^iniobj*/ - /*iniobj dobj_423__SINST_FIELDS*/ -/*_.VALDATA___V480*/ meltfptr[479] = (void*)&cdat->dobj_423__SINST_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_423__SINST_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_423__SINST_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_423__SINST_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_423__SINST_FIELDS.obj_num = 8; - cdat->dobj_423__SINST_FIELDS.obj_hash = 330634284; - cdat->dobj_423__SINST_FIELDS.obj_len = 4; - - /*inistring dstr_424__SINST_FIELDS*/ - /*_.VALSTR___V481*/ meltfptr[480] = (void*)&cdat->dstr_424__SINST_FIELDS; - cdat->dstr_424__SINST_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_424__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_424__SINST_FIELDS.val)-1); - /*iniobj dsym_425__CLASS_SOURCE_DEFSELECTOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V491*/ meltfptr[490]) /*_.VALDATA___V491*/ meltfptr[490] = (void*)&cdat->dsym_425__CLASS_SOURCE_DEFSELECTOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_425__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_425__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_425__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_425__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; - cdat->dsym_425__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; - - /*inistring dstr_426__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V492*/ meltfptr[491] = (void*)&cdat->dstr_426__CLASS_SOURCE_DEF; - cdat->dstr_426__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_426__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_426__CLASS_SOURCE_DEF.val)-1); - MELT_LOCATION("warmelt-macro.melt:385:/ iniobj"); - /*iniobj dobj_427__CLASS_SOURCE_DEFSELECTOR*/ -/*_.VALDATA___V493*/ meltfptr[492] = (void*)&cdat->dobj_427__CLASS_SOURCE_DEFSELECTOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_427__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_427__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_427__CLASS_SOURCE_DEFSELECTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_427__CLASS_SOURCE_DEFSELECTOR.obj_hash = 332581653; - cdat->dobj_427__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; - - /*inistring dstr_428__CLASS_SOURCE_DEF*/ - /*_.VALSTR___V494*/ meltfptr[493] = (void*)&cdat->dstr_428__CLASS_SOURCE_DEF; - cdat->dstr_428__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_428__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_428__CLASS_SOURCE_DEF.val)-1); - /*inimult dtup_429__CLASS_SOURCE_DEFSELECTOR*/ - /*_.VALTUP___V495*/ meltfptr[494] = (void*)&cdat->dtup_429__CLASS_SOURCE_DEFSELECTOR; - cdat->dtup_429__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_429__CLASS_SOURCE_DEFSELECTOR.nbval = 7; - /*inimult dtup_430__CLASS_SOURCE_DEFSELECTOR*/ - /*_.VALTUP___V498*/ meltfptr[497] = (void*)&cdat->dtup_430__CLASS_SOURCE_DEFSELECTOR; - cdat->dtup_430__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_430__CLASS_SOURCE_DEFSELECTOR.nbval = 10; - /*iniobj dsym_431__SDEFSEL_FORMALS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V499*/ meltfptr[498]) /*_.VALDATA___V499*/ meltfptr[498] = (void*)&cdat->dsym_431__SDEFSEL_FORMALS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_431__SDEFSEL_FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_431__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_431__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_431__SDEFSEL_FORMALS.obj_hash = 800815677; - cdat->dsym_431__SDEFSEL_FORMALS.obj_len = 3; - - /*inistring dstr_432__SDEFSEL_FORMALS*/ - /*_.VALSTR___V500*/ meltfptr[499] = (void*)&cdat->dstr_432__SDEFSEL_FORMALS; - cdat->dstr_432__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_432__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_432__SDEFSEL_FORMALS.val)-1); + /*iniobj dobj_429__SMINS_CLASS*/ +/*_.VALDATA___V492*/ meltfptr[491] = (void*)&cdat->dobj_429__SMINS_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_429__SMINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_429__SMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_429__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_429__SMINS_CLASS.obj_num = 2; + cdat->dobj_429__SMINS_CLASS.obj_hash = 539353043; + cdat->dobj_429__SMINS_CLASS.obj_len = 4; + + /*inistring dstr_430__SMINS_CLASS*/ + /*_.VALSTR___V493*/ meltfptr[492] = (void*)&cdat->dstr_430__SMINS_CLASS; + cdat->dstr_430__SMINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_430__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_430__SMINS_CLASS.val)-1); + /*iniobj dsym_431__SMINS_CLABIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V501*/ meltfptr[500]) /*_.VALDATA___V501*/ meltfptr[500] = (void*)&cdat->dsym_431__SMINS_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_431__SMINS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_431__SMINS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_431__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_431__SMINS_CLABIND.obj_hash = 893906416; + cdat->dsym_431__SMINS_CLABIND.obj_len = 3; + + /*inistring dstr_432__SMINS_CLABIND*/ + /*_.VALSTR___V502*/ meltfptr[501] = (void*)&cdat->dstr_432__SMINS_CLABIND; + cdat->dstr_432__SMINS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_432__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_432__SMINS_CLABIND.val)-1); /*^iniobj*/ - /*iniobj dobj_433__SDEFSEL_FORMALS*/ -/*_.VALDATA___V496*/ meltfptr[495] = (void*)&cdat->dobj_433__SDEFSEL_FORMALS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_433__SDEFSEL_FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_433__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_433__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_433__SDEFSEL_FORMALS.obj_num = 9; - cdat->dobj_433__SDEFSEL_FORMALS.obj_hash = 425258426; - cdat->dobj_433__SDEFSEL_FORMALS.obj_len = 4; - - /*inistring dstr_434__SDEFSEL_FORMALS*/ - /*_.VALSTR___V497*/ meltfptr[496] = (void*)&cdat->dstr_434__SDEFSEL_FORMALS; - cdat->dstr_434__SDEFSEL_FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_434__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_434__SDEFSEL_FORMALS.val)-1); - /*iniobj dsym_435__CLASS_SOURCE_FIELDASSIGN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V501*/ meltfptr[500]) /*_.VALDATA___V501*/ meltfptr[500] = (void*)&cdat->dsym_435__CLASS_SOURCE_FIELDASSIGN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_435__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_435__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_435__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_435__CLASS_SOURCE_FIELDASSIGN.obj_hash = 362514023; - cdat->dsym_435__CLASS_SOURCE_FIELDASSIGN.obj_len = 3; - - /*inistring dstr_436__CLASS_SOURCE_FIE*/ - /*_.VALSTR___V502*/ meltfptr[501] = (void*)&cdat->dstr_436__CLASS_SOURCE_FIE; - cdat->dstr_436__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_436__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_436__CLASS_SOURCE_FIE.val)-1); - MELT_LOCATION("warmelt-macro.melt:394:/ iniobj"); - /*iniobj dobj_437__CLASS_SOURCE_FIELDASSIGN*/ -/*_.VALDATA___V503*/ meltfptr[502] = (void*)&cdat->dobj_437__CLASS_SOURCE_FIELDASSIGN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_437__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_437__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_437__CLASS_SOURCE_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_437__CLASS_SOURCE_FIELDASSIGN.obj_hash = 12377781; - cdat->dobj_437__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; - - /*inistring dstr_438__CLASS_SOURCE_FIE*/ - /*_.VALSTR___V504*/ meltfptr[503] = (void*)&cdat->dstr_438__CLASS_SOURCE_FIE; - cdat->dstr_438__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_438__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_438__CLASS_SOURCE_FIE.val)-1); - /*inimult dtup_439__CLASS_SOURCE_FIELDASSIGN*/ - /*_.VALTUP___V505*/ meltfptr[504] = (void*)&cdat->dtup_439__CLASS_SOURCE_FIELDASSIGN; - cdat->dtup_439__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_439__CLASS_SOURCE_FIELDASSIGN.nbval = 4; - /*inimult dtup_440__CLASS_SOURCE_FIELDASSIGN*/ - /*_.VALTUP___V510*/ meltfptr[509] = (void*)&cdat->dtup_440__CLASS_SOURCE_FIELDASSIGN; - cdat->dtup_440__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_440__CLASS_SOURCE_FIELDASSIGN.nbval = 4; - /*iniobj dsym_441__SFLA_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V511*/ meltfptr[510]) /*_.VALDATA___V511*/ meltfptr[510] = (void*)&cdat->dsym_441__SFLA_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_441__SFLA_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_441__SFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_441__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_441__SFLA_FIELD.obj_hash = 53606921; - cdat->dsym_441__SFLA_FIELD.obj_len = 3; - - /*inistring dstr_442__SFLA_FIELD*/ - /*_.VALSTR___V512*/ meltfptr[511] = (void*)&cdat->dstr_442__SFLA_FIELD; - cdat->dstr_442__SFLA_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_442__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_442__SFLA_FIELD.val)-1); + /*iniobj dobj_433__SMINS_CLABIND*/ +/*_.VALDATA___V494*/ meltfptr[493] = (void*)&cdat->dobj_433__SMINS_CLABIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_433__SMINS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_433__SMINS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_433__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_433__SMINS_CLABIND.obj_num = 3; + cdat->dobj_433__SMINS_CLABIND.obj_hash = 131559358; + cdat->dobj_433__SMINS_CLABIND.obj_len = 4; + + /*inistring dstr_434__SMINS_CLABIND*/ + /*_.VALSTR___V495*/ meltfptr[494] = (void*)&cdat->dstr_434__SMINS_CLABIND; + cdat->dstr_434__SMINS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_434__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_434__SMINS_CLABIND.val)-1); + /*iniobj dsym_435__SMINS_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V503*/ meltfptr[502]) /*_.VALDATA___V503*/ meltfptr[502] = (void*)&cdat->dsym_435__SMINS_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_435__SMINS_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_435__SMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_435__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_435__SMINS_FIELDS.obj_hash = 235347076; + cdat->dsym_435__SMINS_FIELDS.obj_len = 3; + + /*inistring dstr_436__SMINS_FIELDS*/ + /*_.VALSTR___V504*/ meltfptr[503] = (void*)&cdat->dstr_436__SMINS_FIELDS; + cdat->dstr_436__SMINS_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_436__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_436__SMINS_FIELDS.val)-1); /*^iniobj*/ - /*iniobj dobj_443__SFLA_FIELD*/ -/*_.VALDATA___V506*/ meltfptr[505] = (void*)&cdat->dobj_443__SFLA_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_443__SFLA_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_443__SFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_443__SFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_443__SFLA_FIELD.obj_num = 2; - cdat->dobj_443__SFLA_FIELD.obj_hash = 710931634; - cdat->dobj_443__SFLA_FIELD.obj_len = 4; - - /*inistring dstr_444__SFLA_FIELD*/ - /*_.VALSTR___V507*/ meltfptr[506] = (void*)&cdat->dstr_444__SFLA_FIELD; - cdat->dstr_444__SFLA_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_444__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_444__SFLA_FIELD.val)-1); - /*iniobj dsym_445__SFLA_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V513*/ meltfptr[512]) /*_.VALDATA___V513*/ meltfptr[512] = (void*)&cdat->dsym_445__SFLA_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_445__SFLA_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_445__SFLA_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_445__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_445__SFLA_EXPR.obj_hash = 723165498; - cdat->dsym_445__SFLA_EXPR.obj_len = 3; - - /*inistring dstr_446__SFLA_EXPR*/ - /*_.VALSTR___V514*/ meltfptr[513] = (void*)&cdat->dstr_446__SFLA_EXPR; - cdat->dstr_446__SFLA_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_446__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_446__SFLA_EXPR.val)-1); + /*iniobj dobj_437__SMINS_FIELDS*/ +/*_.VALDATA___V496*/ meltfptr[495] = (void*)&cdat->dobj_437__SMINS_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_437__SMINS_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__SMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_437__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_437__SMINS_FIELDS.obj_num = 4; + cdat->dobj_437__SMINS_FIELDS.obj_hash = 403620595; + cdat->dobj_437__SMINS_FIELDS.obj_len = 4; + + /*inistring dstr_438__SMINS_FIELDS*/ + /*_.VALSTR___V497*/ meltfptr[496] = (void*)&cdat->dstr_438__SMINS_FIELDS; + cdat->dstr_438__SMINS_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_438__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_438__SMINS_FIELDS.val)-1); + /*iniobj dsym_439__CLASS_SOURCE_GET_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V505*/ meltfptr[504]) /*_.VALDATA___V505*/ meltfptr[504] = (void*)&cdat->dsym_439__CLASS_SOURCE_GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_439__CLASS_SOURCE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_439__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_439__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_439__CLASS_SOURCE_GET_FIELD.obj_hash = 291216467; + cdat->dsym_439__CLASS_SOURCE_GET_FIELD.obj_len = 3; + + /*inistring dstr_440__CLASS_SOURCE_GET*/ + /*_.VALSTR___V506*/ meltfptr[505] = (void*)&cdat->dstr_440__CLASS_SOURCE_GET; + cdat->dstr_440__CLASS_SOURCE_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_440__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_440__CLASS_SOURCE_GET.val)-1); + MELT_LOCATION("warmelt-macro.melt:396:/ iniobj"); + /*iniobj dobj_441__CLASS_SOURCE_GET_FIELD*/ +/*_.VALDATA___V507*/ meltfptr[506] = (void*)&cdat->dobj_441__CLASS_SOURCE_GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_441__CLASS_SOURCE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_441__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_441__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_441__CLASS_SOURCE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_441__CLASS_SOURCE_GET_FIELD.obj_hash = 98290668; + cdat->dobj_441__CLASS_SOURCE_GET_FIELD.obj_len = 8; + + /*inistring dstr_442__CLASS_SOURCE_GET*/ + /*_.VALSTR___V508*/ meltfptr[507] = (void*)&cdat->dstr_442__CLASS_SOURCE_GET; + cdat->dstr_442__CLASS_SOURCE_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_442__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_442__CLASS_SOURCE_GET.val)-1); + /*inimult dtup_443__CLASS_SOURCE_GET_FIELD*/ + /*_.VALTUP___V509*/ meltfptr[508] = (void*)&cdat->dtup_443__CLASS_SOURCE_GET_FIELD; + cdat->dtup_443__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_443__CLASS_SOURCE_GET_FIELD.nbval = 4; + /*inimult dtup_444__CLASS_SOURCE_GET_FIELD*/ + /*_.VALTUP___V514*/ meltfptr[513] = (void*)&cdat->dtup_444__CLASS_SOURCE_GET_FIELD; + cdat->dtup_444__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_444__CLASS_SOURCE_GET_FIELD.nbval = 4; + /*iniobj dsym_445__SUGET_OBJ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V515*/ meltfptr[514]) /*_.VALDATA___V515*/ meltfptr[514] = (void*)&cdat->dsym_445__SUGET_OBJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_445__SUGET_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_445__SUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_445__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_445__SUGET_OBJ.obj_hash = 649934642; + cdat->dsym_445__SUGET_OBJ.obj_len = 3; + + /*inistring dstr_446__SUGET_OBJ*/ + /*_.VALSTR___V516*/ meltfptr[515] = (void*)&cdat->dstr_446__SUGET_OBJ; + cdat->dstr_446__SUGET_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_446__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_446__SUGET_OBJ.val)-1); /*^iniobj*/ - /*iniobj dobj_447__SFLA_EXPR*/ -/*_.VALDATA___V508*/ meltfptr[507] = (void*)&cdat->dobj_447__SFLA_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_447__SFLA_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447__SFLA_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_447__SFLA_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_447__SFLA_EXPR.obj_num = 3; - cdat->dobj_447__SFLA_EXPR.obj_hash = 1047797930; - cdat->dobj_447__SFLA_EXPR.obj_len = 4; - - /*inistring dstr_448__SFLA_EXPR*/ - /*_.VALSTR___V509*/ meltfptr[508] = (void*)&cdat->dstr_448__SFLA_EXPR; - cdat->dstr_448__SFLA_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_448__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_448__SFLA_EXPR.val)-1); - /*iniobj dsym_449__CLASS_SOURCE_INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V515*/ meltfptr[514]) /*_.VALDATA___V515*/ meltfptr[514] = (void*)&cdat->dsym_449__CLASS_SOURCE_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_449__CLASS_SOURCE_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_449__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_449__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_449__CLASS_SOURCE_INSTANCE.obj_hash = 185000661; - cdat->dsym_449__CLASS_SOURCE_INSTANCE.obj_len = 3; - - /*inistring dstr_450__CLASS_SOURCE_INS*/ - /*_.VALSTR___V516*/ meltfptr[515] = (void*)&cdat->dstr_450__CLASS_SOURCE_INS; - cdat->dstr_450__CLASS_SOURCE_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_450__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_450__CLASS_SOURCE_INS.val)-1); - MELT_LOCATION("warmelt-macro.melt:405:/ iniobj"); - /*iniobj dobj_451__CLASS_SOURCE_INSTANCE*/ -/*_.VALDATA___V517*/ meltfptr[516] = (void*)&cdat->dobj_451__CLASS_SOURCE_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_451__CLASS_SOURCE_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_451__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_451__CLASS_SOURCE_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_451__CLASS_SOURCE_INSTANCE.obj_hash = 350791967; - cdat->dobj_451__CLASS_SOURCE_INSTANCE.obj_len = 8; - - /*inistring dstr_452__CLASS_SOURCE_INS*/ - /*_.VALSTR___V518*/ meltfptr[517] = (void*)&cdat->dstr_452__CLASS_SOURCE_INS; - cdat->dstr_452__CLASS_SOURCE_INS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_452__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_452__CLASS_SOURCE_INS.val)-1); - /*inimult dtup_453__CLASS_SOURCE_INSTANCE*/ - /*_.VALTUP___V519*/ meltfptr[518] = (void*)&cdat->dtup_453__CLASS_SOURCE_INSTANCE; - cdat->dtup_453__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_453__CLASS_SOURCE_INSTANCE.nbval = 4; - /*inimult dtup_454__CLASS_SOURCE_INSTANCE*/ - /*_.VALTUP___V526*/ meltfptr[525] = (void*)&cdat->dtup_454__CLASS_SOURCE_INSTANCE; - cdat->dtup_454__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_454__CLASS_SOURCE_INSTANCE.nbval = 5; - /*iniobj dsym_455__SMINS_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V527*/ meltfptr[526]) /*_.VALDATA___V527*/ meltfptr[526] = (void*)&cdat->dsym_455__SMINS_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_455__SMINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_455__SMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_455__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_455__SMINS_CLASS.obj_hash = 354373683; - cdat->dsym_455__SMINS_CLASS.obj_len = 3; - - /*inistring dstr_456__SMINS_CLASS*/ - /*_.VALSTR___V528*/ meltfptr[527] = (void*)&cdat->dstr_456__SMINS_CLASS; - cdat->dstr_456__SMINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_456__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_456__SMINS_CLASS.val)-1); + /*iniobj dobj_447__SUGET_OBJ*/ +/*_.VALDATA___V510*/ meltfptr[509] = (void*)&cdat->dobj_447__SUGET_OBJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_447__SUGET_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_447__SUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_447__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_447__SUGET_OBJ.obj_num = 2; + cdat->dobj_447__SUGET_OBJ.obj_hash = 1000270770; + cdat->dobj_447__SUGET_OBJ.obj_len = 4; + + /*inistring dstr_448__SUGET_OBJ*/ + /*_.VALSTR___V511*/ meltfptr[510] = (void*)&cdat->dstr_448__SUGET_OBJ; + cdat->dstr_448__SUGET_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_448__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_448__SUGET_OBJ.val)-1); + /*iniobj dsym_449__SUGET_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V517*/ meltfptr[516]) /*_.VALDATA___V517*/ meltfptr[516] = (void*)&cdat->dsym_449__SUGET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_449__SUGET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_449__SUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_449__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_449__SUGET_FIELD.obj_hash = 430834528; + cdat->dsym_449__SUGET_FIELD.obj_len = 3; + + /*inistring dstr_450__SUGET_FIELD*/ + /*_.VALSTR___V518*/ meltfptr[517] = (void*)&cdat->dstr_450__SUGET_FIELD; + cdat->dstr_450__SUGET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_450__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_450__SUGET_FIELD.val)-1); /*^iniobj*/ - /*iniobj dobj_457__SMINS_CLASS*/ -/*_.VALDATA___V520*/ meltfptr[519] = (void*)&cdat->dobj_457__SMINS_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_457__SMINS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_457__SMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_457__SMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_457__SMINS_CLASS.obj_num = 2; - cdat->dobj_457__SMINS_CLASS.obj_hash = 466807838; - cdat->dobj_457__SMINS_CLASS.obj_len = 4; - - /*inistring dstr_458__SMINS_CLASS*/ - /*_.VALSTR___V521*/ meltfptr[520] = (void*)&cdat->dstr_458__SMINS_CLASS; - cdat->dstr_458__SMINS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_458__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_458__SMINS_CLASS.val)-1); - /*iniobj dsym_459__SMINS_CLABIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V529*/ meltfptr[528]) /*_.VALDATA___V529*/ meltfptr[528] = (void*)&cdat->dsym_459__SMINS_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_459__SMINS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_459__SMINS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_459__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_459__SMINS_CLABIND.obj_hash = 893906416; - cdat->dsym_459__SMINS_CLABIND.obj_len = 3; - - /*inistring dstr_460__SMINS_CLABIND*/ - /*_.VALSTR___V530*/ meltfptr[529] = (void*)&cdat->dstr_460__SMINS_CLABIND; - cdat->dstr_460__SMINS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_460__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_460__SMINS_CLABIND.val)-1); + /*iniobj dobj_451__SUGET_FIELD*/ +/*_.VALDATA___V512*/ meltfptr[511] = (void*)&cdat->dobj_451__SUGET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_451__SUGET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__SUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_451__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_451__SUGET_FIELD.obj_num = 3; + cdat->dobj_451__SUGET_FIELD.obj_hash = 721012740; + cdat->dobj_451__SUGET_FIELD.obj_len = 4; + + /*inistring dstr_452__SUGET_FIELD*/ + /*_.VALSTR___V513*/ meltfptr[512] = (void*)&cdat->dstr_452__SUGET_FIELD; + cdat->dstr_452__SUGET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_452__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_452__SUGET_FIELD.val)-1); + /*iniobj dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V519*/ meltfptr[518]) /*_.VALDATA___V519*/ meltfptr[518] = (void*)&cdat->dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 846462223; + cdat->dsym_453__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 3; + + /*inistring dstr_454__CLASS_SOURCE_UNS*/ + /*_.VALSTR___V520*/ meltfptr[519] = (void*)&cdat->dstr_454__CLASS_SOURCE_UNS; + cdat->dstr_454__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_454__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_454__CLASS_SOURCE_UNS.val)-1); + MELT_LOCATION("warmelt-macro.melt:407:/ iniobj"); + /*iniobj dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD*/ +/*_.VALDATA___V521*/ meltfptr[520] = (void*)&cdat->dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 595665944; + cdat->dobj_455__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; + + /*inistring dstr_456__CLASS_SOURCE_UNS*/ + /*_.VALSTR___V522*/ meltfptr[521] = (void*)&cdat->dstr_456__CLASS_SOURCE_UNS; + cdat->dstr_456__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_456__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_456__CLASS_SOURCE_UNS.val)-1); + /*inimult dtup_457__CLASS_SOURCE_UNSAFE_GET_FIELD*/ + /*_.VALTUP___V523*/ meltfptr[522] = (void*)&cdat->dtup_457__CLASS_SOURCE_UNSAFE_GET_FIELD; + cdat->dtup_457__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_457__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 5; + /*inimult dtup_458__CLASS_SOURCE_UNSAFE_GET_FIELD*/ + /*_.VALTUP___V524*/ meltfptr[523] = (void*)&cdat->dtup_458__CLASS_SOURCE_UNSAFE_GET_FIELD; + cdat->dtup_458__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_458__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 4; + /*iniobj dsym_459__CLASS_SOURCE_PUT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V525*/ meltfptr[524]) /*_.VALDATA___V525*/ meltfptr[524] = (void*)&cdat->dsym_459__CLASS_SOURCE_PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_459__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_459__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_459__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_459__CLASS_SOURCE_PUT_FIELDS.obj_hash = 484783195; + cdat->dsym_459__CLASS_SOURCE_PUT_FIELDS.obj_len = 3; + + /*inistring dstr_460__CLASS_SOURCE_PUT*/ + /*_.VALSTR___V526*/ meltfptr[525] = (void*)&cdat->dstr_460__CLASS_SOURCE_PUT; + cdat->dstr_460__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_460__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_460__CLASS_SOURCE_PUT.val)-1); + MELT_LOCATION("warmelt-macro.melt:416:/ iniobj"); + /*iniobj dobj_461__CLASS_SOURCE_PUT_FIELDS*/ +/*_.VALDATA___V527*/ meltfptr[526] = (void*)&cdat->dobj_461__CLASS_SOURCE_PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_461__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_461__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_461__CLASS_SOURCE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_461__CLASS_SOURCE_PUT_FIELDS.obj_hash = 773271150; + cdat->dobj_461__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; + + /*inistring dstr_462__CLASS_SOURCE_PUT*/ + /*_.VALSTR___V528*/ meltfptr[527] = (void*)&cdat->dstr_462__CLASS_SOURCE_PUT; + cdat->dstr_462__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_462__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_462__CLASS_SOURCE_PUT.val)-1); + /*inimult dtup_463__CLASS_SOURCE_PUT_FIELDS*/ + /*_.VALTUP___V529*/ meltfptr[528] = (void*)&cdat->dtup_463__CLASS_SOURCE_PUT_FIELDS; + cdat->dtup_463__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_463__CLASS_SOURCE_PUT_FIELDS.nbval = 4; + /*inimult dtup_464__CLASS_SOURCE_PUT_FIELDS*/ + /*_.VALTUP___V534*/ meltfptr[533] = (void*)&cdat->dtup_464__CLASS_SOURCE_PUT_FIELDS; + cdat->dtup_464__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_464__CLASS_SOURCE_PUT_FIELDS.nbval = 4; + /*iniobj dsym_465__SUPUT_OBJ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V535*/ meltfptr[534]) /*_.VALDATA___V535*/ meltfptr[534] = (void*)&cdat->dsym_465__SUPUT_OBJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_465__SUPUT_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_465__SUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_465__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_465__SUPUT_OBJ.obj_hash = 762778287; + cdat->dsym_465__SUPUT_OBJ.obj_len = 3; + + /*inistring dstr_466__SUPUT_OBJ*/ + /*_.VALSTR___V536*/ meltfptr[535] = (void*)&cdat->dstr_466__SUPUT_OBJ; + cdat->dstr_466__SUPUT_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_466__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_466__SUPUT_OBJ.val)-1); /*^iniobj*/ - /*iniobj dobj_461__SMINS_CLABIND*/ -/*_.VALDATA___V522*/ meltfptr[521] = (void*)&cdat->dobj_461__SMINS_CLABIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_461__SMINS_CLABIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__SMINS_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_461__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_461__SMINS_CLABIND.obj_num = 3; - cdat->dobj_461__SMINS_CLABIND.obj_hash = 945743642; - cdat->dobj_461__SMINS_CLABIND.obj_len = 4; - - /*inistring dstr_462__SMINS_CLABIND*/ - /*_.VALSTR___V523*/ meltfptr[522] = (void*)&cdat->dstr_462__SMINS_CLABIND; - cdat->dstr_462__SMINS_CLABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_462__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_462__SMINS_CLABIND.val)-1); - /*iniobj dsym_463__SMINS_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V531*/ meltfptr[530]) /*_.VALDATA___V531*/ meltfptr[530] = (void*)&cdat->dsym_463__SMINS_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_463__SMINS_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_463__SMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_463__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_463__SMINS_FIELDS.obj_hash = 235347076; - cdat->dsym_463__SMINS_FIELDS.obj_len = 3; - - /*inistring dstr_464__SMINS_FIELDS*/ - /*_.VALSTR___V532*/ meltfptr[531] = (void*)&cdat->dstr_464__SMINS_FIELDS; - cdat->dstr_464__SMINS_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_464__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_464__SMINS_FIELDS.val)-1); + /*iniobj dobj_467__SUPUT_OBJ*/ +/*_.VALDATA___V530*/ meltfptr[529] = (void*)&cdat->dobj_467__SUPUT_OBJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_467__SUPUT_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_467__SUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_467__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_467__SUPUT_OBJ.obj_num = 2; + cdat->dobj_467__SUPUT_OBJ.obj_hash = 608960156; + cdat->dobj_467__SUPUT_OBJ.obj_len = 4; + + /*inistring dstr_468__SUPUT_OBJ*/ + /*_.VALSTR___V531*/ meltfptr[530] = (void*)&cdat->dstr_468__SUPUT_OBJ; + cdat->dstr_468__SUPUT_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_468__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_468__SUPUT_OBJ.val)-1); + /*iniobj dsym_469__SUPUT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V537*/ meltfptr[536]) /*_.VALDATA___V537*/ meltfptr[536] = (void*)&cdat->dsym_469__SUPUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_469__SUPUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_469__SUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_469__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_469__SUPUT_FIELDS.obj_hash = 595613222; + cdat->dsym_469__SUPUT_FIELDS.obj_len = 3; + + /*inistring dstr_470__SUPUT_FIELDS*/ + /*_.VALSTR___V538*/ meltfptr[537] = (void*)&cdat->dstr_470__SUPUT_FIELDS; + cdat->dstr_470__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_470__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_470__SUPUT_FIELDS.val)-1); /*^iniobj*/ - /*iniobj dobj_465__SMINS_FIELDS*/ -/*_.VALDATA___V524*/ meltfptr[523] = (void*)&cdat->dobj_465__SMINS_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_465__SMINS_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__SMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_465__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_465__SMINS_FIELDS.obj_num = 4; - cdat->dobj_465__SMINS_FIELDS.obj_hash = 1050012199; - cdat->dobj_465__SMINS_FIELDS.obj_len = 4; - - /*inistring dstr_466__SMINS_FIELDS*/ - /*_.VALSTR___V525*/ meltfptr[524] = (void*)&cdat->dstr_466__SMINS_FIELDS; - cdat->dstr_466__SMINS_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_466__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_466__SMINS_FIELDS.val)-1); - /*iniobj dsym_467__CLASS_SOURCE_GET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V533*/ meltfptr[532]) /*_.VALDATA___V533*/ meltfptr[532] = (void*)&cdat->dsym_467__CLASS_SOURCE_GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_467__CLASS_SOURCE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_467__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_467__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_467__CLASS_SOURCE_GET_FIELD.obj_hash = 291216467; - cdat->dsym_467__CLASS_SOURCE_GET_FIELD.obj_len = 3; - - /*inistring dstr_468__CLASS_SOURCE_GET*/ - /*_.VALSTR___V534*/ meltfptr[533] = (void*)&cdat->dstr_468__CLASS_SOURCE_GET; - cdat->dstr_468__CLASS_SOURCE_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_468__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_468__CLASS_SOURCE_GET.val)-1); - MELT_LOCATION("warmelt-macro.melt:417:/ iniobj"); - /*iniobj dobj_469__CLASS_SOURCE_GET_FIELD*/ -/*_.VALDATA___V535*/ meltfptr[534] = (void*)&cdat->dobj_469__CLASS_SOURCE_GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_469__CLASS_SOURCE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_469__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_469__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_469__CLASS_SOURCE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_469__CLASS_SOURCE_GET_FIELD.obj_hash = 157425868; - cdat->dobj_469__CLASS_SOURCE_GET_FIELD.obj_len = 8; - - /*inistring dstr_470__CLASS_SOURCE_GET*/ - /*_.VALSTR___V536*/ meltfptr[535] = (void*)&cdat->dstr_470__CLASS_SOURCE_GET; - cdat->dstr_470__CLASS_SOURCE_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_470__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_470__CLASS_SOURCE_GET.val)-1); - /*inimult dtup_471__CLASS_SOURCE_GET_FIELD*/ - /*_.VALTUP___V537*/ meltfptr[536] = (void*)&cdat->dtup_471__CLASS_SOURCE_GET_FIELD; - cdat->dtup_471__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_471__CLASS_SOURCE_GET_FIELD.nbval = 4; - /*inimult dtup_472__CLASS_SOURCE_GET_FIELD*/ - /*_.VALTUP___V542*/ meltfptr[541] = (void*)&cdat->dtup_472__CLASS_SOURCE_GET_FIELD; - cdat->dtup_472__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_472__CLASS_SOURCE_GET_FIELD.nbval = 4; - /*iniobj dsym_473__SUGET_OBJ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V543*/ meltfptr[542]) /*_.VALDATA___V543*/ meltfptr[542] = (void*)&cdat->dsym_473__SUGET_OBJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_473__SUGET_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_473__SUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_473__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_473__SUGET_OBJ.obj_hash = 649934642; - cdat->dsym_473__SUGET_OBJ.obj_len = 3; - - /*inistring dstr_474__SUGET_OBJ*/ - /*_.VALSTR___V544*/ meltfptr[543] = (void*)&cdat->dstr_474__SUGET_OBJ; - cdat->dstr_474__SUGET_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_474__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_474__SUGET_OBJ.val)-1); + /*iniobj dobj_471__SUPUT_FIELDS*/ +/*_.VALDATA___V532*/ meltfptr[531] = (void*)&cdat->dobj_471__SUPUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_471__SUPUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_471__SUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_471__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_471__SUPUT_FIELDS.obj_num = 3; + cdat->dobj_471__SUPUT_FIELDS.obj_hash = 506981412; + cdat->dobj_471__SUPUT_FIELDS.obj_len = 4; + + /*inistring dstr_472__SUPUT_FIELDS*/ + /*_.VALSTR___V533*/ meltfptr[532] = (void*)&cdat->dstr_472__SUPUT_FIELDS; + cdat->dstr_472__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_472__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_472__SUPUT_FIELDS.val)-1); + /*iniobj dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V539*/ meltfptr[538]) /*_.VALDATA___V539*/ meltfptr[538] = (void*)&cdat->dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 24821450; + cdat->dsym_473__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 3; + + /*inistring dstr_474__CLASS_SOURCE_UNS*/ + /*_.VALSTR___V540*/ meltfptr[539] = (void*)&cdat->dstr_474__CLASS_SOURCE_UNS; + cdat->dstr_474__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_474__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_474__CLASS_SOURCE_UNS.val)-1); + MELT_LOCATION("warmelt-macro.melt:426:/ iniobj"); + /*iniobj dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ +/*_.VALDATA___V541*/ meltfptr[540] = (void*)&cdat->dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 181123598; + cdat->dobj_475__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; + + /*inistring dstr_476__CLASS_SOURCE_UNS*/ + /*_.VALSTR___V542*/ meltfptr[541] = (void*)&cdat->dstr_476__CLASS_SOURCE_UNS; + cdat->dstr_476__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_476__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_476__CLASS_SOURCE_UNS.val)-1); + /*inimult dtup_477__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ + /*_.VALTUP___V543*/ meltfptr[542] = (void*)&cdat->dtup_477__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + cdat->dtup_477__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_477__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 5; + /*inimult dtup_478__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ + /*_.VALTUP___V544*/ meltfptr[543] = (void*)&cdat->dtup_478__CLASS_SOURCE_UNSAFE_PUT_FIELDS; + cdat->dtup_478__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_478__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 4; + /*iniobj dsym_479__CLASS_SOURCE_IF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V545*/ meltfptr[544]) /*_.VALDATA___V545*/ meltfptr[544] = (void*)&cdat->dsym_479__CLASS_SOURCE_IF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_479__CLASS_SOURCE_IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_479__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_479__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_479__CLASS_SOURCE_IF.obj_hash = 852156504; + cdat->dsym_479__CLASS_SOURCE_IF.obj_len = 3; + + /*inistring dstr_480__CLASS_SOURCE_IF*/ + /*_.VALSTR___V546*/ meltfptr[545] = (void*)&cdat->dstr_480__CLASS_SOURCE_IF; + cdat->dstr_480__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_480__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_480__CLASS_SOURCE_IF.val)-1); + MELT_LOCATION("warmelt-macro.melt:435:/ iniobj"); + /*iniobj dobj_481__CLASS_SOURCE_IF*/ +/*_.VALDATA___V547*/ meltfptr[546] = (void*)&cdat->dobj_481__CLASS_SOURCE_IF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_481__CLASS_SOURCE_IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_481__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_481__CLASS_SOURCE_IF.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_481__CLASS_SOURCE_IF.obj_hash = 558179386; + cdat->dobj_481__CLASS_SOURCE_IF.obj_len = 8; + + /*inistring dstr_482__CLASS_SOURCE_IF*/ + /*_.VALSTR___V548*/ meltfptr[547] = (void*)&cdat->dstr_482__CLASS_SOURCE_IF; + cdat->dstr_482__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_482__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_482__CLASS_SOURCE_IF.val)-1); + /*inimult dtup_483__CLASS_SOURCE_IF*/ + /*_.VALTUP___V549*/ meltfptr[548] = (void*)&cdat->dtup_483__CLASS_SOURCE_IF; + cdat->dtup_483__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_483__CLASS_SOURCE_IF.nbval = 4; + /*inimult dtup_484__CLASS_SOURCE_IF*/ + /*_.VALTUP___V554*/ meltfptr[553] = (void*)&cdat->dtup_484__CLASS_SOURCE_IF; + cdat->dtup_484__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_484__CLASS_SOURCE_IF.nbval = 4; + /*iniobj dsym_485__SIF_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V555*/ meltfptr[554]) /*_.VALDATA___V555*/ meltfptr[554] = (void*)&cdat->dsym_485__SIF_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_485__SIF_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_485__SIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_485__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_485__SIF_TEST.obj_hash = 531822652; + cdat->dsym_485__SIF_TEST.obj_len = 3; + + /*inistring dstr_486__SIF_TEST*/ + /*_.VALSTR___V556*/ meltfptr[555] = (void*)&cdat->dstr_486__SIF_TEST; + cdat->dstr_486__SIF_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_486__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_486__SIF_TEST.val)-1); /*^iniobj*/ - /*iniobj dobj_475__SUGET_OBJ*/ -/*_.VALDATA___V538*/ meltfptr[537] = (void*)&cdat->dobj_475__SUGET_OBJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_475__SUGET_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_475__SUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_475__SUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_475__SUGET_OBJ.obj_num = 2; - cdat->dobj_475__SUGET_OBJ.obj_hash = 893900196; - cdat->dobj_475__SUGET_OBJ.obj_len = 4; - - /*inistring dstr_476__SUGET_OBJ*/ - /*_.VALSTR___V539*/ meltfptr[538] = (void*)&cdat->dstr_476__SUGET_OBJ; - cdat->dstr_476__SUGET_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_476__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_476__SUGET_OBJ.val)-1); - /*iniobj dsym_477__SUGET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V545*/ meltfptr[544]) /*_.VALDATA___V545*/ meltfptr[544] = (void*)&cdat->dsym_477__SUGET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_477__SUGET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_477__SUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_477__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_477__SUGET_FIELD.obj_hash = 430834528; - cdat->dsym_477__SUGET_FIELD.obj_len = 3; - - /*inistring dstr_478__SUGET_FIELD*/ - /*_.VALSTR___V546*/ meltfptr[545] = (void*)&cdat->dstr_478__SUGET_FIELD; - cdat->dstr_478__SUGET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_478__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_478__SUGET_FIELD.val)-1); + /*iniobj dobj_487__SIF_TEST*/ +/*_.VALDATA___V550*/ meltfptr[549] = (void*)&cdat->dobj_487__SIF_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_487__SIF_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__SIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_487__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_487__SIF_TEST.obj_num = 2; + cdat->dobj_487__SIF_TEST.obj_hash = 9626920; + cdat->dobj_487__SIF_TEST.obj_len = 4; + + /*inistring dstr_488__SIF_TEST*/ + /*_.VALSTR___V551*/ meltfptr[550] = (void*)&cdat->dstr_488__SIF_TEST; + cdat->dstr_488__SIF_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_488__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_488__SIF_TEST.val)-1); + /*iniobj dsym_489__SIF_THEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V557*/ meltfptr[556]) /*_.VALDATA___V557*/ meltfptr[556] = (void*)&cdat->dsym_489__SIF_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_489__SIF_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_489__SIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_489__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_489__SIF_THEN.obj_hash = 111634546; + cdat->dsym_489__SIF_THEN.obj_len = 3; + + /*inistring dstr_490__SIF_THEN*/ + /*_.VALSTR___V558*/ meltfptr[557] = (void*)&cdat->dstr_490__SIF_THEN; + cdat->dstr_490__SIF_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_490__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_490__SIF_THEN.val)-1); /*^iniobj*/ - /*iniobj dobj_479__SUGET_FIELD*/ -/*_.VALDATA___V540*/ meltfptr[539] = (void*)&cdat->dobj_479__SUGET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_479__SUGET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_479__SUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_479__SUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_479__SUGET_FIELD.obj_num = 3; - cdat->dobj_479__SUGET_FIELD.obj_hash = 637818564; - cdat->dobj_479__SUGET_FIELD.obj_len = 4; - - /*inistring dstr_480__SUGET_FIELD*/ - /*_.VALSTR___V541*/ meltfptr[540] = (void*)&cdat->dstr_480__SUGET_FIELD; - cdat->dstr_480__SUGET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_480__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_480__SUGET_FIELD.val)-1); - /*iniobj dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V547*/ meltfptr[546]) /*_.VALDATA___V547*/ meltfptr[546] = (void*)&cdat->dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 846462223; - cdat->dsym_481__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 3; - - /*inistring dstr_482__CLASS_SOURCE_UNS*/ - /*_.VALSTR___V548*/ meltfptr[547] = (void*)&cdat->dstr_482__CLASS_SOURCE_UNS; - cdat->dstr_482__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_482__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_482__CLASS_SOURCE_UNS.val)-1); - MELT_LOCATION("warmelt-macro.melt:428:/ iniobj"); - /*iniobj dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD*/ -/*_.VALDATA___V549*/ meltfptr[548] = (void*)&cdat->dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 148985165; - cdat->dobj_483__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; - - /*inistring dstr_484__CLASS_SOURCE_UNS*/ - /*_.VALSTR___V550*/ meltfptr[549] = (void*)&cdat->dstr_484__CLASS_SOURCE_UNS; - cdat->dstr_484__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_484__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_484__CLASS_SOURCE_UNS.val)-1); - /*inimult dtup_485__CLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*_.VALTUP___V551*/ meltfptr[550] = (void*)&cdat->dtup_485__CLASS_SOURCE_UNSAFE_GET_FIELD; - cdat->dtup_485__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_485__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 5; - /*inimult dtup_486__CLASS_SOURCE_UNSAFE_GET_FIELD*/ - /*_.VALTUP___V552*/ meltfptr[551] = (void*)&cdat->dtup_486__CLASS_SOURCE_UNSAFE_GET_FIELD; - cdat->dtup_486__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_486__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 4; - /*iniobj dsym_487__CLASS_SOURCE_PUT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V553*/ meltfptr[552]) /*_.VALDATA___V553*/ meltfptr[552] = (void*)&cdat->dsym_487__CLASS_SOURCE_PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_487__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_487__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_487__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_487__CLASS_SOURCE_PUT_FIELDS.obj_hash = 484783195; - cdat->dsym_487__CLASS_SOURCE_PUT_FIELDS.obj_len = 3; - - /*inistring dstr_488__CLASS_SOURCE_PUT*/ - /*_.VALSTR___V554*/ meltfptr[553] = (void*)&cdat->dstr_488__CLASS_SOURCE_PUT; - cdat->dstr_488__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_488__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_488__CLASS_SOURCE_PUT.val)-1); - MELT_LOCATION("warmelt-macro.melt:437:/ iniobj"); - /*iniobj dobj_489__CLASS_SOURCE_PUT_FIELDS*/ -/*_.VALDATA___V555*/ meltfptr[554] = (void*)&cdat->dobj_489__CLASS_SOURCE_PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_489__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_489__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_489__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_489__CLASS_SOURCE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_489__CLASS_SOURCE_PUT_FIELDS.obj_hash = 649613835; - cdat->dobj_489__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; - - /*inistring dstr_490__CLASS_SOURCE_PUT*/ - /*_.VALSTR___V556*/ meltfptr[555] = (void*)&cdat->dstr_490__CLASS_SOURCE_PUT; - cdat->dstr_490__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_490__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_490__CLASS_SOURCE_PUT.val)-1); - /*inimult dtup_491__CLASS_SOURCE_PUT_FIELDS*/ - /*_.VALTUP___V557*/ meltfptr[556] = (void*)&cdat->dtup_491__CLASS_SOURCE_PUT_FIELDS; - cdat->dtup_491__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_491__CLASS_SOURCE_PUT_FIELDS.nbval = 4; - /*inimult dtup_492__CLASS_SOURCE_PUT_FIELDS*/ - /*_.VALTUP___V562*/ meltfptr[561] = (void*)&cdat->dtup_492__CLASS_SOURCE_PUT_FIELDS; - cdat->dtup_492__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_492__CLASS_SOURCE_PUT_FIELDS.nbval = 4; - /*iniobj dsym_493__SUPUT_OBJ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V563*/ meltfptr[562]) /*_.VALDATA___V563*/ meltfptr[562] = (void*)&cdat->dsym_493__SUPUT_OBJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__SUPUT_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_493__SUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_493__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_493__SUPUT_OBJ.obj_hash = 762778287; - cdat->dsym_493__SUPUT_OBJ.obj_len = 3; - - /*inistring dstr_494__SUPUT_OBJ*/ - /*_.VALSTR___V564*/ meltfptr[563] = (void*)&cdat->dstr_494__SUPUT_OBJ; - cdat->dstr_494__SUPUT_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_494__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_494__SUPUT_OBJ.val)-1); + /*iniobj dobj_491__SIF_THEN*/ +/*_.VALDATA___V552*/ meltfptr[551] = (void*)&cdat->dobj_491__SIF_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_491__SIF_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__SIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_491__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_491__SIF_THEN.obj_num = 3; + cdat->dobj_491__SIF_THEN.obj_hash = 674863494; + cdat->dobj_491__SIF_THEN.obj_len = 4; + + /*inistring dstr_492__SIF_THEN*/ + /*_.VALSTR___V553*/ meltfptr[552] = (void*)&cdat->dstr_492__SIF_THEN; + cdat->dstr_492__SIF_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_492__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_492__SIF_THEN.val)-1); + /*iniobj dsym_493__CLASS_SOURCE_IFELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V559*/ meltfptr[558]) /*_.VALDATA___V559*/ meltfptr[558] = (void*)&cdat->dsym_493__CLASS_SOURCE_IFELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__CLASS_SOURCE_IFELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_493__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_493__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_493__CLASS_SOURCE_IFELSE.obj_hash = 588500358; + cdat->dsym_493__CLASS_SOURCE_IFELSE.obj_len = 3; + + /*inistring dstr_494__CLASS_SOURCE_IFE*/ + /*_.VALSTR___V560*/ meltfptr[559] = (void*)&cdat->dstr_494__CLASS_SOURCE_IFE; + cdat->dstr_494__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_494__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_494__CLASS_SOURCE_IFE.val)-1); + MELT_LOCATION("warmelt-macro.melt:444:/ iniobj"); + /*iniobj dobj_495__CLASS_SOURCE_IFELSE*/ +/*_.VALDATA___V561*/ meltfptr[560] = (void*)&cdat->dobj_495__CLASS_SOURCE_IFELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_495__CLASS_SOURCE_IFELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_495__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_495__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_495__CLASS_SOURCE_IFELSE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_495__CLASS_SOURCE_IFELSE.obj_hash = 857865143; + cdat->dobj_495__CLASS_SOURCE_IFELSE.obj_len = 8; + + /*inistring dstr_496__CLASS_SOURCE_IFE*/ + /*_.VALSTR___V562*/ meltfptr[561] = (void*)&cdat->dstr_496__CLASS_SOURCE_IFE; + cdat->dstr_496__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_496__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_496__CLASS_SOURCE_IFE.val)-1); + /*inimult dtup_497__CLASS_SOURCE_IFELSE*/ + /*_.VALTUP___V563*/ meltfptr[562] = (void*)&cdat->dtup_497__CLASS_SOURCE_IFELSE; + cdat->dtup_497__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_497__CLASS_SOURCE_IFELSE.nbval = 5; + /*inimult dtup_498__CLASS_SOURCE_IFELSE*/ + /*_.VALTUP___V566*/ meltfptr[565] = (void*)&cdat->dtup_498__CLASS_SOURCE_IFELSE; + cdat->dtup_498__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_498__CLASS_SOURCE_IFELSE.nbval = 5; + /*iniobj dsym_499__SIF_ELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V567*/ meltfptr[566]) /*_.VALDATA___V567*/ meltfptr[566] = (void*)&cdat->dsym_499__SIF_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_499__SIF_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_499__SIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_499__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_499__SIF_ELSE.obj_hash = 876593992; + cdat->dsym_499__SIF_ELSE.obj_len = 3; + + /*inistring dstr_500__SIF_ELSE*/ + /*_.VALSTR___V568*/ meltfptr[567] = (void*)&cdat->dstr_500__SIF_ELSE; + cdat->dstr_500__SIF_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_500__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_500__SIF_ELSE.val)-1); /*^iniobj*/ - /*iniobj dobj_495__SUPUT_OBJ*/ -/*_.VALDATA___V558*/ meltfptr[557] = (void*)&cdat->dobj_495__SUPUT_OBJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_495__SUPUT_OBJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_495__SUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_495__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_495__SUPUT_OBJ.obj_num = 2; - cdat->dobj_495__SUPUT_OBJ.obj_hash = 172392743; - cdat->dobj_495__SUPUT_OBJ.obj_len = 4; - - /*inistring dstr_496__SUPUT_OBJ*/ - /*_.VALSTR___V559*/ meltfptr[558] = (void*)&cdat->dstr_496__SUPUT_OBJ; - cdat->dstr_496__SUPUT_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_496__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_496__SUPUT_OBJ.val)-1); - /*iniobj dsym_497__SUPUT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V565*/ meltfptr[564]) /*_.VALDATA___V565*/ meltfptr[564] = (void*)&cdat->dsym_497__SUPUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_497__SUPUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_497__SUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_497__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_497__SUPUT_FIELDS.obj_hash = 595613222; - cdat->dsym_497__SUPUT_FIELDS.obj_len = 3; - - /*inistring dstr_498__SUPUT_FIELDS*/ - /*_.VALSTR___V566*/ meltfptr[565] = (void*)&cdat->dstr_498__SUPUT_FIELDS; - cdat->dstr_498__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_498__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_498__SUPUT_FIELDS.val)-1); + /*iniobj dobj_501__SIF_ELSE*/ +/*_.VALDATA___V564*/ meltfptr[563] = (void*)&cdat->dobj_501__SIF_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_501__SIF_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__SIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_501__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_501__SIF_ELSE.obj_num = 4; + cdat->dobj_501__SIF_ELSE.obj_hash = 762983468; + cdat->dobj_501__SIF_ELSE.obj_len = 4; + + /*inistring dstr_502__SIF_ELSE*/ + /*_.VALSTR___V565*/ meltfptr[564] = (void*)&cdat->dstr_502__SIF_ELSE; + cdat->dstr_502__SIF_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_502__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_502__SIF_ELSE.val)-1); + /*iniobj dsym_503__CLASS_SOURCE_OR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V569*/ meltfptr[568]) /*_.VALDATA___V569*/ meltfptr[568] = (void*)&cdat->dsym_503__CLASS_SOURCE_OR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_503__CLASS_SOURCE_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_503__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_503__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_503__CLASS_SOURCE_OR.obj_hash = 738334645; + cdat->dsym_503__CLASS_SOURCE_OR.obj_len = 3; + + /*inistring dstr_504__CLASS_SOURCE_OR*/ + /*_.VALSTR___V570*/ meltfptr[569] = (void*)&cdat->dstr_504__CLASS_SOURCE_OR; + cdat->dstr_504__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_504__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_504__CLASS_SOURCE_OR.val)-1); + MELT_LOCATION("warmelt-macro.melt:455:/ iniobj"); + /*iniobj dobj_505__CLASS_SOURCE_OR*/ +/*_.VALDATA___V571*/ meltfptr[570] = (void*)&cdat->dobj_505__CLASS_SOURCE_OR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_505__CLASS_SOURCE_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_505__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_505__CLASS_SOURCE_OR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_505__CLASS_SOURCE_OR.obj_hash = 547812687; + cdat->dobj_505__CLASS_SOURCE_OR.obj_len = 8; + + /*inistring dstr_506__CLASS_SOURCE_OR*/ + /*_.VALSTR___V572*/ meltfptr[571] = (void*)&cdat->dstr_506__CLASS_SOURCE_OR; + cdat->dstr_506__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_506__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_506__CLASS_SOURCE_OR.val)-1); + /*inimult dtup_507__CLASS_SOURCE_OR*/ + /*_.VALTUP___V573*/ meltfptr[572] = (void*)&cdat->dtup_507__CLASS_SOURCE_OR; + cdat->dtup_507__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_507__CLASS_SOURCE_OR.nbval = 4; + /*inimult dtup_508__CLASS_SOURCE_OR*/ + /*_.VALTUP___V576*/ meltfptr[575] = (void*)&cdat->dtup_508__CLASS_SOURCE_OR; + cdat->dtup_508__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_508__CLASS_SOURCE_OR.nbval = 3; + /*iniobj dsym_509__SOR_DISJ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V577*/ meltfptr[576]) /*_.VALDATA___V577*/ meltfptr[576] = (void*)&cdat->dsym_509__SOR_DISJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__SOR_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_509__SOR_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_509__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_509__SOR_DISJ.obj_hash = 354040300; + cdat->dsym_509__SOR_DISJ.obj_len = 3; + + /*inistring dstr_510__SOR_DISJ*/ + /*_.VALSTR___V578*/ meltfptr[577] = (void*)&cdat->dstr_510__SOR_DISJ; + cdat->dstr_510__SOR_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_510__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_510__SOR_DISJ.val)-1); /*^iniobj*/ - /*iniobj dobj_499__SUPUT_FIELDS*/ -/*_.VALDATA___V560*/ meltfptr[559] = (void*)&cdat->dobj_499__SUPUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_499__SUPUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__SUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_499__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_499__SUPUT_FIELDS.obj_num = 3; - cdat->dobj_499__SUPUT_FIELDS.obj_hash = 583121299; - cdat->dobj_499__SUPUT_FIELDS.obj_len = 4; - - /*inistring dstr_500__SUPUT_FIELDS*/ - /*_.VALSTR___V561*/ meltfptr[560] = (void*)&cdat->dstr_500__SUPUT_FIELDS; - cdat->dstr_500__SUPUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_500__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_500__SUPUT_FIELDS.val)-1); - /*iniobj dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V567*/ meltfptr[566]) /*_.VALDATA___V567*/ meltfptr[566] = (void*)&cdat->dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 24821450; - cdat->dsym_501__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 3; - - /*inistring dstr_502__CLASS_SOURCE_UNS*/ - /*_.VALSTR___V568*/ meltfptr[567] = (void*)&cdat->dstr_502__CLASS_SOURCE_UNS; - cdat->dstr_502__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_502__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_502__CLASS_SOURCE_UNS.val)-1); - MELT_LOCATION("warmelt-macro.melt:447:/ iniobj"); - /*iniobj dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ -/*_.VALDATA___V569*/ meltfptr[568] = (void*)&cdat->dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 182991082; - cdat->dobj_503__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; - - /*inistring dstr_504__CLASS_SOURCE_UNS*/ - /*_.VALSTR___V570*/ meltfptr[569] = (void*)&cdat->dstr_504__CLASS_SOURCE_UNS; - cdat->dstr_504__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_504__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_504__CLASS_SOURCE_UNS.val)-1); - /*inimult dtup_505__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*_.VALTUP___V571*/ meltfptr[570] = (void*)&cdat->dtup_505__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - cdat->dtup_505__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_505__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 5; - /*inimult dtup_506__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - /*_.VALTUP___V572*/ meltfptr[571] = (void*)&cdat->dtup_506__CLASS_SOURCE_UNSAFE_PUT_FIELDS; - cdat->dtup_506__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_506__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 4; - /*iniobj dsym_507__CLASS_SOURCE_IF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V573*/ meltfptr[572]) /*_.VALDATA___V573*/ meltfptr[572] = (void*)&cdat->dsym_507__CLASS_SOURCE_IF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_507__CLASS_SOURCE_IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_507__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_507__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_507__CLASS_SOURCE_IF.obj_hash = 852156504; - cdat->dsym_507__CLASS_SOURCE_IF.obj_len = 3; - - /*inistring dstr_508__CLASS_SOURCE_IF*/ - /*_.VALSTR___V574*/ meltfptr[573] = (void*)&cdat->dstr_508__CLASS_SOURCE_IF; - cdat->dstr_508__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_508__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_508__CLASS_SOURCE_IF.val)-1); - MELT_LOCATION("warmelt-macro.melt:456:/ iniobj"); - /*iniobj dobj_509__CLASS_SOURCE_IF*/ -/*_.VALDATA___V575*/ meltfptr[574] = (void*)&cdat->dobj_509__CLASS_SOURCE_IF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_509__CLASS_SOURCE_IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_509__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_509__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_509__CLASS_SOURCE_IF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_509__CLASS_SOURCE_IF.obj_hash = 736798185; - cdat->dobj_509__CLASS_SOURCE_IF.obj_len = 8; - - /*inistring dstr_510__CLASS_SOURCE_IF*/ - /*_.VALSTR___V576*/ meltfptr[575] = (void*)&cdat->dstr_510__CLASS_SOURCE_IF; - cdat->dstr_510__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_510__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_510__CLASS_SOURCE_IF.val)-1); - /*inimult dtup_511__CLASS_SOURCE_IF*/ - /*_.VALTUP___V577*/ meltfptr[576] = (void*)&cdat->dtup_511__CLASS_SOURCE_IF; - cdat->dtup_511__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_511__CLASS_SOURCE_IF.nbval = 4; - /*inimult dtup_512__CLASS_SOURCE_IF*/ - /*_.VALTUP___V582*/ meltfptr[581] = (void*)&cdat->dtup_512__CLASS_SOURCE_IF; - cdat->dtup_512__CLASS_SOURCE_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_512__CLASS_SOURCE_IF.nbval = 4; - /*iniobj dsym_513__SIF_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V583*/ meltfptr[582]) /*_.VALDATA___V583*/ meltfptr[582] = (void*)&cdat->dsym_513__SIF_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__SIF_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_513__SIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_513__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_513__SIF_TEST.obj_hash = 531822652; - cdat->dsym_513__SIF_TEST.obj_len = 3; - - /*inistring dstr_514__SIF_TEST*/ - /*_.VALSTR___V584*/ meltfptr[583] = (void*)&cdat->dstr_514__SIF_TEST; - cdat->dstr_514__SIF_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_514__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_514__SIF_TEST.val)-1); + /*iniobj dobj_511__SOR_DISJ*/ +/*_.VALDATA___V574*/ meltfptr[573] = (void*)&cdat->dobj_511__SOR_DISJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__SOR_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__SOR_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_511__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_511__SOR_DISJ.obj_num = 2; + cdat->dobj_511__SOR_DISJ.obj_hash = 671432156; + cdat->dobj_511__SOR_DISJ.obj_len = 4; + + /*inistring dstr_512__SOR_DISJ*/ + /*_.VALSTR___V575*/ meltfptr[574] = (void*)&cdat->dstr_512__SOR_DISJ; + cdat->dstr_512__SOR_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_512__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_512__SOR_DISJ.val)-1); + /*iniobj dsym_513__CLASS_SOURCE_CPPIF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V579*/ meltfptr[578]) /*_.VALDATA___V579*/ meltfptr[578] = (void*)&cdat->dsym_513__CLASS_SOURCE_CPPIF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__CLASS_SOURCE_CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_513__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_513__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_513__CLASS_SOURCE_CPPIF.obj_hash = 179014183; + cdat->dsym_513__CLASS_SOURCE_CPPIF.obj_len = 3; + + /*inistring dstr_514__CLASS_SOURCE_CPP*/ + /*_.VALSTR___V580*/ meltfptr[579] = (void*)&cdat->dstr_514__CLASS_SOURCE_CPP; + cdat->dstr_514__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_514__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_514__CLASS_SOURCE_CPP.val)-1); + MELT_LOCATION("warmelt-macro.melt:467:/ iniobj"); + /*iniobj dobj_515__CLASS_SOURCE_CPPIF*/ +/*_.VALDATA___V581*/ meltfptr[580] = (void*)&cdat->dobj_515__CLASS_SOURCE_CPPIF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_515__CLASS_SOURCE_CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_515__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_515__CLASS_SOURCE_CPPIF.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_515__CLASS_SOURCE_CPPIF.obj_hash = 1070848877; + cdat->dobj_515__CLASS_SOURCE_CPPIF.obj_len = 8; + + /*inistring dstr_516__CLASS_SOURCE_CPP*/ + /*_.VALSTR___V582*/ meltfptr[581] = (void*)&cdat->dstr_516__CLASS_SOURCE_CPP; + cdat->dstr_516__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_516__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_516__CLASS_SOURCE_CPP.val)-1); + /*inimult dtup_517__CLASS_SOURCE_CPPIF*/ + /*_.VALTUP___V583*/ meltfptr[582] = (void*)&cdat->dtup_517__CLASS_SOURCE_CPPIF; + cdat->dtup_517__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_517__CLASS_SOURCE_CPPIF.nbval = 4; + /*inimult dtup_518__CLASS_SOURCE_CPPIF*/ + /*_.VALTUP___V590*/ meltfptr[589] = (void*)&cdat->dtup_518__CLASS_SOURCE_CPPIF; + cdat->dtup_518__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_518__CLASS_SOURCE_CPPIF.nbval = 5; + /*iniobj dsym_519__SIFP_COND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V591*/ meltfptr[590]) /*_.VALDATA___V591*/ meltfptr[590] = (void*)&cdat->dsym_519__SIFP_COND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_519__SIFP_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_519__SIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_519__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_519__SIFP_COND.obj_hash = 843364013; + cdat->dsym_519__SIFP_COND.obj_len = 3; + + /*inistring dstr_520__SIFP_COND*/ + /*_.VALSTR___V592*/ meltfptr[591] = (void*)&cdat->dstr_520__SIFP_COND; + cdat->dstr_520__SIFP_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_520__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_520__SIFP_COND.val)-1); /*^iniobj*/ - /*iniobj dobj_515__SIF_TEST*/ -/*_.VALDATA___V578*/ meltfptr[577] = (void*)&cdat->dobj_515__SIF_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_515__SIF_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__SIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_515__SIF_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_515__SIF_TEST.obj_num = 2; - cdat->dobj_515__SIF_TEST.obj_hash = 597907835; - cdat->dobj_515__SIF_TEST.obj_len = 4; - - /*inistring dstr_516__SIF_TEST*/ - /*_.VALSTR___V579*/ meltfptr[578] = (void*)&cdat->dstr_516__SIF_TEST; - cdat->dstr_516__SIF_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_516__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_516__SIF_TEST.val)-1); - /*iniobj dsym_517__SIF_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V585*/ meltfptr[584]) /*_.VALDATA___V585*/ meltfptr[584] = (void*)&cdat->dsym_517__SIF_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_517__SIF_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_517__SIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_517__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_517__SIF_THEN.obj_hash = 111634546; - cdat->dsym_517__SIF_THEN.obj_len = 3; - - /*inistring dstr_518__SIF_THEN*/ - /*_.VALSTR___V586*/ meltfptr[585] = (void*)&cdat->dstr_518__SIF_THEN; - cdat->dstr_518__SIF_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_518__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_518__SIF_THEN.val)-1); + /*iniobj dobj_521__SIFP_COND*/ +/*_.VALDATA___V584*/ meltfptr[583] = (void*)&cdat->dobj_521__SIFP_COND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_521__SIFP_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_521__SIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_521__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_521__SIFP_COND.obj_num = 2; + cdat->dobj_521__SIFP_COND.obj_hash = 1040488481; + cdat->dobj_521__SIFP_COND.obj_len = 4; + + /*inistring dstr_522__SIFP_COND*/ + /*_.VALSTR___V585*/ meltfptr[584] = (void*)&cdat->dstr_522__SIFP_COND; + cdat->dstr_522__SIFP_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_522__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_522__SIFP_COND.val)-1); + /*iniobj dsym_523__SIFP_THEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V593*/ meltfptr[592]) /*_.VALDATA___V593*/ meltfptr[592] = (void*)&cdat->dsym_523__SIFP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__SIFP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_523__SIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_523__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_523__SIFP_THEN.obj_hash = 1068543930; + cdat->dsym_523__SIFP_THEN.obj_len = 3; + + /*inistring dstr_524__SIFP_THEN*/ + /*_.VALSTR___V594*/ meltfptr[593] = (void*)&cdat->dstr_524__SIFP_THEN; + cdat->dstr_524__SIFP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_524__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_524__SIFP_THEN.val)-1); /*^iniobj*/ - /*iniobj dobj_519__SIF_THEN*/ -/*_.VALDATA___V580*/ meltfptr[579] = (void*)&cdat->dobj_519__SIF_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_519__SIF_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519__SIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_519__SIF_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_519__SIF_THEN.obj_num = 3; - cdat->dobj_519__SIF_THEN.obj_hash = 1054360773; - cdat->dobj_519__SIF_THEN.obj_len = 4; - - /*inistring dstr_520__SIF_THEN*/ - /*_.VALSTR___V581*/ meltfptr[580] = (void*)&cdat->dstr_520__SIF_THEN; - cdat->dstr_520__SIF_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_520__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_520__SIF_THEN.val)-1); - /*iniobj dsym_521__CLASS_SOURCE_IFELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V587*/ meltfptr[586]) /*_.VALDATA___V587*/ meltfptr[586] = (void*)&cdat->dsym_521__CLASS_SOURCE_IFELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_521__CLASS_SOURCE_IFELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_521__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_521__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_521__CLASS_SOURCE_IFELSE.obj_hash = 588500358; - cdat->dsym_521__CLASS_SOURCE_IFELSE.obj_len = 3; - - /*inistring dstr_522__CLASS_SOURCE_IFE*/ - /*_.VALSTR___V588*/ meltfptr[587] = (void*)&cdat->dstr_522__CLASS_SOURCE_IFE; - cdat->dstr_522__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_522__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_522__CLASS_SOURCE_IFE.val)-1); - MELT_LOCATION("warmelt-macro.melt:465:/ iniobj"); - /*iniobj dobj_523__CLASS_SOURCE_IFELSE*/ -/*_.VALDATA___V589*/ meltfptr[588] = (void*)&cdat->dobj_523__CLASS_SOURCE_IFELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_523__CLASS_SOURCE_IFELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_523__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_523__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_523__CLASS_SOURCE_IFELSE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_523__CLASS_SOURCE_IFELSE.obj_hash = 60487853; - cdat->dobj_523__CLASS_SOURCE_IFELSE.obj_len = 8; - - /*inistring dstr_524__CLASS_SOURCE_IFE*/ - /*_.VALSTR___V590*/ meltfptr[589] = (void*)&cdat->dstr_524__CLASS_SOURCE_IFE; - cdat->dstr_524__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_524__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_524__CLASS_SOURCE_IFE.val)-1); - /*inimult dtup_525__CLASS_SOURCE_IFELSE*/ - /*_.VALTUP___V591*/ meltfptr[590] = (void*)&cdat->dtup_525__CLASS_SOURCE_IFELSE; - cdat->dtup_525__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_525__CLASS_SOURCE_IFELSE.nbval = 5; - /*inimult dtup_526__CLASS_SOURCE_IFELSE*/ - /*_.VALTUP___V594*/ meltfptr[593] = (void*)&cdat->dtup_526__CLASS_SOURCE_IFELSE; - cdat->dtup_526__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_526__CLASS_SOURCE_IFELSE.nbval = 5; - /*iniobj dsym_527__SIF_ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V595*/ meltfptr[594]) /*_.VALDATA___V595*/ meltfptr[594] = (void*)&cdat->dsym_527__SIF_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_527__SIF_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_527__SIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_527__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_527__SIF_ELSE.obj_hash = 876593992; - cdat->dsym_527__SIF_ELSE.obj_len = 3; - - /*inistring dstr_528__SIF_ELSE*/ - /*_.VALSTR___V596*/ meltfptr[595] = (void*)&cdat->dstr_528__SIF_ELSE; - cdat->dstr_528__SIF_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_528__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_528__SIF_ELSE.val)-1); + /*iniobj dobj_525__SIFP_THEN*/ +/*_.VALDATA___V586*/ meltfptr[585] = (void*)&cdat->dobj_525__SIFP_THEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__SIFP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__SIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_525__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_525__SIFP_THEN.obj_num = 3; + cdat->dobj_525__SIFP_THEN.obj_hash = 408815600; + cdat->dobj_525__SIFP_THEN.obj_len = 4; + + /*inistring dstr_526__SIFP_THEN*/ + /*_.VALSTR___V587*/ meltfptr[586] = (void*)&cdat->dstr_526__SIFP_THEN; + cdat->dstr_526__SIFP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_526__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_526__SIFP_THEN.val)-1); + /*iniobj dsym_527__SIFP_ELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V595*/ meltfptr[594]) /*_.VALDATA___V595*/ meltfptr[594] = (void*)&cdat->dsym_527__SIFP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_527__SIFP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_527__SIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_527__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_527__SIFP_ELSE.obj_hash = 914147024; + cdat->dsym_527__SIFP_ELSE.obj_len = 3; + + /*inistring dstr_528__SIFP_ELSE*/ + /*_.VALSTR___V596*/ meltfptr[595] = (void*)&cdat->dstr_528__SIFP_ELSE; + cdat->dstr_528__SIFP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_528__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_528__SIFP_ELSE.val)-1); /*^iniobj*/ - /*iniobj dobj_529__SIF_ELSE*/ -/*_.VALDATA___V592*/ meltfptr[591] = (void*)&cdat->dobj_529__SIF_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_529__SIF_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__SIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_529__SIF_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_529__SIF_ELSE.obj_num = 4; - cdat->dobj_529__SIF_ELSE.obj_hash = 565031227; - cdat->dobj_529__SIF_ELSE.obj_len = 4; - - /*inistring dstr_530__SIF_ELSE*/ - /*_.VALSTR___V593*/ meltfptr[592] = (void*)&cdat->dstr_530__SIF_ELSE; - cdat->dstr_530__SIF_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_530__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_530__SIF_ELSE.val)-1); - /*iniobj dsym_531__CLASS_SOURCE_OR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V597*/ meltfptr[596]) /*_.VALDATA___V597*/ meltfptr[596] = (void*)&cdat->dsym_531__CLASS_SOURCE_OR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__CLASS_SOURCE_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_531__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_531__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_531__CLASS_SOURCE_OR.obj_hash = 738334645; - cdat->dsym_531__CLASS_SOURCE_OR.obj_len = 3; - - /*inistring dstr_532__CLASS_SOURCE_OR*/ - /*_.VALSTR___V598*/ meltfptr[597] = (void*)&cdat->dstr_532__CLASS_SOURCE_OR; - cdat->dstr_532__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_532__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_532__CLASS_SOURCE_OR.val)-1); - MELT_LOCATION("warmelt-macro.melt:476:/ iniobj"); - /*iniobj dobj_533__CLASS_SOURCE_OR*/ -/*_.VALDATA___V599*/ meltfptr[598] = (void*)&cdat->dobj_533__CLASS_SOURCE_OR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_533__CLASS_SOURCE_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_533__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_533__CLASS_SOURCE_OR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_533__CLASS_SOURCE_OR.obj_hash = 974140674; - cdat->dobj_533__CLASS_SOURCE_OR.obj_len = 8; - - /*inistring dstr_534__CLASS_SOURCE_OR*/ - /*_.VALSTR___V600*/ meltfptr[599] = (void*)&cdat->dstr_534__CLASS_SOURCE_OR; - cdat->dstr_534__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_534__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_534__CLASS_SOURCE_OR.val)-1); - /*inimult dtup_535__CLASS_SOURCE_OR*/ - /*_.VALTUP___V601*/ meltfptr[600] = (void*)&cdat->dtup_535__CLASS_SOURCE_OR; - cdat->dtup_535__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_535__CLASS_SOURCE_OR.nbval = 4; - /*inimult dtup_536__CLASS_SOURCE_OR*/ - /*_.VALTUP___V604*/ meltfptr[603] = (void*)&cdat->dtup_536__CLASS_SOURCE_OR; - cdat->dtup_536__CLASS_SOURCE_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_536__CLASS_SOURCE_OR.nbval = 3; - /*iniobj dsym_537__SOR_DISJ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V605*/ meltfptr[604]) /*_.VALDATA___V605*/ meltfptr[604] = (void*)&cdat->dsym_537__SOR_DISJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_537__SOR_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_537__SOR_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_537__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_537__SOR_DISJ.obj_hash = 354040300; - cdat->dsym_537__SOR_DISJ.obj_len = 3; - - /*inistring dstr_538__SOR_DISJ*/ - /*_.VALSTR___V606*/ meltfptr[605] = (void*)&cdat->dstr_538__SOR_DISJ; - cdat->dstr_538__SOR_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_538__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_538__SOR_DISJ.val)-1); + /*iniobj dobj_529__SIFP_ELSE*/ +/*_.VALDATA___V588*/ meltfptr[587] = (void*)&cdat->dobj_529__SIFP_ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_529__SIFP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__SIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_529__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_529__SIFP_ELSE.obj_num = 4; + cdat->dobj_529__SIFP_ELSE.obj_hash = 323191868; + cdat->dobj_529__SIFP_ELSE.obj_len = 4; + + /*inistring dstr_530__SIFP_ELSE*/ + /*_.VALSTR___V589*/ meltfptr[588] = (void*)&cdat->dstr_530__SIFP_ELSE; + cdat->dstr_530__SIFP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_530__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_530__SIFP_ELSE.val)-1); + /*iniobj dsym_531__CLASS_SOURCE_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V597*/ meltfptr[596]) /*_.VALDATA___V597*/ meltfptr[596] = (void*)&cdat->dsym_531__CLASS_SOURCE_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__CLASS_SOURCE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_531__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_531__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_531__CLASS_SOURCE_MATCH.obj_hash = 977016819; + cdat->dsym_531__CLASS_SOURCE_MATCH.obj_len = 3; + + /*inistring dstr_532__CLASS_SOURCE_MAT*/ + /*_.VALSTR___V598*/ meltfptr[597] = (void*)&cdat->dstr_532__CLASS_SOURCE_MAT; + cdat->dstr_532__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_532__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_532__CLASS_SOURCE_MAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:478:/ iniobj"); + /*iniobj dobj_533__CLASS_SOURCE_MATCH*/ +/*_.VALDATA___V599*/ meltfptr[598] = (void*)&cdat->dobj_533__CLASS_SOURCE_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_533__CLASS_SOURCE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_533__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_533__CLASS_SOURCE_MATCH.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_533__CLASS_SOURCE_MATCH.obj_hash = 707959977; + cdat->dobj_533__CLASS_SOURCE_MATCH.obj_len = 8; + + /*inistring dstr_534__CLASS_SOURCE_MAT*/ + /*_.VALSTR___V600*/ meltfptr[599] = (void*)&cdat->dstr_534__CLASS_SOURCE_MAT; + cdat->dstr_534__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_534__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_534__CLASS_SOURCE_MAT.val)-1); + /*inimult dtup_535__CLASS_SOURCE_MATCH*/ + /*_.VALTUP___V601*/ meltfptr[600] = (void*)&cdat->dtup_535__CLASS_SOURCE_MATCH; + cdat->dtup_535__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_535__CLASS_SOURCE_MATCH.nbval = 4; + /*inimult dtup_536__CLASS_SOURCE_MATCH*/ + /*_.VALTUP___V606*/ meltfptr[605] = (void*)&cdat->dtup_536__CLASS_SOURCE_MATCH; + cdat->dtup_536__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_536__CLASS_SOURCE_MATCH.nbval = 4; + /*iniobj dsym_537__SMAT_MATCHEDX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V607*/ meltfptr[606]) /*_.VALDATA___V607*/ meltfptr[606] = (void*)&cdat->dsym_537__SMAT_MATCHEDX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_537__SMAT_MATCHEDX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_537__SMAT_MATCHEDX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_537__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_537__SMAT_MATCHEDX.obj_hash = 56867082; + cdat->dsym_537__SMAT_MATCHEDX.obj_len = 3; + + /*inistring dstr_538__SMAT_MATCHEDX*/ + /*_.VALSTR___V608*/ meltfptr[607] = (void*)&cdat->dstr_538__SMAT_MATCHEDX; + cdat->dstr_538__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_538__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_538__SMAT_MATCHEDX.val)-1); /*^iniobj*/ - /*iniobj dobj_539__SOR_DISJ*/ -/*_.VALDATA___V602*/ meltfptr[601] = (void*)&cdat->dobj_539__SOR_DISJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_539__SOR_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_539__SOR_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_539__SOR_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_539__SOR_DISJ.obj_num = 2; - cdat->dobj_539__SOR_DISJ.obj_hash = 618609175; - cdat->dobj_539__SOR_DISJ.obj_len = 4; - - /*inistring dstr_540__SOR_DISJ*/ - /*_.VALSTR___V603*/ meltfptr[602] = (void*)&cdat->dstr_540__SOR_DISJ; - cdat->dstr_540__SOR_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_540__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_540__SOR_DISJ.val)-1); - /*iniobj dsym_541__CLASS_SOURCE_CPPIF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V607*/ meltfptr[606]) /*_.VALDATA___V607*/ meltfptr[606] = (void*)&cdat->dsym_541__CLASS_SOURCE_CPPIF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__CLASS_SOURCE_CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_541__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_541__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_541__CLASS_SOURCE_CPPIF.obj_hash = 179014183; - cdat->dsym_541__CLASS_SOURCE_CPPIF.obj_len = 3; - - /*inistring dstr_542__CLASS_SOURCE_CPP*/ - /*_.VALSTR___V608*/ meltfptr[607] = (void*)&cdat->dstr_542__CLASS_SOURCE_CPP; - cdat->dstr_542__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_542__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_542__CLASS_SOURCE_CPP.val)-1); - MELT_LOCATION("warmelt-macro.melt:488:/ iniobj"); - /*iniobj dobj_543__CLASS_SOURCE_CPPIF*/ -/*_.VALDATA___V609*/ meltfptr[608] = (void*)&cdat->dobj_543__CLASS_SOURCE_CPPIF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_543__CLASS_SOURCE_CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_543__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_543__CLASS_SOURCE_CPPIF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_543__CLASS_SOURCE_CPPIF.obj_hash = 176481355; - cdat->dobj_543__CLASS_SOURCE_CPPIF.obj_len = 8; - - /*inistring dstr_544__CLASS_SOURCE_CPP*/ - /*_.VALSTR___V610*/ meltfptr[609] = (void*)&cdat->dstr_544__CLASS_SOURCE_CPP; - cdat->dstr_544__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_544__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_544__CLASS_SOURCE_CPP.val)-1); - /*inimult dtup_545__CLASS_SOURCE_CPPIF*/ - /*_.VALTUP___V611*/ meltfptr[610] = (void*)&cdat->dtup_545__CLASS_SOURCE_CPPIF; - cdat->dtup_545__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_545__CLASS_SOURCE_CPPIF.nbval = 4; - /*inimult dtup_546__CLASS_SOURCE_CPPIF*/ - /*_.VALTUP___V618*/ meltfptr[617] = (void*)&cdat->dtup_546__CLASS_SOURCE_CPPIF; - cdat->dtup_546__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_546__CLASS_SOURCE_CPPIF.nbval = 5; - /*iniobj dsym_547__SIFP_COND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V619*/ meltfptr[618]) /*_.VALDATA___V619*/ meltfptr[618] = (void*)&cdat->dsym_547__SIFP_COND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_547__SIFP_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_547__SIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_547__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_547__SIFP_COND.obj_hash = 843364013; - cdat->dsym_547__SIFP_COND.obj_len = 3; - - /*inistring dstr_548__SIFP_COND*/ - /*_.VALSTR___V620*/ meltfptr[619] = (void*)&cdat->dstr_548__SIFP_COND; - cdat->dstr_548__SIFP_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_548__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_548__SIFP_COND.val)-1); + /*iniobj dobj_539__SMAT_MATCHEDX*/ +/*_.VALDATA___V602*/ meltfptr[601] = (void*)&cdat->dobj_539__SMAT_MATCHEDX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_539__SMAT_MATCHEDX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_539__SMAT_MATCHEDX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_539__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_539__SMAT_MATCHEDX.obj_num = 2; + cdat->dobj_539__SMAT_MATCHEDX.obj_hash = 902238694; + cdat->dobj_539__SMAT_MATCHEDX.obj_len = 4; + + /*inistring dstr_540__SMAT_MATCHEDX*/ + /*_.VALSTR___V603*/ meltfptr[602] = (void*)&cdat->dstr_540__SMAT_MATCHEDX; + cdat->dstr_540__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_540__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_540__SMAT_MATCHEDX.val)-1); + /*iniobj dsym_541__SMAT_CASES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V609*/ meltfptr[608]) /*_.VALDATA___V609*/ meltfptr[608] = (void*)&cdat->dsym_541__SMAT_CASES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__SMAT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_541__SMAT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_541__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_541__SMAT_CASES.obj_hash = 1021834057; + cdat->dsym_541__SMAT_CASES.obj_len = 3; + + /*inistring dstr_542__SMAT_CASES*/ + /*_.VALSTR___V610*/ meltfptr[609] = (void*)&cdat->dstr_542__SMAT_CASES; + cdat->dstr_542__SMAT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_542__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_542__SMAT_CASES.val)-1); /*^iniobj*/ - /*iniobj dobj_549__SIFP_COND*/ -/*_.VALDATA___V612*/ meltfptr[611] = (void*)&cdat->dobj_549__SIFP_COND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_549__SIFP_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549__SIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_549__SIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_549__SIFP_COND.obj_num = 2; - cdat->dobj_549__SIFP_COND.obj_hash = 362515882; - cdat->dobj_549__SIFP_COND.obj_len = 4; - - /*inistring dstr_550__SIFP_COND*/ - /*_.VALSTR___V613*/ meltfptr[612] = (void*)&cdat->dstr_550__SIFP_COND; - cdat->dstr_550__SIFP_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_550__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_550__SIFP_COND.val)-1); - /*iniobj dsym_551__SIFP_THEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V621*/ meltfptr[620]) /*_.VALDATA___V621*/ meltfptr[620] = (void*)&cdat->dsym_551__SIFP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_551__SIFP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_551__SIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_551__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_551__SIFP_THEN.obj_hash = 1068543930; - cdat->dsym_551__SIFP_THEN.obj_len = 3; - - /*inistring dstr_552__SIFP_THEN*/ - /*_.VALSTR___V622*/ meltfptr[621] = (void*)&cdat->dstr_552__SIFP_THEN; - cdat->dstr_552__SIFP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_552__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_552__SIFP_THEN.val)-1); + /*iniobj dobj_543__SMAT_CASES*/ +/*_.VALDATA___V604*/ meltfptr[603] = (void*)&cdat->dobj_543__SMAT_CASES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_543__SMAT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_543__SMAT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_543__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_543__SMAT_CASES.obj_num = 3; + cdat->dobj_543__SMAT_CASES.obj_hash = 232373582; + cdat->dobj_543__SMAT_CASES.obj_len = 4; + + /*inistring dstr_544__SMAT_CASES*/ + /*_.VALSTR___V605*/ meltfptr[604] = (void*)&cdat->dstr_544__SMAT_CASES; + cdat->dstr_544__SMAT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_544__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_544__SMAT_CASES.val)-1); + /*iniobj dsym_545__CLASS_SOURCE_MATCH_CASE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V611*/ meltfptr[610]) /*_.VALDATA___V611*/ meltfptr[610] = (void*)&cdat->dsym_545__CLASS_SOURCE_MATCH_CASE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__CLASS_SOURCE_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_545__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_545__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_545__CLASS_SOURCE_MATCH_CASE.obj_hash = 625198266; + cdat->dsym_545__CLASS_SOURCE_MATCH_CASE.obj_len = 3; + + /*inistring dstr_546__CLASS_SOURCE_MAT*/ + /*_.VALSTR___V612*/ meltfptr[611] = (void*)&cdat->dstr_546__CLASS_SOURCE_MAT; + cdat->dstr_546__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_546__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_546__CLASS_SOURCE_MAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:489:/ iniobj"); + /*iniobj dobj_547__CLASS_SOURCE_MATCH_CASE*/ +/*_.VALDATA___V613*/ meltfptr[612] = (void*)&cdat->dobj_547__CLASS_SOURCE_MATCH_CASE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_547__CLASS_SOURCE_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_547__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_547__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_547__CLASS_SOURCE_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_547__CLASS_SOURCE_MATCH_CASE.obj_hash = 223126609; + cdat->dobj_547__CLASS_SOURCE_MATCH_CASE.obj_len = 8; + + /*inistring dstr_548__CLASS_SOURCE_MAT*/ + /*_.VALSTR___V614*/ meltfptr[613] = (void*)&cdat->dstr_548__CLASS_SOURCE_MAT; + cdat->dstr_548__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_548__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_548__CLASS_SOURCE_MAT.val)-1); + /*inimult dtup_549__CLASS_SOURCE_MATCH_CASE*/ + /*_.VALTUP___V615*/ meltfptr[614] = (void*)&cdat->dtup_549__CLASS_SOURCE_MATCH_CASE; + cdat->dtup_549__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_549__CLASS_SOURCE_MATCH_CASE.nbval = 4; + /*inimult dtup_550__CLASS_SOURCE_MATCH_CASE*/ + /*_.VALTUP___V620*/ meltfptr[619] = (void*)&cdat->dtup_550__CLASS_SOURCE_MATCH_CASE; + cdat->dtup_550__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_550__CLASS_SOURCE_MATCH_CASE.nbval = 4; + /*iniobj dsym_551__SCAM_PATT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V621*/ meltfptr[620]) /*_.VALDATA___V621*/ meltfptr[620] = (void*)&cdat->dsym_551__SCAM_PATT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_551__SCAM_PATT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_551__SCAM_PATT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_551__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_551__SCAM_PATT.obj_hash = 413025747; + cdat->dsym_551__SCAM_PATT.obj_len = 3; + + /*inistring dstr_552__SCAM_PATT*/ + /*_.VALSTR___V622*/ meltfptr[621] = (void*)&cdat->dstr_552__SCAM_PATT; + cdat->dstr_552__SCAM_PATT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_552__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_552__SCAM_PATT.val)-1); /*^iniobj*/ - /*iniobj dobj_553__SIFP_THEN*/ -/*_.VALDATA___V614*/ meltfptr[613] = (void*)&cdat->dobj_553__SIFP_THEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__SIFP_THEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__SIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_553__SIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_553__SIFP_THEN.obj_num = 3; - cdat->dobj_553__SIFP_THEN.obj_hash = 935882193; - cdat->dobj_553__SIFP_THEN.obj_len = 4; - - /*inistring dstr_554__SIFP_THEN*/ - /*_.VALSTR___V615*/ meltfptr[614] = (void*)&cdat->dstr_554__SIFP_THEN; - cdat->dstr_554__SIFP_THEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_554__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_554__SIFP_THEN.val)-1); - /*iniobj dsym_555__SIFP_ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V623*/ meltfptr[622]) /*_.VALDATA___V623*/ meltfptr[622] = (void*)&cdat->dsym_555__SIFP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_555__SIFP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_555__SIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_555__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_555__SIFP_ELSE.obj_hash = 914147024; - cdat->dsym_555__SIFP_ELSE.obj_len = 3; - - /*inistring dstr_556__SIFP_ELSE*/ - /*_.VALSTR___V624*/ meltfptr[623] = (void*)&cdat->dstr_556__SIFP_ELSE; - cdat->dstr_556__SIFP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_556__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_556__SIFP_ELSE.val)-1); + /*iniobj dobj_553__SCAM_PATT*/ +/*_.VALDATA___V616*/ meltfptr[615] = (void*)&cdat->dobj_553__SCAM_PATT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__SCAM_PATT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__SCAM_PATT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_553__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_553__SCAM_PATT.obj_num = 2; + cdat->dobj_553__SCAM_PATT.obj_hash = 1035929807; + cdat->dobj_553__SCAM_PATT.obj_len = 4; + + /*inistring dstr_554__SCAM_PATT*/ + /*_.VALSTR___V617*/ meltfptr[616] = (void*)&cdat->dstr_554__SCAM_PATT; + cdat->dstr_554__SCAM_PATT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_554__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_554__SCAM_PATT.val)-1); + /*iniobj dsym_555__SCAM_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V623*/ meltfptr[622]) /*_.VALDATA___V623*/ meltfptr[622] = (void*)&cdat->dsym_555__SCAM_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_555__SCAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_555__SCAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_555__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_555__SCAM_BODY.obj_hash = 1012147204; + cdat->dsym_555__SCAM_BODY.obj_len = 3; + + /*inistring dstr_556__SCAM_BODY*/ + /*_.VALSTR___V624*/ meltfptr[623] = (void*)&cdat->dstr_556__SCAM_BODY; + cdat->dstr_556__SCAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_556__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_556__SCAM_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_557__SIFP_ELSE*/ -/*_.VALDATA___V616*/ meltfptr[615] = (void*)&cdat->dobj_557__SIFP_ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_557__SIFP_ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557__SIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_557__SIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_557__SIFP_ELSE.obj_num = 4; - cdat->dobj_557__SIFP_ELSE.obj_hash = 475352675; - cdat->dobj_557__SIFP_ELSE.obj_len = 4; - - /*inistring dstr_558__SIFP_ELSE*/ - /*_.VALSTR___V617*/ meltfptr[616] = (void*)&cdat->dstr_558__SIFP_ELSE; - cdat->dstr_558__SIFP_ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_558__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_558__SIFP_ELSE.val)-1); - /*iniobj dsym_559__CLASS_SOURCE_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V625*/ meltfptr[624]) /*_.VALDATA___V625*/ meltfptr[624] = (void*)&cdat->dsym_559__CLASS_SOURCE_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_559__CLASS_SOURCE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_559__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_559__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_559__CLASS_SOURCE_MATCH.obj_hash = 977016819; - cdat->dsym_559__CLASS_SOURCE_MATCH.obj_len = 3; - - /*inistring dstr_560__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V626*/ meltfptr[625] = (void*)&cdat->dstr_560__CLASS_SOURCE_MAT; - cdat->dstr_560__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_560__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_560__CLASS_SOURCE_MAT.val)-1); + /*iniobj dobj_557__SCAM_BODY*/ +/*_.VALDATA___V618*/ meltfptr[617] = (void*)&cdat->dobj_557__SCAM_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_557__SCAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557__SCAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_557__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_557__SCAM_BODY.obj_num = 3; + cdat->dobj_557__SCAM_BODY.obj_hash = 408446452; + cdat->dobj_557__SCAM_BODY.obj_len = 4; + + /*inistring dstr_558__SCAM_BODY*/ + /*_.VALSTR___V619*/ meltfptr[618] = (void*)&cdat->dstr_558__SCAM_BODY; + cdat->dstr_558__SCAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_558__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_558__SCAM_BODY.val)-1); + /*iniobj dsym_559__CLASS_SOURCE_LET_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V625*/ meltfptr[624]) /*_.VALDATA___V625*/ meltfptr[624] = (void*)&cdat->dsym_559__CLASS_SOURCE_LET_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_559__CLASS_SOURCE_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_559__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_559__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_559__CLASS_SOURCE_LET_BINDING.obj_hash = 379014719; + cdat->dsym_559__CLASS_SOURCE_LET_BINDING.obj_len = 3; + + /*inistring dstr_560__CLASS_SOURCE_LET*/ + /*_.VALSTR___V626*/ meltfptr[625] = (void*)&cdat->dstr_560__CLASS_SOURCE_LET; + cdat->dstr_560__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_560__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_560__CLASS_SOURCE_LET.val)-1); MELT_LOCATION("warmelt-macro.melt:499:/ iniobj"); - /*iniobj dobj_561__CLASS_SOURCE_MATCH*/ -/*_.VALDATA___V627*/ meltfptr[626] = (void*)&cdat->dobj_561__CLASS_SOURCE_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_561__CLASS_SOURCE_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_561__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_561__CLASS_SOURCE_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_561__CLASS_SOURCE_MATCH.obj_hash = 587539140; - cdat->dobj_561__CLASS_SOURCE_MATCH.obj_len = 8; - - /*inistring dstr_562__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V628*/ meltfptr[627] = (void*)&cdat->dstr_562__CLASS_SOURCE_MAT; - cdat->dstr_562__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_562__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_562__CLASS_SOURCE_MAT.val)-1); - /*inimult dtup_563__CLASS_SOURCE_MATCH*/ - /*_.VALTUP___V629*/ meltfptr[628] = (void*)&cdat->dtup_563__CLASS_SOURCE_MATCH; - cdat->dtup_563__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_563__CLASS_SOURCE_MATCH.nbval = 4; - /*inimult dtup_564__CLASS_SOURCE_MATCH*/ - /*_.VALTUP___V634*/ meltfptr[633] = (void*)&cdat->dtup_564__CLASS_SOURCE_MATCH; - cdat->dtup_564__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_564__CLASS_SOURCE_MATCH.nbval = 4; - /*iniobj dsym_565__SMAT_MATCHEDX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V635*/ meltfptr[634]) /*_.VALDATA___V635*/ meltfptr[634] = (void*)&cdat->dsym_565__SMAT_MATCHEDX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_565__SMAT_MATCHEDX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_565__SMAT_MATCHEDX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_565__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_565__SMAT_MATCHEDX.obj_hash = 56867082; - cdat->dsym_565__SMAT_MATCHEDX.obj_len = 3; - - /*inistring dstr_566__SMAT_MATCHEDX*/ - /*_.VALSTR___V636*/ meltfptr[635] = (void*)&cdat->dstr_566__SMAT_MATCHEDX; - cdat->dstr_566__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_566__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_566__SMAT_MATCHEDX.val)-1); + /*iniobj dobj_561__CLASS_SOURCE_LET_BINDING*/ +/*_.VALDATA___V627*/ meltfptr[626] = (void*)&cdat->dobj_561__CLASS_SOURCE_LET_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_561__CLASS_SOURCE_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_561__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_561__CLASS_SOURCE_LET_BINDING.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_561__CLASS_SOURCE_LET_BINDING.obj_hash = 992855841; + cdat->dobj_561__CLASS_SOURCE_LET_BINDING.obj_len = 8; + + /*inistring dstr_562__CLASS_SOURCE_LET*/ + /*_.VALSTR___V628*/ meltfptr[627] = (void*)&cdat->dstr_562__CLASS_SOURCE_LET; + cdat->dstr_562__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_562__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_562__CLASS_SOURCE_LET.val)-1); + /*inimult dtup_563__CLASS_SOURCE_LET_BINDING*/ + /*_.VALTUP___V629*/ meltfptr[628] = (void*)&cdat->dtup_563__CLASS_SOURCE_LET_BINDING; + cdat->dtup_563__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_563__CLASS_SOURCE_LET_BINDING.nbval = 4; + /*inimult dtup_564__CLASS_SOURCE_LET_BINDING*/ + /*_.VALTUP___V636*/ meltfptr[635] = (void*)&cdat->dtup_564__CLASS_SOURCE_LET_BINDING; + cdat->dtup_564__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_564__CLASS_SOURCE_LET_BINDING.nbval = 5; + /*iniobj dsym_565__SLETB_TYPE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V637*/ meltfptr[636]) /*_.VALDATA___V637*/ meltfptr[636] = (void*)&cdat->dsym_565__SLETB_TYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_565__SLETB_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_565__SLETB_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_565__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_565__SLETB_TYPE.obj_hash = 825191502; + cdat->dsym_565__SLETB_TYPE.obj_len = 3; + + /*inistring dstr_566__SLETB_TYPE*/ + /*_.VALSTR___V638*/ meltfptr[637] = (void*)&cdat->dstr_566__SLETB_TYPE; + cdat->dstr_566__SLETB_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_566__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_566__SLETB_TYPE.val)-1); /*^iniobj*/ - /*iniobj dobj_567__SMAT_MATCHEDX*/ -/*_.VALDATA___V630*/ meltfptr[629] = (void*)&cdat->dobj_567__SMAT_MATCHEDX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_567__SMAT_MATCHEDX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__SMAT_MATCHEDX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_567__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_567__SMAT_MATCHEDX.obj_num = 2; - cdat->dobj_567__SMAT_MATCHEDX.obj_hash = 982626534; - cdat->dobj_567__SMAT_MATCHEDX.obj_len = 4; - - /*inistring dstr_568__SMAT_MATCHEDX*/ - /*_.VALSTR___V631*/ meltfptr[630] = (void*)&cdat->dstr_568__SMAT_MATCHEDX; - cdat->dstr_568__SMAT_MATCHEDX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_568__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_568__SMAT_MATCHEDX.val)-1); - /*iniobj dsym_569__SMAT_CASES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V637*/ meltfptr[636]) /*_.VALDATA___V637*/ meltfptr[636] = (void*)&cdat->dsym_569__SMAT_CASES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_569__SMAT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_569__SMAT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_569__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_569__SMAT_CASES.obj_hash = 1021834057; - cdat->dsym_569__SMAT_CASES.obj_len = 3; - - /*inistring dstr_570__SMAT_CASES*/ - /*_.VALSTR___V638*/ meltfptr[637] = (void*)&cdat->dstr_570__SMAT_CASES; - cdat->dstr_570__SMAT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_570__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_570__SMAT_CASES.val)-1); + /*iniobj dobj_567__SLETB_TYPE*/ +/*_.VALDATA___V630*/ meltfptr[629] = (void*)&cdat->dobj_567__SLETB_TYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_567__SLETB_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__SLETB_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_567__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_567__SLETB_TYPE.obj_num = 2; + cdat->dobj_567__SLETB_TYPE.obj_hash = 1650973; + cdat->dobj_567__SLETB_TYPE.obj_len = 4; + + /*inistring dstr_568__SLETB_TYPE*/ + /*_.VALSTR___V631*/ meltfptr[630] = (void*)&cdat->dstr_568__SLETB_TYPE; + cdat->dstr_568__SLETB_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_568__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_568__SLETB_TYPE.val)-1); + /*iniobj dsym_569__SLETB_BINDER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V639*/ meltfptr[638]) /*_.VALDATA___V639*/ meltfptr[638] = (void*)&cdat->dsym_569__SLETB_BINDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_569__SLETB_BINDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_569__SLETB_BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_569__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_569__SLETB_BINDER.obj_hash = 270217853; + cdat->dsym_569__SLETB_BINDER.obj_len = 3; + + /*inistring dstr_570__SLETB_BINDER*/ + /*_.VALSTR___V640*/ meltfptr[639] = (void*)&cdat->dstr_570__SLETB_BINDER; + cdat->dstr_570__SLETB_BINDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_570__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_570__SLETB_BINDER.val)-1); /*^iniobj*/ - /*iniobj dobj_571__SMAT_CASES*/ -/*_.VALDATA___V632*/ meltfptr[631] = (void*)&cdat->dobj_571__SMAT_CASES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_571__SMAT_CASES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__SMAT_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_571__SMAT_CASES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_571__SMAT_CASES.obj_num = 3; - cdat->dobj_571__SMAT_CASES.obj_hash = 932057443; - cdat->dobj_571__SMAT_CASES.obj_len = 4; - - /*inistring dstr_572__SMAT_CASES*/ - /*_.VALSTR___V633*/ meltfptr[632] = (void*)&cdat->dstr_572__SMAT_CASES; - cdat->dstr_572__SMAT_CASES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_572__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_572__SMAT_CASES.val)-1); - /*iniobj dsym_573__CLASS_SOURCE_MATCH_CASE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V639*/ meltfptr[638]) /*_.VALDATA___V639*/ meltfptr[638] = (void*)&cdat->dsym_573__CLASS_SOURCE_MATCH_CASE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_573__CLASS_SOURCE_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_573__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_573__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_573__CLASS_SOURCE_MATCH_CASE.obj_hash = 625198266; - cdat->dsym_573__CLASS_SOURCE_MATCH_CASE.obj_len = 3; - - /*inistring dstr_574__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V640*/ meltfptr[639] = (void*)&cdat->dstr_574__CLASS_SOURCE_MAT; - cdat->dstr_574__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_574__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_574__CLASS_SOURCE_MAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:510:/ iniobj"); - /*iniobj dobj_575__CLASS_SOURCE_MATCH_CASE*/ -/*_.VALDATA___V641*/ meltfptr[640] = (void*)&cdat->dobj_575__CLASS_SOURCE_MATCH_CASE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_575__CLASS_SOURCE_MATCH_CASE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_575__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_575__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_575__CLASS_SOURCE_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_575__CLASS_SOURCE_MATCH_CASE.obj_hash = 566661891; - cdat->dobj_575__CLASS_SOURCE_MATCH_CASE.obj_len = 8; - - /*inistring dstr_576__CLASS_SOURCE_MAT*/ - /*_.VALSTR___V642*/ meltfptr[641] = (void*)&cdat->dstr_576__CLASS_SOURCE_MAT; - cdat->dstr_576__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_576__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_576__CLASS_SOURCE_MAT.val)-1); - /*inimult dtup_577__CLASS_SOURCE_MATCH_CASE*/ - /*_.VALTUP___V643*/ meltfptr[642] = (void*)&cdat->dtup_577__CLASS_SOURCE_MATCH_CASE; - cdat->dtup_577__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_577__CLASS_SOURCE_MATCH_CASE.nbval = 4; - /*inimult dtup_578__CLASS_SOURCE_MATCH_CASE*/ - /*_.VALTUP___V648*/ meltfptr[647] = (void*)&cdat->dtup_578__CLASS_SOURCE_MATCH_CASE; - cdat->dtup_578__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_578__CLASS_SOURCE_MATCH_CASE.nbval = 4; - /*iniobj dsym_579__SCAM_PATT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V649*/ meltfptr[648]) /*_.VALDATA___V649*/ meltfptr[648] = (void*)&cdat->dsym_579__SCAM_PATT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_579__SCAM_PATT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_579__SCAM_PATT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_579__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_579__SCAM_PATT.obj_hash = 413025747; - cdat->dsym_579__SCAM_PATT.obj_len = 3; - - /*inistring dstr_580__SCAM_PATT*/ - /*_.VALSTR___V650*/ meltfptr[649] = (void*)&cdat->dstr_580__SCAM_PATT; - cdat->dstr_580__SCAM_PATT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_580__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_580__SCAM_PATT.val)-1); + /*iniobj dobj_571__SLETB_BINDER*/ +/*_.VALDATA___V632*/ meltfptr[631] = (void*)&cdat->dobj_571__SLETB_BINDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_571__SLETB_BINDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__SLETB_BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_571__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_571__SLETB_BINDER.obj_num = 3; + cdat->dobj_571__SLETB_BINDER.obj_hash = 195575417; + cdat->dobj_571__SLETB_BINDER.obj_len = 4; + + /*inistring dstr_572__SLETB_BINDER*/ + /*_.VALSTR___V633*/ meltfptr[632] = (void*)&cdat->dstr_572__SLETB_BINDER; + cdat->dstr_572__SLETB_BINDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_572__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_572__SLETB_BINDER.val)-1); + /*iniobj dsym_573__SLETB_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V641*/ meltfptr[640]) /*_.VALDATA___V641*/ meltfptr[640] = (void*)&cdat->dsym_573__SLETB_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_573__SLETB_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_573__SLETB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_573__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_573__SLETB_EXPR.obj_hash = 314235873; + cdat->dsym_573__SLETB_EXPR.obj_len = 3; + + /*inistring dstr_574__SLETB_EXPR*/ + /*_.VALSTR___V642*/ meltfptr[641] = (void*)&cdat->dstr_574__SLETB_EXPR; + cdat->dstr_574__SLETB_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_574__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_574__SLETB_EXPR.val)-1); /*^iniobj*/ - /*iniobj dobj_581__SCAM_PATT*/ -/*_.VALDATA___V644*/ meltfptr[643] = (void*)&cdat->dobj_581__SCAM_PATT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_581__SCAM_PATT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_581__SCAM_PATT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_581__SCAM_PATT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_581__SCAM_PATT.obj_num = 2; - cdat->dobj_581__SCAM_PATT.obj_hash = 829608371; - cdat->dobj_581__SCAM_PATT.obj_len = 4; - - /*inistring dstr_582__SCAM_PATT*/ - /*_.VALSTR___V645*/ meltfptr[644] = (void*)&cdat->dstr_582__SCAM_PATT; - cdat->dstr_582__SCAM_PATT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_582__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_582__SCAM_PATT.val)-1); - /*iniobj dsym_583__SCAM_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V651*/ meltfptr[650]) /*_.VALDATA___V651*/ meltfptr[650] = (void*)&cdat->dsym_583__SCAM_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_583__SCAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_583__SCAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_583__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_583__SCAM_BODY.obj_hash = 1012147204; - cdat->dsym_583__SCAM_BODY.obj_len = 3; - - /*inistring dstr_584__SCAM_BODY*/ - /*_.VALSTR___V652*/ meltfptr[651] = (void*)&cdat->dstr_584__SCAM_BODY; - cdat->dstr_584__SCAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_584__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_584__SCAM_BODY.val)-1); + /*iniobj dobj_575__SLETB_EXPR*/ +/*_.VALDATA___V634*/ meltfptr[633] = (void*)&cdat->dobj_575__SLETB_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_575__SLETB_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_575__SLETB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_575__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_575__SLETB_EXPR.obj_num = 4; + cdat->dobj_575__SLETB_EXPR.obj_hash = 301164563; + cdat->dobj_575__SLETB_EXPR.obj_len = 4; + + /*inistring dstr_576__SLETB_EXPR*/ + /*_.VALSTR___V635*/ meltfptr[634] = (void*)&cdat->dstr_576__SLETB_EXPR; + cdat->dstr_576__SLETB_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_576__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_576__SLETB_EXPR.val)-1); + /*iniobj dsym_577__CLASS_SOURCE_LETREC_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V643*/ meltfptr[642]) /*_.VALDATA___V643*/ meltfptr[642] = (void*)&cdat->dsym_577__CLASS_SOURCE_LETREC_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_577__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_577__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_577__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_577__CLASS_SOURCE_LETREC_BINDING.obj_hash = 56122288; + cdat->dsym_577__CLASS_SOURCE_LETREC_BINDING.obj_len = 3; + + /*inistring dstr_578__CLASS_SOURCE_LET*/ + /*_.VALSTR___V644*/ meltfptr[643] = (void*)&cdat->dstr_578__CLASS_SOURCE_LET; + cdat->dstr_578__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_578__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_578__CLASS_SOURCE_LET.val)-1); + MELT_LOCATION("warmelt-macro.melt:510:/ iniobj"); + /*iniobj dobj_579__CLASS_SOURCE_LETREC_BINDING*/ +/*_.VALDATA___V645*/ meltfptr[644] = (void*)&cdat->dobj_579__CLASS_SOURCE_LETREC_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_579__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_579__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_579__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_579__CLASS_SOURCE_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_579__CLASS_SOURCE_LETREC_BINDING.obj_hash = 695091678; + cdat->dobj_579__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; + + /*inistring dstr_580__CLASS_SOURCE_LET*/ + /*_.VALSTR___V646*/ meltfptr[645] = (void*)&cdat->dstr_580__CLASS_SOURCE_LET; + cdat->dstr_580__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_580__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_580__CLASS_SOURCE_LET.val)-1); + /*inimult dtup_581__CLASS_SOURCE_LETREC_BINDING*/ + /*_.VALTUP___V647*/ meltfptr[646] = (void*)&cdat->dtup_581__CLASS_SOURCE_LETREC_BINDING; + cdat->dtup_581__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_581__CLASS_SOURCE_LETREC_BINDING.nbval = 5; + /*inimult dtup_582__CLASS_SOURCE_LETREC_BINDING*/ + /*_.VALTUP___V648*/ meltfptr[647] = (void*)&cdat->dtup_582__CLASS_SOURCE_LETREC_BINDING; + cdat->dtup_582__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_582__CLASS_SOURCE_LETREC_BINDING.nbval = 5; + /*iniobj dsym_583__CLASS_SOURCE_LET*/ +/*uniqueobj*/ if (!/*_.VALDATA___V649*/ meltfptr[648]) /*_.VALDATA___V649*/ meltfptr[648] = (void*)&cdat->dsym_583__CLASS_SOURCE_LET; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_583__CLASS_SOURCE_LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_583__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_583__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_583__CLASS_SOURCE_LET.obj_hash = 540916563; + cdat->dsym_583__CLASS_SOURCE_LET.obj_len = 3; + + /*inistring dstr_584__CLASS_SOURCE_LET*/ + /*_.VALSTR___V650*/ meltfptr[649] = (void*)&cdat->dstr_584__CLASS_SOURCE_LET; + cdat->dstr_584__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_584__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_584__CLASS_SOURCE_LET.val)-1); + MELT_LOCATION("warmelt-macro.melt:516:/ iniobj"); + /*iniobj dobj_585__CLASS_SOURCE_LET*/ +/*_.VALDATA___V651*/ meltfptr[650] = (void*)&cdat->dobj_585__CLASS_SOURCE_LET; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_585__CLASS_SOURCE_LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_585__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_585__CLASS_SOURCE_LET.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_585__CLASS_SOURCE_LET.obj_hash = 44550559; + cdat->dobj_585__CLASS_SOURCE_LET.obj_len = 8; + + /*inistring dstr_586__CLASS_SOURCE_LET*/ + /*_.VALSTR___V652*/ meltfptr[651] = (void*)&cdat->dstr_586__CLASS_SOURCE_LET; + cdat->dstr_586__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_586__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_586__CLASS_SOURCE_LET.val)-1); + /*inimult dtup_587__CLASS_SOURCE_LET*/ + /*_.VALTUP___V653*/ meltfptr[652] = (void*)&cdat->dtup_587__CLASS_SOURCE_LET; + cdat->dtup_587__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_587__CLASS_SOURCE_LET.nbval = 4; + /*inimult dtup_588__CLASS_SOURCE_LET*/ + /*_.VALTUP___V658*/ meltfptr[657] = (void*)&cdat->dtup_588__CLASS_SOURCE_LET; + cdat->dtup_588__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_588__CLASS_SOURCE_LET.nbval = 4; + /*iniobj dsym_589__SLET_BINDINGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V659*/ meltfptr[658]) /*_.VALDATA___V659*/ meltfptr[658] = (void*)&cdat->dsym_589__SLET_BINDINGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_589__SLET_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_589__SLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_589__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_589__SLET_BINDINGS.obj_hash = 942285125; + cdat->dsym_589__SLET_BINDINGS.obj_len = 3; + + /*inistring dstr_590__SLET_BINDINGS*/ + /*_.VALSTR___V660*/ meltfptr[659] = (void*)&cdat->dstr_590__SLET_BINDINGS; + cdat->dstr_590__SLET_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_590__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_590__SLET_BINDINGS.val)-1); /*^iniobj*/ - /*iniobj dobj_585__SCAM_BODY*/ -/*_.VALDATA___V646*/ meltfptr[645] = (void*)&cdat->dobj_585__SCAM_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_585__SCAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__SCAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_585__SCAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_585__SCAM_BODY.obj_num = 3; - cdat->dobj_585__SCAM_BODY.obj_hash = 512575102; - cdat->dobj_585__SCAM_BODY.obj_len = 4; - - /*inistring dstr_586__SCAM_BODY*/ - /*_.VALSTR___V647*/ meltfptr[646] = (void*)&cdat->dstr_586__SCAM_BODY; - cdat->dstr_586__SCAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_586__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_586__SCAM_BODY.val)-1); - /*iniobj dsym_587__CLASS_SOURCE_LET_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V653*/ meltfptr[652]) /*_.VALDATA___V653*/ meltfptr[652] = (void*)&cdat->dsym_587__CLASS_SOURCE_LET_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_587__CLASS_SOURCE_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_587__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_587__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_587__CLASS_SOURCE_LET_BINDING.obj_hash = 379014719; - cdat->dsym_587__CLASS_SOURCE_LET_BINDING.obj_len = 3; - - /*inistring dstr_588__CLASS_SOURCE_LET*/ - /*_.VALSTR___V654*/ meltfptr[653] = (void*)&cdat->dstr_588__CLASS_SOURCE_LET; - cdat->dstr_588__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_588__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_588__CLASS_SOURCE_LET.val)-1); - MELT_LOCATION("warmelt-macro.melt:520:/ iniobj"); - /*iniobj dobj_589__CLASS_SOURCE_LET_BINDING*/ -/*_.VALDATA___V655*/ meltfptr[654] = (void*)&cdat->dobj_589__CLASS_SOURCE_LET_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_589__CLASS_SOURCE_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_589__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_589__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_589__CLASS_SOURCE_LET_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_589__CLASS_SOURCE_LET_BINDING.obj_hash = 984933883; - cdat->dobj_589__CLASS_SOURCE_LET_BINDING.obj_len = 8; - - /*inistring dstr_590__CLASS_SOURCE_LET*/ - /*_.VALSTR___V656*/ meltfptr[655] = (void*)&cdat->dstr_590__CLASS_SOURCE_LET; - cdat->dstr_590__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_590__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_590__CLASS_SOURCE_LET.val)-1); - /*inimult dtup_591__CLASS_SOURCE_LET_BINDING*/ - /*_.VALTUP___V657*/ meltfptr[656] = (void*)&cdat->dtup_591__CLASS_SOURCE_LET_BINDING; - cdat->dtup_591__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_591__CLASS_SOURCE_LET_BINDING.nbval = 4; - /*inimult dtup_592__CLASS_SOURCE_LET_BINDING*/ - /*_.VALTUP___V664*/ meltfptr[663] = (void*)&cdat->dtup_592__CLASS_SOURCE_LET_BINDING; - cdat->dtup_592__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_592__CLASS_SOURCE_LET_BINDING.nbval = 5; - /*iniobj dsym_593__SLETB_TYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V665*/ meltfptr[664]) /*_.VALDATA___V665*/ meltfptr[664] = (void*)&cdat->dsym_593__SLETB_TYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_593__SLETB_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_593__SLETB_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_593__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_593__SLETB_TYPE.obj_hash = 825191502; - cdat->dsym_593__SLETB_TYPE.obj_len = 3; - - /*inistring dstr_594__SLETB_TYPE*/ - /*_.VALSTR___V666*/ meltfptr[665] = (void*)&cdat->dstr_594__SLETB_TYPE; - cdat->dstr_594__SLETB_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_594__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_594__SLETB_TYPE.val)-1); + /*iniobj dobj_591__SLET_BINDINGS*/ +/*_.VALDATA___V654*/ meltfptr[653] = (void*)&cdat->dobj_591__SLET_BINDINGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_591__SLET_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__SLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_591__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_591__SLET_BINDINGS.obj_num = 2; + cdat->dobj_591__SLET_BINDINGS.obj_hash = 1007840737; + cdat->dobj_591__SLET_BINDINGS.obj_len = 4; + + /*inistring dstr_592__SLET_BINDINGS*/ + /*_.VALSTR___V655*/ meltfptr[654] = (void*)&cdat->dstr_592__SLET_BINDINGS; + cdat->dstr_592__SLET_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_592__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_592__SLET_BINDINGS.val)-1); + /*iniobj dsym_593__SLET_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V661*/ meltfptr[660]) /*_.VALDATA___V661*/ meltfptr[660] = (void*)&cdat->dsym_593__SLET_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_593__SLET_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_593__SLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_593__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_593__SLET_BODY.obj_hash = 405353277; + cdat->dsym_593__SLET_BODY.obj_len = 3; + + /*inistring dstr_594__SLET_BODY*/ + /*_.VALSTR___V662*/ meltfptr[661] = (void*)&cdat->dstr_594__SLET_BODY; + cdat->dstr_594__SLET_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_594__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_594__SLET_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_595__SLETB_TYPE*/ -/*_.VALDATA___V658*/ meltfptr[657] = (void*)&cdat->dobj_595__SLETB_TYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_595__SLETB_TYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__SLETB_TYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_595__SLETB_TYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_595__SLETB_TYPE.obj_num = 2; - cdat->dobj_595__SLETB_TYPE.obj_hash = 272754751; - cdat->dobj_595__SLETB_TYPE.obj_len = 4; - - /*inistring dstr_596__SLETB_TYPE*/ - /*_.VALSTR___V659*/ meltfptr[658] = (void*)&cdat->dstr_596__SLETB_TYPE; - cdat->dstr_596__SLETB_TYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_596__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_596__SLETB_TYPE.val)-1); - /*iniobj dsym_597__SLETB_BINDER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V667*/ meltfptr[666]) /*_.VALDATA___V667*/ meltfptr[666] = (void*)&cdat->dsym_597__SLETB_BINDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_597__SLETB_BINDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_597__SLETB_BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_597__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_597__SLETB_BINDER.obj_hash = 270217853; - cdat->dsym_597__SLETB_BINDER.obj_len = 3; - - /*inistring dstr_598__SLETB_BINDER*/ - /*_.VALSTR___V668*/ meltfptr[667] = (void*)&cdat->dstr_598__SLETB_BINDER; - cdat->dstr_598__SLETB_BINDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_598__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_598__SLETB_BINDER.val)-1); + /*iniobj dobj_595__SLET_BODY*/ +/*_.VALDATA___V656*/ meltfptr[655] = (void*)&cdat->dobj_595__SLET_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_595__SLET_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__SLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_595__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_595__SLET_BODY.obj_num = 3; + cdat->dobj_595__SLET_BODY.obj_hash = 463036807; + cdat->dobj_595__SLET_BODY.obj_len = 4; + + /*inistring dstr_596__SLET_BODY*/ + /*_.VALSTR___V657*/ meltfptr[656] = (void*)&cdat->dstr_596__SLET_BODY; + cdat->dstr_596__SLET_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_596__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_596__SLET_BODY.val)-1); + /*iniobj dsym_597__CLASS_SOURCE_LETREC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V663*/ meltfptr[662]) /*_.VALDATA___V663*/ meltfptr[662] = (void*)&cdat->dsym_597__CLASS_SOURCE_LETREC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_597__CLASS_SOURCE_LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_597__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_597__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_597__CLASS_SOURCE_LETREC.obj_hash = 65197950; + cdat->dsym_597__CLASS_SOURCE_LETREC.obj_len = 3; + + /*inistring dstr_598__CLASS_SOURCE_LET*/ + /*_.VALSTR___V664*/ meltfptr[663] = (void*)&cdat->dstr_598__CLASS_SOURCE_LET; + cdat->dstr_598__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_598__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_598__CLASS_SOURCE_LET.val)-1); + MELT_LOCATION("warmelt-macro.melt:526:/ iniobj"); + /*iniobj dobj_599__CLASS_SOURCE_LETREC*/ +/*_.VALDATA___V665*/ meltfptr[664] = (void*)&cdat->dobj_599__CLASS_SOURCE_LETREC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_599__CLASS_SOURCE_LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_599__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_599__CLASS_SOURCE_LETREC.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_599__CLASS_SOURCE_LETREC.obj_hash = 1033089047; + cdat->dobj_599__CLASS_SOURCE_LETREC.obj_len = 8; + + /*inistring dstr_600__CLASS_SOURCE_LET*/ + /*_.VALSTR___V666*/ meltfptr[665] = (void*)&cdat->dstr_600__CLASS_SOURCE_LET; + cdat->dstr_600__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_600__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_600__CLASS_SOURCE_LET.val)-1); + /*inimult dtup_601__CLASS_SOURCE_LETREC*/ + /*_.VALTUP___V667*/ meltfptr[666] = (void*)&cdat->dtup_601__CLASS_SOURCE_LETREC; + cdat->dtup_601__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_601__CLASS_SOURCE_LETREC.nbval = 5; + /*inimult dtup_602__CLASS_SOURCE_LETREC*/ + /*_.VALTUP___V668*/ meltfptr[667] = (void*)&cdat->dtup_602__CLASS_SOURCE_LETREC; + cdat->dtup_602__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_602__CLASS_SOURCE_LETREC.nbval = 4; + /*iniobj dsym_603__CLASS_SOURCE_LAMBDA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V669*/ meltfptr[668]) /*_.VALDATA___V669*/ meltfptr[668] = (void*)&cdat->dsym_603__CLASS_SOURCE_LAMBDA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_603__CLASS_SOURCE_LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_603__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_603__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_603__CLASS_SOURCE_LAMBDA.obj_hash = 825809316; + cdat->dsym_603__CLASS_SOURCE_LAMBDA.obj_len = 3; + + /*inistring dstr_604__CLASS_SOURCE_LAM*/ + /*_.VALSTR___V670*/ meltfptr[669] = (void*)&cdat->dstr_604__CLASS_SOURCE_LAM; + cdat->dstr_604__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_604__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_604__CLASS_SOURCE_LAM.val)-1); + MELT_LOCATION("warmelt-macro.melt:534:/ iniobj"); + /*iniobj dobj_605__CLASS_SOURCE_LAMBDA*/ +/*_.VALDATA___V671*/ meltfptr[670] = (void*)&cdat->dobj_605__CLASS_SOURCE_LAMBDA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_605__CLASS_SOURCE_LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_605__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_605__CLASS_SOURCE_LAMBDA.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_605__CLASS_SOURCE_LAMBDA.obj_hash = 148913857; + cdat->dobj_605__CLASS_SOURCE_LAMBDA.obj_len = 8; + + /*inistring dstr_606__CLASS_SOURCE_LAM*/ + /*_.VALSTR___V672*/ meltfptr[671] = (void*)&cdat->dstr_606__CLASS_SOURCE_LAM; + cdat->dstr_606__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_606__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_606__CLASS_SOURCE_LAM.val)-1); + /*inimult dtup_607__CLASS_SOURCE_LAMBDA*/ + /*_.VALTUP___V673*/ meltfptr[672] = (void*)&cdat->dtup_607__CLASS_SOURCE_LAMBDA; + cdat->dtup_607__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_607__CLASS_SOURCE_LAMBDA.nbval = 4; + /*inimult dtup_608__CLASS_SOURCE_LAMBDA*/ + /*_.VALTUP___V678*/ meltfptr[677] = (void*)&cdat->dtup_608__CLASS_SOURCE_LAMBDA; + cdat->dtup_608__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_608__CLASS_SOURCE_LAMBDA.nbval = 4; + /*iniobj dsym_609__SLAM_ARGBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V679*/ meltfptr[678]) /*_.VALDATA___V679*/ meltfptr[678] = (void*)&cdat->dsym_609__SLAM_ARGBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_609__SLAM_ARGBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_609__SLAM_ARGBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_609__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_609__SLAM_ARGBIND.obj_hash = 370871900; + cdat->dsym_609__SLAM_ARGBIND.obj_len = 3; + + /*inistring dstr_610__SLAM_ARGBIND*/ + /*_.VALSTR___V680*/ meltfptr[679] = (void*)&cdat->dstr_610__SLAM_ARGBIND; + cdat->dstr_610__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_610__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_610__SLAM_ARGBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_599__SLETB_BINDER*/ -/*_.VALDATA___V660*/ meltfptr[659] = (void*)&cdat->dobj_599__SLETB_BINDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_599__SLETB_BINDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_599__SLETB_BINDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_599__SLETB_BINDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_599__SLETB_BINDER.obj_num = 3; - cdat->dobj_599__SLETB_BINDER.obj_hash = 990282206; - cdat->dobj_599__SLETB_BINDER.obj_len = 4; - - /*inistring dstr_600__SLETB_BINDER*/ - /*_.VALSTR___V661*/ meltfptr[660] = (void*)&cdat->dstr_600__SLETB_BINDER; - cdat->dstr_600__SLETB_BINDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_600__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_600__SLETB_BINDER.val)-1); - /*iniobj dsym_601__SLETB_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V669*/ meltfptr[668]) /*_.VALDATA___V669*/ meltfptr[668] = (void*)&cdat->dsym_601__SLETB_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_601__SLETB_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_601__SLETB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_601__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_601__SLETB_EXPR.obj_hash = 314235873; - cdat->dsym_601__SLETB_EXPR.obj_len = 3; - - /*inistring dstr_602__SLETB_EXPR*/ - /*_.VALSTR___V670*/ meltfptr[669] = (void*)&cdat->dstr_602__SLETB_EXPR; - cdat->dstr_602__SLETB_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_602__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_602__SLETB_EXPR.val)-1); + /*iniobj dobj_611__SLAM_ARGBIND*/ +/*_.VALDATA___V674*/ meltfptr[673] = (void*)&cdat->dobj_611__SLAM_ARGBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_611__SLAM_ARGBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_611__SLAM_ARGBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_611__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_611__SLAM_ARGBIND.obj_num = 2; + cdat->dobj_611__SLAM_ARGBIND.obj_hash = 1049410187; + cdat->dobj_611__SLAM_ARGBIND.obj_len = 4; + + /*inistring dstr_612__SLAM_ARGBIND*/ + /*_.VALSTR___V675*/ meltfptr[674] = (void*)&cdat->dstr_612__SLAM_ARGBIND; + cdat->dstr_612__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_612__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_612__SLAM_ARGBIND.val)-1); + /*iniobj dsym_613__SLAM_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V681*/ meltfptr[680]) /*_.VALDATA___V681*/ meltfptr[680] = (void*)&cdat->dsym_613__SLAM_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_613__SLAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_613__SLAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_613__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_613__SLAM_BODY.obj_hash = 405250012; + cdat->dsym_613__SLAM_BODY.obj_len = 3; + + /*inistring dstr_614__SLAM_BODY*/ + /*_.VALSTR___V682*/ meltfptr[681] = (void*)&cdat->dstr_614__SLAM_BODY; + cdat->dstr_614__SLAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_614__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_614__SLAM_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_603__SLETB_EXPR*/ -/*_.VALDATA___V662*/ meltfptr[661] = (void*)&cdat->dobj_603__SLETB_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_603__SLETB_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_603__SLETB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_603__SLETB_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_603__SLETB_EXPR.obj_num = 4; - cdat->dobj_603__SLETB_EXPR.obj_hash = 967005605; - cdat->dobj_603__SLETB_EXPR.obj_len = 4; - - /*inistring dstr_604__SLETB_EXPR*/ - /*_.VALSTR___V663*/ meltfptr[662] = (void*)&cdat->dstr_604__SLETB_EXPR; - cdat->dstr_604__SLETB_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_604__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_604__SLETB_EXPR.val)-1); - /*iniobj dsym_605__CLASS_SOURCE_LETREC_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V671*/ meltfptr[670]) /*_.VALDATA___V671*/ meltfptr[670] = (void*)&cdat->dsym_605__CLASS_SOURCE_LETREC_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_605__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_605__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_605__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_605__CLASS_SOURCE_LETREC_BINDING.obj_hash = 56122288; - cdat->dsym_605__CLASS_SOURCE_LETREC_BINDING.obj_len = 3; - - /*inistring dstr_606__CLASS_SOURCE_LET*/ - /*_.VALSTR___V672*/ meltfptr[671] = (void*)&cdat->dstr_606__CLASS_SOURCE_LET; - cdat->dstr_606__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_606__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_606__CLASS_SOURCE_LET.val)-1); - MELT_LOCATION("warmelt-macro.melt:531:/ iniobj"); - /*iniobj dobj_607__CLASS_SOURCE_LETREC_BINDING*/ -/*_.VALDATA___V673*/ meltfptr[672] = (void*)&cdat->dobj_607__CLASS_SOURCE_LETREC_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_607__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_607__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_607__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_607__CLASS_SOURCE_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_607__CLASS_SOURCE_LETREC_BINDING.obj_hash = 542682367; - cdat->dobj_607__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; - - /*inistring dstr_608__CLASS_SOURCE_LET*/ - /*_.VALSTR___V674*/ meltfptr[673] = (void*)&cdat->dstr_608__CLASS_SOURCE_LET; - cdat->dstr_608__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_608__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_608__CLASS_SOURCE_LET.val)-1); - /*inimult dtup_609__CLASS_SOURCE_LETREC_BINDING*/ - /*_.VALTUP___V675*/ meltfptr[674] = (void*)&cdat->dtup_609__CLASS_SOURCE_LETREC_BINDING; - cdat->dtup_609__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_609__CLASS_SOURCE_LETREC_BINDING.nbval = 5; - /*inimult dtup_610__CLASS_SOURCE_LETREC_BINDING*/ - /*_.VALTUP___V676*/ meltfptr[675] = (void*)&cdat->dtup_610__CLASS_SOURCE_LETREC_BINDING; - cdat->dtup_610__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_610__CLASS_SOURCE_LETREC_BINDING.nbval = 5; - /*iniobj dsym_611__CLASS_SOURCE_LET*/ -/*uniqueobj*/ if (!/*_.VALDATA___V677*/ meltfptr[676]) /*_.VALDATA___V677*/ meltfptr[676] = (void*)&cdat->dsym_611__CLASS_SOURCE_LET; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_611__CLASS_SOURCE_LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_611__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_611__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_611__CLASS_SOURCE_LET.obj_hash = 540916563; - cdat->dsym_611__CLASS_SOURCE_LET.obj_len = 3; - - /*inistring dstr_612__CLASS_SOURCE_LET*/ - /*_.VALSTR___V678*/ meltfptr[677] = (void*)&cdat->dstr_612__CLASS_SOURCE_LET; - cdat->dstr_612__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_612__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_612__CLASS_SOURCE_LET.val)-1); - MELT_LOCATION("warmelt-macro.melt:537:/ iniobj"); - /*iniobj dobj_613__CLASS_SOURCE_LET*/ -/*_.VALDATA___V679*/ meltfptr[678] = (void*)&cdat->dobj_613__CLASS_SOURCE_LET; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_613__CLASS_SOURCE_LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_613__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_613__CLASS_SOURCE_LET.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_613__CLASS_SOURCE_LET.obj_hash = 511250933; - cdat->dobj_613__CLASS_SOURCE_LET.obj_len = 8; - - /*inistring dstr_614__CLASS_SOURCE_LET*/ - /*_.VALSTR___V680*/ meltfptr[679] = (void*)&cdat->dstr_614__CLASS_SOURCE_LET; - cdat->dstr_614__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_614__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_614__CLASS_SOURCE_LET.val)-1); - /*inimult dtup_615__CLASS_SOURCE_LET*/ - /*_.VALTUP___V681*/ meltfptr[680] = (void*)&cdat->dtup_615__CLASS_SOURCE_LET; - cdat->dtup_615__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_615__CLASS_SOURCE_LET.nbval = 4; - /*inimult dtup_616__CLASS_SOURCE_LET*/ - /*_.VALTUP___V686*/ meltfptr[685] = (void*)&cdat->dtup_616__CLASS_SOURCE_LET; - cdat->dtup_616__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_616__CLASS_SOURCE_LET.nbval = 4; - /*iniobj dsym_617__SLET_BINDINGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V687*/ meltfptr[686]) /*_.VALDATA___V687*/ meltfptr[686] = (void*)&cdat->dsym_617__SLET_BINDINGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_617__SLET_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_617__SLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_617__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_617__SLET_BINDINGS.obj_hash = 942285125; - cdat->dsym_617__SLET_BINDINGS.obj_len = 3; - - /*inistring dstr_618__SLET_BINDINGS*/ - /*_.VALSTR___V688*/ meltfptr[687] = (void*)&cdat->dstr_618__SLET_BINDINGS; - cdat->dstr_618__SLET_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_618__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_618__SLET_BINDINGS.val)-1); + /*iniobj dobj_615__SLAM_BODY*/ +/*_.VALDATA___V676*/ meltfptr[675] = (void*)&cdat->dobj_615__SLAM_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_615__SLAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_615__SLAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_615__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_615__SLAM_BODY.obj_num = 3; + cdat->dobj_615__SLAM_BODY.obj_hash = 1052343338; + cdat->dobj_615__SLAM_BODY.obj_len = 4; + + /*inistring dstr_616__SLAM_BODY*/ + /*_.VALSTR___V677*/ meltfptr[676] = (void*)&cdat->dstr_616__SLAM_BODY; + cdat->dstr_616__SLAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_616__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_616__SLAM_BODY.val)-1); + /*iniobj dsym_617__CLASS_SOURCE_MULTICALL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V683*/ meltfptr[682]) /*_.VALDATA___V683*/ meltfptr[682] = (void*)&cdat->dsym_617__CLASS_SOURCE_MULTICALL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_617__CLASS_SOURCE_MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_617__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_617__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_617__CLASS_SOURCE_MULTICALL.obj_hash = 367933626; + cdat->dsym_617__CLASS_SOURCE_MULTICALL.obj_len = 3; + + /*inistring dstr_618__CLASS_SOURCE_MUL*/ + /*_.VALSTR___V684*/ meltfptr[683] = (void*)&cdat->dstr_618__CLASS_SOURCE_MUL; + cdat->dstr_618__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_618__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_618__CLASS_SOURCE_MUL.val)-1); + MELT_LOCATION("warmelt-macro.melt:546:/ iniobj"); + /*iniobj dobj_619__CLASS_SOURCE_MULTICALL*/ +/*_.VALDATA___V685*/ meltfptr[684] = (void*)&cdat->dobj_619__CLASS_SOURCE_MULTICALL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_619__CLASS_SOURCE_MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_619__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_619__CLASS_SOURCE_MULTICALL.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_619__CLASS_SOURCE_MULTICALL.obj_hash = 659862307; + cdat->dobj_619__CLASS_SOURCE_MULTICALL.obj_len = 8; + + /*inistring dstr_620__CLASS_SOURCE_MUL*/ + /*_.VALSTR___V686*/ meltfptr[685] = (void*)&cdat->dstr_620__CLASS_SOURCE_MUL; + cdat->dstr_620__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_620__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_620__CLASS_SOURCE_MUL.val)-1); + /*inimult dtup_621__CLASS_SOURCE_MULTICALL*/ + /*_.VALTUP___V687*/ meltfptr[686] = (void*)&cdat->dtup_621__CLASS_SOURCE_MULTICALL; + cdat->dtup_621__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_621__CLASS_SOURCE_MULTICALL.nbval = 4; + /*inimult dtup_622__CLASS_SOURCE_MULTICALL*/ + /*_.VALTUP___V694*/ meltfptr[693] = (void*)&cdat->dtup_622__CLASS_SOURCE_MULTICALL; + cdat->dtup_622__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_622__CLASS_SOURCE_MULTICALL.nbval = 5; + /*iniobj dsym_623__SMULC_RESBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V695*/ meltfptr[694]) /*_.VALDATA___V695*/ meltfptr[694] = (void*)&cdat->dsym_623__SMULC_RESBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_623__SMULC_RESBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_623__SMULC_RESBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_623__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_623__SMULC_RESBIND.obj_hash = 135599005; + cdat->dsym_623__SMULC_RESBIND.obj_len = 3; + + /*inistring dstr_624__SMULC_RESBIND*/ + /*_.VALSTR___V696*/ meltfptr[695] = (void*)&cdat->dstr_624__SMULC_RESBIND; + cdat->dstr_624__SMULC_RESBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_624__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_624__SMULC_RESBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_619__SLET_BINDINGS*/ -/*_.VALDATA___V682*/ meltfptr[681] = (void*)&cdat->dobj_619__SLET_BINDINGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_619__SLET_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_619__SLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_619__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_619__SLET_BINDINGS.obj_num = 2; - cdat->dobj_619__SLET_BINDINGS.obj_hash = 275737749; - cdat->dobj_619__SLET_BINDINGS.obj_len = 4; - - /*inistring dstr_620__SLET_BINDINGS*/ - /*_.VALSTR___V683*/ meltfptr[682] = (void*)&cdat->dstr_620__SLET_BINDINGS; - cdat->dstr_620__SLET_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_620__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_620__SLET_BINDINGS.val)-1); - /*iniobj dsym_621__SLET_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V689*/ meltfptr[688]) /*_.VALDATA___V689*/ meltfptr[688] = (void*)&cdat->dsym_621__SLET_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_621__SLET_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_621__SLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_621__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_621__SLET_BODY.obj_hash = 405353277; - cdat->dsym_621__SLET_BODY.obj_len = 3; - - /*inistring dstr_622__SLET_BODY*/ - /*_.VALSTR___V690*/ meltfptr[689] = (void*)&cdat->dstr_622__SLET_BODY; - cdat->dstr_622__SLET_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_622__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_622__SLET_BODY.val)-1); + /*iniobj dobj_625__SMULC_RESBIND*/ +/*_.VALDATA___V688*/ meltfptr[687] = (void*)&cdat->dobj_625__SMULC_RESBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_625__SMULC_RESBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__SMULC_RESBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_625__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_625__SMULC_RESBIND.obj_num = 2; + cdat->dobj_625__SMULC_RESBIND.obj_hash = 1045623045; + cdat->dobj_625__SMULC_RESBIND.obj_len = 4; + + /*inistring dstr_626__SMULC_RESBIND*/ + /*_.VALSTR___V689*/ meltfptr[688] = (void*)&cdat->dstr_626__SMULC_RESBIND; + cdat->dstr_626__SMULC_RESBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_626__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_626__SMULC_RESBIND.val)-1); + /*iniobj dsym_627__SMULC_CALL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V697*/ meltfptr[696]) /*_.VALDATA___V697*/ meltfptr[696] = (void*)&cdat->dsym_627__SMULC_CALL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_627__SMULC_CALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_627__SMULC_CALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_627__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_627__SMULC_CALL.obj_hash = 918745495; + cdat->dsym_627__SMULC_CALL.obj_len = 3; + + /*inistring dstr_628__SMULC_CALL*/ + /*_.VALSTR___V698*/ meltfptr[697] = (void*)&cdat->dstr_628__SMULC_CALL; + cdat->dstr_628__SMULC_CALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_628__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_628__SMULC_CALL.val)-1); /*^iniobj*/ - /*iniobj dobj_623__SLET_BODY*/ -/*_.VALDATA___V684*/ meltfptr[683] = (void*)&cdat->dobj_623__SLET_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_623__SLET_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623__SLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_623__SLET_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_623__SLET_BODY.obj_num = 3; - cdat->dobj_623__SLET_BODY.obj_hash = 754753785; - cdat->dobj_623__SLET_BODY.obj_len = 4; - - /*inistring dstr_624__SLET_BODY*/ - /*_.VALSTR___V685*/ meltfptr[684] = (void*)&cdat->dstr_624__SLET_BODY; - cdat->dstr_624__SLET_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_624__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_624__SLET_BODY.val)-1); - /*iniobj dsym_625__CLASS_SOURCE_LETREC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V691*/ meltfptr[690]) /*_.VALDATA___V691*/ meltfptr[690] = (void*)&cdat->dsym_625__CLASS_SOURCE_LETREC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_625__CLASS_SOURCE_LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_625__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_625__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_625__CLASS_SOURCE_LETREC.obj_hash = 65197950; - cdat->dsym_625__CLASS_SOURCE_LETREC.obj_len = 3; - - /*inistring dstr_626__CLASS_SOURCE_LET*/ - /*_.VALSTR___V692*/ meltfptr[691] = (void*)&cdat->dstr_626__CLASS_SOURCE_LET; - cdat->dstr_626__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_626__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_626__CLASS_SOURCE_LET.val)-1); - MELT_LOCATION("warmelt-macro.melt:547:/ iniobj"); - /*iniobj dobj_627__CLASS_SOURCE_LETREC*/ -/*_.VALDATA___V693*/ meltfptr[692] = (void*)&cdat->dobj_627__CLASS_SOURCE_LETREC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_627__CLASS_SOURCE_LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_627__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_627__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_627__CLASS_SOURCE_LETREC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_627__CLASS_SOURCE_LETREC.obj_hash = 287273885; - cdat->dobj_627__CLASS_SOURCE_LETREC.obj_len = 8; - - /*inistring dstr_628__CLASS_SOURCE_LET*/ - /*_.VALSTR___V694*/ meltfptr[693] = (void*)&cdat->dstr_628__CLASS_SOURCE_LET; - cdat->dstr_628__CLASS_SOURCE_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_628__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_628__CLASS_SOURCE_LET.val)-1); - /*inimult dtup_629__CLASS_SOURCE_LETREC*/ - /*_.VALTUP___V695*/ meltfptr[694] = (void*)&cdat->dtup_629__CLASS_SOURCE_LETREC; - cdat->dtup_629__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_629__CLASS_SOURCE_LETREC.nbval = 5; - /*inimult dtup_630__CLASS_SOURCE_LETREC*/ - /*_.VALTUP___V696*/ meltfptr[695] = (void*)&cdat->dtup_630__CLASS_SOURCE_LETREC; - cdat->dtup_630__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_630__CLASS_SOURCE_LETREC.nbval = 4; - /*iniobj dsym_631__CLASS_SOURCE_LAMBDA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V697*/ meltfptr[696]) /*_.VALDATA___V697*/ meltfptr[696] = (void*)&cdat->dsym_631__CLASS_SOURCE_LAMBDA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_631__CLASS_SOURCE_LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_631__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_631__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_631__CLASS_SOURCE_LAMBDA.obj_hash = 825809316; - cdat->dsym_631__CLASS_SOURCE_LAMBDA.obj_len = 3; - - /*inistring dstr_632__CLASS_SOURCE_LAM*/ - /*_.VALSTR___V698*/ meltfptr[697] = (void*)&cdat->dstr_632__CLASS_SOURCE_LAM; - cdat->dstr_632__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_632__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_632__CLASS_SOURCE_LAM.val)-1); - MELT_LOCATION("warmelt-macro.melt:555:/ iniobj"); - /*iniobj dobj_633__CLASS_SOURCE_LAMBDA*/ -/*_.VALDATA___V699*/ meltfptr[698] = (void*)&cdat->dobj_633__CLASS_SOURCE_LAMBDA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_633__CLASS_SOURCE_LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_633__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_633__CLASS_SOURCE_LAMBDA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_633__CLASS_SOURCE_LAMBDA.obj_hash = 412530515; - cdat->dobj_633__CLASS_SOURCE_LAMBDA.obj_len = 8; - - /*inistring dstr_634__CLASS_SOURCE_LAM*/ - /*_.VALSTR___V700*/ meltfptr[699] = (void*)&cdat->dstr_634__CLASS_SOURCE_LAM; - cdat->dstr_634__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_634__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_634__CLASS_SOURCE_LAM.val)-1); - /*inimult dtup_635__CLASS_SOURCE_LAMBDA*/ - /*_.VALTUP___V701*/ meltfptr[700] = (void*)&cdat->dtup_635__CLASS_SOURCE_LAMBDA; - cdat->dtup_635__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_635__CLASS_SOURCE_LAMBDA.nbval = 4; - /*inimult dtup_636__CLASS_SOURCE_LAMBDA*/ - /*_.VALTUP___V706*/ meltfptr[705] = (void*)&cdat->dtup_636__CLASS_SOURCE_LAMBDA; - cdat->dtup_636__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_636__CLASS_SOURCE_LAMBDA.nbval = 4; - /*iniobj dsym_637__SLAM_ARGBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V707*/ meltfptr[706]) /*_.VALDATA___V707*/ meltfptr[706] = (void*)&cdat->dsym_637__SLAM_ARGBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_637__SLAM_ARGBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_637__SLAM_ARGBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_637__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_637__SLAM_ARGBIND.obj_hash = 370871900; - cdat->dsym_637__SLAM_ARGBIND.obj_len = 3; - - /*inistring dstr_638__SLAM_ARGBIND*/ - /*_.VALSTR___V708*/ meltfptr[707] = (void*)&cdat->dstr_638__SLAM_ARGBIND; - cdat->dstr_638__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_638__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_638__SLAM_ARGBIND.val)-1); + /*iniobj dobj_629__SMULC_CALL*/ +/*_.VALDATA___V690*/ meltfptr[689] = (void*)&cdat->dobj_629__SMULC_CALL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_629__SMULC_CALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__SMULC_CALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_629__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_629__SMULC_CALL.obj_num = 3; + cdat->dobj_629__SMULC_CALL.obj_hash = 789417766; + cdat->dobj_629__SMULC_CALL.obj_len = 4; + + /*inistring dstr_630__SMULC_CALL*/ + /*_.VALSTR___V691*/ meltfptr[690] = (void*)&cdat->dstr_630__SMULC_CALL; + cdat->dstr_630__SMULC_CALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_630__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_630__SMULC_CALL.val)-1); + /*iniobj dsym_631__SMULC_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V699*/ meltfptr[698]) /*_.VALDATA___V699*/ meltfptr[698] = (void*)&cdat->dsym_631__SMULC_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_631__SMULC_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_631__SMULC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_631__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_631__SMULC_BODY.obj_hash = 828944150; + cdat->dsym_631__SMULC_BODY.obj_len = 3; + + /*inistring dstr_632__SMULC_BODY*/ + /*_.VALSTR___V700*/ meltfptr[699] = (void*)&cdat->dstr_632__SMULC_BODY; + cdat->dstr_632__SMULC_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_632__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_632__SMULC_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_639__SLAM_ARGBIND*/ -/*_.VALDATA___V702*/ meltfptr[701] = (void*)&cdat->dobj_639__SLAM_ARGBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_639__SLAM_ARGBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__SLAM_ARGBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_639__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_639__SLAM_ARGBIND.obj_num = 2; - cdat->dobj_639__SLAM_ARGBIND.obj_hash = 406407633; - cdat->dobj_639__SLAM_ARGBIND.obj_len = 4; - - /*inistring dstr_640__SLAM_ARGBIND*/ - /*_.VALSTR___V703*/ meltfptr[702] = (void*)&cdat->dstr_640__SLAM_ARGBIND; - cdat->dstr_640__SLAM_ARGBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_640__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_640__SLAM_ARGBIND.val)-1); - /*iniobj dsym_641__SLAM_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V709*/ meltfptr[708]) /*_.VALDATA___V709*/ meltfptr[708] = (void*)&cdat->dsym_641__SLAM_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_641__SLAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_641__SLAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_641__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_641__SLAM_BODY.obj_hash = 405250012; - cdat->dsym_641__SLAM_BODY.obj_len = 3; - - /*inistring dstr_642__SLAM_BODY*/ - /*_.VALSTR___V710*/ meltfptr[709] = (void*)&cdat->dstr_642__SLAM_BODY; - cdat->dstr_642__SLAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_642__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_642__SLAM_BODY.val)-1); + /*iniobj dobj_633__SMULC_BODY*/ +/*_.VALDATA___V692*/ meltfptr[691] = (void*)&cdat->dobj_633__SMULC_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_633__SMULC_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__SMULC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_633__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_633__SMULC_BODY.obj_num = 4; + cdat->dobj_633__SMULC_BODY.obj_hash = 893848667; + cdat->dobj_633__SMULC_BODY.obj_len = 4; + + /*inistring dstr_634__SMULC_BODY*/ + /*_.VALSTR___V693*/ meltfptr[692] = (void*)&cdat->dstr_634__SMULC_BODY; + cdat->dstr_634__SMULC_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_634__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_634__SMULC_BODY.val)-1); + /*iniobj dsym_635__CLASS_SOURCE_LABELLED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V701*/ meltfptr[700]) /*_.VALDATA___V701*/ meltfptr[700] = (void*)&cdat->dsym_635__CLASS_SOURCE_LABELLED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_635__CLASS_SOURCE_LABELLED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_635__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_635__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_635__CLASS_SOURCE_LABELLED.obj_hash = 695948554; + cdat->dsym_635__CLASS_SOURCE_LABELLED.obj_len = 3; + + /*inistring dstr_636__CLASS_SOURCE_LAB*/ + /*_.VALSTR___V702*/ meltfptr[701] = (void*)&cdat->dstr_636__CLASS_SOURCE_LAB; + cdat->dstr_636__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_636__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_636__CLASS_SOURCE_LAB.val)-1); + MELT_LOCATION("warmelt-macro.melt:558:/ iniobj"); + /*iniobj dobj_637__CLASS_SOURCE_LABELLED*/ +/*_.VALDATA___V703*/ meltfptr[702] = (void*)&cdat->dobj_637__CLASS_SOURCE_LABELLED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_637__CLASS_SOURCE_LABELLED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_637__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_637__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_637__CLASS_SOURCE_LABELLED.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_637__CLASS_SOURCE_LABELLED.obj_hash = 987862157; + cdat->dobj_637__CLASS_SOURCE_LABELLED.obj_len = 8; + + /*inistring dstr_638__CLASS_SOURCE_LAB*/ + /*_.VALSTR___V704*/ meltfptr[703] = (void*)&cdat->dstr_638__CLASS_SOURCE_LAB; + cdat->dstr_638__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_638__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_638__CLASS_SOURCE_LAB.val)-1); + /*inimult dtup_639__CLASS_SOURCE_LABELLED*/ + /*_.VALTUP___V705*/ meltfptr[704] = (void*)&cdat->dtup_639__CLASS_SOURCE_LABELLED; + cdat->dtup_639__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_639__CLASS_SOURCE_LABELLED.nbval = 4; + /*inimult dtup_640__CLASS_SOURCE_LABELLED*/ + /*_.VALTUP___V708*/ meltfptr[707] = (void*)&cdat->dtup_640__CLASS_SOURCE_LABELLED; + cdat->dtup_640__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_640__CLASS_SOURCE_LABELLED.nbval = 3; + /*iniobj dsym_641__SLABEL_BIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V709*/ meltfptr[708]) /*_.VALDATA___V709*/ meltfptr[708] = (void*)&cdat->dsym_641__SLABEL_BIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_641__SLABEL_BIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_641__SLABEL_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_641__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_641__SLABEL_BIND.obj_hash = 418843843; + cdat->dsym_641__SLABEL_BIND.obj_len = 3; + + /*inistring dstr_642__SLABEL_BIND*/ + /*_.VALSTR___V710*/ meltfptr[709] = (void*)&cdat->dstr_642__SLABEL_BIND; + cdat->dstr_642__SLABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_642__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_642__SLABEL_BIND.val)-1); /*^iniobj*/ - /*iniobj dobj_643__SLAM_BODY*/ -/*_.VALDATA___V704*/ meltfptr[703] = (void*)&cdat->dobj_643__SLAM_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_643__SLAM_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__SLAM_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_643__SLAM_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_643__SLAM_BODY.obj_num = 3; - cdat->dobj_643__SLAM_BODY.obj_hash = 166420810; - cdat->dobj_643__SLAM_BODY.obj_len = 4; - - /*inistring dstr_644__SLAM_BODY*/ - /*_.VALSTR___V705*/ meltfptr[704] = (void*)&cdat->dstr_644__SLAM_BODY; - cdat->dstr_644__SLAM_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_644__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_644__SLAM_BODY.val)-1); - /*iniobj dsym_645__CLASS_SOURCE_MULTICALL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V711*/ meltfptr[710]) /*_.VALDATA___V711*/ meltfptr[710] = (void*)&cdat->dsym_645__CLASS_SOURCE_MULTICALL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_645__CLASS_SOURCE_MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_645__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_645__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_645__CLASS_SOURCE_MULTICALL.obj_hash = 367933626; - cdat->dsym_645__CLASS_SOURCE_MULTICALL.obj_len = 3; - - /*inistring dstr_646__CLASS_SOURCE_MUL*/ - /*_.VALSTR___V712*/ meltfptr[711] = (void*)&cdat->dstr_646__CLASS_SOURCE_MUL; - cdat->dstr_646__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_646__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_646__CLASS_SOURCE_MUL.val)-1); + /*iniobj dobj_643__SLABEL_BIND*/ +/*_.VALDATA___V706*/ meltfptr[705] = (void*)&cdat->dobj_643__SLABEL_BIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_643__SLABEL_BIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__SLABEL_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_643__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_643__SLABEL_BIND.obj_num = 2; + cdat->dobj_643__SLABEL_BIND.obj_hash = 47291923; + cdat->dobj_643__SLABEL_BIND.obj_len = 4; + + /*inistring dstr_644__SLABEL_BIND*/ + /*_.VALSTR___V707*/ meltfptr[706] = (void*)&cdat->dstr_644__SLABEL_BIND; + cdat->dstr_644__SLABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_644__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_644__SLABEL_BIND.val)-1); + /*iniobj dsym_645__CLASS_SOURCE_FOREVER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V711*/ meltfptr[710]) /*_.VALDATA___V711*/ meltfptr[710] = (void*)&cdat->dsym_645__CLASS_SOURCE_FOREVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_645__CLASS_SOURCE_FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_645__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_645__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_645__CLASS_SOURCE_FOREVER.obj_hash = 989441728; + cdat->dsym_645__CLASS_SOURCE_FOREVER.obj_len = 3; + + /*inistring dstr_646__CLASS_SOURCE_FOR*/ + /*_.VALSTR___V712*/ meltfptr[711] = (void*)&cdat->dstr_646__CLASS_SOURCE_FOR; + cdat->dstr_646__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_646__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_646__CLASS_SOURCE_FOR.val)-1); MELT_LOCATION("warmelt-macro.melt:567:/ iniobj"); - /*iniobj dobj_647__CLASS_SOURCE_MULTICALL*/ -/*_.VALDATA___V713*/ meltfptr[712] = (void*)&cdat->dobj_647__CLASS_SOURCE_MULTICALL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_647__CLASS_SOURCE_MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_647__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_647__CLASS_SOURCE_MULTICALL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_647__CLASS_SOURCE_MULTICALL.obj_hash = 195656823; - cdat->dobj_647__CLASS_SOURCE_MULTICALL.obj_len = 8; - - /*inistring dstr_648__CLASS_SOURCE_MUL*/ - /*_.VALSTR___V714*/ meltfptr[713] = (void*)&cdat->dstr_648__CLASS_SOURCE_MUL; - cdat->dstr_648__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_648__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_648__CLASS_SOURCE_MUL.val)-1); - /*inimult dtup_649__CLASS_SOURCE_MULTICALL*/ - /*_.VALTUP___V715*/ meltfptr[714] = (void*)&cdat->dtup_649__CLASS_SOURCE_MULTICALL; - cdat->dtup_649__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_649__CLASS_SOURCE_MULTICALL.nbval = 4; - /*inimult dtup_650__CLASS_SOURCE_MULTICALL*/ - /*_.VALTUP___V722*/ meltfptr[721] = (void*)&cdat->dtup_650__CLASS_SOURCE_MULTICALL; - cdat->dtup_650__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_650__CLASS_SOURCE_MULTICALL.nbval = 5; - /*iniobj dsym_651__SMULC_RESBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V723*/ meltfptr[722]) /*_.VALDATA___V723*/ meltfptr[722] = (void*)&cdat->dsym_651__SMULC_RESBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_651__SMULC_RESBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_651__SMULC_RESBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_651__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_651__SMULC_RESBIND.obj_hash = 135599005; - cdat->dsym_651__SMULC_RESBIND.obj_len = 3; - - /*inistring dstr_652__SMULC_RESBIND*/ - /*_.VALSTR___V724*/ meltfptr[723] = (void*)&cdat->dstr_652__SMULC_RESBIND; - cdat->dstr_652__SMULC_RESBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_652__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_652__SMULC_RESBIND.val)-1); + /*iniobj dobj_647__CLASS_SOURCE_FOREVER*/ +/*_.VALDATA___V713*/ meltfptr[712] = (void*)&cdat->dobj_647__CLASS_SOURCE_FOREVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_647__CLASS_SOURCE_FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_647__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_647__CLASS_SOURCE_FOREVER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_647__CLASS_SOURCE_FOREVER.obj_hash = 177377973; + cdat->dobj_647__CLASS_SOURCE_FOREVER.obj_len = 8; + + /*inistring dstr_648__CLASS_SOURCE_FOR*/ + /*_.VALSTR___V714*/ meltfptr[713] = (void*)&cdat->dstr_648__CLASS_SOURCE_FOR; + cdat->dstr_648__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_648__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_648__CLASS_SOURCE_FOR.val)-1); + /*inimult dtup_649__CLASS_SOURCE_FOREVER*/ + /*_.VALTUP___V715*/ meltfptr[714] = (void*)&cdat->dtup_649__CLASS_SOURCE_FOREVER; + cdat->dtup_649__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_649__CLASS_SOURCE_FOREVER.nbval = 5; + /*inimult dtup_650__CLASS_SOURCE_FOREVER*/ + /*_.VALTUP___V718*/ meltfptr[717] = (void*)&cdat->dtup_650__CLASS_SOURCE_FOREVER; + cdat->dtup_650__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_650__CLASS_SOURCE_FOREVER.nbval = 4; + /*iniobj dsym_651__SFRV_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V719*/ meltfptr[718]) /*_.VALDATA___V719*/ meltfptr[718] = (void*)&cdat->dsym_651__SFRV_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_651__SFRV_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_651__SFRV_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_651__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_651__SFRV_BODY.obj_hash = 321317727; + cdat->dsym_651__SFRV_BODY.obj_len = 3; + + /*inistring dstr_652__SFRV_BODY*/ + /*_.VALSTR___V720*/ meltfptr[719] = (void*)&cdat->dstr_652__SFRV_BODY; + cdat->dstr_652__SFRV_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_652__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_652__SFRV_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_653__SMULC_RESBIND*/ -/*_.VALDATA___V716*/ meltfptr[715] = (void*)&cdat->dobj_653__SMULC_RESBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_653__SMULC_RESBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__SMULC_RESBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_653__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_653__SMULC_RESBIND.obj_num = 2; - cdat->dobj_653__SMULC_RESBIND.obj_hash = 786088146; - cdat->dobj_653__SMULC_RESBIND.obj_len = 4; - - /*inistring dstr_654__SMULC_RESBIND*/ - /*_.VALSTR___V717*/ meltfptr[716] = (void*)&cdat->dstr_654__SMULC_RESBIND; - cdat->dstr_654__SMULC_RESBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_654__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_654__SMULC_RESBIND.val)-1); - /*iniobj dsym_655__SMULC_CALL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V725*/ meltfptr[724]) /*_.VALDATA___V725*/ meltfptr[724] = (void*)&cdat->dsym_655__SMULC_CALL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_655__SMULC_CALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_655__SMULC_CALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_655__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_655__SMULC_CALL.obj_hash = 918745495; - cdat->dsym_655__SMULC_CALL.obj_len = 3; - - /*inistring dstr_656__SMULC_CALL*/ - /*_.VALSTR___V726*/ meltfptr[725] = (void*)&cdat->dstr_656__SMULC_CALL; - cdat->dstr_656__SMULC_CALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_656__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_656__SMULC_CALL.val)-1); + /*iniobj dobj_653__SFRV_BODY*/ +/*_.VALDATA___V716*/ meltfptr[715] = (void*)&cdat->dobj_653__SFRV_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_653__SFRV_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__SFRV_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_653__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_653__SFRV_BODY.obj_num = 3; + cdat->dobj_653__SFRV_BODY.obj_hash = 853378128; + cdat->dobj_653__SFRV_BODY.obj_len = 4; + + /*inistring dstr_654__SFRV_BODY*/ + /*_.VALSTR___V717*/ meltfptr[716] = (void*)&cdat->dstr_654__SFRV_BODY; + cdat->dstr_654__SFRV_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_654__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_654__SFRV_BODY.val)-1); + /*iniobj dsym_655__CLASS_SOURCE_EXIT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V721*/ meltfptr[720]) /*_.VALDATA___V721*/ meltfptr[720] = (void*)&cdat->dsym_655__CLASS_SOURCE_EXIT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_655__CLASS_SOURCE_EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_655__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_655__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_655__CLASS_SOURCE_EXIT.obj_hash = 6060516; + cdat->dsym_655__CLASS_SOURCE_EXIT.obj_len = 3; + + /*inistring dstr_656__CLASS_SOURCE_EXI*/ + /*_.VALSTR___V722*/ meltfptr[721] = (void*)&cdat->dstr_656__CLASS_SOURCE_EXI; + cdat->dstr_656__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_656__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_656__CLASS_SOURCE_EXI.val)-1); + MELT_LOCATION("warmelt-macro.melt:575:/ iniobj"); + /*iniobj dobj_657__CLASS_SOURCE_EXIT*/ +/*_.VALDATA___V723*/ meltfptr[722] = (void*)&cdat->dobj_657__CLASS_SOURCE_EXIT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_657__CLASS_SOURCE_EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_657__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_657__CLASS_SOURCE_EXIT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_657__CLASS_SOURCE_EXIT.obj_hash = 989422453; + cdat->dobj_657__CLASS_SOURCE_EXIT.obj_len = 8; + + /*inistring dstr_658__CLASS_SOURCE_EXI*/ + /*_.VALSTR___V724*/ meltfptr[723] = (void*)&cdat->dstr_658__CLASS_SOURCE_EXI; + cdat->dstr_658__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_658__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_658__CLASS_SOURCE_EXI.val)-1); + /*inimult dtup_659__CLASS_SOURCE_EXIT*/ + /*_.VALTUP___V725*/ meltfptr[724] = (void*)&cdat->dtup_659__CLASS_SOURCE_EXIT; + cdat->dtup_659__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_659__CLASS_SOURCE_EXIT.nbval = 5; + /*inimult dtup_660__CLASS_SOURCE_EXIT*/ + /*_.VALTUP___V728*/ meltfptr[727] = (void*)&cdat->dtup_660__CLASS_SOURCE_EXIT; + cdat->dtup_660__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_660__CLASS_SOURCE_EXIT.nbval = 4; + /*iniobj dsym_661__SEXI_BODY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V729*/ meltfptr[728]) /*_.VALDATA___V729*/ meltfptr[728] = (void*)&cdat->dsym_661__SEXI_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_661__SEXI_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_661__SEXI_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_661__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_661__SEXI_BODY.obj_hash = 795764559; + cdat->dsym_661__SEXI_BODY.obj_len = 3; + + /*inistring dstr_662__SEXI_BODY*/ + /*_.VALSTR___V730*/ meltfptr[729] = (void*)&cdat->dstr_662__SEXI_BODY; + cdat->dstr_662__SEXI_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_662__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_662__SEXI_BODY.val)-1); /*^iniobj*/ - /*iniobj dobj_657__SMULC_CALL*/ -/*_.VALDATA___V718*/ meltfptr[717] = (void*)&cdat->dobj_657__SMULC_CALL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_657__SMULC_CALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__SMULC_CALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_657__SMULC_CALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_657__SMULC_CALL.obj_num = 3; - cdat->dobj_657__SMULC_CALL.obj_hash = 723184990; - cdat->dobj_657__SMULC_CALL.obj_len = 4; - - /*inistring dstr_658__SMULC_CALL*/ - /*_.VALSTR___V719*/ meltfptr[718] = (void*)&cdat->dstr_658__SMULC_CALL; - cdat->dstr_658__SMULC_CALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_658__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_658__SMULC_CALL.val)-1); - /*iniobj dsym_659__SMULC_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V727*/ meltfptr[726]) /*_.VALDATA___V727*/ meltfptr[726] = (void*)&cdat->dsym_659__SMULC_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_659__SMULC_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_659__SMULC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_659__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_659__SMULC_BODY.obj_hash = 828944150; - cdat->dsym_659__SMULC_BODY.obj_len = 3; - - /*inistring dstr_660__SMULC_BODY*/ - /*_.VALSTR___V728*/ meltfptr[727] = (void*)&cdat->dstr_660__SMULC_BODY; - cdat->dstr_660__SMULC_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_660__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_660__SMULC_BODY.val)-1); + /*iniobj dobj_663__SEXI_BODY*/ +/*_.VALDATA___V726*/ meltfptr[725] = (void*)&cdat->dobj_663__SEXI_BODY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_663__SEXI_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__SEXI_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_663__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_663__SEXI_BODY.obj_num = 3; + cdat->dobj_663__SEXI_BODY.obj_hash = 788538185; + cdat->dobj_663__SEXI_BODY.obj_len = 4; + + /*inistring dstr_664__SEXI_BODY*/ + /*_.VALSTR___V727*/ meltfptr[726] = (void*)&cdat->dstr_664__SEXI_BODY; + cdat->dstr_664__SEXI_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_664__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_664__SEXI_BODY.val)-1); + /*iniobj dsym_665__CLASS_SOURCE_COMPILEWARNING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V731*/ meltfptr[730]) /*_.VALDATA___V731*/ meltfptr[730] = (void*)&cdat->dsym_665__CLASS_SOURCE_COMPILEWARNING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_665__CLASS_SOURCE_COMPILEWARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_665__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_665__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_665__CLASS_SOURCE_COMPILEWARNING.obj_hash = 32120446; + cdat->dsym_665__CLASS_SOURCE_COMPILEWARNING.obj_len = 3; + + /*inistring dstr_666__CLASS_SOURCE_COM*/ + /*_.VALSTR___V732*/ meltfptr[731] = (void*)&cdat->dstr_666__CLASS_SOURCE_COM; + cdat->dstr_666__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_666__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_666__CLASS_SOURCE_COM.val)-1); + MELT_LOCATION("warmelt-macro.melt:584:/ iniobj"); + /*iniobj dobj_667__CLASS_SOURCE_COMPILEWARNING*/ +/*_.VALDATA___V733*/ meltfptr[732] = (void*)&cdat->dobj_667__CLASS_SOURCE_COMPILEWARNING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_667__CLASS_SOURCE_COMPILEWARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_667__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_667__CLASS_SOURCE_COMPILEWARNING.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_667__CLASS_SOURCE_COMPILEWARNING.obj_hash = 669382479; + cdat->dobj_667__CLASS_SOURCE_COMPILEWARNING.obj_len = 8; + + /*inistring dstr_668__CLASS_SOURCE_COM*/ + /*_.VALSTR___V734*/ meltfptr[733] = (void*)&cdat->dstr_668__CLASS_SOURCE_COM; + cdat->dstr_668__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_668__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_668__CLASS_SOURCE_COM.val)-1); + /*inimult dtup_669__CLASS_SOURCE_COMPILEWARNING*/ + /*_.VALTUP___V735*/ meltfptr[734] = (void*)&cdat->dtup_669__CLASS_SOURCE_COMPILEWARNING; + cdat->dtup_669__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_669__CLASS_SOURCE_COMPILEWARNING.nbval = 4; + /*inimult dtup_670__CLASS_SOURCE_COMPILEWARNING*/ + /*_.VALTUP___V740*/ meltfptr[739] = (void*)&cdat->dtup_670__CLASS_SOURCE_COMPILEWARNING; + cdat->dtup_670__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_670__CLASS_SOURCE_COMPILEWARNING.nbval = 4; + /*iniobj dsym_671__SCWARN_MSG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V741*/ meltfptr[740]) /*_.VALDATA___V741*/ meltfptr[740] = (void*)&cdat->dsym_671__SCWARN_MSG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_671__SCWARN_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_671__SCWARN_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_671__SCWARN_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_671__SCWARN_MSG.obj_hash = 98598467; + cdat->dsym_671__SCWARN_MSG.obj_len = 3; + + /*inistring dstr_672__SCWARN_MSG*/ + /*_.VALSTR___V742*/ meltfptr[741] = (void*)&cdat->dstr_672__SCWARN_MSG; + cdat->dstr_672__SCWARN_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_672__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_672__SCWARN_MSG.val)-1); /*^iniobj*/ - /*iniobj dobj_661__SMULC_BODY*/ -/*_.VALDATA___V720*/ meltfptr[719] = (void*)&cdat->dobj_661__SMULC_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_661__SMULC_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_661__SMULC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_661__SMULC_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_661__SMULC_BODY.obj_num = 4; - cdat->dobj_661__SMULC_BODY.obj_hash = 435906646; - cdat->dobj_661__SMULC_BODY.obj_len = 4; - - /*inistring dstr_662__SMULC_BODY*/ - /*_.VALSTR___V721*/ meltfptr[720] = (void*)&cdat->dstr_662__SMULC_BODY; - cdat->dstr_662__SMULC_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_662__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_662__SMULC_BODY.val)-1); - /*iniobj dsym_663__CLASS_SOURCE_LABELLED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V729*/ meltfptr[728]) /*_.VALDATA___V729*/ meltfptr[728] = (void*)&cdat->dsym_663__CLASS_SOURCE_LABELLED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_663__CLASS_SOURCE_LABELLED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_663__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_663__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_663__CLASS_SOURCE_LABELLED.obj_hash = 695948554; - cdat->dsym_663__CLASS_SOURCE_LABELLED.obj_len = 3; - - /*inistring dstr_664__CLASS_SOURCE_LAB*/ - /*_.VALSTR___V730*/ meltfptr[729] = (void*)&cdat->dstr_664__CLASS_SOURCE_LAB; - cdat->dstr_664__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_664__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_664__CLASS_SOURCE_LAB.val)-1); - MELT_LOCATION("warmelt-macro.melt:579:/ iniobj"); - /*iniobj dobj_665__CLASS_SOURCE_LABELLED*/ -/*_.VALDATA___V731*/ meltfptr[730] = (void*)&cdat->dobj_665__CLASS_SOURCE_LABELLED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_665__CLASS_SOURCE_LABELLED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_665__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_665__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_665__CLASS_SOURCE_LABELLED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_665__CLASS_SOURCE_LABELLED.obj_hash = 887026051; - cdat->dobj_665__CLASS_SOURCE_LABELLED.obj_len = 8; - - /*inistring dstr_666__CLASS_SOURCE_LAB*/ - /*_.VALSTR___V732*/ meltfptr[731] = (void*)&cdat->dstr_666__CLASS_SOURCE_LAB; - cdat->dstr_666__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_666__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_666__CLASS_SOURCE_LAB.val)-1); - /*inimult dtup_667__CLASS_SOURCE_LABELLED*/ - /*_.VALTUP___V733*/ meltfptr[732] = (void*)&cdat->dtup_667__CLASS_SOURCE_LABELLED; - cdat->dtup_667__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_667__CLASS_SOURCE_LABELLED.nbval = 4; - /*inimult dtup_668__CLASS_SOURCE_LABELLED*/ - /*_.VALTUP___V736*/ meltfptr[735] = (void*)&cdat->dtup_668__CLASS_SOURCE_LABELLED; - cdat->dtup_668__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_668__CLASS_SOURCE_LABELLED.nbval = 3; - /*iniobj dsym_669__SLABEL_BIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V737*/ meltfptr[736]) /*_.VALDATA___V737*/ meltfptr[736] = (void*)&cdat->dsym_669__SLABEL_BIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_669__SLABEL_BIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_669__SLABEL_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_669__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_669__SLABEL_BIND.obj_hash = 418843843; - cdat->dsym_669__SLABEL_BIND.obj_len = 3; - - /*inistring dstr_670__SLABEL_BIND*/ - /*_.VALSTR___V738*/ meltfptr[737] = (void*)&cdat->dstr_670__SLABEL_BIND; - cdat->dstr_670__SLABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_670__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_670__SLABEL_BIND.val)-1); + /*iniobj dobj_673__SCWARN_MSG*/ +/*_.VALDATA___V736*/ meltfptr[735] = (void*)&cdat->dobj_673__SCWARN_MSG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_673__SCWARN_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__SCWARN_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_673__SCWARN_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_673__SCWARN_MSG.obj_num = 2; + cdat->dobj_673__SCWARN_MSG.obj_hash = 452209077; + cdat->dobj_673__SCWARN_MSG.obj_len = 4; + + /*inistring dstr_674__SCWARN_MSG*/ + /*_.VALSTR___V737*/ meltfptr[736] = (void*)&cdat->dstr_674__SCWARN_MSG; + cdat->dstr_674__SCWARN_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_674__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_674__SCWARN_MSG.val)-1); + /*iniobj dsym_675__SCWARN_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V743*/ meltfptr[742]) /*_.VALDATA___V743*/ meltfptr[742] = (void*)&cdat->dsym_675__SCWARN_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_675__SCWARN_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_675__SCWARN_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_675__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_675__SCWARN_EXPR.obj_hash = 375567380; + cdat->dsym_675__SCWARN_EXPR.obj_len = 3; + + /*inistring dstr_676__SCWARN_EXPR*/ + /*_.VALSTR___V744*/ meltfptr[743] = (void*)&cdat->dstr_676__SCWARN_EXPR; + cdat->dstr_676__SCWARN_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_676__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_676__SCWARN_EXPR.val)-1); /*^iniobj*/ - /*iniobj dobj_671__SLABEL_BIND*/ -/*_.VALDATA___V734*/ meltfptr[733] = (void*)&cdat->dobj_671__SLABEL_BIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_671__SLABEL_BIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_671__SLABEL_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_671__SLABEL_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_671__SLABEL_BIND.obj_num = 2; - cdat->dobj_671__SLABEL_BIND.obj_hash = 52495253; - cdat->dobj_671__SLABEL_BIND.obj_len = 4; - - /*inistring dstr_672__SLABEL_BIND*/ - /*_.VALSTR___V735*/ meltfptr[734] = (void*)&cdat->dstr_672__SLABEL_BIND; - cdat->dstr_672__SLABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_672__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_672__SLABEL_BIND.val)-1); - /*iniobj dsym_673__CLASS_SOURCE_FOREVER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V739*/ meltfptr[738]) /*_.VALDATA___V739*/ meltfptr[738] = (void*)&cdat->dsym_673__CLASS_SOURCE_FOREVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_673__CLASS_SOURCE_FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_673__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_673__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_673__CLASS_SOURCE_FOREVER.obj_hash = 989441728; - cdat->dsym_673__CLASS_SOURCE_FOREVER.obj_len = 3; - - /*inistring dstr_674__CLASS_SOURCE_FOR*/ - /*_.VALSTR___V740*/ meltfptr[739] = (void*)&cdat->dstr_674__CLASS_SOURCE_FOR; - cdat->dstr_674__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_674__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_674__CLASS_SOURCE_FOR.val)-1); - MELT_LOCATION("warmelt-macro.melt:588:/ iniobj"); - /*iniobj dobj_675__CLASS_SOURCE_FOREVER*/ -/*_.VALDATA___V741*/ meltfptr[740] = (void*)&cdat->dobj_675__CLASS_SOURCE_FOREVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_675__CLASS_SOURCE_FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_675__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_675__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_675__CLASS_SOURCE_FOREVER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_675__CLASS_SOURCE_FOREVER.obj_hash = 479979242; - cdat->dobj_675__CLASS_SOURCE_FOREVER.obj_len = 8; - - /*inistring dstr_676__CLASS_SOURCE_FOR*/ - /*_.VALSTR___V742*/ meltfptr[741] = (void*)&cdat->dstr_676__CLASS_SOURCE_FOR; - cdat->dstr_676__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_676__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_676__CLASS_SOURCE_FOR.val)-1); - /*inimult dtup_677__CLASS_SOURCE_FOREVER*/ - /*_.VALTUP___V743*/ meltfptr[742] = (void*)&cdat->dtup_677__CLASS_SOURCE_FOREVER; - cdat->dtup_677__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_677__CLASS_SOURCE_FOREVER.nbval = 5; - /*inimult dtup_678__CLASS_SOURCE_FOREVER*/ - /*_.VALTUP___V746*/ meltfptr[745] = (void*)&cdat->dtup_678__CLASS_SOURCE_FOREVER; - cdat->dtup_678__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_678__CLASS_SOURCE_FOREVER.nbval = 4; - /*iniobj dsym_679__SFRV_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V747*/ meltfptr[746]) /*_.VALDATA___V747*/ meltfptr[746] = (void*)&cdat->dsym_679__SFRV_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_679__SFRV_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_679__SFRV_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_679__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_679__SFRV_BODY.obj_hash = 321317727; - cdat->dsym_679__SFRV_BODY.obj_len = 3; - - /*inistring dstr_680__SFRV_BODY*/ - /*_.VALSTR___V748*/ meltfptr[747] = (void*)&cdat->dstr_680__SFRV_BODY; - cdat->dstr_680__SFRV_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_680__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_680__SFRV_BODY.val)-1); + /*iniobj dobj_677__SCWARN_EXPR*/ +/*_.VALDATA___V738*/ meltfptr[737] = (void*)&cdat->dobj_677__SCWARN_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_677__SCWARN_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__SCWARN_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_677__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_677__SCWARN_EXPR.obj_num = 3; + cdat->dobj_677__SCWARN_EXPR.obj_hash = 358453763; + cdat->dobj_677__SCWARN_EXPR.obj_len = 4; + + /*inistring dstr_678__SCWARN_EXPR*/ + /*_.VALSTR___V739*/ meltfptr[738] = (void*)&cdat->dstr_678__SCWARN_EXPR; + cdat->dstr_678__SCWARN_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_678__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_678__SCWARN_EXPR.val)-1); + /*iniobj dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V745*/ meltfptr[744]) /*_.VALDATA___V745*/ meltfptr[744] = (void*)&cdat->dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 483365704; + cdat->dsym_679__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; + + /*inistring dstr_680__CLASS_SOURCE_CUR*/ + /*_.VALSTR___V746*/ meltfptr[745] = (void*)&cdat->dstr_680__CLASS_SOURCE_CUR; + cdat->dstr_680__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_680__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_680__CLASS_SOURCE_CUR.val)-1); + MELT_LOCATION("warmelt-macro.melt:591:/ iniobj"); + /*iniobj dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*_.VALDATA___V747*/ meltfptr[746] = (void*)&cdat->dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 751395096; + cdat->dobj_681__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; + + /*inistring dstr_682__CLASS_SOURCE_CUR*/ + /*_.VALSTR___V748*/ meltfptr[747] = (void*)&cdat->dstr_682__CLASS_SOURCE_CUR; + cdat->dstr_682__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_682__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_682__CLASS_SOURCE_CUR.val)-1); + /*inimult dtup_683__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALTUP___V749*/ meltfptr[748] = (void*)&cdat->dtup_683__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dtup_683__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_683__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + /*inimult dtup_684__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALTUP___V752*/ meltfptr[751] = (void*)&cdat->dtup_684__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dtup_684__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_684__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; + /*iniobj dsym_685__CMEC_COMMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V753*/ meltfptr[752]) /*_.VALDATA___V753*/ meltfptr[752] = (void*)&cdat->dsym_685__CMEC_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_685__CMEC_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_685__CMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_685__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_685__CMEC_COMMENT.obj_hash = 809800780; + cdat->dsym_685__CMEC_COMMENT.obj_len = 3; + + /*inistring dstr_686__CMEC_COMMENT*/ + /*_.VALSTR___V754*/ meltfptr[753] = (void*)&cdat->dstr_686__CMEC_COMMENT; + cdat->dstr_686__CMEC_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_686__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_686__CMEC_COMMENT.val)-1); /*^iniobj*/ - /*iniobj dobj_681__SFRV_BODY*/ -/*_.VALDATA___V744*/ meltfptr[743] = (void*)&cdat->dobj_681__SFRV_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_681__SFRV_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_681__SFRV_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_681__SFRV_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_681__SFRV_BODY.obj_num = 3; - cdat->dobj_681__SFRV_BODY.obj_hash = 706507395; - cdat->dobj_681__SFRV_BODY.obj_len = 4; - - /*inistring dstr_682__SFRV_BODY*/ - /*_.VALSTR___V745*/ meltfptr[744] = (void*)&cdat->dstr_682__SFRV_BODY; - cdat->dstr_682__SFRV_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_682__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_682__SFRV_BODY.val)-1); - /*iniobj dsym_683__CLASS_SOURCE_EXIT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V749*/ meltfptr[748]) /*_.VALDATA___V749*/ meltfptr[748] = (void*)&cdat->dsym_683__CLASS_SOURCE_EXIT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_683__CLASS_SOURCE_EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_683__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_683__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_683__CLASS_SOURCE_EXIT.obj_hash = 6060516; - cdat->dsym_683__CLASS_SOURCE_EXIT.obj_len = 3; - - /*inistring dstr_684__CLASS_SOURCE_EXI*/ - /*_.VALSTR___V750*/ meltfptr[749] = (void*)&cdat->dstr_684__CLASS_SOURCE_EXI; - cdat->dstr_684__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_684__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_684__CLASS_SOURCE_EXI.val)-1); - MELT_LOCATION("warmelt-macro.melt:596:/ iniobj"); - /*iniobj dobj_685__CLASS_SOURCE_EXIT*/ -/*_.VALDATA___V751*/ meltfptr[750] = (void*)&cdat->dobj_685__CLASS_SOURCE_EXIT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_685__CLASS_SOURCE_EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_685__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_685__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_685__CLASS_SOURCE_EXIT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_685__CLASS_SOURCE_EXIT.obj_hash = 223530009; - cdat->dobj_685__CLASS_SOURCE_EXIT.obj_len = 8; - - /*inistring dstr_686__CLASS_SOURCE_EXI*/ - /*_.VALSTR___V752*/ meltfptr[751] = (void*)&cdat->dstr_686__CLASS_SOURCE_EXI; - cdat->dstr_686__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_686__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_686__CLASS_SOURCE_EXI.val)-1); - /*inimult dtup_687__CLASS_SOURCE_EXIT*/ - /*_.VALTUP___V753*/ meltfptr[752] = (void*)&cdat->dtup_687__CLASS_SOURCE_EXIT; - cdat->dtup_687__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_687__CLASS_SOURCE_EXIT.nbval = 5; - /*inimult dtup_688__CLASS_SOURCE_EXIT*/ - /*_.VALTUP___V756*/ meltfptr[755] = (void*)&cdat->dtup_688__CLASS_SOURCE_EXIT; - cdat->dtup_688__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_688__CLASS_SOURCE_EXIT.nbval = 4; - /*iniobj dsym_689__SEXI_BODY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V757*/ meltfptr[756]) /*_.VALDATA___V757*/ meltfptr[756] = (void*)&cdat->dsym_689__SEXI_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_689__SEXI_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_689__SEXI_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_689__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_689__SEXI_BODY.obj_hash = 795764559; - cdat->dsym_689__SEXI_BODY.obj_len = 3; - - /*inistring dstr_690__SEXI_BODY*/ - /*_.VALSTR___V758*/ meltfptr[757] = (void*)&cdat->dstr_690__SEXI_BODY; - cdat->dstr_690__SEXI_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_690__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_690__SEXI_BODY.val)-1); + /*iniobj dobj_687__CMEC_COMMENT*/ +/*_.VALDATA___V750*/ meltfptr[749] = (void*)&cdat->dobj_687__CMEC_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_687__CMEC_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_687__CMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_687__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_687__CMEC_COMMENT.obj_num = 2; + cdat->dobj_687__CMEC_COMMENT.obj_hash = 617724836; + cdat->dobj_687__CMEC_COMMENT.obj_len = 4; + + /*inistring dstr_688__CMEC_COMMENT*/ + /*_.VALSTR___V751*/ meltfptr[750] = (void*)&cdat->dstr_688__CMEC_COMMENT; + cdat->dstr_688__CMEC_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_688__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_688__CMEC_COMMENT.val)-1); + /*iniobj dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V755*/ meltfptr[754]) /*_.VALDATA___V755*/ meltfptr[754] = (void*)&cdat->dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 201468317; + cdat->dsym_689__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 3; + + /*inistring dstr_690__CLASS_SOURCE_PAR*/ + /*_.VALSTR___V756*/ meltfptr[755] = (void*)&cdat->dstr_690__CLASS_SOURCE_PAR; + cdat->dstr_690__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_690__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_690__CLASS_SOURCE_PAR.val)-1); + MELT_LOCATION("warmelt-macro.melt:599:/ iniobj"); + /*iniobj dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ +/*_.VALDATA___V757*/ meltfptr[756] = (void*)&cdat->dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 936528483; + cdat->dobj_691__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; + + /*inistring dstr_692__CLASS_SOURCE_PAR*/ + /*_.VALSTR___V758*/ meltfptr[757] = (void*)&cdat->dstr_692__CLASS_SOURCE_PAR; + cdat->dstr_692__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_692__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_692__CLASS_SOURCE_PAR.val)-1); + /*inimult dtup_693__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALTUP___V759*/ meltfptr[758] = (void*)&cdat->dtup_693__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + cdat->dtup_693__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_693__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 4; + /*inimult dtup_694__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALTUP___V760*/ meltfptr[759] = (void*)&cdat->dtup_694__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; + cdat->dtup_694__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_694__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 2; + /*iniobj dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V761*/ meltfptr[760]) /*_.VALDATA___V761*/ meltfptr[760] = (void*)&cdat->dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 670629834; + cdat->dsym_695__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; + + /*inistring dstr_696__CLASS_SOURCE_UPD*/ + /*_.VALSTR___V762*/ meltfptr[761] = (void*)&cdat->dstr_696__CLASS_SOURCE_UPD; + cdat->dstr_696__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_696__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_696__CLASS_SOURCE_UPD.val)-1); + MELT_LOCATION("warmelt-macro.melt:607:/ iniobj"); + /*iniobj dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*_.VALDATA___V763*/ meltfptr[762] = (void*)&cdat->dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 240333739; + cdat->dobj_697__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; + + /*inistring dstr_698__CLASS_SOURCE_UPD*/ + /*_.VALSTR___V764*/ meltfptr[763] = (void*)&cdat->dstr_698__CLASS_SOURCE_UPD; + cdat->dstr_698__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_698__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_698__CLASS_SOURCE_UPD.val)-1); + /*inimult dtup_699__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALTUP___V765*/ meltfptr[764] = (void*)&cdat->dtup_699__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dtup_699__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_699__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + /*inimult dtup_700__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALTUP___V768*/ meltfptr[767] = (void*)&cdat->dtup_700__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dtup_700__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_700__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; + /*iniobj dsym_701__SUCME_COMMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V769*/ meltfptr[768]) /*_.VALDATA___V769*/ meltfptr[768] = (void*)&cdat->dsym_701__SUCME_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_701__SUCME_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_701__SUCME_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_701__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_701__SUCME_COMMENT.obj_hash = 214159674; + cdat->dsym_701__SUCME_COMMENT.obj_len = 3; + + /*inistring dstr_702__SUCME_COMMENT*/ + /*_.VALSTR___V770*/ meltfptr[769] = (void*)&cdat->dstr_702__SUCME_COMMENT; + cdat->dstr_702__SUCME_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_702__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_702__SUCME_COMMENT.val)-1); /*^iniobj*/ - /*iniobj dobj_691__SEXI_BODY*/ -/*_.VALDATA___V754*/ meltfptr[753] = (void*)&cdat->dobj_691__SEXI_BODY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_691__SEXI_BODY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691__SEXI_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_691__SEXI_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_691__SEXI_BODY.obj_num = 3; - cdat->dobj_691__SEXI_BODY.obj_hash = 628276933; - cdat->dobj_691__SEXI_BODY.obj_len = 4; - - /*inistring dstr_692__SEXI_BODY*/ - /*_.VALSTR___V755*/ meltfptr[754] = (void*)&cdat->dstr_692__SEXI_BODY; - cdat->dstr_692__SEXI_BODY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_692__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_692__SEXI_BODY.val)-1); - /*iniobj dsym_693__CLASS_SOURCE_COMPILEWARNING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V759*/ meltfptr[758]) /*_.VALDATA___V759*/ meltfptr[758] = (void*)&cdat->dsym_693__CLASS_SOURCE_COMPILEWARNING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_693__CLASS_SOURCE_COMPILEWARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_693__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_693__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_693__CLASS_SOURCE_COMPILEWARNING.obj_hash = 32120446; - cdat->dsym_693__CLASS_SOURCE_COMPILEWARNING.obj_len = 3; - - /*inistring dstr_694__CLASS_SOURCE_COM*/ - /*_.VALSTR___V760*/ meltfptr[759] = (void*)&cdat->dstr_694__CLASS_SOURCE_COM; - cdat->dstr_694__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_694__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_694__CLASS_SOURCE_COM.val)-1); - MELT_LOCATION("warmelt-macro.melt:605:/ iniobj"); - /*iniobj dobj_695__CLASS_SOURCE_COMPILEWARNING*/ -/*_.VALDATA___V761*/ meltfptr[760] = (void*)&cdat->dobj_695__CLASS_SOURCE_COMPILEWARNING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_695__CLASS_SOURCE_COMPILEWARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_695__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_695__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_695__CLASS_SOURCE_COMPILEWARNING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_695__CLASS_SOURCE_COMPILEWARNING.obj_hash = 810136045; - cdat->dobj_695__CLASS_SOURCE_COMPILEWARNING.obj_len = 8; - - /*inistring dstr_696__CLASS_SOURCE_COM*/ - /*_.VALSTR___V762*/ meltfptr[761] = (void*)&cdat->dstr_696__CLASS_SOURCE_COM; - cdat->dstr_696__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_696__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_696__CLASS_SOURCE_COM.val)-1); - /*inimult dtup_697__CLASS_SOURCE_COMPILEWARNING*/ - /*_.VALTUP___V763*/ meltfptr[762] = (void*)&cdat->dtup_697__CLASS_SOURCE_COMPILEWARNING; - cdat->dtup_697__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_697__CLASS_SOURCE_COMPILEWARNING.nbval = 4; - /*inimult dtup_698__CLASS_SOURCE_COMPILEWARNING*/ - /*_.VALTUP___V768*/ meltfptr[767] = (void*)&cdat->dtup_698__CLASS_SOURCE_COMPILEWARNING; - cdat->dtup_698__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_698__CLASS_SOURCE_COMPILEWARNING.nbval = 4; - /*iniobj dsym_699__SCWARN_MSG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V769*/ meltfptr[768]) /*_.VALDATA___V769*/ meltfptr[768] = (void*)&cdat->dsym_699__SCWARN_MSG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_699__SCWARN_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_699__SCWARN_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_699__SCWARN_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_699__SCWARN_MSG.obj_hash = 98598467; - cdat->dsym_699__SCWARN_MSG.obj_len = 3; - - /*inistring dstr_700__SCWARN_MSG*/ - /*_.VALSTR___V770*/ meltfptr[769] = (void*)&cdat->dstr_700__SCWARN_MSG; - cdat->dstr_700__SCWARN_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_700__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_700__SCWARN_MSG.val)-1); + /*iniobj dobj_703__SUCME_COMMENT*/ +/*_.VALDATA___V766*/ meltfptr[765] = (void*)&cdat->dobj_703__SUCME_COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_703__SUCME_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__SUCME_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_703__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_703__SUCME_COMMENT.obj_num = 2; + cdat->dobj_703__SUCME_COMMENT.obj_hash = 828279286; + cdat->dobj_703__SUCME_COMMENT.obj_len = 4; + + /*inistring dstr_704__SUCME_COMMENT*/ + /*_.VALSTR___V767*/ meltfptr[766] = (void*)&cdat->dstr_704__SUCME_COMMENT; + cdat->dstr_704__SUCME_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_704__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_704__SUCME_COMMENT.val)-1); + /*iniobj dsym_705__CLASS_SOURCE_FETCH_PREDEFINED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V771*/ meltfptr[770]) /*_.VALDATA___V771*/ meltfptr[770] = (void*)&cdat->dsym_705__CLASS_SOURCE_FETCH_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_705__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_705__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_705__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_705__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 327938903; + cdat->dsym_705__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 3; + + /*inistring dstr_706__CLASS_SOURCE_FET*/ + /*_.VALSTR___V772*/ meltfptr[771] = (void*)&cdat->dstr_706__CLASS_SOURCE_FET; + cdat->dstr_706__CLASS_SOURCE_FET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_706__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_706__CLASS_SOURCE_FET.val)-1); + MELT_LOCATION("warmelt-macro.melt:616:/ iniobj"); + /*iniobj dobj_707__CLASS_SOURCE_FETCH_PREDEFINED*/ +/*_.VALDATA___V773*/ meltfptr[772] = (void*)&cdat->dobj_707__CLASS_SOURCE_FETCH_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_707__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_707__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_707__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_707__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 493836820; + cdat->dobj_707__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; + + /*inistring dstr_708__CLASS_SOURCE_FET*/ + /*_.VALSTR___V774*/ meltfptr[773] = (void*)&cdat->dstr_708__CLASS_SOURCE_FET; + cdat->dstr_708__CLASS_SOURCE_FET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_708__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_708__CLASS_SOURCE_FET.val)-1); + /*inimult dtup_709__CLASS_SOURCE_FETCH_PREDEFINED*/ + /*_.VALTUP___V775*/ meltfptr[774] = (void*)&cdat->dtup_709__CLASS_SOURCE_FETCH_PREDEFINED; + cdat->dtup_709__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_709__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 4; + /*inimult dtup_710__CLASS_SOURCE_FETCH_PREDEFINED*/ + /*_.VALTUP___V778*/ meltfptr[777] = (void*)&cdat->dtup_710__CLASS_SOURCE_FETCH_PREDEFINED; + cdat->dtup_710__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_710__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 3; + /*iniobj dsym_711__SFEPD_PREDEF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V779*/ meltfptr[778]) /*_.VALDATA___V779*/ meltfptr[778] = (void*)&cdat->dsym_711__SFEPD_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_711__SFEPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_711__SFEPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_711__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_711__SFEPD_PREDEF.obj_hash = 1070703811; + cdat->dsym_711__SFEPD_PREDEF.obj_len = 3; + + /*inistring dstr_712__SFEPD_PREDEF*/ + /*_.VALSTR___V780*/ meltfptr[779] = (void*)&cdat->dstr_712__SFEPD_PREDEF; + cdat->dstr_712__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_712__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_712__SFEPD_PREDEF.val)-1); /*^iniobj*/ - /*iniobj dobj_701__SCWARN_MSG*/ -/*_.VALDATA___V764*/ meltfptr[763] = (void*)&cdat->dobj_701__SCWARN_MSG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_701__SCWARN_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701__SCWARN_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_701__SCWARN_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_701__SCWARN_MSG.obj_num = 2; - cdat->dobj_701__SCWARN_MSG.obj_hash = 1021035810; - cdat->dobj_701__SCWARN_MSG.obj_len = 4; - - /*inistring dstr_702__SCWARN_MSG*/ - /*_.VALSTR___V765*/ meltfptr[764] = (void*)&cdat->dstr_702__SCWARN_MSG; - cdat->dstr_702__SCWARN_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_702__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_702__SCWARN_MSG.val)-1); - /*iniobj dsym_703__SCWARN_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V771*/ meltfptr[770]) /*_.VALDATA___V771*/ meltfptr[770] = (void*)&cdat->dsym_703__SCWARN_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_703__SCWARN_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_703__SCWARN_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_703__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_703__SCWARN_EXPR.obj_hash = 375567380; - cdat->dsym_703__SCWARN_EXPR.obj_len = 3; - - /*inistring dstr_704__SCWARN_EXPR*/ - /*_.VALSTR___V772*/ meltfptr[771] = (void*)&cdat->dstr_704__SCWARN_EXPR; - cdat->dstr_704__SCWARN_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_704__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_704__SCWARN_EXPR.val)-1); + /*iniobj dobj_713__SFEPD_PREDEF*/ +/*_.VALDATA___V776*/ meltfptr[775] = (void*)&cdat->dobj_713__SFEPD_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_713__SFEPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__SFEPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_713__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_713__SFEPD_PREDEF.obj_num = 2; + cdat->dobj_713__SFEPD_PREDEF.obj_hash = 1025939614; + cdat->dobj_713__SFEPD_PREDEF.obj_len = 4; + + /*inistring dstr_714__SFEPD_PREDEF*/ + /*_.VALSTR___V777*/ meltfptr[776] = (void*)&cdat->dstr_714__SFEPD_PREDEF; + cdat->dstr_714__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_714__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_714__SFEPD_PREDEF.val)-1); + /*iniobj dsym_715__CLASS_SOURCE_STORE_PREDEFINED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V781*/ meltfptr[780]) /*_.VALDATA___V781*/ meltfptr[780] = (void*)&cdat->dsym_715__CLASS_SOURCE_STORE_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_715__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_715__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_715__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_715__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 756622417; + cdat->dsym_715__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 3; + + /*inistring dstr_716__CLASS_SOURCE_STO*/ + /*_.VALSTR___V782*/ meltfptr[781] = (void*)&cdat->dstr_716__CLASS_SOURCE_STO; + cdat->dstr_716__CLASS_SOURCE_STO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_716__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_716__CLASS_SOURCE_STO.val)-1); + MELT_LOCATION("warmelt-macro.melt:622:/ iniobj"); + /*iniobj dobj_717__CLASS_SOURCE_STORE_PREDEFINED*/ +/*_.VALDATA___V783*/ meltfptr[782] = (void*)&cdat->dobj_717__CLASS_SOURCE_STORE_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_717__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_717__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_717__CLASS_SOURCE_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_717__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 610175220; + cdat->dobj_717__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; + + /*inistring dstr_718__CLASS_SOURCE_STO*/ + /*_.VALSTR___V784*/ meltfptr[783] = (void*)&cdat->dstr_718__CLASS_SOURCE_STO; + cdat->dstr_718__CLASS_SOURCE_STO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_718__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_718__CLASS_SOURCE_STO.val)-1); + /*inimult dtup_719__CLASS_SOURCE_STORE_PREDEFINED*/ + /*_.VALTUP___V785*/ meltfptr[784] = (void*)&cdat->dtup_719__CLASS_SOURCE_STORE_PREDEFINED; + cdat->dtup_719__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_719__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; + /*inimult dtup_720__CLASS_SOURCE_STORE_PREDEFINED*/ + /*_.VALTUP___V790*/ meltfptr[789] = (void*)&cdat->dtup_720__CLASS_SOURCE_STORE_PREDEFINED; + cdat->dtup_720__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_720__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; + /*iniobj dsym_721__SSTPD_PREDEF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V791*/ meltfptr[790]) /*_.VALDATA___V791*/ meltfptr[790] = (void*)&cdat->dsym_721__SSTPD_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_721__SSTPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_721__SSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_721__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_721__SSTPD_PREDEF.obj_hash = 43999277; + cdat->dsym_721__SSTPD_PREDEF.obj_len = 3; + + /*inistring dstr_722__SSTPD_PREDEF*/ + /*_.VALSTR___V792*/ meltfptr[791] = (void*)&cdat->dstr_722__SSTPD_PREDEF; + cdat->dstr_722__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_722__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_722__SSTPD_PREDEF.val)-1); /*^iniobj*/ - /*iniobj dobj_705__SCWARN_EXPR*/ -/*_.VALDATA___V766*/ meltfptr[765] = (void*)&cdat->dobj_705__SCWARN_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_705__SCWARN_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_705__SCWARN_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_705__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_705__SCWARN_EXPR.obj_num = 3; - cdat->dobj_705__SCWARN_EXPR.obj_hash = 301696174; - cdat->dobj_705__SCWARN_EXPR.obj_len = 4; - - /*inistring dstr_706__SCWARN_EXPR*/ - /*_.VALSTR___V767*/ meltfptr[766] = (void*)&cdat->dstr_706__SCWARN_EXPR; - cdat->dstr_706__SCWARN_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_706__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_706__SCWARN_EXPR.val)-1); - /*iniobj dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V773*/ meltfptr[772]) /*_.VALDATA___V773*/ meltfptr[772] = (void*)&cdat->dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 483365704; - cdat->dsym_707__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; - - /*inistring dstr_708__CLASS_SOURCE_CUR*/ - /*_.VALSTR___V774*/ meltfptr[773] = (void*)&cdat->dstr_708__CLASS_SOURCE_CUR; - cdat->dstr_708__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_708__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_708__CLASS_SOURCE_CUR.val)-1); - MELT_LOCATION("warmelt-macro.melt:612:/ iniobj"); - /*iniobj dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*_.VALDATA___V775*/ meltfptr[774] = (void*)&cdat->dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 518086906; - cdat->dobj_709__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; - - /*inistring dstr_710__CLASS_SOURCE_CUR*/ - /*_.VALSTR___V776*/ meltfptr[775] = (void*)&cdat->dstr_710__CLASS_SOURCE_CUR; - cdat->dstr_710__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_710__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_710__CLASS_SOURCE_CUR.val)-1); - /*inimult dtup_711__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V777*/ meltfptr[776] = (void*)&cdat->dtup_711__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dtup_711__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_711__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - /*inimult dtup_712__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V780*/ meltfptr[779] = (void*)&cdat->dtup_712__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dtup_712__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_712__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; - /*iniobj dsym_713__CMEC_COMMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V781*/ meltfptr[780]) /*_.VALDATA___V781*/ meltfptr[780] = (void*)&cdat->dsym_713__CMEC_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_713__CMEC_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_713__CMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_713__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_713__CMEC_COMMENT.obj_hash = 809800780; - cdat->dsym_713__CMEC_COMMENT.obj_len = 3; - - /*inistring dstr_714__CMEC_COMMENT*/ - /*_.VALSTR___V782*/ meltfptr[781] = (void*)&cdat->dstr_714__CMEC_COMMENT; - cdat->dstr_714__CMEC_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_714__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_714__CMEC_COMMENT.val)-1); + /*iniobj dobj_723__SSTPD_PREDEF*/ +/*_.VALDATA___V786*/ meltfptr[785] = (void*)&cdat->dobj_723__SSTPD_PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_723__SSTPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_723__SSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_723__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_723__SSTPD_PREDEF.obj_num = 2; + cdat->dobj_723__SSTPD_PREDEF.obj_hash = 951670608; + cdat->dobj_723__SSTPD_PREDEF.obj_len = 4; + + /*inistring dstr_724__SSTPD_PREDEF*/ + /*_.VALSTR___V787*/ meltfptr[786] = (void*)&cdat->dstr_724__SSTPD_PREDEF; + cdat->dstr_724__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_724__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_724__SSTPD_PREDEF.val)-1); + /*iniobj dsym_725__SSTPD_VALUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V793*/ meltfptr[792]) /*_.VALDATA___V793*/ meltfptr[792] = (void*)&cdat->dsym_725__SSTPD_VALUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_725__SSTPD_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_725__SSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_725__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_725__SSTPD_VALUE.obj_hash = 43381534; + cdat->dsym_725__SSTPD_VALUE.obj_len = 3; + + /*inistring dstr_726__SSTPD_VALUE*/ + /*_.VALSTR___V794*/ meltfptr[793] = (void*)&cdat->dstr_726__SSTPD_VALUE; + cdat->dstr_726__SSTPD_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_726__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_726__SSTPD_VALUE.val)-1); /*^iniobj*/ - /*iniobj dobj_715__CMEC_COMMENT*/ -/*_.VALDATA___V778*/ meltfptr[777] = (void*)&cdat->dobj_715__CMEC_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_715__CMEC_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_715__CMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_715__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_715__CMEC_COMMENT.obj_num = 2; - cdat->dobj_715__CMEC_COMMENT.obj_hash = 553451181; - cdat->dobj_715__CMEC_COMMENT.obj_len = 4; - - /*inistring dstr_716__CMEC_COMMENT*/ - /*_.VALSTR___V779*/ meltfptr[778] = (void*)&cdat->dstr_716__CMEC_COMMENT; - cdat->dstr_716__CMEC_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_716__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_716__CMEC_COMMENT.val)-1); - /*iniobj dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V783*/ meltfptr[782]) /*_.VALDATA___V783*/ meltfptr[782] = (void*)&cdat->dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 201468317; - cdat->dsym_717__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 3; - - /*inistring dstr_718__CLASS_SOURCE_PAR*/ - /*_.VALSTR___V784*/ meltfptr[783] = (void*)&cdat->dstr_718__CLASS_SOURCE_PAR; - cdat->dstr_718__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_718__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_718__CLASS_SOURCE_PAR.val)-1); - MELT_LOCATION("warmelt-macro.melt:620:/ iniobj"); - /*iniobj dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ -/*_.VALDATA___V785*/ meltfptr[784] = (void*)&cdat->dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 187667284; - cdat->dobj_719__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; - - /*inistring dstr_720__CLASS_SOURCE_PAR*/ - /*_.VALSTR___V786*/ meltfptr[785] = (void*)&cdat->dstr_720__CLASS_SOURCE_PAR; - cdat->dstr_720__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_720__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_720__CLASS_SOURCE_PAR.val)-1); - /*inimult dtup_721__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALTUP___V787*/ meltfptr[786] = (void*)&cdat->dtup_721__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - cdat->dtup_721__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_721__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 4; - /*inimult dtup_722__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALTUP___V788*/ meltfptr[787] = (void*)&cdat->dtup_722__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; - cdat->dtup_722__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_722__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 2; - /*iniobj dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V789*/ meltfptr[788]) /*_.VALDATA___V789*/ meltfptr[788] = (void*)&cdat->dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 670629834; - cdat->dsym_723__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; - - /*inistring dstr_724__CLASS_SOURCE_UPD*/ - /*_.VALSTR___V790*/ meltfptr[789] = (void*)&cdat->dstr_724__CLASS_SOURCE_UPD; - cdat->dstr_724__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_724__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_724__CLASS_SOURCE_UPD.val)-1); - MELT_LOCATION("warmelt-macro.melt:628:/ iniobj"); - /*iniobj dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*_.VALDATA___V791*/ meltfptr[790] = (void*)&cdat->dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 328232081; - cdat->dobj_725__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; - - /*inistring dstr_726__CLASS_SOURCE_UPD*/ - /*_.VALSTR___V792*/ meltfptr[791] = (void*)&cdat->dstr_726__CLASS_SOURCE_UPD; - cdat->dstr_726__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_726__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_726__CLASS_SOURCE_UPD.val)-1); - /*inimult dtup_727__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V793*/ meltfptr[792] = (void*)&cdat->dtup_727__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dtup_727__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_727__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - /*inimult dtup_728__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALTUP___V796*/ meltfptr[795] = (void*)&cdat->dtup_728__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dtup_728__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_728__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; - /*iniobj dsym_729__SUCME_COMMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V797*/ meltfptr[796]) /*_.VALDATA___V797*/ meltfptr[796] = (void*)&cdat->dsym_729__SUCME_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__SUCME_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_729__SUCME_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_729__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_729__SUCME_COMMENT.obj_hash = 214159674; - cdat->dsym_729__SUCME_COMMENT.obj_len = 3; - - /*inistring dstr_730__SUCME_COMMENT*/ - /*_.VALSTR___V798*/ meltfptr[797] = (void*)&cdat->dstr_730__SUCME_COMMENT; - cdat->dstr_730__SUCME_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_730__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_730__SUCME_COMMENT.val)-1); + /*iniobj dobj_727__SSTPD_VALUE*/ +/*_.VALDATA___V788*/ meltfptr[787] = (void*)&cdat->dobj_727__SSTPD_VALUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_727__SSTPD_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__SSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_727__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_727__SSTPD_VALUE.obj_num = 3; + cdat->dobj_727__SSTPD_VALUE.obj_hash = 47730840; + cdat->dobj_727__SSTPD_VALUE.obj_len = 4; + + /*inistring dstr_728__SSTPD_VALUE*/ + /*_.VALSTR___V789*/ meltfptr[788] = (void*)&cdat->dstr_728__SSTPD_VALUE; + cdat->dstr_728__SSTPD_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_728__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_728__SSTPD_VALUE.val)-1); + /*iniobj dsym_729__CLASS_SOURCE_CODECHUNK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V795*/ meltfptr[794]) /*_.VALDATA___V795*/ meltfptr[794] = (void*)&cdat->dsym_729__CLASS_SOURCE_CODECHUNK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__CLASS_SOURCE_CODECHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_729__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_729__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_729__CLASS_SOURCE_CODECHUNK.obj_hash = 935873793; + cdat->dsym_729__CLASS_SOURCE_CODECHUNK.obj_len = 3; + + /*inistring dstr_730__CLASS_SOURCE_COD*/ + /*_.VALSTR___V796*/ meltfptr[795] = (void*)&cdat->dstr_730__CLASS_SOURCE_COD; + cdat->dstr_730__CLASS_SOURCE_COD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_730__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_730__CLASS_SOURCE_COD.val)-1); + MELT_LOCATION("warmelt-macro.melt:630:/ iniobj"); + /*iniobj dobj_731__CLASS_SOURCE_CODECHUNK*/ +/*_.VALDATA___V797*/ meltfptr[796] = (void*)&cdat->dobj_731__CLASS_SOURCE_CODECHUNK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_731__CLASS_SOURCE_CODECHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_731__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_731__CLASS_SOURCE_CODECHUNK.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_731__CLASS_SOURCE_CODECHUNK.obj_hash = 125153325; + cdat->dobj_731__CLASS_SOURCE_CODECHUNK.obj_len = 8; + + /*inistring dstr_732__CLASS_SOURCE_COD*/ + /*_.VALSTR___V798*/ meltfptr[797] = (void*)&cdat->dstr_732__CLASS_SOURCE_COD; + cdat->dstr_732__CLASS_SOURCE_COD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_732__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_732__CLASS_SOURCE_COD.val)-1); + /*inimult dtup_733__CLASS_SOURCE_CODECHUNK*/ + /*_.VALTUP___V799*/ meltfptr[798] = (void*)&cdat->dtup_733__CLASS_SOURCE_CODECHUNK; + cdat->dtup_733__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_733__CLASS_SOURCE_CODECHUNK.nbval = 4; + /*inimult dtup_734__CLASS_SOURCE_CODECHUNK*/ + /*_.VALTUP___V804*/ meltfptr[803] = (void*)&cdat->dtup_734__CLASS_SOURCE_CODECHUNK; + cdat->dtup_734__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_734__CLASS_SOURCE_CODECHUNK.nbval = 4; + /*iniobj dsym_735__SCH_GENSYM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V805*/ meltfptr[804]) /*_.VALDATA___V805*/ meltfptr[804] = (void*)&cdat->dsym_735__SCH_GENSYM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_735__SCH_GENSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_735__SCH_GENSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_735__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_735__SCH_GENSYM.obj_hash = 975191019; + cdat->dsym_735__SCH_GENSYM.obj_len = 3; + + /*inistring dstr_736__SCH_GENSYM*/ + /*_.VALSTR___V806*/ meltfptr[805] = (void*)&cdat->dstr_736__SCH_GENSYM; + cdat->dstr_736__SCH_GENSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_736__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_736__SCH_GENSYM.val)-1); /*^iniobj*/ - /*iniobj dobj_731__SUCME_COMMENT*/ -/*_.VALDATA___V794*/ meltfptr[793] = (void*)&cdat->dobj_731__SUCME_COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_731__SUCME_COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__SUCME_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_731__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_731__SUCME_COMMENT.obj_num = 2; - cdat->dobj_731__SUCME_COMMENT.obj_hash = 985562609; - cdat->dobj_731__SUCME_COMMENT.obj_len = 4; - - /*inistring dstr_732__SUCME_COMMENT*/ - /*_.VALSTR___V795*/ meltfptr[794] = (void*)&cdat->dstr_732__SUCME_COMMENT; - cdat->dstr_732__SUCME_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_732__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_732__SUCME_COMMENT.val)-1); - /*iniobj dsym_733__CLASS_SOURCE_FETCH_PREDEFINED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V799*/ meltfptr[798]) /*_.VALDATA___V799*/ meltfptr[798] = (void*)&cdat->dsym_733__CLASS_SOURCE_FETCH_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_733__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_733__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_733__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_733__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 327938903; - cdat->dsym_733__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 3; - - /*inistring dstr_734__CLASS_SOURCE_FET*/ - /*_.VALSTR___V800*/ meltfptr[799] = (void*)&cdat->dstr_734__CLASS_SOURCE_FET; - cdat->dstr_734__CLASS_SOURCE_FET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_734__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_734__CLASS_SOURCE_FET.val)-1); - MELT_LOCATION("warmelt-macro.melt:637:/ iniobj"); - /*iniobj dobj_735__CLASS_SOURCE_FETCH_PREDEFINED*/ -/*_.VALDATA___V801*/ meltfptr[800] = (void*)&cdat->dobj_735__CLASS_SOURCE_FETCH_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_735__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_735__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_735__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_735__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 696086622; - cdat->dobj_735__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; - - /*inistring dstr_736__CLASS_SOURCE_FET*/ - /*_.VALSTR___V802*/ meltfptr[801] = (void*)&cdat->dstr_736__CLASS_SOURCE_FET; - cdat->dstr_736__CLASS_SOURCE_FET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_736__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_736__CLASS_SOURCE_FET.val)-1); - /*inimult dtup_737__CLASS_SOURCE_FETCH_PREDEFINED*/ - /*_.VALTUP___V803*/ meltfptr[802] = (void*)&cdat->dtup_737__CLASS_SOURCE_FETCH_PREDEFINED; - cdat->dtup_737__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_737__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 4; - /*inimult dtup_738__CLASS_SOURCE_FETCH_PREDEFINED*/ - /*_.VALTUP___V806*/ meltfptr[805] = (void*)&cdat->dtup_738__CLASS_SOURCE_FETCH_PREDEFINED; - cdat->dtup_738__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_738__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 3; - /*iniobj dsym_739__SFEPD_PREDEF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V807*/ meltfptr[806]) /*_.VALDATA___V807*/ meltfptr[806] = (void*)&cdat->dsym_739__SFEPD_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_739__SFEPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_739__SFEPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_739__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_739__SFEPD_PREDEF.obj_hash = 1070703811; - cdat->dsym_739__SFEPD_PREDEF.obj_len = 3; - - /*inistring dstr_740__SFEPD_PREDEF*/ - /*_.VALSTR___V808*/ meltfptr[807] = (void*)&cdat->dstr_740__SFEPD_PREDEF; - cdat->dstr_740__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_740__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_740__SFEPD_PREDEF.val)-1); + /*iniobj dobj_737__SCH_GENSYM*/ +/*_.VALDATA___V800*/ meltfptr[799] = (void*)&cdat->dobj_737__SCH_GENSYM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_737__SCH_GENSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_737__SCH_GENSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_737__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_737__SCH_GENSYM.obj_num = 2; + cdat->dobj_737__SCH_GENSYM.obj_hash = 237493071; + cdat->dobj_737__SCH_GENSYM.obj_len = 4; + + /*inistring dstr_738__SCH_GENSYM*/ + /*_.VALSTR___V801*/ meltfptr[800] = (void*)&cdat->dstr_738__SCH_GENSYM; + cdat->dstr_738__SCH_GENSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_738__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_738__SCH_GENSYM.val)-1); + /*iniobj dsym_739__SCH_CHUNKS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V807*/ meltfptr[806]) /*_.VALDATA___V807*/ meltfptr[806] = (void*)&cdat->dsym_739__SCH_CHUNKS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_739__SCH_CHUNKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_739__SCH_CHUNKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_739__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_739__SCH_CHUNKS.obj_hash = 1040785972; + cdat->dsym_739__SCH_CHUNKS.obj_len = 3; + + /*inistring dstr_740__SCH_CHUNKS*/ + /*_.VALSTR___V808*/ meltfptr[807] = (void*)&cdat->dstr_740__SCH_CHUNKS; + cdat->dstr_740__SCH_CHUNKS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_740__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_740__SCH_CHUNKS.val)-1); /*^iniobj*/ - /*iniobj dobj_741__SFEPD_PREDEF*/ -/*_.VALDATA___V804*/ meltfptr[803] = (void*)&cdat->dobj_741__SFEPD_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_741__SFEPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__SFEPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_741__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_741__SFEPD_PREDEF.obj_num = 2; - cdat->dobj_741__SFEPD_PREDEF.obj_hash = 85138639; - cdat->dobj_741__SFEPD_PREDEF.obj_len = 4; - - /*inistring dstr_742__SFEPD_PREDEF*/ - /*_.VALSTR___V805*/ meltfptr[804] = (void*)&cdat->dstr_742__SFEPD_PREDEF; - cdat->dstr_742__SFEPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_742__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_742__SFEPD_PREDEF.val)-1); - /*iniobj dsym_743__CLASS_SOURCE_STORE_PREDEFINED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V809*/ meltfptr[808]) /*_.VALDATA___V809*/ meltfptr[808] = (void*)&cdat->dsym_743__CLASS_SOURCE_STORE_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_743__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_743__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_743__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 756622417; - cdat->dsym_743__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 3; - - /*inistring dstr_744__CLASS_SOURCE_STO*/ - /*_.VALSTR___V810*/ meltfptr[809] = (void*)&cdat->dstr_744__CLASS_SOURCE_STO; - cdat->dstr_744__CLASS_SOURCE_STO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_744__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_744__CLASS_SOURCE_STO.val)-1); - MELT_LOCATION("warmelt-macro.melt:643:/ iniobj"); - /*iniobj dobj_745__CLASS_SOURCE_STORE_PREDEFINED*/ -/*_.VALDATA___V811*/ meltfptr[810] = (void*)&cdat->dobj_745__CLASS_SOURCE_STORE_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_745__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_745__CLASS_SOURCE_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_745__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 279352672; - cdat->dobj_745__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; - - /*inistring dstr_746__CLASS_SOURCE_STO*/ - /*_.VALSTR___V812*/ meltfptr[811] = (void*)&cdat->dstr_746__CLASS_SOURCE_STO; - cdat->dstr_746__CLASS_SOURCE_STO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_746__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_746__CLASS_SOURCE_STO.val)-1); - /*inimult dtup_747__CLASS_SOURCE_STORE_PREDEFINED*/ - /*_.VALTUP___V813*/ meltfptr[812] = (void*)&cdat->dtup_747__CLASS_SOURCE_STORE_PREDEFINED; - cdat->dtup_747__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_747__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; - /*inimult dtup_748__CLASS_SOURCE_STORE_PREDEFINED*/ - /*_.VALTUP___V818*/ meltfptr[817] = (void*)&cdat->dtup_748__CLASS_SOURCE_STORE_PREDEFINED; - cdat->dtup_748__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_748__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; - /*iniobj dsym_749__SSTPD_PREDEF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V819*/ meltfptr[818]) /*_.VALDATA___V819*/ meltfptr[818] = (void*)&cdat->dsym_749__SSTPD_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_749__SSTPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_749__SSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_749__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_749__SSTPD_PREDEF.obj_hash = 43999277; - cdat->dsym_749__SSTPD_PREDEF.obj_len = 3; - - /*inistring dstr_750__SSTPD_PREDEF*/ - /*_.VALSTR___V820*/ meltfptr[819] = (void*)&cdat->dstr_750__SSTPD_PREDEF; - cdat->dstr_750__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_750__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_750__SSTPD_PREDEF.val)-1); + /*iniobj dobj_741__SCH_CHUNKS*/ +/*_.VALDATA___V802*/ meltfptr[801] = (void*)&cdat->dobj_741__SCH_CHUNKS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_741__SCH_CHUNKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__SCH_CHUNKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_741__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_741__SCH_CHUNKS.obj_num = 3; + cdat->dobj_741__SCH_CHUNKS.obj_hash = 866667526; + cdat->dobj_741__SCH_CHUNKS.obj_len = 4; + + /*inistring dstr_742__SCH_CHUNKS*/ + /*_.VALSTR___V803*/ meltfptr[802] = (void*)&cdat->dstr_742__SCH_CHUNKS; + cdat->dstr_742__SCH_CHUNKS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_742__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_742__SCH_CHUNKS.val)-1); + /*iniobj dsym_743__CLASS_SOURCE_PATTERN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V809*/ meltfptr[808]) /*_.VALDATA___V809*/ meltfptr[808] = (void*)&cdat->dsym_743__CLASS_SOURCE_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_743__CLASS_SOURCE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_743__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_743__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_743__CLASS_SOURCE_PATTERN.obj_hash = 661483135; + cdat->dsym_743__CLASS_SOURCE_PATTERN.obj_len = 3; + + /*inistring dstr_744__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V810*/ meltfptr[809] = (void*)&cdat->dstr_744__CLASS_SOURCE_PAT; + cdat->dstr_744__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_744__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_744__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:638:/ iniobj"); + /*iniobj dobj_745__CLASS_SOURCE_PATTERN*/ +/*_.VALDATA___V811*/ meltfptr[810] = (void*)&cdat->dobj_745__CLASS_SOURCE_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__CLASS_SOURCE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_745__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_745__CLASS_SOURCE_PATTERN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_745__CLASS_SOURCE_PATTERN.obj_hash = 410212821; + cdat->dobj_745__CLASS_SOURCE_PATTERN.obj_len = 8; + + /*inistring dstr_746__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V812*/ meltfptr[811] = (void*)&cdat->dstr_746__CLASS_SOURCE_PAT; + cdat->dstr_746__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_746__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_746__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_747__CLASS_SOURCE_PATTERN*/ + /*_.VALTUP___V813*/ meltfptr[812] = (void*)&cdat->dtup_747__CLASS_SOURCE_PATTERN; + cdat->dtup_747__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_747__CLASS_SOURCE_PATTERN.nbval = 4; + /*inimult dtup_748__CLASS_SOURCE_PATTERN*/ + /*_.VALTUP___V816*/ meltfptr[815] = (void*)&cdat->dtup_748__CLASS_SOURCE_PATTERN; + cdat->dtup_748__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_748__CLASS_SOURCE_PATTERN.nbval = 3; + /*iniobj dsym_749__PAT_WEIGHT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V817*/ meltfptr[816]) /*_.VALDATA___V817*/ meltfptr[816] = (void*)&cdat->dsym_749__PAT_WEIGHT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_749__PAT_WEIGHT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_749__PAT_WEIGHT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_749__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_749__PAT_WEIGHT.obj_hash = 779594405; + cdat->dsym_749__PAT_WEIGHT.obj_len = 3; + + /*inistring dstr_750__PAT_WEIGHT*/ + /*_.VALSTR___V818*/ meltfptr[817] = (void*)&cdat->dstr_750__PAT_WEIGHT; + cdat->dstr_750__PAT_WEIGHT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_750__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_750__PAT_WEIGHT.val)-1); /*^iniobj*/ - /*iniobj dobj_751__SSTPD_PREDEF*/ -/*_.VALDATA___V814*/ meltfptr[813] = (void*)&cdat->dobj_751__SSTPD_PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_751__SSTPD_PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__SSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_751__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_751__SSTPD_PREDEF.obj_num = 2; - cdat->dobj_751__SSTPD_PREDEF.obj_hash = 223119738; - cdat->dobj_751__SSTPD_PREDEF.obj_len = 4; - - /*inistring dstr_752__SSTPD_PREDEF*/ - /*_.VALSTR___V815*/ meltfptr[814] = (void*)&cdat->dstr_752__SSTPD_PREDEF; - cdat->dstr_752__SSTPD_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_752__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_752__SSTPD_PREDEF.val)-1); - /*iniobj dsym_753__SSTPD_VALUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V821*/ meltfptr[820]) /*_.VALDATA___V821*/ meltfptr[820] = (void*)&cdat->dsym_753__SSTPD_VALUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_753__SSTPD_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_753__SSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_753__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_753__SSTPD_VALUE.obj_hash = 43381534; - cdat->dsym_753__SSTPD_VALUE.obj_len = 3; - - /*inistring dstr_754__SSTPD_VALUE*/ - /*_.VALSTR___V822*/ meltfptr[821] = (void*)&cdat->dstr_754__SSTPD_VALUE; - cdat->dstr_754__SSTPD_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_754__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_754__SSTPD_VALUE.val)-1); + /*iniobj dobj_751__PAT_WEIGHT*/ +/*_.VALDATA___V814*/ meltfptr[813] = (void*)&cdat->dobj_751__PAT_WEIGHT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_751__PAT_WEIGHT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__PAT_WEIGHT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_751__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_751__PAT_WEIGHT.obj_num = 2; + cdat->dobj_751__PAT_WEIGHT.obj_hash = 67308140; + cdat->dobj_751__PAT_WEIGHT.obj_len = 4; + + /*inistring dstr_752__PAT_WEIGHT*/ + /*_.VALSTR___V815*/ meltfptr[814] = (void*)&cdat->dstr_752__PAT_WEIGHT; + cdat->dstr_752__PAT_WEIGHT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_752__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_752__PAT_WEIGHT.val)-1); + /*iniobj dsym_753__CLASS_SOURCE_PATTERN_OR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V819*/ meltfptr[818]) /*_.VALDATA___V819*/ meltfptr[818] = (void*)&cdat->dsym_753__CLASS_SOURCE_PATTERN_OR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_753__CLASS_SOURCE_PATTERN_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_753__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_753__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_753__CLASS_SOURCE_PATTERN_OR.obj_hash = 982854125; + cdat->dsym_753__CLASS_SOURCE_PATTERN_OR.obj_len = 3; + + /*inistring dstr_754__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V820*/ meltfptr[819] = (void*)&cdat->dstr_754__CLASS_SOURCE_PAT; + cdat->dstr_754__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_754__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_754__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:647:/ iniobj"); + /*iniobj dobj_755__CLASS_SOURCE_PATTERN_OR*/ +/*_.VALDATA___V821*/ meltfptr[820] = (void*)&cdat->dobj_755__CLASS_SOURCE_PATTERN_OR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_755__CLASS_SOURCE_PATTERN_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_755__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_755__CLASS_SOURCE_PATTERN_OR.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_755__CLASS_SOURCE_PATTERN_OR.obj_hash = 342318415; + cdat->dobj_755__CLASS_SOURCE_PATTERN_OR.obj_len = 8; + + /*inistring dstr_756__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V822*/ meltfptr[821] = (void*)&cdat->dstr_756__CLASS_SOURCE_PAT; + cdat->dstr_756__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_756__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_756__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_757__CLASS_SOURCE_PATTERN_OR*/ + /*_.VALTUP___V823*/ meltfptr[822] = (void*)&cdat->dtup_757__CLASS_SOURCE_PATTERN_OR; + cdat->dtup_757__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_757__CLASS_SOURCE_PATTERN_OR.nbval = 5; + /*inimult dtup_758__CLASS_SOURCE_PATTERN_OR*/ + /*_.VALTUP___V826*/ meltfptr[825] = (void*)&cdat->dtup_758__CLASS_SOURCE_PATTERN_OR; + cdat->dtup_758__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_758__CLASS_SOURCE_PATTERN_OR.nbval = 4; + /*iniobj dsym_759__ORPAT_DISJ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V827*/ meltfptr[826]) /*_.VALDATA___V827*/ meltfptr[826] = (void*)&cdat->dsym_759__ORPAT_DISJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_759__ORPAT_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_759__ORPAT_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_759__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_759__ORPAT_DISJ.obj_hash = 216093398; + cdat->dsym_759__ORPAT_DISJ.obj_len = 3; + + /*inistring dstr_760__ORPAT_DISJ*/ + /*_.VALSTR___V828*/ meltfptr[827] = (void*)&cdat->dstr_760__ORPAT_DISJ; + cdat->dstr_760__ORPAT_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_760__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_760__ORPAT_DISJ.val)-1); /*^iniobj*/ - /*iniobj dobj_755__SSTPD_VALUE*/ -/*_.VALDATA___V816*/ meltfptr[815] = (void*)&cdat->dobj_755__SSTPD_VALUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_755__SSTPD_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_755__SSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_755__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_755__SSTPD_VALUE.obj_num = 3; - cdat->dobj_755__SSTPD_VALUE.obj_hash = 411357905; - cdat->dobj_755__SSTPD_VALUE.obj_len = 4; - - /*inistring dstr_756__SSTPD_VALUE*/ - /*_.VALSTR___V817*/ meltfptr[816] = (void*)&cdat->dstr_756__SSTPD_VALUE; - cdat->dstr_756__SSTPD_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_756__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_756__SSTPD_VALUE.val)-1); - /*iniobj dsym_757__CLASS_SOURCE_CODECHUNK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V823*/ meltfptr[822]) /*_.VALDATA___V823*/ meltfptr[822] = (void*)&cdat->dsym_757__CLASS_SOURCE_CODECHUNK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_757__CLASS_SOURCE_CODECHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_757__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_757__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_757__CLASS_SOURCE_CODECHUNK.obj_hash = 935873793; - cdat->dsym_757__CLASS_SOURCE_CODECHUNK.obj_len = 3; - - /*inistring dstr_758__CLASS_SOURCE_COD*/ - /*_.VALSTR___V824*/ meltfptr[823] = (void*)&cdat->dstr_758__CLASS_SOURCE_COD; - cdat->dstr_758__CLASS_SOURCE_COD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_758__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_758__CLASS_SOURCE_COD.val)-1); - MELT_LOCATION("warmelt-macro.melt:651:/ iniobj"); - /*iniobj dobj_759__CLASS_SOURCE_CODECHUNK*/ -/*_.VALDATA___V825*/ meltfptr[824] = (void*)&cdat->dobj_759__CLASS_SOURCE_CODECHUNK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_759__CLASS_SOURCE_CODECHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_759__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_759__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_759__CLASS_SOURCE_CODECHUNK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_759__CLASS_SOURCE_CODECHUNK.obj_hash = 931506533; - cdat->dobj_759__CLASS_SOURCE_CODECHUNK.obj_len = 8; - - /*inistring dstr_760__CLASS_SOURCE_COD*/ - /*_.VALSTR___V826*/ meltfptr[825] = (void*)&cdat->dstr_760__CLASS_SOURCE_COD; - cdat->dstr_760__CLASS_SOURCE_COD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_760__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_760__CLASS_SOURCE_COD.val)-1); - /*inimult dtup_761__CLASS_SOURCE_CODECHUNK*/ - /*_.VALTUP___V827*/ meltfptr[826] = (void*)&cdat->dtup_761__CLASS_SOURCE_CODECHUNK; - cdat->dtup_761__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_761__CLASS_SOURCE_CODECHUNK.nbval = 4; - /*inimult dtup_762__CLASS_SOURCE_CODECHUNK*/ - /*_.VALTUP___V832*/ meltfptr[831] = (void*)&cdat->dtup_762__CLASS_SOURCE_CODECHUNK; - cdat->dtup_762__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_762__CLASS_SOURCE_CODECHUNK.nbval = 4; - /*iniobj dsym_763__SCH_GENSYM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V833*/ meltfptr[832]) /*_.VALDATA___V833*/ meltfptr[832] = (void*)&cdat->dsym_763__SCH_GENSYM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_763__SCH_GENSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_763__SCH_GENSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_763__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_763__SCH_GENSYM.obj_hash = 975191019; - cdat->dsym_763__SCH_GENSYM.obj_len = 3; - - /*inistring dstr_764__SCH_GENSYM*/ - /*_.VALSTR___V834*/ meltfptr[833] = (void*)&cdat->dstr_764__SCH_GENSYM; - cdat->dstr_764__SCH_GENSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_764__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_764__SCH_GENSYM.val)-1); + /*iniobj dobj_761__ORPAT_DISJ*/ +/*_.VALDATA___V824*/ meltfptr[823] = (void*)&cdat->dobj_761__ORPAT_DISJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_761__ORPAT_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_761__ORPAT_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_761__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_761__ORPAT_DISJ.obj_num = 3; + cdat->dobj_761__ORPAT_DISJ.obj_hash = 818397041; + cdat->dobj_761__ORPAT_DISJ.obj_len = 4; + + /*inistring dstr_762__ORPAT_DISJ*/ + /*_.VALSTR___V825*/ meltfptr[824] = (void*)&cdat->dstr_762__ORPAT_DISJ; + cdat->dstr_762__ORPAT_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_762__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_762__ORPAT_DISJ.val)-1); + /*iniobj dsym_763__CLASS_SOURCE_PATTERN_AND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V829*/ meltfptr[828]) /*_.VALDATA___V829*/ meltfptr[828] = (void*)&cdat->dsym_763__CLASS_SOURCE_PATTERN_AND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_763__CLASS_SOURCE_PATTERN_AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_763__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_763__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_763__CLASS_SOURCE_PATTERN_AND.obj_hash = 584373249; + cdat->dsym_763__CLASS_SOURCE_PATTERN_AND.obj_len = 3; + + /*inistring dstr_764__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V830*/ meltfptr[829] = (void*)&cdat->dstr_764__CLASS_SOURCE_PAT; + cdat->dstr_764__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_764__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_764__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:656:/ iniobj"); + /*iniobj dobj_765__CLASS_SOURCE_PATTERN_AND*/ +/*_.VALDATA___V831*/ meltfptr[830] = (void*)&cdat->dobj_765__CLASS_SOURCE_PATTERN_AND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_765__CLASS_SOURCE_PATTERN_AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_765__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_765__CLASS_SOURCE_PATTERN_AND.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_765__CLASS_SOURCE_PATTERN_AND.obj_hash = 205134263; + cdat->dobj_765__CLASS_SOURCE_PATTERN_AND.obj_len = 8; + + /*inistring dstr_766__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V832*/ meltfptr[831] = (void*)&cdat->dstr_766__CLASS_SOURCE_PAT; + cdat->dstr_766__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_766__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_766__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_767__CLASS_SOURCE_PATTERN_AND*/ + /*_.VALTUP___V833*/ meltfptr[832] = (void*)&cdat->dtup_767__CLASS_SOURCE_PATTERN_AND; + cdat->dtup_767__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_767__CLASS_SOURCE_PATTERN_AND.nbval = 5; + /*inimult dtup_768__CLASS_SOURCE_PATTERN_AND*/ + /*_.VALTUP___V836*/ meltfptr[835] = (void*)&cdat->dtup_768__CLASS_SOURCE_PATTERN_AND; + cdat->dtup_768__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_768__CLASS_SOURCE_PATTERN_AND.nbval = 4; + /*iniobj dsym_769__ANDPAT_CONJ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V837*/ meltfptr[836]) /*_.VALDATA___V837*/ meltfptr[836] = (void*)&cdat->dsym_769__ANDPAT_CONJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_769__ANDPAT_CONJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_769__ANDPAT_CONJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_769__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_769__ANDPAT_CONJ.obj_hash = 118332178; + cdat->dsym_769__ANDPAT_CONJ.obj_len = 3; + + /*inistring dstr_770__ANDPAT_CONJ*/ + /*_.VALSTR___V838*/ meltfptr[837] = (void*)&cdat->dstr_770__ANDPAT_CONJ; + cdat->dstr_770__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_770__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_770__ANDPAT_CONJ.val)-1); /*^iniobj*/ - /*iniobj dobj_765__SCH_GENSYM*/ -/*_.VALDATA___V828*/ meltfptr[827] = (void*)&cdat->dobj_765__SCH_GENSYM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_765__SCH_GENSYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__SCH_GENSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_765__SCH_GENSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_765__SCH_GENSYM.obj_num = 2; - cdat->dobj_765__SCH_GENSYM.obj_hash = 33400099; - cdat->dobj_765__SCH_GENSYM.obj_len = 4; - - /*inistring dstr_766__SCH_GENSYM*/ - /*_.VALSTR___V829*/ meltfptr[828] = (void*)&cdat->dstr_766__SCH_GENSYM; - cdat->dstr_766__SCH_GENSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_766__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_766__SCH_GENSYM.val)-1); - /*iniobj dsym_767__SCH_CHUNKS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V835*/ meltfptr[834]) /*_.VALDATA___V835*/ meltfptr[834] = (void*)&cdat->dsym_767__SCH_CHUNKS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_767__SCH_CHUNKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_767__SCH_CHUNKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_767__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_767__SCH_CHUNKS.obj_hash = 1040785972; - cdat->dsym_767__SCH_CHUNKS.obj_len = 3; - - /*inistring dstr_768__SCH_CHUNKS*/ - /*_.VALSTR___V836*/ meltfptr[835] = (void*)&cdat->dstr_768__SCH_CHUNKS; - cdat->dstr_768__SCH_CHUNKS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_768__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_768__SCH_CHUNKS.val)-1); - /*^iniobj*/ - /*iniobj dobj_769__SCH_CHUNKS*/ -/*_.VALDATA___V830*/ meltfptr[829] = (void*)&cdat->dobj_769__SCH_CHUNKS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_769__SCH_CHUNKS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769__SCH_CHUNKS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_769__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_769__SCH_CHUNKS.obj_num = 3; - cdat->dobj_769__SCH_CHUNKS.obj_hash = 180470699; - cdat->dobj_769__SCH_CHUNKS.obj_len = 4; - - /*inistring dstr_770__SCH_CHUNKS*/ - /*_.VALSTR___V831*/ meltfptr[830] = (void*)&cdat->dstr_770__SCH_CHUNKS; - cdat->dstr_770__SCH_CHUNKS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_770__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_770__SCH_CHUNKS.val)-1); - /*iniobj dsym_771__CLASS_SOURCE_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V837*/ meltfptr[836]) /*_.VALDATA___V837*/ meltfptr[836] = (void*)&cdat->dsym_771__CLASS_SOURCE_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_771__CLASS_SOURCE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_771__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_771__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_771__CLASS_SOURCE_PATTERN.obj_hash = 661483135; - cdat->dsym_771__CLASS_SOURCE_PATTERN.obj_len = 3; - - /*inistring dstr_772__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V838*/ meltfptr[837] = (void*)&cdat->dstr_772__CLASS_SOURCE_PAT; - cdat->dstr_772__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_772__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_772__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:659:/ iniobj"); - /*iniobj dobj_773__CLASS_SOURCE_PATTERN*/ -/*_.VALDATA___V839*/ meltfptr[838] = (void*)&cdat->dobj_773__CLASS_SOURCE_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_773__CLASS_SOURCE_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_773__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_773__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_773__CLASS_SOURCE_PATTERN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_773__CLASS_SOURCE_PATTERN.obj_hash = 402274572; - cdat->dobj_773__CLASS_SOURCE_PATTERN.obj_len = 8; + /*iniobj dobj_771__ANDPAT_CONJ*/ +/*_.VALDATA___V834*/ meltfptr[833] = (void*)&cdat->dobj_771__ANDPAT_CONJ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_771__ANDPAT_CONJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__ANDPAT_CONJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_771__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_771__ANDPAT_CONJ.obj_num = 3; + cdat->dobj_771__ANDPAT_CONJ.obj_hash = 5858983; + cdat->dobj_771__ANDPAT_CONJ.obj_len = 4; + + /*inistring dstr_772__ANDPAT_CONJ*/ + /*_.VALSTR___V835*/ meltfptr[834] = (void*)&cdat->dstr_772__ANDPAT_CONJ; + cdat->dstr_772__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_772__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_772__ANDPAT_CONJ.val)-1); + /*iniobj dsym_773__CLASS_SOURCE_PATTERN_WHEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V839*/ meltfptr[838]) /*_.VALDATA___V839*/ meltfptr[838] = (void*)&cdat->dsym_773__CLASS_SOURCE_PATTERN_WHEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_773__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_773__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_773__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_773__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 708177706; + cdat->dsym_773__CLASS_SOURCE_PATTERN_WHEN.obj_len = 3; /*inistring dstr_774__CLASS_SOURCE_PAT*/ /*_.VALSTR___V840*/ meltfptr[839] = (void*)&cdat->dstr_774__CLASS_SOURCE_PAT; cdat->dstr_774__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_774__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_774__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_775__CLASS_SOURCE_PATTERN*/ - /*_.VALTUP___V841*/ meltfptr[840] = (void*)&cdat->dtup_775__CLASS_SOURCE_PATTERN; - cdat->dtup_775__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_775__CLASS_SOURCE_PATTERN.nbval = 4; - /*inimult dtup_776__CLASS_SOURCE_PATTERN*/ - /*_.VALTUP___V844*/ meltfptr[843] = (void*)&cdat->dtup_776__CLASS_SOURCE_PATTERN; - cdat->dtup_776__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_776__CLASS_SOURCE_PATTERN.nbval = 3; - /*iniobj dsym_777__PAT_WEIGHT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V845*/ meltfptr[844]) /*_.VALDATA___V845*/ meltfptr[844] = (void*)&cdat->dsym_777__PAT_WEIGHT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_777__PAT_WEIGHT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_777__PAT_WEIGHT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_777__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_777__PAT_WEIGHT.obj_hash = 779594405; - cdat->dsym_777__PAT_WEIGHT.obj_len = 3; - - /*inistring dstr_778__PAT_WEIGHT*/ - /*_.VALSTR___V846*/ meltfptr[845] = (void*)&cdat->dstr_778__PAT_WEIGHT; - cdat->dstr_778__PAT_WEIGHT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_778__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_778__PAT_WEIGHT.val)-1); + /*small inistring*/ strncpy(cdat->dstr_774__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_774__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:665:/ iniobj"); + /*iniobj dobj_775__CLASS_SOURCE_PATTERN_WHEN*/ +/*_.VALDATA___V841*/ meltfptr[840] = (void*)&cdat->dobj_775__CLASS_SOURCE_PATTERN_WHEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_775__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_775__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_775__CLASS_SOURCE_PATTERN_WHEN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_775__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 1058409528; + cdat->dobj_775__CLASS_SOURCE_PATTERN_WHEN.obj_len = 8; + + /*inistring dstr_776__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V842*/ meltfptr[841] = (void*)&cdat->dstr_776__CLASS_SOURCE_PAT; + cdat->dstr_776__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_776__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_776__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_777__CLASS_SOURCE_PATTERN_WHEN*/ + /*_.VALTUP___V843*/ meltfptr[842] = (void*)&cdat->dtup_777__CLASS_SOURCE_PATTERN_WHEN; + cdat->dtup_777__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_777__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; + /*inimult dtup_778__CLASS_SOURCE_PATTERN_WHEN*/ + /*_.VALTUP___V848*/ meltfptr[847] = (void*)&cdat->dtup_778__CLASS_SOURCE_PATTERN_WHEN; + cdat->dtup_778__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_778__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; + /*iniobj dsym_779__WHENPAT_SUBPAT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V849*/ meltfptr[848]) /*_.VALDATA___V849*/ meltfptr[848] = (void*)&cdat->dsym_779__WHENPAT_SUBPAT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_779__WHENPAT_SUBPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_779__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_779__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_779__WHENPAT_SUBPAT.obj_hash = 629932822; + cdat->dsym_779__WHENPAT_SUBPAT.obj_len = 3; + + /*inistring dstr_780__WHENPAT_SUBPAT*/ + /*_.VALSTR___V850*/ meltfptr[849] = (void*)&cdat->dstr_780__WHENPAT_SUBPAT; + cdat->dstr_780__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_780__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_780__WHENPAT_SUBPAT.val)-1); /*^iniobj*/ - /*iniobj dobj_779__PAT_WEIGHT*/ -/*_.VALDATA___V842*/ meltfptr[841] = (void*)&cdat->dobj_779__PAT_WEIGHT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_779__PAT_WEIGHT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779__PAT_WEIGHT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_779__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_779__PAT_WEIGHT.obj_num = 2; - cdat->dobj_779__PAT_WEIGHT.obj_hash = 538031592; - cdat->dobj_779__PAT_WEIGHT.obj_len = 4; - - /*inistring dstr_780__PAT_WEIGHT*/ - /*_.VALSTR___V843*/ meltfptr[842] = (void*)&cdat->dstr_780__PAT_WEIGHT; - cdat->dstr_780__PAT_WEIGHT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_780__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_780__PAT_WEIGHT.val)-1); - /*iniobj dsym_781__CLASS_SOURCE_PATTERN_OR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V847*/ meltfptr[846]) /*_.VALDATA___V847*/ meltfptr[846] = (void*)&cdat->dsym_781__CLASS_SOURCE_PATTERN_OR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_781__CLASS_SOURCE_PATTERN_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_781__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_781__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_781__CLASS_SOURCE_PATTERN_OR.obj_hash = 982854125; - cdat->dsym_781__CLASS_SOURCE_PATTERN_OR.obj_len = 3; - - /*inistring dstr_782__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V848*/ meltfptr[847] = (void*)&cdat->dstr_782__CLASS_SOURCE_PAT; - cdat->dstr_782__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_782__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_782__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:668:/ iniobj"); - /*iniobj dobj_783__CLASS_SOURCE_PATTERN_OR*/ -/*_.VALDATA___V849*/ meltfptr[848] = (void*)&cdat->dobj_783__CLASS_SOURCE_PATTERN_OR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_783__CLASS_SOURCE_PATTERN_OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_783__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_783__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_783__CLASS_SOURCE_PATTERN_OR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_783__CLASS_SOURCE_PATTERN_OR.obj_hash = 358263406; - cdat->dobj_783__CLASS_SOURCE_PATTERN_OR.obj_len = 8; - - /*inistring dstr_784__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V850*/ meltfptr[849] = (void*)&cdat->dstr_784__CLASS_SOURCE_PAT; - cdat->dstr_784__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_784__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_784__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_785__CLASS_SOURCE_PATTERN_OR*/ - /*_.VALTUP___V851*/ meltfptr[850] = (void*)&cdat->dtup_785__CLASS_SOURCE_PATTERN_OR; - cdat->dtup_785__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_785__CLASS_SOURCE_PATTERN_OR.nbval = 5; - /*inimult dtup_786__CLASS_SOURCE_PATTERN_OR*/ - /*_.VALTUP___V854*/ meltfptr[853] = (void*)&cdat->dtup_786__CLASS_SOURCE_PATTERN_OR; - cdat->dtup_786__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_786__CLASS_SOURCE_PATTERN_OR.nbval = 4; - /*iniobj dsym_787__ORPAT_DISJ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V855*/ meltfptr[854]) /*_.VALDATA___V855*/ meltfptr[854] = (void*)&cdat->dsym_787__ORPAT_DISJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_787__ORPAT_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_787__ORPAT_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_787__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_787__ORPAT_DISJ.obj_hash = 216093398; - cdat->dsym_787__ORPAT_DISJ.obj_len = 3; - - /*inistring dstr_788__ORPAT_DISJ*/ - /*_.VALSTR___V856*/ meltfptr[855] = (void*)&cdat->dstr_788__ORPAT_DISJ; - cdat->dstr_788__ORPAT_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_788__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_788__ORPAT_DISJ.val)-1); + /*iniobj dobj_781__WHENPAT_SUBPAT*/ +/*_.VALDATA___V844*/ meltfptr[843] = (void*)&cdat->dobj_781__WHENPAT_SUBPAT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_781__WHENPAT_SUBPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_781__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_781__WHENPAT_SUBPAT.obj_num = 3; + cdat->dobj_781__WHENPAT_SUBPAT.obj_hash = 258436378; + cdat->dobj_781__WHENPAT_SUBPAT.obj_len = 4; + + /*inistring dstr_782__WHENPAT_SUBPAT*/ + /*_.VALSTR___V845*/ meltfptr[844] = (void*)&cdat->dstr_782__WHENPAT_SUBPAT; + cdat->dstr_782__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_782__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_782__WHENPAT_SUBPAT.val)-1); + /*iniobj dsym_783__WHENPAT_COND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V851*/ meltfptr[850]) /*_.VALDATA___V851*/ meltfptr[850] = (void*)&cdat->dsym_783__WHENPAT_COND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_783__WHENPAT_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_783__WHENPAT_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_783__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_783__WHENPAT_COND.obj_hash = 265933811; + cdat->dsym_783__WHENPAT_COND.obj_len = 3; + + /*inistring dstr_784__WHENPAT_COND*/ + /*_.VALSTR___V852*/ meltfptr[851] = (void*)&cdat->dstr_784__WHENPAT_COND; + cdat->dstr_784__WHENPAT_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_784__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_784__WHENPAT_COND.val)-1); /*^iniobj*/ - /*iniobj dobj_789__ORPAT_DISJ*/ -/*_.VALDATA___V852*/ meltfptr[851] = (void*)&cdat->dobj_789__ORPAT_DISJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_789__ORPAT_DISJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__ORPAT_DISJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_789__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_789__ORPAT_DISJ.obj_num = 3; - cdat->dobj_789__ORPAT_DISJ.obj_hash = 663021853; - cdat->dobj_789__ORPAT_DISJ.obj_len = 4; - - /*inistring dstr_790__ORPAT_DISJ*/ - /*_.VALSTR___V853*/ meltfptr[852] = (void*)&cdat->dstr_790__ORPAT_DISJ; - cdat->dstr_790__ORPAT_DISJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_790__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_790__ORPAT_DISJ.val)-1); - /*iniobj dsym_791__CLASS_SOURCE_PATTERN_AND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V857*/ meltfptr[856]) /*_.VALDATA___V857*/ meltfptr[856] = (void*)&cdat->dsym_791__CLASS_SOURCE_PATTERN_AND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_791__CLASS_SOURCE_PATTERN_AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_791__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_791__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_791__CLASS_SOURCE_PATTERN_AND.obj_hash = 584373249; - cdat->dsym_791__CLASS_SOURCE_PATTERN_AND.obj_len = 3; - - /*inistring dstr_792__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V858*/ meltfptr[857] = (void*)&cdat->dstr_792__CLASS_SOURCE_PAT; - cdat->dstr_792__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_792__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_792__CLASS_SOURCE_PAT.val)-1); + /*iniobj dobj_785__WHENPAT_COND*/ +/*_.VALDATA___V846*/ meltfptr[845] = (void*)&cdat->dobj_785__WHENPAT_COND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_785__WHENPAT_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__WHENPAT_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_785__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_785__WHENPAT_COND.obj_num = 4; + cdat->dobj_785__WHENPAT_COND.obj_hash = 350719849; + cdat->dobj_785__WHENPAT_COND.obj_len = 4; + + /*inistring dstr_786__WHENPAT_COND*/ + /*_.VALSTR___V847*/ meltfptr[846] = (void*)&cdat->dstr_786__WHENPAT_COND; + cdat->dstr_786__WHENPAT_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_786__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_786__WHENPAT_COND.val)-1); + /*iniobj dsym_787__CLASS_SOURCE_PATTERN_VARIABLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V853*/ meltfptr[852]) /*_.VALDATA___V853*/ meltfptr[852] = (void*)&cdat->dsym_787__CLASS_SOURCE_PATTERN_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_787__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_787__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_787__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_787__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 852795053; + cdat->dsym_787__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 3; + + /*inistring dstr_788__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V854*/ meltfptr[853] = (void*)&cdat->dstr_788__CLASS_SOURCE_PAT; + cdat->dstr_788__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_788__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_788__CLASS_SOURCE_PAT.val)-1); MELT_LOCATION("warmelt-macro.melt:677:/ iniobj"); - /*iniobj dobj_793__CLASS_SOURCE_PATTERN_AND*/ -/*_.VALDATA___V859*/ meltfptr[858] = (void*)&cdat->dobj_793__CLASS_SOURCE_PATTERN_AND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_793__CLASS_SOURCE_PATTERN_AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_793__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_793__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_793__CLASS_SOURCE_PATTERN_AND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_793__CLASS_SOURCE_PATTERN_AND.obj_hash = 223077738; - cdat->dobj_793__CLASS_SOURCE_PATTERN_AND.obj_len = 8; - - /*inistring dstr_794__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V860*/ meltfptr[859] = (void*)&cdat->dstr_794__CLASS_SOURCE_PAT; - cdat->dstr_794__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_794__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_794__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_795__CLASS_SOURCE_PATTERN_AND*/ - /*_.VALTUP___V861*/ meltfptr[860] = (void*)&cdat->dtup_795__CLASS_SOURCE_PATTERN_AND; - cdat->dtup_795__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_795__CLASS_SOURCE_PATTERN_AND.nbval = 5; - /*inimult dtup_796__CLASS_SOURCE_PATTERN_AND*/ - /*_.VALTUP___V864*/ meltfptr[863] = (void*)&cdat->dtup_796__CLASS_SOURCE_PATTERN_AND; - cdat->dtup_796__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_796__CLASS_SOURCE_PATTERN_AND.nbval = 4; - /*iniobj dsym_797__ANDPAT_CONJ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V865*/ meltfptr[864]) /*_.VALDATA___V865*/ meltfptr[864] = (void*)&cdat->dsym_797__ANDPAT_CONJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_797__ANDPAT_CONJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_797__ANDPAT_CONJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_797__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_797__ANDPAT_CONJ.obj_hash = 118332178; - cdat->dsym_797__ANDPAT_CONJ.obj_len = 3; - - /*inistring dstr_798__ANDPAT_CONJ*/ - /*_.VALSTR___V866*/ meltfptr[865] = (void*)&cdat->dstr_798__ANDPAT_CONJ; - cdat->dstr_798__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_798__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_798__ANDPAT_CONJ.val)-1); + /*iniobj dobj_789__CLASS_SOURCE_PATTERN_VARIABLE*/ +/*_.VALDATA___V855*/ meltfptr[854] = (void*)&cdat->dobj_789__CLASS_SOURCE_PATTERN_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_789__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_789__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_789__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_789__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 628007829; + cdat->dobj_789__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; + + /*inistring dstr_790__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V856*/ meltfptr[855] = (void*)&cdat->dstr_790__CLASS_SOURCE_PAT; + cdat->dstr_790__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_790__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_790__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_791__CLASS_SOURCE_PATTERN_VARIABLE*/ + /*_.VALTUP___V857*/ meltfptr[856] = (void*)&cdat->dtup_791__CLASS_SOURCE_PATTERN_VARIABLE; + cdat->dtup_791__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_791__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; + /*inimult dtup_792__CLASS_SOURCE_PATTERN_VARIABLE*/ + /*_.VALTUP___V862*/ meltfptr[861] = (void*)&cdat->dtup_792__CLASS_SOURCE_PATTERN_VARIABLE; + cdat->dtup_792__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_792__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; + /*iniobj dsym_793__SPATVAR_SYMB*/ +/*uniqueobj*/ if (!/*_.VALDATA___V863*/ meltfptr[862]) /*_.VALDATA___V863*/ meltfptr[862] = (void*)&cdat->dsym_793__SPATVAR_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_793__SPATVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_793__SPATVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_793__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_793__SPATVAR_SYMB.obj_hash = 155043373; + cdat->dsym_793__SPATVAR_SYMB.obj_len = 3; + + /*inistring dstr_794__SPATVAR_SYMB*/ + /*_.VALSTR___V864*/ meltfptr[863] = (void*)&cdat->dstr_794__SPATVAR_SYMB; + cdat->dstr_794__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_794__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_794__SPATVAR_SYMB.val)-1); + /*^iniobj*/ + /*iniobj dobj_795__SPATVAR_SYMB*/ +/*_.VALDATA___V858*/ meltfptr[857] = (void*)&cdat->dobj_795__SPATVAR_SYMB; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_795__SPATVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__SPATVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_795__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_795__SPATVAR_SYMB.obj_num = 3; + cdat->dobj_795__SPATVAR_SYMB.obj_hash = 325137571; + cdat->dobj_795__SPATVAR_SYMB.obj_len = 4; + + /*inistring dstr_796__SPATVAR_SYMB*/ + /*_.VALSTR___V859*/ meltfptr[858] = (void*)&cdat->dstr_796__SPATVAR_SYMB; + cdat->dstr_796__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_796__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_796__SPATVAR_SYMB.val)-1); + /*iniobj dsym_797__SPATVAR_NBOCC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V865*/ meltfptr[864]) /*_.VALDATA___V865*/ meltfptr[864] = (void*)&cdat->dsym_797__SPATVAR_NBOCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_797__SPATVAR_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_797__SPATVAR_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_797__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_797__SPATVAR_NBOCC.obj_hash = 209601000; + cdat->dsym_797__SPATVAR_NBOCC.obj_len = 3; + + /*inistring dstr_798__SPATVAR_NBOCC*/ + /*_.VALSTR___V866*/ meltfptr[865] = (void*)&cdat->dstr_798__SPATVAR_NBOCC; + cdat->dstr_798__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_798__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_798__SPATVAR_NBOCC.val)-1); /*^iniobj*/ - /*iniobj dobj_799__ANDPAT_CONJ*/ -/*_.VALDATA___V862*/ meltfptr[861] = (void*)&cdat->dobj_799__ANDPAT_CONJ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_799__ANDPAT_CONJ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__ANDPAT_CONJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_799__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_799__ANDPAT_CONJ.obj_num = 3; - cdat->dobj_799__ANDPAT_CONJ.obj_hash = 358757364; - cdat->dobj_799__ANDPAT_CONJ.obj_len = 4; - - /*inistring dstr_800__ANDPAT_CONJ*/ - /*_.VALSTR___V863*/ meltfptr[862] = (void*)&cdat->dstr_800__ANDPAT_CONJ; - cdat->dstr_800__ANDPAT_CONJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_800__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_800__ANDPAT_CONJ.val)-1); - /*iniobj dsym_801__CLASS_SOURCE_PATTERN_WHEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V867*/ meltfptr[866]) /*_.VALDATA___V867*/ meltfptr[866] = (void*)&cdat->dsym_801__CLASS_SOURCE_PATTERN_WHEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_801__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_801__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_801__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_801__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 708177706; - cdat->dsym_801__CLASS_SOURCE_PATTERN_WHEN.obj_len = 3; - - /*inistring dstr_802__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V868*/ meltfptr[867] = (void*)&cdat->dstr_802__CLASS_SOURCE_PAT; - cdat->dstr_802__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_802__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_802__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:686:/ iniobj"); - /*iniobj dobj_803__CLASS_SOURCE_PATTERN_WHEN*/ -/*_.VALDATA___V869*/ meltfptr[868] = (void*)&cdat->dobj_803__CLASS_SOURCE_PATTERN_WHEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_803__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_803__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_803__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_803__CLASS_SOURCE_PATTERN_WHEN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_803__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 738241604; - cdat->dobj_803__CLASS_SOURCE_PATTERN_WHEN.obj_len = 8; + /*iniobj dobj_799__SPATVAR_NBOCC*/ +/*_.VALDATA___V860*/ meltfptr[859] = (void*)&cdat->dobj_799__SPATVAR_NBOCC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_799__SPATVAR_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__SPATVAR_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_799__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_799__SPATVAR_NBOCC.obj_num = 4; + cdat->dobj_799__SPATVAR_NBOCC.obj_hash = 1039221075; + cdat->dobj_799__SPATVAR_NBOCC.obj_len = 4; + + /*inistring dstr_800__SPATVAR_NBOCC*/ + /*_.VALSTR___V861*/ meltfptr[860] = (void*)&cdat->dstr_800__SPATVAR_NBOCC; + cdat->dstr_800__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_800__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_800__SPATVAR_NBOCC.val)-1); + /*iniobj dsym_801__SPAT_VAR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V867*/ meltfptr[866]) /*_.VALDATA___V867*/ meltfptr[866] = (void*)&cdat->dsym_801__SPAT_VAR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_801__SPAT_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_801__SPAT_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_801__SPAT_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_801__SPAT_VAR.obj_hash = 911310249; + cdat->dsym_801__SPAT_VAR.obj_len = 3; + + /*inistring dstr_802__SPAT_VAR*/ + /*_.VALSTR___V868*/ meltfptr[867] = (void*)&cdat->dstr_802__SPAT_VAR; + cdat->dstr_802__SPAT_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_802__SPAT_VAR.val, "SPAT_VAR", sizeof (cdat->dstr_802__SPAT_VAR.val)-1); + /*iniobj dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V869*/ meltfptr[868]) /*_.VALDATA___V869*/ meltfptr[868] = (void*)&cdat->dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 407364272; + cdat->dsym_803__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 3; /*inistring dstr_804__CLASS_SOURCE_PAT*/ /*_.VALSTR___V870*/ meltfptr[869] = (void*)&cdat->dstr_804__CLASS_SOURCE_PAT; cdat->dstr_804__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_804__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_804__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_805__CLASS_SOURCE_PATTERN_WHEN*/ - /*_.VALTUP___V871*/ meltfptr[870] = (void*)&cdat->dtup_805__CLASS_SOURCE_PATTERN_WHEN; - cdat->dtup_805__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_805__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; - /*inimult dtup_806__CLASS_SOURCE_PATTERN_WHEN*/ - /*_.VALTUP___V876*/ meltfptr[875] = (void*)&cdat->dtup_806__CLASS_SOURCE_PATTERN_WHEN; - cdat->dtup_806__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_806__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; - /*iniobj dsym_807__WHENPAT_SUBPAT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V877*/ meltfptr[876]) /*_.VALDATA___V877*/ meltfptr[876] = (void*)&cdat->dsym_807__WHENPAT_SUBPAT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_807__WHENPAT_SUBPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_807__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_807__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_807__WHENPAT_SUBPAT.obj_hash = 629932822; - cdat->dsym_807__WHENPAT_SUBPAT.obj_len = 3; - - /*inistring dstr_808__WHENPAT_SUBPAT*/ - /*_.VALSTR___V878*/ meltfptr[877] = (void*)&cdat->dstr_808__WHENPAT_SUBPAT; - cdat->dstr_808__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_808__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_808__WHENPAT_SUBPAT.val)-1); - /*^iniobj*/ - /*iniobj dobj_809__WHENPAT_SUBPAT*/ -/*_.VALDATA___V872*/ meltfptr[871] = (void*)&cdat->dobj_809__WHENPAT_SUBPAT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_809__WHENPAT_SUBPAT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_809__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_809__WHENPAT_SUBPAT.obj_num = 3; - cdat->dobj_809__WHENPAT_SUBPAT.obj_hash = 689833848; - cdat->dobj_809__WHENPAT_SUBPAT.obj_len = 4; - - /*inistring dstr_810__WHENPAT_SUBPAT*/ - /*_.VALSTR___V873*/ meltfptr[872] = (void*)&cdat->dstr_810__WHENPAT_SUBPAT; - cdat->dstr_810__WHENPAT_SUBPAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_810__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_810__WHENPAT_SUBPAT.val)-1); - /*iniobj dsym_811__WHENPAT_COND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V879*/ meltfptr[878]) /*_.VALDATA___V879*/ meltfptr[878] = (void*)&cdat->dsym_811__WHENPAT_COND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_811__WHENPAT_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_811__WHENPAT_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_811__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_811__WHENPAT_COND.obj_hash = 265933811; - cdat->dsym_811__WHENPAT_COND.obj_len = 3; - - /*inistring dstr_812__WHENPAT_COND*/ - /*_.VALSTR___V880*/ meltfptr[879] = (void*)&cdat->dstr_812__WHENPAT_COND; - cdat->dstr_812__WHENPAT_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_812__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_812__WHENPAT_COND.val)-1); - /*^iniobj*/ - /*iniobj dobj_813__WHENPAT_COND*/ -/*_.VALDATA___V874*/ meltfptr[873] = (void*)&cdat->dobj_813__WHENPAT_COND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_813__WHENPAT_COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__WHENPAT_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_813__WHENPAT_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_813__WHENPAT_COND.obj_num = 4; - cdat->dobj_813__WHENPAT_COND.obj_hash = 1051972327; - cdat->dobj_813__WHENPAT_COND.obj_len = 4; - - /*inistring dstr_814__WHENPAT_COND*/ - /*_.VALSTR___V875*/ meltfptr[874] = (void*)&cdat->dstr_814__WHENPAT_COND; - cdat->dstr_814__WHENPAT_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_814__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_814__WHENPAT_COND.val)-1); - /*iniobj dsym_815__CLASS_SOURCE_PATTERN_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V881*/ meltfptr[880]) /*_.VALDATA___V881*/ meltfptr[880] = (void*)&cdat->dsym_815__CLASS_SOURCE_PATTERN_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_815__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_815__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_815__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_815__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 852795053; - cdat->dsym_815__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 3; - - /*inistring dstr_816__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V882*/ meltfptr[881] = (void*)&cdat->dstr_816__CLASS_SOURCE_PAT; - cdat->dstr_816__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_816__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_816__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:698:/ iniobj"); - /*iniobj dobj_817__CLASS_SOURCE_PATTERN_VARIABLE*/ -/*_.VALDATA___V883*/ meltfptr[882] = (void*)&cdat->dobj_817__CLASS_SOURCE_PATTERN_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_817__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_817__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_817__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_817__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_817__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 642619849; - cdat->dobj_817__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; - - /*inistring dstr_818__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V884*/ meltfptr[883] = (void*)&cdat->dstr_818__CLASS_SOURCE_PAT; - cdat->dstr_818__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_818__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_818__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_819__CLASS_SOURCE_PATTERN_VARIABLE*/ - /*_.VALTUP___V885*/ meltfptr[884] = (void*)&cdat->dtup_819__CLASS_SOURCE_PATTERN_VARIABLE; - cdat->dtup_819__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_819__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; - /*inimult dtup_820__CLASS_SOURCE_PATTERN_VARIABLE*/ - /*_.VALTUP___V890*/ meltfptr[889] = (void*)&cdat->dtup_820__CLASS_SOURCE_PATTERN_VARIABLE; - cdat->dtup_820__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_820__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; - /*iniobj dsym_821__SPATVAR_SYMB*/ -/*uniqueobj*/ if (!/*_.VALDATA___V891*/ meltfptr[890]) /*_.VALDATA___V891*/ meltfptr[890] = (void*)&cdat->dsym_821__SPATVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_821__SPATVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_821__SPATVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_821__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_821__SPATVAR_SYMB.obj_hash = 155043373; - cdat->dsym_821__SPATVAR_SYMB.obj_len = 3; - - /*inistring dstr_822__SPATVAR_SYMB*/ - /*_.VALSTR___V892*/ meltfptr[891] = (void*)&cdat->dstr_822__SPATVAR_SYMB; - cdat->dstr_822__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_822__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_822__SPATVAR_SYMB.val)-1); + /*small inistring*/ strncpy(cdat->dstr_804__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_804__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:688:/ iniobj"); + /*iniobj dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ +/*_.VALDATA___V871*/ meltfptr[870] = (void*)&cdat->dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 605864982; + cdat->dobj_805__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; + + /*inistring dstr_806__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V872*/ meltfptr[871] = (void*)&cdat->dstr_806__CLASS_SOURCE_PAT; + cdat->dstr_806__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_806__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_806__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_807__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ + /*_.VALTUP___V873*/ meltfptr[872] = (void*)&cdat->dtup_807__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + cdat->dtup_807__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_807__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 6; + /*inimult dtup_808__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ + /*_.VALTUP___V874*/ meltfptr[873] = (void*)&cdat->dtup_808__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; + cdat->dtup_808__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_808__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 5; + /*iniobj dsym_809__CLASS_SOURCE_PATTERN_CONSTANT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V875*/ meltfptr[874]) /*_.VALDATA___V875*/ meltfptr[874] = (void*)&cdat->dsym_809__CLASS_SOURCE_PATTERN_CONSTANT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_809__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_809__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_809__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_809__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 527380821; + cdat->dsym_809__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 3; + + /*inistring dstr_810__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V876*/ meltfptr[875] = (void*)&cdat->dstr_810__CLASS_SOURCE_PAT; + cdat->dstr_810__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_810__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_810__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:695:/ iniobj"); + /*iniobj dobj_811__CLASS_SOURCE_PATTERN_CONSTANT*/ +/*_.VALDATA___V877*/ meltfptr[876] = (void*)&cdat->dobj_811__CLASS_SOURCE_PATTERN_CONSTANT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_811__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_811__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_811__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_811__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_811__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 395855037; + cdat->dobj_811__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; + + /*inistring dstr_812__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V878*/ meltfptr[877] = (void*)&cdat->dstr_812__CLASS_SOURCE_PAT; + cdat->dstr_812__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_812__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_812__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_813__CLASS_SOURCE_PATTERN_CONSTANT*/ + /*_.VALTUP___V879*/ meltfptr[878] = (void*)&cdat->dtup_813__CLASS_SOURCE_PATTERN_CONSTANT; + cdat->dtup_813__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_813__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 5; + /*inimult dtup_814__CLASS_SOURCE_PATTERN_CONSTANT*/ + /*_.VALTUP___V882*/ meltfptr[881] = (void*)&cdat->dtup_814__CLASS_SOURCE_PATTERN_CONSTANT; + cdat->dtup_814__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_814__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 4; + /*iniobj dsym_815__SPAT_CONSTX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V883*/ meltfptr[882]) /*_.VALDATA___V883*/ meltfptr[882] = (void*)&cdat->dsym_815__SPAT_CONSTX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_815__SPAT_CONSTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_815__SPAT_CONSTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_815__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_815__SPAT_CONSTX.obj_hash = 943580435; + cdat->dsym_815__SPAT_CONSTX.obj_len = 3; + + /*inistring dstr_816__SPAT_CONSTX*/ + /*_.VALSTR___V884*/ meltfptr[883] = (void*)&cdat->dstr_816__SPAT_CONSTX; + cdat->dstr_816__SPAT_CONSTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_816__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_816__SPAT_CONSTX.val)-1); /*^iniobj*/ - /*iniobj dobj_823__SPATVAR_SYMB*/ -/*_.VALDATA___V886*/ meltfptr[885] = (void*)&cdat->dobj_823__SPATVAR_SYMB; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_823__SPATVAR_SYMB", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_823__SPATVAR_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_823__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_823__SPATVAR_SYMB.obj_num = 3; - cdat->dobj_823__SPATVAR_SYMB.obj_hash = 962962026; - cdat->dobj_823__SPATVAR_SYMB.obj_len = 4; - - /*inistring dstr_824__SPATVAR_SYMB*/ - /*_.VALSTR___V887*/ meltfptr[886] = (void*)&cdat->dstr_824__SPATVAR_SYMB; - cdat->dstr_824__SPATVAR_SYMB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_824__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_824__SPATVAR_SYMB.val)-1); - /*iniobj dsym_825__SPATVAR_NBOCC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V893*/ meltfptr[892]) /*_.VALDATA___V893*/ meltfptr[892] = (void*)&cdat->dsym_825__SPATVAR_NBOCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_825__SPATVAR_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_825__SPATVAR_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_825__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_825__SPATVAR_NBOCC.obj_hash = 209601000; - cdat->dsym_825__SPATVAR_NBOCC.obj_len = 3; - - /*inistring dstr_826__SPATVAR_NBOCC*/ - /*_.VALSTR___V894*/ meltfptr[893] = (void*)&cdat->dstr_826__SPATVAR_NBOCC; - cdat->dstr_826__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_826__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_826__SPATVAR_NBOCC.val)-1); + /*iniobj dobj_817__SPAT_CONSTX*/ +/*_.VALDATA___V880*/ meltfptr[879] = (void*)&cdat->dobj_817__SPAT_CONSTX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_817__SPAT_CONSTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_817__SPAT_CONSTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_817__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_817__SPAT_CONSTX.obj_num = 3; + cdat->dobj_817__SPAT_CONSTX.obj_hash = 951957787; + cdat->dobj_817__SPAT_CONSTX.obj_len = 4; + + /*inistring dstr_818__SPAT_CONSTX*/ + /*_.VALSTR___V881*/ meltfptr[880] = (void*)&cdat->dstr_818__SPAT_CONSTX; + cdat->dstr_818__SPAT_CONSTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_818__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_818__SPAT_CONSTX.val)-1); + /*iniobj dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V885*/ meltfptr[884]) /*_.VALDATA___V885*/ meltfptr[884] = (void*)&cdat->dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; + cdat->dsym_819__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; + + /*inistring dstr_820__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V886*/ meltfptr[885] = (void*)&cdat->dstr_820__CLASS_SOURCE_PAT; + cdat->dstr_820__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_820__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_820__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:704:/ iniobj"); + /*iniobj dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT*/ +/*_.VALDATA___V887*/ meltfptr[886] = (void*)&cdat->dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 560715923; + cdat->dobj_821__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; + + /*inistring dstr_822__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V888*/ meltfptr[887] = (void*)&cdat->dstr_822__CLASS_SOURCE_PAT; + cdat->dstr_822__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_822__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_822__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_823__CLASS_SOURCE_PATTERN_CONSTRUCT*/ + /*_.VALTUP___V889*/ meltfptr[888] = (void*)&cdat->dtup_823__CLASS_SOURCE_PATTERN_CONSTRUCT; + cdat->dtup_823__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_823__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 5; + /*inimult dtup_824__CLASS_SOURCE_PATTERN_CONSTRUCT*/ + /*_.VALTUP___V892*/ meltfptr[891] = (void*)&cdat->dtup_824__CLASS_SOURCE_PATTERN_CONSTRUCT; + cdat->dtup_824__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_824__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 4; + /*iniobj dsym_825__CTPAT_SUBPA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V893*/ meltfptr[892]) /*_.VALDATA___V893*/ meltfptr[892] = (void*)&cdat->dsym_825__CTPAT_SUBPA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_825__CTPAT_SUBPA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_825__CTPAT_SUBPA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_825__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_825__CTPAT_SUBPA.obj_hash = 81625075; + cdat->dsym_825__CTPAT_SUBPA.obj_len = 3; + + /*inistring dstr_826__CTPAT_SUBPA*/ + /*_.VALSTR___V894*/ meltfptr[893] = (void*)&cdat->dstr_826__CTPAT_SUBPA; + cdat->dstr_826__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_826__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_826__CTPAT_SUBPA.val)-1); /*^iniobj*/ - /*iniobj dobj_827__SPATVAR_NBOCC*/ -/*_.VALDATA___V888*/ meltfptr[887] = (void*)&cdat->dobj_827__SPATVAR_NBOCC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_827__SPATVAR_NBOCC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__SPATVAR_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_827__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_827__SPATVAR_NBOCC.obj_num = 4; - cdat->dobj_827__SPATVAR_NBOCC.obj_hash = 1011834895; - cdat->dobj_827__SPATVAR_NBOCC.obj_len = 4; - - /*inistring dstr_828__SPATVAR_NBOCC*/ - /*_.VALSTR___V889*/ meltfptr[888] = (void*)&cdat->dstr_828__SPATVAR_NBOCC; - cdat->dstr_828__SPATVAR_NBOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_828__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_828__SPATVAR_NBOCC.val)-1); - /*iniobj dsym_829__SPAT_VAR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V895*/ meltfptr[894]) /*_.VALDATA___V895*/ meltfptr[894] = (void*)&cdat->dsym_829__SPAT_VAR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_829__SPAT_VAR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_829__SPAT_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_829__SPAT_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_829__SPAT_VAR.obj_hash = 911310249; - cdat->dsym_829__SPAT_VAR.obj_len = 3; - - /*inistring dstr_830__SPAT_VAR*/ - /*_.VALSTR___V896*/ meltfptr[895] = (void*)&cdat->dstr_830__SPAT_VAR; - cdat->dstr_830__SPAT_VAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_830__SPAT_VAR.val, "SPAT_VAR", sizeof (cdat->dstr_830__SPAT_VAR.val)-1); - /*iniobj dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V897*/ meltfptr[896]) /*_.VALDATA___V897*/ meltfptr[896] = (void*)&cdat->dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 407364272; - cdat->dsym_831__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 3; + /*iniobj dobj_827__CTPAT_SUBPA*/ +/*_.VALDATA___V890*/ meltfptr[889] = (void*)&cdat->dobj_827__CTPAT_SUBPA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_827__CTPAT_SUBPA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__CTPAT_SUBPA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_827__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_827__CTPAT_SUBPA.obj_num = 3; + cdat->dobj_827__CTPAT_SUBPA.obj_hash = 750752832; + cdat->dobj_827__CTPAT_SUBPA.obj_len = 4; + + /*inistring dstr_828__CTPAT_SUBPA*/ + /*_.VALSTR___V891*/ meltfptr[890] = (void*)&cdat->dstr_828__CTPAT_SUBPA; + cdat->dstr_828__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_828__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_828__CTPAT_SUBPA.val)-1); + /*iniobj dsym_829__CLASS_SOURCE_PATTERN_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V895*/ meltfptr[894]) /*_.VALDATA___V895*/ meltfptr[894] = (void*)&cdat->dsym_829__CLASS_SOURCE_PATTERN_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_829__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_829__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_829__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_829__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 475727285; + cdat->dsym_829__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 3; + + /*inistring dstr_830__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V896*/ meltfptr[895] = (void*)&cdat->dstr_830__CLASS_SOURCE_PAT; + cdat->dstr_830__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_830__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_830__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:713:/ iniobj"); + /*iniobj dobj_831__CLASS_SOURCE_PATTERN_TUPLE*/ +/*_.VALDATA___V897*/ meltfptr[896] = (void*)&cdat->dobj_831__CLASS_SOURCE_PATTERN_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_831__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_831__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_831__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_831__CLASS_SOURCE_PATTERN_TUPLE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_831__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 923632733; + cdat->dobj_831__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; /*inistring dstr_832__CLASS_SOURCE_PAT*/ /*_.VALSTR___V898*/ meltfptr[897] = (void*)&cdat->dstr_832__CLASS_SOURCE_PAT; cdat->dstr_832__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_832__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_832__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:709:/ iniobj"); - /*iniobj dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ -/*_.VALDATA___V899*/ meltfptr[898] = (void*)&cdat->dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 500778454; - cdat->dobj_833__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; - - /*inistring dstr_834__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V900*/ meltfptr[899] = (void*)&cdat->dstr_834__CLASS_SOURCE_PAT; - cdat->dstr_834__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_834__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_834__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_835__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*_.VALTUP___V901*/ meltfptr[900] = (void*)&cdat->dtup_835__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - cdat->dtup_835__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_835__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 6; - /*inimult dtup_836__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - /*_.VALTUP___V902*/ meltfptr[901] = (void*)&cdat->dtup_836__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; - cdat->dtup_836__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_836__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 5; - /*iniobj dsym_837__CLASS_SOURCE_PATTERN_CONSTANT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V903*/ meltfptr[902]) /*_.VALDATA___V903*/ meltfptr[902] = (void*)&cdat->dsym_837__CLASS_SOURCE_PATTERN_CONSTANT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_837__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_837__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_837__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_837__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 527380821; - cdat->dsym_837__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 3; + /*small inistring*/ strncpy(cdat->dstr_832__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_832__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_833__CLASS_SOURCE_PATTERN_TUPLE*/ + /*_.VALTUP___V899*/ meltfptr[898] = (void*)&cdat->dtup_833__CLASS_SOURCE_PATTERN_TUPLE; + cdat->dtup_833__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_833__CLASS_SOURCE_PATTERN_TUPLE.nbval = 6; + /*inimult dtup_834__CLASS_SOURCE_PATTERN_TUPLE*/ + /*_.VALTUP___V900*/ meltfptr[899] = (void*)&cdat->dtup_834__CLASS_SOURCE_PATTERN_TUPLE; + cdat->dtup_834__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_834__CLASS_SOURCE_PATTERN_TUPLE.nbval = 4; + /*iniobj dsym_835__CLASS_SOURCE_PATTERN_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V901*/ meltfptr[900]) /*_.VALDATA___V901*/ meltfptr[900] = (void*)&cdat->dsym_835__CLASS_SOURCE_PATTERN_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_835__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_835__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_835__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_835__CLASS_SOURCE_PATTERN_LIST.obj_hash = 725656977; + cdat->dsym_835__CLASS_SOURCE_PATTERN_LIST.obj_len = 3; + + /*inistring dstr_836__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V902*/ meltfptr[901] = (void*)&cdat->dstr_836__CLASS_SOURCE_PAT; + cdat->dstr_836__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_836__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_836__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:720:/ iniobj"); + /*iniobj dobj_837__CLASS_SOURCE_PATTERN_LIST*/ +/*_.VALDATA___V903*/ meltfptr[902] = (void*)&cdat->dobj_837__CLASS_SOURCE_PATTERN_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_837__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_837__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_837__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_837__CLASS_SOURCE_PATTERN_LIST.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_837__CLASS_SOURCE_PATTERN_LIST.obj_hash = 337129142; + cdat->dobj_837__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; /*inistring dstr_838__CLASS_SOURCE_PAT*/ /*_.VALSTR___V904*/ meltfptr[903] = (void*)&cdat->dstr_838__CLASS_SOURCE_PAT; cdat->dstr_838__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_838__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_838__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:716:/ iniobj"); - /*iniobj dobj_839__CLASS_SOURCE_PATTERN_CONSTANT*/ -/*_.VALDATA___V905*/ meltfptr[904] = (void*)&cdat->dobj_839__CLASS_SOURCE_PATTERN_CONSTANT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_839__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_839__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_839__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_839__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_839__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 304927335; - cdat->dobj_839__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; - - /*inistring dstr_840__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V906*/ meltfptr[905] = (void*)&cdat->dstr_840__CLASS_SOURCE_PAT; - cdat->dstr_840__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_840__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_840__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_841__CLASS_SOURCE_PATTERN_CONSTANT*/ - /*_.VALTUP___V907*/ meltfptr[906] = (void*)&cdat->dtup_841__CLASS_SOURCE_PATTERN_CONSTANT; - cdat->dtup_841__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_841__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 5; - /*inimult dtup_842__CLASS_SOURCE_PATTERN_CONSTANT*/ - /*_.VALTUP___V910*/ meltfptr[909] = (void*)&cdat->dtup_842__CLASS_SOURCE_PATTERN_CONSTANT; - cdat->dtup_842__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_842__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 4; - /*iniobj dsym_843__SPAT_CONSTX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V911*/ meltfptr[910]) /*_.VALDATA___V911*/ meltfptr[910] = (void*)&cdat->dsym_843__SPAT_CONSTX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_843__SPAT_CONSTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_843__SPAT_CONSTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_843__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_843__SPAT_CONSTX.obj_hash = 943580435; - cdat->dsym_843__SPAT_CONSTX.obj_len = 3; - - /*inistring dstr_844__SPAT_CONSTX*/ - /*_.VALSTR___V912*/ meltfptr[911] = (void*)&cdat->dstr_844__SPAT_CONSTX; - cdat->dstr_844__SPAT_CONSTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_844__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_844__SPAT_CONSTX.val)-1); + /*small inistring*/ strncpy(cdat->dstr_838__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_838__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_839__CLASS_SOURCE_PATTERN_LIST*/ + /*_.VALTUP___V905*/ meltfptr[904] = (void*)&cdat->dtup_839__CLASS_SOURCE_PATTERN_LIST; + cdat->dtup_839__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_839__CLASS_SOURCE_PATTERN_LIST.nbval = 6; + /*inimult dtup_840__CLASS_SOURCE_PATTERN_LIST*/ + /*_.VALTUP___V906*/ meltfptr[905] = (void*)&cdat->dtup_840__CLASS_SOURCE_PATTERN_LIST; + cdat->dtup_840__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_840__CLASS_SOURCE_PATTERN_LIST.nbval = 4; + /*iniobj dsym_841__CLASS_SOURCE_PATTERN_OBJECT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V907*/ meltfptr[906]) /*_.VALDATA___V907*/ meltfptr[906] = (void*)&cdat->dsym_841__CLASS_SOURCE_PATTERN_OBJECT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_841__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_841__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_841__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_841__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 360759812; + cdat->dsym_841__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 3; + + /*inistring dstr_842__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V908*/ meltfptr[907] = (void*)&cdat->dstr_842__CLASS_SOURCE_PAT; + cdat->dstr_842__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_842__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_842__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:728:/ iniobj"); + /*iniobj dobj_843__CLASS_SOURCE_PATTERN_OBJECT*/ +/*_.VALDATA___V909*/ meltfptr[908] = (void*)&cdat->dobj_843__CLASS_SOURCE_PATTERN_OBJECT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_843__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_843__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_843__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_843__CLASS_SOURCE_PATTERN_OBJECT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_843__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 1068562654; + cdat->dobj_843__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; + + /*inistring dstr_844__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V910*/ meltfptr[909] = (void*)&cdat->dstr_844__CLASS_SOURCE_PAT; + cdat->dstr_844__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_844__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_844__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_845__CLASS_SOURCE_PATTERN_OBJECT*/ + /*_.VALTUP___V911*/ meltfptr[910] = (void*)&cdat->dtup_845__CLASS_SOURCE_PATTERN_OBJECT; + cdat->dtup_845__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_845__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; + /*inimult dtup_846__CLASS_SOURCE_PATTERN_OBJECT*/ + /*_.VALTUP___V916*/ meltfptr[915] = (void*)&cdat->dtup_846__CLASS_SOURCE_PATTERN_OBJECT; + cdat->dtup_846__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_846__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; + /*iniobj dsym_847__SPAT_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V917*/ meltfptr[916]) /*_.VALDATA___V917*/ meltfptr[916] = (void*)&cdat->dsym_847__SPAT_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_847__SPAT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_847__SPAT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_847__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_847__SPAT_CLASS.obj_hash = 940142683; + cdat->dsym_847__SPAT_CLASS.obj_len = 3; + + /*inistring dstr_848__SPAT_CLASS*/ + /*_.VALSTR___V918*/ meltfptr[917] = (void*)&cdat->dstr_848__SPAT_CLASS; + cdat->dstr_848__SPAT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_848__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_848__SPAT_CLASS.val)-1); /*^iniobj*/ - /*iniobj dobj_845__SPAT_CONSTX*/ -/*_.VALDATA___V908*/ meltfptr[907] = (void*)&cdat->dobj_845__SPAT_CONSTX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_845__SPAT_CONSTX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_845__SPAT_CONSTX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_845__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_845__SPAT_CONSTX.obj_num = 3; - cdat->dobj_845__SPAT_CONSTX.obj_hash = 57604144; - cdat->dobj_845__SPAT_CONSTX.obj_len = 4; - - /*inistring dstr_846__SPAT_CONSTX*/ - /*_.VALSTR___V909*/ meltfptr[908] = (void*)&cdat->dstr_846__SPAT_CONSTX; - cdat->dstr_846__SPAT_CONSTX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_846__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_846__SPAT_CONSTX.val)-1); - /*iniobj dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V913*/ meltfptr[912]) /*_.VALDATA___V913*/ meltfptr[912] = (void*)&cdat->dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; - cdat->dsym_847__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; - - /*inistring dstr_848__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V914*/ meltfptr[913] = (void*)&cdat->dstr_848__CLASS_SOURCE_PAT; - cdat->dstr_848__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_848__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_848__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:725:/ iniobj"); - /*iniobj dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT*/ -/*_.VALDATA___V915*/ meltfptr[914] = (void*)&cdat->dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 41729084; - cdat->dobj_849__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; - - /*inistring dstr_850__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V916*/ meltfptr[915] = (void*)&cdat->dstr_850__CLASS_SOURCE_PAT; - cdat->dstr_850__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_850__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_850__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_851__CLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*_.VALTUP___V917*/ meltfptr[916] = (void*)&cdat->dtup_851__CLASS_SOURCE_PATTERN_CONSTRUCT; - cdat->dtup_851__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_851__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 5; - /*inimult dtup_852__CLASS_SOURCE_PATTERN_CONSTRUCT*/ - /*_.VALTUP___V920*/ meltfptr[919] = (void*)&cdat->dtup_852__CLASS_SOURCE_PATTERN_CONSTRUCT; - cdat->dtup_852__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_852__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 4; - /*iniobj dsym_853__CTPAT_SUBPA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V921*/ meltfptr[920]) /*_.VALDATA___V921*/ meltfptr[920] = (void*)&cdat->dsym_853__CTPAT_SUBPA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_853__CTPAT_SUBPA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_853__CTPAT_SUBPA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_853__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_853__CTPAT_SUBPA.obj_hash = 81625075; - cdat->dsym_853__CTPAT_SUBPA.obj_len = 3; - - /*inistring dstr_854__CTPAT_SUBPA*/ - /*_.VALSTR___V922*/ meltfptr[921] = (void*)&cdat->dstr_854__CTPAT_SUBPA; - cdat->dstr_854__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_854__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_854__CTPAT_SUBPA.val)-1); + /*iniobj dobj_849__SPAT_CLASS*/ +/*_.VALDATA___V912*/ meltfptr[911] = (void*)&cdat->dobj_849__SPAT_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_849__SPAT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849__SPAT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_849__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_849__SPAT_CLASS.obj_num = 3; + cdat->dobj_849__SPAT_CLASS.obj_hash = 139327253; + cdat->dobj_849__SPAT_CLASS.obj_len = 4; + + /*inistring dstr_850__SPAT_CLASS*/ + /*_.VALSTR___V913*/ meltfptr[912] = (void*)&cdat->dstr_850__SPAT_CLASS; + cdat->dstr_850__SPAT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_850__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_850__SPAT_CLASS.val)-1); + /*iniobj dsym_851__SPAT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V919*/ meltfptr[918]) /*_.VALDATA___V919*/ meltfptr[918] = (void*)&cdat->dsym_851__SPAT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_851__SPAT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_851__SPAT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_851__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_851__SPAT_FIELDS.obj_hash = 875114227; + cdat->dsym_851__SPAT_FIELDS.obj_len = 3; + + /*inistring dstr_852__SPAT_FIELDS*/ + /*_.VALSTR___V920*/ meltfptr[919] = (void*)&cdat->dstr_852__SPAT_FIELDS; + cdat->dstr_852__SPAT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_852__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_852__SPAT_FIELDS.val)-1); /*^iniobj*/ - /*iniobj dobj_855__CTPAT_SUBPA*/ -/*_.VALDATA___V918*/ meltfptr[917] = (void*)&cdat->dobj_855__CTPAT_SUBPA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_855__CTPAT_SUBPA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_855__CTPAT_SUBPA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_855__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_855__CTPAT_SUBPA.obj_num = 3; - cdat->dobj_855__CTPAT_SUBPA.obj_hash = 306396457; - cdat->dobj_855__CTPAT_SUBPA.obj_len = 4; - - /*inistring dstr_856__CTPAT_SUBPA*/ - /*_.VALSTR___V919*/ meltfptr[918] = (void*)&cdat->dstr_856__CTPAT_SUBPA; - cdat->dstr_856__CTPAT_SUBPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_856__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_856__CTPAT_SUBPA.val)-1); - /*iniobj dsym_857__CLASS_SOURCE_PATTERN_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V923*/ meltfptr[922]) /*_.VALDATA___V923*/ meltfptr[922] = (void*)&cdat->dsym_857__CLASS_SOURCE_PATTERN_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_857__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_857__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_857__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_857__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 475727285; - cdat->dsym_857__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 3; + /*iniobj dobj_853__SPAT_FIELDS*/ +/*_.VALDATA___V914*/ meltfptr[913] = (void*)&cdat->dobj_853__SPAT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_853__SPAT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853__SPAT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_853__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_853__SPAT_FIELDS.obj_num = 4; + cdat->dobj_853__SPAT_FIELDS.obj_hash = 718097528; + cdat->dobj_853__SPAT_FIELDS.obj_len = 4; + + /*inistring dstr_854__SPAT_FIELDS*/ + /*_.VALSTR___V915*/ meltfptr[914] = (void*)&cdat->dstr_854__SPAT_FIELDS; + cdat->dstr_854__SPAT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_854__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_854__SPAT_FIELDS.val)-1); + /*iniobj dsym_855__CLASS_SOURCE_PATTERN_INSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V921*/ meltfptr[920]) /*_.VALDATA___V921*/ meltfptr[920] = (void*)&cdat->dsym_855__CLASS_SOURCE_PATTERN_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_855__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_855__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_855__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_855__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 835618963; + cdat->dsym_855__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 3; + + /*inistring dstr_856__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V922*/ meltfptr[921] = (void*)&cdat->dstr_856__CLASS_SOURCE_PAT; + cdat->dstr_856__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_856__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_856__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:740:/ iniobj"); + /*iniobj dobj_857__CLASS_SOURCE_PATTERN_INSTANCE*/ +/*_.VALDATA___V923*/ meltfptr[922] = (void*)&cdat->dobj_857__CLASS_SOURCE_PATTERN_INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_857__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_857__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_857__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_857__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_857__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 917034590; + cdat->dobj_857__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; /*inistring dstr_858__CLASS_SOURCE_PAT*/ /*_.VALSTR___V924*/ meltfptr[923] = (void*)&cdat->dstr_858__CLASS_SOURCE_PAT; cdat->dstr_858__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_858__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_858__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:734:/ iniobj"); - /*iniobj dobj_859__CLASS_SOURCE_PATTERN_TUPLE*/ -/*_.VALDATA___V925*/ meltfptr[924] = (void*)&cdat->dobj_859__CLASS_SOURCE_PATTERN_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_859__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_859__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_859__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_859__CLASS_SOURCE_PATTERN_TUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_859__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 599682381; - cdat->dobj_859__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; - - /*inistring dstr_860__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V926*/ meltfptr[925] = (void*)&cdat->dstr_860__CLASS_SOURCE_PAT; - cdat->dstr_860__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_860__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_860__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_861__CLASS_SOURCE_PATTERN_TUPLE*/ - /*_.VALTUP___V927*/ meltfptr[926] = (void*)&cdat->dtup_861__CLASS_SOURCE_PATTERN_TUPLE; - cdat->dtup_861__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_861__CLASS_SOURCE_PATTERN_TUPLE.nbval = 6; - /*inimult dtup_862__CLASS_SOURCE_PATTERN_TUPLE*/ - /*_.VALTUP___V928*/ meltfptr[927] = (void*)&cdat->dtup_862__CLASS_SOURCE_PATTERN_TUPLE; - cdat->dtup_862__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_862__CLASS_SOURCE_PATTERN_TUPLE.nbval = 4; - /*iniobj dsym_863__CLASS_SOURCE_PATTERN_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V929*/ meltfptr[928]) /*_.VALDATA___V929*/ meltfptr[928] = (void*)&cdat->dsym_863__CLASS_SOURCE_PATTERN_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_863__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_863__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_863__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_863__CLASS_SOURCE_PATTERN_LIST.obj_hash = 725656977; - cdat->dsym_863__CLASS_SOURCE_PATTERN_LIST.obj_len = 3; - - /*inistring dstr_864__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V930*/ meltfptr[929] = (void*)&cdat->dstr_864__CLASS_SOURCE_PAT; - cdat->dstr_864__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_864__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_864__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:741:/ iniobj"); - /*iniobj dobj_865__CLASS_SOURCE_PATTERN_LIST*/ -/*_.VALDATA___V931*/ meltfptr[930] = (void*)&cdat->dobj_865__CLASS_SOURCE_PATTERN_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_865__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_865__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_865__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_865__CLASS_SOURCE_PATTERN_LIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_865__CLASS_SOURCE_PATTERN_LIST.obj_hash = 588379377; - cdat->dobj_865__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; - - /*inistring dstr_866__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V932*/ meltfptr[931] = (void*)&cdat->dstr_866__CLASS_SOURCE_PAT; - cdat->dstr_866__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_866__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_866__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_867__CLASS_SOURCE_PATTERN_LIST*/ - /*_.VALTUP___V933*/ meltfptr[932] = (void*)&cdat->dtup_867__CLASS_SOURCE_PATTERN_LIST; - cdat->dtup_867__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_867__CLASS_SOURCE_PATTERN_LIST.nbval = 6; - /*inimult dtup_868__CLASS_SOURCE_PATTERN_LIST*/ - /*_.VALTUP___V934*/ meltfptr[933] = (void*)&cdat->dtup_868__CLASS_SOURCE_PATTERN_LIST; - cdat->dtup_868__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_868__CLASS_SOURCE_PATTERN_LIST.nbval = 4; - /*iniobj dsym_869__CLASS_SOURCE_PATTERN_OBJECT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V935*/ meltfptr[934]) /*_.VALDATA___V935*/ meltfptr[934] = (void*)&cdat->dsym_869__CLASS_SOURCE_PATTERN_OBJECT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_869__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_869__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_869__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_869__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 360759812; - cdat->dsym_869__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 3; - - /*inistring dstr_870__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V936*/ meltfptr[935] = (void*)&cdat->dstr_870__CLASS_SOURCE_PAT; - cdat->dstr_870__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_870__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_870__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:749:/ iniobj"); - /*iniobj dobj_871__CLASS_SOURCE_PATTERN_OBJECT*/ -/*_.VALDATA___V937*/ meltfptr[936] = (void*)&cdat->dobj_871__CLASS_SOURCE_PATTERN_OBJECT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_871__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_871__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_871__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_871__CLASS_SOURCE_PATTERN_OBJECT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_871__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 200112998; - cdat->dobj_871__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; - - /*inistring dstr_872__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V938*/ meltfptr[937] = (void*)&cdat->dstr_872__CLASS_SOURCE_PAT; - cdat->dstr_872__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_872__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_872__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_873__CLASS_SOURCE_PATTERN_OBJECT*/ - /*_.VALTUP___V939*/ meltfptr[938] = (void*)&cdat->dtup_873__CLASS_SOURCE_PATTERN_OBJECT; - cdat->dtup_873__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_873__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; - /*inimult dtup_874__CLASS_SOURCE_PATTERN_OBJECT*/ - /*_.VALTUP___V944*/ meltfptr[943] = (void*)&cdat->dtup_874__CLASS_SOURCE_PATTERN_OBJECT; - cdat->dtup_874__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_874__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; - /*iniobj dsym_875__SPAT_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V945*/ meltfptr[944]) /*_.VALDATA___V945*/ meltfptr[944] = (void*)&cdat->dsym_875__SPAT_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_875__SPAT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_875__SPAT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_875__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_875__SPAT_CLASS.obj_hash = 940142683; - cdat->dsym_875__SPAT_CLASS.obj_len = 3; - - /*inistring dstr_876__SPAT_CLASS*/ - /*_.VALSTR___V946*/ meltfptr[945] = (void*)&cdat->dstr_876__SPAT_CLASS; - cdat->dstr_876__SPAT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_876__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_876__SPAT_CLASS.val)-1); + /*small inistring*/ strncpy(cdat->dstr_858__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_858__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_859__CLASS_SOURCE_PATTERN_INSTANCE*/ + /*_.VALTUP___V925*/ meltfptr[924] = (void*)&cdat->dtup_859__CLASS_SOURCE_PATTERN_INSTANCE; + cdat->dtup_859__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_859__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 6; + /*inimult dtup_860__CLASS_SOURCE_PATTERN_INSTANCE*/ + /*_.VALTUP___V926*/ meltfptr[925] = (void*)&cdat->dtup_860__CLASS_SOURCE_PATTERN_INSTANCE; + cdat->dtup_860__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_860__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 5; + /*iniobj dsym_861__CLASS_SOURCE_FIELD_PATTERN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V927*/ meltfptr[926]) /*_.VALDATA___V927*/ meltfptr[926] = (void*)&cdat->dsym_861__CLASS_SOURCE_FIELD_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_861__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_861__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_861__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_861__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 311715661; + cdat->dsym_861__CLASS_SOURCE_FIELD_PATTERN.obj_len = 3; + + /*inistring dstr_862__CLASS_SOURCE_FIE*/ + /*_.VALSTR___V928*/ meltfptr[927] = (void*)&cdat->dstr_862__CLASS_SOURCE_FIE; + cdat->dstr_862__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_862__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_862__CLASS_SOURCE_FIE.val)-1); + MELT_LOCATION("warmelt-macro.melt:748:/ iniobj"); + /*iniobj dobj_863__CLASS_SOURCE_FIELD_PATTERN*/ +/*_.VALDATA___V929*/ meltfptr[928] = (void*)&cdat->dobj_863__CLASS_SOURCE_FIELD_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_863__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_863__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_863__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_863__CLASS_SOURCE_FIELD_PATTERN.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_863__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 457957668; + cdat->dobj_863__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; + + /*inistring dstr_864__CLASS_SOURCE_FIE*/ + /*_.VALSTR___V930*/ meltfptr[929] = (void*)&cdat->dstr_864__CLASS_SOURCE_FIE; + cdat->dstr_864__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_864__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_864__CLASS_SOURCE_FIE.val)-1); + /*inimult dtup_865__CLASS_SOURCE_FIELD_PATTERN*/ + /*_.VALTUP___V931*/ meltfptr[930] = (void*)&cdat->dtup_865__CLASS_SOURCE_FIELD_PATTERN; + cdat->dtup_865__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_865__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; + /*inimult dtup_866__CLASS_SOURCE_FIELD_PATTERN*/ + /*_.VALTUP___V936*/ meltfptr[935] = (void*)&cdat->dtup_866__CLASS_SOURCE_FIELD_PATTERN; + cdat->dtup_866__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_866__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; + /*iniobj dsym_867__SPAF_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V937*/ meltfptr[936]) /*_.VALDATA___V937*/ meltfptr[936] = (void*)&cdat->dsym_867__SPAF_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_867__SPAF_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_867__SPAF_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_867__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_867__SPAF_FIELD.obj_hash = 149103823; + cdat->dsym_867__SPAF_FIELD.obj_len = 3; + + /*inistring dstr_868__SPAF_FIELD*/ + /*_.VALSTR___V938*/ meltfptr[937] = (void*)&cdat->dstr_868__SPAF_FIELD; + cdat->dstr_868__SPAF_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_868__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_868__SPAF_FIELD.val)-1); /*^iniobj*/ - /*iniobj dobj_877__SPAT_CLASS*/ -/*_.VALDATA___V940*/ meltfptr[939] = (void*)&cdat->dobj_877__SPAT_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_877__SPAT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__SPAT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_877__SPAT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_877__SPAT_CLASS.obj_num = 3; - cdat->dobj_877__SPAT_CLASS.obj_hash = 673094207; - cdat->dobj_877__SPAT_CLASS.obj_len = 4; - - /*inistring dstr_878__SPAT_CLASS*/ - /*_.VALSTR___V941*/ meltfptr[940] = (void*)&cdat->dstr_878__SPAT_CLASS; - cdat->dstr_878__SPAT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_878__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_878__SPAT_CLASS.val)-1); - /*iniobj dsym_879__SPAT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V947*/ meltfptr[946]) /*_.VALDATA___V947*/ meltfptr[946] = (void*)&cdat->dsym_879__SPAT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_879__SPAT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_879__SPAT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_879__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_879__SPAT_FIELDS.obj_hash = 875114227; - cdat->dsym_879__SPAT_FIELDS.obj_len = 3; - - /*inistring dstr_880__SPAT_FIELDS*/ - /*_.VALSTR___V948*/ meltfptr[947] = (void*)&cdat->dstr_880__SPAT_FIELDS; - cdat->dstr_880__SPAT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_880__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_880__SPAT_FIELDS.val)-1); + /*iniobj dobj_869__SPAF_FIELD*/ +/*_.VALDATA___V932*/ meltfptr[931] = (void*)&cdat->dobj_869__SPAF_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_869__SPAF_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__SPAF_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_869__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_869__SPAF_FIELD.obj_num = 2; + cdat->dobj_869__SPAF_FIELD.obj_hash = 164347997; + cdat->dobj_869__SPAF_FIELD.obj_len = 4; + + /*inistring dstr_870__SPAF_FIELD*/ + /*_.VALSTR___V933*/ meltfptr[932] = (void*)&cdat->dstr_870__SPAF_FIELD; + cdat->dstr_870__SPAF_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_870__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_870__SPAF_FIELD.val)-1); + /*iniobj dsym_871__SPAF_PATTERN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V939*/ meltfptr[938]) /*_.VALDATA___V939*/ meltfptr[938] = (void*)&cdat->dsym_871__SPAF_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_871__SPAF_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_871__SPAF_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_871__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_871__SPAF_PATTERN.obj_hash = 35901231; + cdat->dsym_871__SPAF_PATTERN.obj_len = 3; + + /*inistring dstr_872__SPAF_PATTERN*/ + /*_.VALSTR___V940*/ meltfptr[939] = (void*)&cdat->dstr_872__SPAF_PATTERN; + cdat->dstr_872__SPAF_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_872__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_872__SPAF_PATTERN.val)-1); /*^iniobj*/ - /*iniobj dobj_881__SPAT_FIELDS*/ -/*_.VALDATA___V942*/ meltfptr[941] = (void*)&cdat->dobj_881__SPAT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_881__SPAT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881__SPAT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_881__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_881__SPAT_FIELDS.obj_num = 4; - cdat->dobj_881__SPAT_FIELDS.obj_hash = 447718176; - cdat->dobj_881__SPAT_FIELDS.obj_len = 4; - - /*inistring dstr_882__SPAT_FIELDS*/ - /*_.VALSTR___V943*/ meltfptr[942] = (void*)&cdat->dstr_882__SPAT_FIELDS; - cdat->dstr_882__SPAT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_882__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_882__SPAT_FIELDS.val)-1); - /*iniobj dsym_883__CLASS_SOURCE_PATTERN_INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V949*/ meltfptr[948]) /*_.VALDATA___V949*/ meltfptr[948] = (void*)&cdat->dsym_883__CLASS_SOURCE_PATTERN_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_883__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_883__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_883__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_883__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 835618963; - cdat->dsym_883__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 3; - - /*inistring dstr_884__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V950*/ meltfptr[949] = (void*)&cdat->dstr_884__CLASS_SOURCE_PAT; - cdat->dstr_884__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_884__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_884__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:761:/ iniobj"); - /*iniobj dobj_885__CLASS_SOURCE_PATTERN_INSTANCE*/ -/*_.VALDATA___V951*/ meltfptr[950] = (void*)&cdat->dobj_885__CLASS_SOURCE_PATTERN_INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_885__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_885__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_885__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_885__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_885__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 33145035; - cdat->dobj_885__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; - - /*inistring dstr_886__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V952*/ meltfptr[951] = (void*)&cdat->dstr_886__CLASS_SOURCE_PAT; - cdat->dstr_886__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_886__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_886__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_887__CLASS_SOURCE_PATTERN_INSTANCE*/ - /*_.VALTUP___V953*/ meltfptr[952] = (void*)&cdat->dtup_887__CLASS_SOURCE_PATTERN_INSTANCE; - cdat->dtup_887__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_887__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 6; - /*inimult dtup_888__CLASS_SOURCE_PATTERN_INSTANCE*/ - /*_.VALTUP___V954*/ meltfptr[953] = (void*)&cdat->dtup_888__CLASS_SOURCE_PATTERN_INSTANCE; - cdat->dtup_888__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_888__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 5; - /*iniobj dsym_889__CLASS_SOURCE_FIELD_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V955*/ meltfptr[954]) /*_.VALDATA___V955*/ meltfptr[954] = (void*)&cdat->dsym_889__CLASS_SOURCE_FIELD_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_889__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_889__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_889__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_889__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 311715661; - cdat->dsym_889__CLASS_SOURCE_FIELD_PATTERN.obj_len = 3; - - /*inistring dstr_890__CLASS_SOURCE_FIE*/ - /*_.VALSTR___V956*/ meltfptr[955] = (void*)&cdat->dstr_890__CLASS_SOURCE_FIE; - cdat->dstr_890__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_890__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_890__CLASS_SOURCE_FIE.val)-1); - MELT_LOCATION("warmelt-macro.melt:769:/ iniobj"); - /*iniobj dobj_891__CLASS_SOURCE_FIELD_PATTERN*/ -/*_.VALDATA___V957*/ meltfptr[956] = (void*)&cdat->dobj_891__CLASS_SOURCE_FIELD_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_891__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_891__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_891__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_891__CLASS_SOURCE_FIELD_PATTERN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_891__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 988727934; - cdat->dobj_891__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; - - /*inistring dstr_892__CLASS_SOURCE_FIE*/ - /*_.VALSTR___V958*/ meltfptr[957] = (void*)&cdat->dstr_892__CLASS_SOURCE_FIE; - cdat->dstr_892__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_892__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_892__CLASS_SOURCE_FIE.val)-1); - /*inimult dtup_893__CLASS_SOURCE_FIELD_PATTERN*/ - /*_.VALTUP___V959*/ meltfptr[958] = (void*)&cdat->dtup_893__CLASS_SOURCE_FIELD_PATTERN; - cdat->dtup_893__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_893__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; - /*inimult dtup_894__CLASS_SOURCE_FIELD_PATTERN*/ - /*_.VALTUP___V964*/ meltfptr[963] = (void*)&cdat->dtup_894__CLASS_SOURCE_FIELD_PATTERN; - cdat->dtup_894__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_894__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; - /*iniobj dsym_895__SPAF_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V965*/ meltfptr[964]) /*_.VALDATA___V965*/ meltfptr[964] = (void*)&cdat->dsym_895__SPAF_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_895__SPAF_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_895__SPAF_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_895__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_895__SPAF_FIELD.obj_hash = 149103823; - cdat->dsym_895__SPAF_FIELD.obj_len = 3; - - /*inistring dstr_896__SPAF_FIELD*/ - /*_.VALSTR___V966*/ meltfptr[965] = (void*)&cdat->dstr_896__SPAF_FIELD; - cdat->dstr_896__SPAF_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_896__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_896__SPAF_FIELD.val)-1); + /*iniobj dobj_873__SPAF_PATTERN*/ +/*_.VALDATA___V934*/ meltfptr[933] = (void*)&cdat->dobj_873__SPAF_PATTERN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_873__SPAF_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_873__SPAF_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_873__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_873__SPAF_PATTERN.obj_num = 3; + cdat->dobj_873__SPAF_PATTERN.obj_hash = 476901278; + cdat->dobj_873__SPAF_PATTERN.obj_len = 4; + + /*inistring dstr_874__SPAF_PATTERN*/ + /*_.VALSTR___V935*/ meltfptr[934] = (void*)&cdat->dstr_874__SPAF_PATTERN; + cdat->dstr_874__SPAF_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_874__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_874__SPAF_PATTERN.val)-1); + /*iniobj dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V941*/ meltfptr[940]) /*_.VALDATA___V941*/ meltfptr[940] = (void*)&cdat->dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 479810309; + cdat->dsym_875__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 3; + + /*inistring dstr_876__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V942*/ meltfptr[941] = (void*)&cdat->dstr_876__CLASS_SOURCE_PAT; + cdat->dstr_876__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_876__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_876__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:759:/ iniobj"); + /*iniobj dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE*/ +/*_.VALDATA___V943*/ meltfptr[942] = (void*)&cdat->dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 526380299; + cdat->dobj_877__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; + + /*inistring dstr_878__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V944*/ meltfptr[943] = (void*)&cdat->dstr_878__CLASS_SOURCE_PAT; + cdat->dstr_878__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_878__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_878__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_879__CLASS_SOURCE_PATTERN_COMPOSITE*/ + /*_.VALTUP___V945*/ meltfptr[944] = (void*)&cdat->dtup_879__CLASS_SOURCE_PATTERN_COMPOSITE; + cdat->dtup_879__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_879__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 6; + /*inimult dtup_880__CLASS_SOURCE_PATTERN_COMPOSITE*/ + /*_.VALTUP___V954*/ meltfptr[953] = (void*)&cdat->dtup_880__CLASS_SOURCE_PATTERN_COMPOSITE; + cdat->dtup_880__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_880__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 9; + /*iniobj dsym_881__SPAC_OPERATOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V955*/ meltfptr[954]) /*_.VALDATA___V955*/ meltfptr[954] = (void*)&cdat->dsym_881__SPAC_OPERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_881__SPAC_OPERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_881__SPAC_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_881__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_881__SPAC_OPERATOR.obj_hash = 46865939; + cdat->dsym_881__SPAC_OPERATOR.obj_len = 3; + + /*inistring dstr_882__SPAC_OPERATOR*/ + /*_.VALSTR___V956*/ meltfptr[955] = (void*)&cdat->dstr_882__SPAC_OPERATOR; + cdat->dstr_882__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_882__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_882__SPAC_OPERATOR.val)-1); /*^iniobj*/ - /*iniobj dobj_897__SPAF_FIELD*/ -/*_.VALDATA___V960*/ meltfptr[959] = (void*)&cdat->dobj_897__SPAF_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_897__SPAF_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_897__SPAF_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_897__SPAF_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_897__SPAF_FIELD.obj_num = 2; - cdat->dobj_897__SPAF_FIELD.obj_hash = 217539647; - cdat->dobj_897__SPAF_FIELD.obj_len = 4; - - /*inistring dstr_898__SPAF_FIELD*/ - /*_.VALSTR___V961*/ meltfptr[960] = (void*)&cdat->dstr_898__SPAF_FIELD; - cdat->dstr_898__SPAF_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_898__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_898__SPAF_FIELD.val)-1); - /*iniobj dsym_899__SPAF_PATTERN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V967*/ meltfptr[966]) /*_.VALDATA___V967*/ meltfptr[966] = (void*)&cdat->dsym_899__SPAF_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_899__SPAF_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_899__SPAF_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_899__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_899__SPAF_PATTERN.obj_hash = 35901231; - cdat->dsym_899__SPAF_PATTERN.obj_len = 3; - - /*inistring dstr_900__SPAF_PATTERN*/ - /*_.VALSTR___V968*/ meltfptr[967] = (void*)&cdat->dstr_900__SPAF_PATTERN; - cdat->dstr_900__SPAF_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_900__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_900__SPAF_PATTERN.val)-1); + /*iniobj dobj_883__SPAC_OPERATOR*/ +/*_.VALDATA___V946*/ meltfptr[945] = (void*)&cdat->dobj_883__SPAC_OPERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_883__SPAC_OPERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_883__SPAC_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_883__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_883__SPAC_OPERATOR.obj_num = 5; + cdat->dobj_883__SPAC_OPERATOR.obj_hash = 732986536; + cdat->dobj_883__SPAC_OPERATOR.obj_len = 4; + + /*inistring dstr_884__SPAC_OPERATOR*/ + /*_.VALSTR___V947*/ meltfptr[946] = (void*)&cdat->dstr_884__SPAC_OPERATOR; + cdat->dstr_884__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_884__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_884__SPAC_OPERATOR.val)-1); + /*iniobj dsym_885__SPAC_OPERBIND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V957*/ meltfptr[956]) /*_.VALDATA___V957*/ meltfptr[956] = (void*)&cdat->dsym_885__SPAC_OPERBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_885__SPAC_OPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_885__SPAC_OPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_885__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_885__SPAC_OPERBIND.obj_hash = 465916132; + cdat->dsym_885__SPAC_OPERBIND.obj_len = 3; + + /*inistring dstr_886__SPAC_OPERBIND*/ + /*_.VALSTR___V958*/ meltfptr[957] = (void*)&cdat->dstr_886__SPAC_OPERBIND; + cdat->dstr_886__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_886__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_886__SPAC_OPERBIND.val)-1); /*^iniobj*/ - /*iniobj dobj_901__SPAF_PATTERN*/ -/*_.VALDATA___V962*/ meltfptr[961] = (void*)&cdat->dobj_901__SPAF_PATTERN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_901__SPAF_PATTERN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_901__SPAF_PATTERN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_901__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_901__SPAF_PATTERN.obj_num = 3; - cdat->dobj_901__SPAF_PATTERN.obj_hash = 1053077899; - cdat->dobj_901__SPAF_PATTERN.obj_len = 4; - - /*inistring dstr_902__SPAF_PATTERN*/ - /*_.VALSTR___V963*/ meltfptr[962] = (void*)&cdat->dstr_902__SPAF_PATTERN; - cdat->dstr_902__SPAF_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_902__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_902__SPAF_PATTERN.val)-1); - /*iniobj dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V969*/ meltfptr[968]) /*_.VALDATA___V969*/ meltfptr[968] = (void*)&cdat->dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 479810309; - cdat->dsym_903__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 3; + /*iniobj dobj_887__SPAC_OPERBIND*/ +/*_.VALDATA___V948*/ meltfptr[947] = (void*)&cdat->dobj_887__SPAC_OPERBIND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_887__SPAC_OPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_887__SPAC_OPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_887__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_887__SPAC_OPERBIND.obj_num = 6; + cdat->dobj_887__SPAC_OPERBIND.obj_hash = 398764171; + cdat->dobj_887__SPAC_OPERBIND.obj_len = 4; + + /*inistring dstr_888__SPAC_OPERBIND*/ + /*_.VALSTR___V949*/ meltfptr[948] = (void*)&cdat->dstr_888__SPAC_OPERBIND; + cdat->dstr_888__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_888__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_888__SPAC_OPERBIND.val)-1); + /*iniobj dsym_889__SPAC_INARGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V959*/ meltfptr[958]) /*_.VALDATA___V959*/ meltfptr[958] = (void*)&cdat->dsym_889__SPAC_INARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_889__SPAC_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_889__SPAC_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_889__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_889__SPAC_INARGS.obj_hash = 641829338; + cdat->dsym_889__SPAC_INARGS.obj_len = 3; + + /*inistring dstr_890__SPAC_INARGS*/ + /*_.VALSTR___V960*/ meltfptr[959] = (void*)&cdat->dstr_890__SPAC_INARGS; + cdat->dstr_890__SPAC_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_890__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_890__SPAC_INARGS.val)-1); + /*^iniobj*/ + /*iniobj dobj_891__SPAC_INARGS*/ +/*_.VALDATA___V950*/ meltfptr[949] = (void*)&cdat->dobj_891__SPAC_INARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_891__SPAC_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_891__SPAC_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_891__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_891__SPAC_INARGS.obj_num = 7; + cdat->dobj_891__SPAC_INARGS.obj_hash = 445531132; + cdat->dobj_891__SPAC_INARGS.obj_len = 4; + + /*inistring dstr_892__SPAC_INARGS*/ + /*_.VALSTR___V951*/ meltfptr[950] = (void*)&cdat->dstr_892__SPAC_INARGS; + cdat->dstr_892__SPAC_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_892__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_892__SPAC_INARGS.val)-1); + /*iniobj dsym_893__SPAC_OUTARGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V961*/ meltfptr[960]) /*_.VALDATA___V961*/ meltfptr[960] = (void*)&cdat->dsym_893__SPAC_OUTARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_893__SPAC_OUTARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_893__SPAC_OUTARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_893__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_893__SPAC_OUTARGS.obj_hash = 486574494; + cdat->dsym_893__SPAC_OUTARGS.obj_len = 3; + + /*inistring dstr_894__SPAC_OUTARGS*/ + /*_.VALSTR___V962*/ meltfptr[961] = (void*)&cdat->dstr_894__SPAC_OUTARGS; + cdat->dstr_894__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_894__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_894__SPAC_OUTARGS.val)-1); + /*^iniobj*/ + /*iniobj dobj_895__SPAC_OUTARGS*/ +/*_.VALDATA___V952*/ meltfptr[951] = (void*)&cdat->dobj_895__SPAC_OUTARGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_895__SPAC_OUTARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_895__SPAC_OUTARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_895__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_895__SPAC_OUTARGS.obj_num = 8; + cdat->dobj_895__SPAC_OUTARGS.obj_hash = 722032881; + cdat->dobj_895__SPAC_OUTARGS.obj_len = 4; + + /*inistring dstr_896__SPAC_OUTARGS*/ + /*_.VALSTR___V953*/ meltfptr[952] = (void*)&cdat->dstr_896__SPAC_OUTARGS; + cdat->dstr_896__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_896__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_896__SPAC_OUTARGS.val)-1); + /*iniobj dsym_897__CLASS_SOURCE_PATTERN_MATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V963*/ meltfptr[962]) /*_.VALDATA___V963*/ meltfptr[962] = (void*)&cdat->dsym_897__CLASS_SOURCE_PATTERN_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_897__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_897__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_897__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_897__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 190682059; + cdat->dsym_897__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 3; + + /*inistring dstr_898__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V964*/ meltfptr[963] = (void*)&cdat->dstr_898__CLASS_SOURCE_PAT; + cdat->dstr_898__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_898__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_898__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:776:/ iniobj"); + /*iniobj dobj_899__CLASS_SOURCE_PATTERN_MATCHER*/ +/*_.VALDATA___V965*/ meltfptr[964] = (void*)&cdat->dobj_899__CLASS_SOURCE_PATTERN_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_899__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_899__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_899__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_899__CLASS_SOURCE_PATTERN_MATCHER.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_899__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 959799167; + cdat->dobj_899__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; + + /*inistring dstr_900__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V966*/ meltfptr[965] = (void*)&cdat->dstr_900__CLASS_SOURCE_PAT; + cdat->dstr_900__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_900__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_900__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_901__CLASS_SOURCE_PATTERN_MATCHER*/ + /*_.VALTUP___V967*/ meltfptr[966] = (void*)&cdat->dtup_901__CLASS_SOURCE_PATTERN_MATCHER; + cdat->dtup_901__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_901__CLASS_SOURCE_PATTERN_MATCHER.nbval = 7; + /*inimult dtup_902__CLASS_SOURCE_PATTERN_MATCHER*/ + /*_.VALTUP___V968*/ meltfptr[967] = (void*)&cdat->dtup_902__CLASS_SOURCE_PATTERN_MATCHER; + cdat->dtup_902__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_902__CLASS_SOURCE_PATTERN_MATCHER.nbval = 9; + /*iniobj dsym_903__CLASS_SOURCE_PATTERN_C_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V969*/ meltfptr[968]) /*_.VALDATA___V969*/ meltfptr[968] = (void*)&cdat->dsym_903__CLASS_SOURCE_PATTERN_C_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_903__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_903__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_903__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_903__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 1062480739; + cdat->dsym_903__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 3; /*inistring dstr_904__CLASS_SOURCE_PAT*/ /*_.VALSTR___V970*/ meltfptr[969] = (void*)&cdat->dstr_904__CLASS_SOURCE_PAT; cdat->dstr_904__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_904__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_904__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:780:/ iniobj"); - /*iniobj dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE*/ -/*_.VALDATA___V971*/ meltfptr[970] = (void*)&cdat->dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 677254414; - cdat->dobj_905__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; + /*small inistring*/ strncpy(cdat->dstr_904__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_904__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:782:/ iniobj"); + /*iniobj dobj_905__CLASS_SOURCE_PATTERN_C_MATCH*/ +/*_.VALDATA___V971*/ meltfptr[970] = (void*)&cdat->dobj_905__CLASS_SOURCE_PATTERN_C_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_905__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_905__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_905__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_905__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_905__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 438607234; + cdat->dobj_905__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; /*inistring dstr_906__CLASS_SOURCE_PAT*/ /*_.VALSTR___V972*/ meltfptr[971] = (void*)&cdat->dstr_906__CLASS_SOURCE_PAT; cdat->dstr_906__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_906__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_906__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_907__CLASS_SOURCE_PATTERN_COMPOSITE*/ - /*_.VALTUP___V973*/ meltfptr[972] = (void*)&cdat->dtup_907__CLASS_SOURCE_PATTERN_COMPOSITE; - cdat->dtup_907__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_907__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 6; - /*inimult dtup_908__CLASS_SOURCE_PATTERN_COMPOSITE*/ - /*_.VALTUP___V982*/ meltfptr[981] = (void*)&cdat->dtup_908__CLASS_SOURCE_PATTERN_COMPOSITE; - cdat->dtup_908__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_908__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 9; - /*iniobj dsym_909__SPAC_OPERATOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V983*/ meltfptr[982]) /*_.VALDATA___V983*/ meltfptr[982] = (void*)&cdat->dsym_909__SPAC_OPERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_909__SPAC_OPERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_909__SPAC_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_909__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_909__SPAC_OPERATOR.obj_hash = 46865939; - cdat->dsym_909__SPAC_OPERATOR.obj_len = 3; - - /*inistring dstr_910__SPAC_OPERATOR*/ - /*_.VALSTR___V984*/ meltfptr[983] = (void*)&cdat->dstr_910__SPAC_OPERATOR; - cdat->dstr_910__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_910__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_910__SPAC_OPERATOR.val)-1); - /*^iniobj*/ - /*iniobj dobj_911__SPAC_OPERATOR*/ -/*_.VALDATA___V974*/ meltfptr[973] = (void*)&cdat->dobj_911__SPAC_OPERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_911__SPAC_OPERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_911__SPAC_OPERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_911__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_911__SPAC_OPERATOR.obj_num = 5; - cdat->dobj_911__SPAC_OPERATOR.obj_hash = 1036789498; - cdat->dobj_911__SPAC_OPERATOR.obj_len = 4; - - /*inistring dstr_912__SPAC_OPERATOR*/ - /*_.VALSTR___V975*/ meltfptr[974] = (void*)&cdat->dstr_912__SPAC_OPERATOR; - cdat->dstr_912__SPAC_OPERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_912__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_912__SPAC_OPERATOR.val)-1); - /*iniobj dsym_913__SPAC_OPERBIND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V985*/ meltfptr[984]) /*_.VALDATA___V985*/ meltfptr[984] = (void*)&cdat->dsym_913__SPAC_OPERBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_913__SPAC_OPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_913__SPAC_OPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_913__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_913__SPAC_OPERBIND.obj_hash = 465916132; - cdat->dsym_913__SPAC_OPERBIND.obj_len = 3; - - /*inistring dstr_914__SPAC_OPERBIND*/ - /*_.VALSTR___V986*/ meltfptr[985] = (void*)&cdat->dstr_914__SPAC_OPERBIND; - cdat->dstr_914__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_914__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_914__SPAC_OPERBIND.val)-1); - /*^iniobj*/ - /*iniobj dobj_915__SPAC_OPERBIND*/ -/*_.VALDATA___V976*/ meltfptr[975] = (void*)&cdat->dobj_915__SPAC_OPERBIND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_915__SPAC_OPERBIND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_915__SPAC_OPERBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_915__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_915__SPAC_OPERBIND.obj_num = 6; - cdat->dobj_915__SPAC_OPERBIND.obj_hash = 816921583; - cdat->dobj_915__SPAC_OPERBIND.obj_len = 4; - - /*inistring dstr_916__SPAC_OPERBIND*/ - /*_.VALSTR___V977*/ meltfptr[976] = (void*)&cdat->dstr_916__SPAC_OPERBIND; - cdat->dstr_916__SPAC_OPERBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_916__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_916__SPAC_OPERBIND.val)-1); - /*iniobj dsym_917__SPAC_INARGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V987*/ meltfptr[986]) /*_.VALDATA___V987*/ meltfptr[986] = (void*)&cdat->dsym_917__SPAC_INARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_917__SPAC_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_917__SPAC_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_917__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_917__SPAC_INARGS.obj_hash = 641829338; - cdat->dsym_917__SPAC_INARGS.obj_len = 3; - - /*inistring dstr_918__SPAC_INARGS*/ - /*_.VALSTR___V988*/ meltfptr[987] = (void*)&cdat->dstr_918__SPAC_INARGS; - cdat->dstr_918__SPAC_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_918__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_918__SPAC_INARGS.val)-1); + /*small inistring*/ strncpy(cdat->dstr_906__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_906__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_907__CLASS_SOURCE_PATTERN_C_MATCH*/ + /*_.VALTUP___V973*/ meltfptr[972] = (void*)&cdat->dtup_907__CLASS_SOURCE_PATTERN_C_MATCH; + cdat->dtup_907__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_907__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 8; + /*inimult dtup_908__CLASS_SOURCE_PATTERN_C_MATCH*/ + /*_.VALTUP___V974*/ meltfptr[973] = (void*)&cdat->dtup_908__CLASS_SOURCE_PATTERN_C_MATCH; + cdat->dtup_908__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_908__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 9; + /*iniobj dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V975*/ meltfptr[974]) /*_.VALDATA___V975*/ meltfptr[974] = (void*)&cdat->dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 351628715; + cdat->dsym_909__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 3; + + /*inistring dstr_910__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V976*/ meltfptr[975] = (void*)&cdat->dstr_910__CLASS_SOURCE_PAT; + cdat->dstr_910__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_910__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_910__CLASS_SOURCE_PAT.val)-1); + MELT_LOCATION("warmelt-macro.melt:788:/ iniobj"); + /*iniobj dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH*/ +/*_.VALDATA___V977*/ meltfptr[976] = (void*)&cdat->dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 299076010; + cdat->dobj_911__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; + + /*inistring dstr_912__CLASS_SOURCE_PAT*/ + /*_.VALSTR___V978*/ meltfptr[977] = (void*)&cdat->dstr_912__CLASS_SOURCE_PAT; + cdat->dstr_912__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_912__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_912__CLASS_SOURCE_PAT.val)-1); + /*inimult dtup_913__CLASS_SOURCE_PATTERN_FUN_MATCH*/ + /*_.VALTUP___V979*/ meltfptr[978] = (void*)&cdat->dtup_913__CLASS_SOURCE_PATTERN_FUN_MATCH; + cdat->dtup_913__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_913__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 8; + /*inimult dtup_914__CLASS_SOURCE_PATTERN_FUN_MATCH*/ + /*_.VALTUP___V980*/ meltfptr[979] = (void*)&cdat->dtup_914__CLASS_SOURCE_PATTERN_FUN_MATCH; + cdat->dtup_914__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_914__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 9; + /*inirout drout_915__EXPAND_RESTLIST_AS_LIST*/ + /*_.VALROUT___V981*/ meltfptr[980] = (void*)&cdat->drout_915__EXPAND_RESTLIST_AS_LIST; + cdat->drout_915__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_915__EXPAND_RESTLIST_AS_LIST.routdescr, "EXPAND_RESTLIST_AS_LIST @warmelt-macro.melt:799", MELT_ROUTDESCR_LEN - 1); + cdat->drout_915__EXPAND_RESTLIST_AS_LIST.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_915__EXPAND_RESTLIST_AS_LIST, meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST); + + /*iniclos dclo_916__EXPAND_RESTLIST_AS_LIST*/ + /*_.VALCLO___V996*/ meltfptr[995] = (void*)&cdat->dclo_916__EXPAND_RESTLIST_AS_LIST; + cdat->dclo_916__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_916__EXPAND_RESTLIST_AS_LIST.nbval = 0; + + /*iniobj dsym_917__CLASS_ENVIRONMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1010*/ meltfptr[1009]) /*_.VALDATA___V1010*/ meltfptr[1009] = (void*)&cdat->dsym_917__CLASS_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_917__CLASS_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_917__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_917__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_917__CLASS_ENVIRONMENT.obj_hash = 59212821; + cdat->dsym_917__CLASS_ENVIRONMENT.obj_len = 3; + + /*inistring dstr_918__CLASS_ENVIRONMEN*/ + /*_.VALSTR___V1011*/ meltfptr[1010] = (void*)&cdat->dstr_918__CLASS_ENVIRONMEN; + cdat->dstr_918__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_918__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_918__CLASS_ENVIRONMEN.val)-1); + /*inirout drout_919__EXPAND_RESTLIST_AS_TUPLE*/ + /*_.VALROUT___V995*/ meltfptr[994] = (void*)&cdat->drout_919__EXPAND_RESTLIST_AS_TUPLE; + cdat->drout_919__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_919__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.melt:842", MELT_ROUTDESCR_LEN - 1); + cdat->drout_919__EXPAND_RESTLIST_AS_TUPLE.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_919__EXPAND_RESTLIST_AS_TUPLE, meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE); + + /*iniclos dclo_920__EXPAND_RESTLIST_AS_TUPLE*/ + /*_.VALCLO___V994*/ meltfptr[993] = (void*)&cdat->dclo_920__EXPAND_RESTLIST_AS_TUPLE; + cdat->dclo_920__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_920__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; + + /*iniobj dsym_921__LIST_TO_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1012*/ meltfptr[1011]) /*_.VALDATA___V1012*/ meltfptr[1011] = (void*)&cdat->dsym_921__LIST_TO_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_921__LIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_921__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_921__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_921__LIST_TO_MULTIPLE.obj_hash = 987171205; + cdat->dsym_921__LIST_TO_MULTIPLE.obj_len = 3; + + /*inistring dstr_922__LIST_TO_MULTIPLE*/ + /*_.VALSTR___V1013*/ meltfptr[1012] = (void*)&cdat->dstr_922__LIST_TO_MULTIPLE; + cdat->dstr_922__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_922__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_922__LIST_TO_MULTIPLE.val)-1); + /*iniobj dsym_923__DISCR_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1014*/ meltfptr[1013]) /*_.VALDATA___V1014*/ meltfptr[1013] = (void*)&cdat->dsym_923__DISCR_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_923__DISCR_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_923__DISCR_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_923__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_923__DISCR_MULTIPLE.obj_hash = 91864583; + cdat->dsym_923__DISCR_MULTIPLE.obj_len = 3; + + /*inistring dstr_924__DISCR_MULTIPLE*/ + /*_.VALSTR___V1015*/ meltfptr[1014] = (void*)&cdat->dstr_924__DISCR_MULTIPLE; + cdat->dstr_924__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_924__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_924__DISCR_MULTIPLE.val)-1); + /*inirout drout_925__EXPAND_PAIRLIST_AS_LIST*/ + /*_.VALROUT___V991*/ meltfptr[990] = (void*)&cdat->drout_925__EXPAND_PAIRLIST_AS_LIST; + cdat->drout_925__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_925__EXPAND_PAIRLIST_AS_LIST.routdescr, "EXPAND_PAIRLIST_AS_LIST @warmelt-macro.melt:853", MELT_ROUTDESCR_LEN - 1); + cdat->drout_925__EXPAND_PAIRLIST_AS_LIST.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_925__EXPAND_PAIRLIST_AS_LIST, meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST); + + /*iniclos dclo_926__EXPAND_PAIRLIST_AS_LIST*/ + /*_.VALCLO___V990*/ meltfptr[989] = (void*)&cdat->dclo_926__EXPAND_PAIRLIST_AS_LIST; + cdat->dclo_926__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_926__EXPAND_PAIRLIST_AS_LIST.nbval = 0; + + /*inirout drout_927__EXPAND_PAIRLIST_AS_TUPLE*/ + /*_.VALROUT___V989*/ meltfptr[988] = (void*)&cdat->drout_927__EXPAND_PAIRLIST_AS_TUPLE; + cdat->drout_927__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_927__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:891", MELT_ROUTDESCR_LEN - 1); + cdat->drout_927__EXPAND_PAIRLIST_AS_TUPLE.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_927__EXPAND_PAIRLIST_AS_TUPLE, meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE); + + /*iniclos dclo_928__EXPAND_PAIRLIST_AS_TUPLE*/ + /*_.VALCLO___V988*/ meltfptr[987] = (void*)&cdat->dclo_928__EXPAND_PAIRLIST_AS_TUPLE; + cdat->dclo_928__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_928__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; + + /*inirout drout_929__EXPAND_APPLY*/ + /*_.VALROUT___V1008*/ meltfptr[1007] = (void*)&cdat->drout_929__EXPAND_APPLY; + cdat->drout_929__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_929__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.melt:900", MELT_ROUTDESCR_LEN - 1); + cdat->drout_929__EXPAND_APPLY.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_929__EXPAND_APPLY, meltrout_5_warmelt_macro_EXPAND_APPLY); + + /*iniclos dclo_930__EXPAND_APPLY*/ + /*_.VALCLO___V1007*/ meltfptr[1006] = (void*)&cdat->dclo_930__EXPAND_APPLY; + cdat->dclo_930__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_930__EXPAND_APPLY.nbval = 0; + + /*iniobj dsym_931__CLASS_SEXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1016*/ meltfptr[1015]) /*_.VALDATA___V1016*/ meltfptr[1015] = (void*)&cdat->dsym_931__CLASS_SEXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_931__CLASS_SEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_931__CLASS_SEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_931__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_931__CLASS_SEXPR.obj_hash = 53411612; + cdat->dsym_931__CLASS_SEXPR.obj_len = 3; + + /*inistring dstr_932__CLASS_SEXPR*/ + /*_.VALSTR___V1017*/ meltfptr[1016] = (void*)&cdat->dstr_932__CLASS_SEXPR; + cdat->dstr_932__CLASS_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_932__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (cdat->dstr_932__CLASS_SEXPR.val)-1); + /*inirout drout_933__EXPAND_MSEND*/ + /*_.VALROUT___V987*/ meltfptr[986] = (void*)&cdat->drout_933__EXPAND_MSEND; + cdat->drout_933__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_933__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.melt:919", MELT_ROUTDESCR_LEN - 1); + cdat->drout_933__EXPAND_MSEND.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_933__EXPAND_MSEND, meltrout_6_warmelt_macro_EXPAND_MSEND); + + /*iniclos dclo_934__EXPAND_MSEND*/ + /*_.VALCLO___V986*/ meltfptr[985] = (void*)&cdat->dclo_934__EXPAND_MSEND; + cdat->dclo_934__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_934__EXPAND_MSEND.nbval = 0; + + /*iniobj dsym_935__CLASS_SYMBOL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1018*/ meltfptr[1017]) /*_.VALDATA___V1018*/ meltfptr[1017] = (void*)&cdat->dsym_935__CLASS_SYMBOL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_935__CLASS_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_935__CLASS_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_935__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_935__CLASS_SYMBOL.obj_hash = 53524182; + cdat->dsym_935__CLASS_SYMBOL.obj_len = 3; + + /*inistring dstr_936__CLASS_SYMBOL*/ + /*_.VALSTR___V1019*/ meltfptr[1018] = (void*)&cdat->dstr_936__CLASS_SYMBOL; + cdat->dstr_936__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_936__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_936__CLASS_SYMBOL.val)-1); + /*iniobj dsym_937__DEBUG_MSG_FUN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1020*/ meltfptr[1019]) /*_.VALDATA___V1020*/ meltfptr[1019] = (void*)&cdat->dsym_937__DEBUG_MSG_FUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_937__DEBUG_MSG_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_937__DEBUG_MSG_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_937__DEBUG_MSG_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_937__DEBUG_MSG_FUN.obj_hash = 938829072; + cdat->dsym_937__DEBUG_MSG_FUN.obj_len = 3; + + /*inistring dstr_938__DEBUG_MSG_FUN*/ + /*_.VALSTR___V1021*/ meltfptr[1020] = (void*)&cdat->dstr_938__DEBUG_MSG_FUN; + cdat->dstr_938__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_938__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof (cdat->dstr_938__DEBUG_MSG_FUN.val)-1); + /*inirout drout_939__EXPAND_FIELDEXPR*/ + /*_.VALROUT___V1006*/ meltfptr[1005] = (void*)&cdat->drout_939__EXPAND_FIELDEXPR; + cdat->drout_939__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_939__EXPAND_FIELDEXPR.routdescr, "EXPAND_FIELDEXPR @warmelt-macro.melt:949", MELT_ROUTDESCR_LEN - 1); + cdat->drout_939__EXPAND_FIELDEXPR.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_939__EXPAND_FIELDEXPR, meltrout_7_warmelt_macro_EXPAND_FIELDEXPR); + + /*iniclos dclo_940__EXPAND_FIELDEXPR*/ + /*_.VALCLO___V1005*/ meltfptr[1004] = (void*)&cdat->dclo_940__EXPAND_FIELDEXPR; + cdat->dclo_940__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_940__EXPAND_FIELDEXPR.nbval = 0; + + /*iniobj dsym_941__CLASS_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1022*/ meltfptr[1021]) /*_.VALDATA___V1022*/ meltfptr[1021] = (void*)&cdat->dsym_941__CLASS_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_941__CLASS_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_941__CLASS_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_941__CLASS_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_941__CLASS_FIELD.obj_hash = 523073; + cdat->dsym_941__CLASS_FIELD.obj_len = 3; + + /*inistring dstr_942__CLASS_FIELD*/ + /*_.VALSTR___V1023*/ meltfptr[1022] = (void*)&cdat->dstr_942__CLASS_FIELD; + cdat->dstr_942__CLASS_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_942__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_942__CLASS_FIELD.val)-1); + /*iniobj dsym_943__CLASS_KEYWORD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1024*/ meltfptr[1023]) /*_.VALDATA___V1024*/ meltfptr[1023] = (void*)&cdat->dsym_943__CLASS_KEYWORD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_943__CLASS_KEYWORD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_943__CLASS_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_943__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_943__CLASS_KEYWORD.obj_hash = 14992133; + cdat->dsym_943__CLASS_KEYWORD.obj_len = 3; + + /*inistring dstr_944__CLASS_KEYWORD*/ + /*_.VALSTR___V1025*/ meltfptr[1024] = (void*)&cdat->dstr_944__CLASS_KEYWORD; + cdat->dstr_944__CLASS_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_944__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (cdat->dstr_944__CLASS_KEYWORD.val)-1); + /*iniobj dsym_945__CLASS_NAMED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1026*/ meltfptr[1025]) /*_.VALDATA___V1026*/ meltfptr[1025] = (void*)&cdat->dsym_945__CLASS_NAMED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_945__CLASS_NAMED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_945__CLASS_NAMED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_945__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_945__CLASS_NAMED.obj_hash = 60407004; + cdat->dsym_945__CLASS_NAMED.obj_len = 3; + + /*inistring dstr_946__CLASS_NAMED*/ + /*_.VALSTR___V1027*/ meltfptr[1026] = (void*)&cdat->dstr_946__CLASS_NAMED; + cdat->dstr_946__CLASS_NAMED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_946__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_946__CLASS_NAMED.val)-1); + /*inirout drout_947__EXPAND_CITERATION*/ + /*_.VALROUT___V998*/ meltfptr[997] = (void*)&cdat->drout_947__EXPAND_CITERATION; + cdat->drout_947__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_947__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.melt:1006", MELT_ROUTDESCR_LEN - 1); + cdat->drout_947__EXPAND_CITERATION.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_947__EXPAND_CITERATION, meltrout_8_warmelt_macro_EXPAND_CITERATION); + + /*iniclos dclo_948__EXPAND_CITERATION*/ + /*_.VALCLO___V997*/ meltfptr[996] = (void*)&cdat->dclo_948__EXPAND_CITERATION; + cdat->dclo_948__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_948__EXPAND_CITERATION.nbval = 0; + + /*iniobj dsym_949__CLASS_CITERATOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1028*/ meltfptr[1027]) /*_.VALDATA___V1028*/ meltfptr[1027] = (void*)&cdat->dsym_949__CLASS_CITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_949__CLASS_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_949__CLASS_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_949__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_949__CLASS_CITERATOR.obj_hash = 650290054; + cdat->dsym_949__CLASS_CITERATOR.obj_len = 3; + + /*inistring dstr_950__CLASS_CITERATOR*/ + /*_.VALSTR___V1029*/ meltfptr[1028] = (void*)&cdat->dstr_950__CLASS_CITERATOR; + cdat->dstr_950__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_950__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (cdat->dstr_950__CLASS_CITERATOR.val)-1); + /*inirout drout_951__EXPAND_CMATCHEXPR*/ + /*_.VALROUT___V1002*/ meltfptr[1001] = (void*)&cdat->drout_951__EXPAND_CMATCHEXPR; + cdat->drout_951__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_951__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1065", MELT_ROUTDESCR_LEN - 1); + cdat->drout_951__EXPAND_CMATCHEXPR.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_951__EXPAND_CMATCHEXPR, meltrout_9_warmelt_macro_EXPAND_CMATCHEXPR); + + /*iniclos dclo_952__EXPAND_CMATCHEXPR*/ + /*_.VALCLO___V1001*/ meltfptr[1000] = (void*)&cdat->dclo_952__EXPAND_CMATCHEXPR; + cdat->dclo_952__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_952__EXPAND_CMATCHEXPR.nbval = 0; + + /*iniobj dsym_953__CLASS_CMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1030*/ meltfptr[1029]) /*_.VALDATA___V1030*/ meltfptr[1029] = (void*)&cdat->dsym_953__CLASS_CMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_953__CLASS_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_953__CLASS_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_953__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_953__CLASS_CMATCHER.obj_hash = 544975672; + cdat->dsym_953__CLASS_CMATCHER.obj_len = 3; + + /*inistring dstr_954__CLASS_CMATCHER*/ + /*_.VALSTR___V1031*/ meltfptr[1030] = (void*)&cdat->dstr_954__CLASS_CMATCHER; + cdat->dstr_954__CLASS_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_954__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (cdat->dstr_954__CLASS_CMATCHER.val)-1); + /*inirout drout_955__EXPAND_FUNMATCHEXPR*/ + /*_.VALROUT___V1004*/ meltfptr[1003] = (void*)&cdat->drout_955__EXPAND_FUNMATCHEXPR; + cdat->drout_955__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_955__EXPAND_FUNMATCHEXPR.routdescr, "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1107", MELT_ROUTDESCR_LEN - 1); + cdat->drout_955__EXPAND_FUNMATCHEXPR.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_955__EXPAND_FUNMATCHEXPR, meltrout_10_warmelt_macro_EXPAND_FUNMATCHEXPR); + + /*iniclos dclo_956__EXPAND_FUNMATCHEXPR*/ + /*_.VALCLO___V1003*/ meltfptr[1002] = (void*)&cdat->dclo_956__EXPAND_FUNMATCHEXPR; + cdat->dclo_956__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_956__EXPAND_FUNMATCHEXPR.nbval = 0; + + /*iniobj dsym_957__CLASS_FUNMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1032*/ meltfptr[1031]) /*_.VALDATA___V1032*/ meltfptr[1031] = (void*)&cdat->dsym_957__CLASS_FUNMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_957__CLASS_FUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_957__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_957__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_957__CLASS_FUNMATCHER.obj_hash = 197743893; + cdat->dsym_957__CLASS_FUNMATCHER.obj_len = 3; + + /*inistring dstr_958__CLASS_FUNMATCHER*/ + /*_.VALSTR___V1033*/ meltfptr[1032] = (void*)&cdat->dstr_958__CLASS_FUNMATCHER; + cdat->dstr_958__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_958__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (cdat->dstr_958__CLASS_FUNMATCHER.val)-1); + /*inirout drout_959__EXPAND_KEYWORDFUN*/ + /*_.VALROUT___V985*/ meltfptr[984] = (void*)&cdat->drout_959__EXPAND_KEYWORDFUN; + cdat->drout_959__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_959__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.melt:1139", MELT_ROUTDESCR_LEN - 1); + cdat->drout_959__EXPAND_KEYWORDFUN.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_959__EXPAND_KEYWORDFUN, meltrout_11_warmelt_macro_EXPAND_KEYWORDFUN); + + /*iniclos dclo_960__EXPAND_KEYWORDFUN*/ + /*_.VALCLO___V984*/ meltfptr[983] = (void*)&cdat->dclo_960__EXPAND_KEYWORDFUN; + cdat->dclo_960__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_960__EXPAND_KEYWORDFUN.nbval = 0; + + /*inirout drout_961__MACROEXPAND_1*/ + /*_.VALROUT___V983*/ meltfptr[982] = (void*)&cdat->drout_961__MACROEXPAND_1; + cdat->drout_961__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_961__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.melt:1157", MELT_ROUTDESCR_LEN - 1); + cdat->drout_961__MACROEXPAND_1.nbval = 33; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_961__MACROEXPAND_1, meltrout_12_warmelt_macro_MACROEXPAND_1); + + /*iniclos dclo_962__MACROEXPAND_1*/ + /*_.VALCLO___V982*/ meltfptr[981] = (void*)&cdat->dclo_962__MACROEXPAND_1; + cdat->dclo_962__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_962__MACROEXPAND_1.nbval = 0; + + /*iniobj dsym_963__FIND_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1034*/ meltfptr[1033]) /*_.VALDATA___V1034*/ meltfptr[1033] = (void*)&cdat->dsym_963__FIND_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_963__FIND_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_963__FIND_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_963__FIND_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_963__FIND_ENV.obj_hash = 233459738; + cdat->dsym_963__FIND_ENV.obj_len = 3; + + /*inistring dstr_964__FIND_ENV*/ + /*_.VALSTR___V1035*/ meltfptr[1034] = (void*)&cdat->dstr_964__FIND_ENV; + cdat->dstr_964__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_964__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_964__FIND_ENV.val)-1); + /*iniobj dsym_965__CLASS_MACRO_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1036*/ meltfptr[1035]) /*_.VALDATA___V1036*/ meltfptr[1035] = (void*)&cdat->dsym_965__CLASS_MACRO_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_965__CLASS_MACRO_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_965__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_965__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_965__CLASS_MACRO_BINDING.obj_hash = 628198824; + cdat->dsym_965__CLASS_MACRO_BINDING.obj_len = 3; + + /*inistring dstr_966__CLASS_MACRO_BIND*/ + /*_.VALSTR___V1037*/ meltfptr[1036] = (void*)&cdat->dstr_966__CLASS_MACRO_BIND; + cdat->dstr_966__CLASS_MACRO_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_966__CLASS_MACRO_BIND.val, "CLASS_MACRO_BINDING", sizeof (cdat->dstr_966__CLASS_MACRO_BIND.val)-1); + /*iniobj dsym_967__CLASS_SELECTOR_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1038*/ meltfptr[1037]) /*_.VALDATA___V1038*/ meltfptr[1037] = (void*)&cdat->dsym_967__CLASS_SELECTOR_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_967__CLASS_SELECTOR_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_967__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_967__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_967__CLASS_SELECTOR_BINDING.obj_hash = 80713028; + cdat->dsym_967__CLASS_SELECTOR_BINDING.obj_len = 3; + + /*inistring dstr_968__CLASS_SELECTOR_B*/ + /*_.VALSTR___V1039*/ meltfptr[1038] = (void*)&cdat->dstr_968__CLASS_SELECTOR_B; + cdat->dstr_968__CLASS_SELECTOR_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_968__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING", sizeof (cdat->dstr_968__CLASS_SELECTOR_B.val)-1); + /*iniobj dsym_969__CLASS_PRIMITIVE_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1040*/ meltfptr[1039]) /*_.VALDATA___V1040*/ meltfptr[1039] = (void*)&cdat->dsym_969__CLASS_PRIMITIVE_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_969__CLASS_PRIMITIVE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_969__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_969__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_969__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; + cdat->dsym_969__CLASS_PRIMITIVE_BINDING.obj_len = 3; + + /*inistring dstr_970__CLASS_PRIMITIVE_*/ + /*_.VALSTR___V1041*/ meltfptr[1040] = (void*)&cdat->dstr_970__CLASS_PRIMITIVE_; + cdat->dstr_970__CLASS_PRIMITIVE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_970__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING", sizeof (cdat->dstr_970__CLASS_PRIMITIVE_.val)-1); + /*iniobj dsym_971__CLASS_CITERATOR_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1042*/ meltfptr[1041]) /*_.VALDATA___V1042*/ meltfptr[1041] = (void*)&cdat->dsym_971__CLASS_CITERATOR_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_971__CLASS_CITERATOR_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_971__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_971__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_971__CLASS_CITERATOR_BINDING.obj_hash = 241925087; + cdat->dsym_971__CLASS_CITERATOR_BINDING.obj_len = 3; + + /*inistring dstr_972__CLASS_CITERATOR_*/ + /*_.VALSTR___V1043*/ meltfptr[1042] = (void*)&cdat->dstr_972__CLASS_CITERATOR_; + cdat->dstr_972__CLASS_CITERATOR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_972__CLASS_CITERATOR_.val, "CLASS_CITERATOR_BINDING", sizeof (cdat->dstr_972__CLASS_CITERATOR_.val)-1); + /*iniobj dsym_973__CLASS_CMATCHER_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1044*/ meltfptr[1043]) /*_.VALDATA___V1044*/ meltfptr[1043] = (void*)&cdat->dsym_973__CLASS_CMATCHER_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_973__CLASS_CMATCHER_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_973__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_973__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_973__CLASS_CMATCHER_BINDING.obj_hash = 386982082; + cdat->dsym_973__CLASS_CMATCHER_BINDING.obj_len = 3; + + /*inistring dstr_974__CLASS_CMATCHER_B*/ + /*_.VALSTR___V1045*/ meltfptr[1044] = (void*)&cdat->dstr_974__CLASS_CMATCHER_B; + cdat->dstr_974__CLASS_CMATCHER_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_974__CLASS_CMATCHER_B.val, "CLASS_CMATCHER_BINDING", sizeof (cdat->dstr_974__CLASS_CMATCHER_B.val)-1); + /*iniobj dsym_975__CLASS_FUNMATCHER_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1046*/ meltfptr[1045]) /*_.VALDATA___V1046*/ meltfptr[1045] = (void*)&cdat->dsym_975__CLASS_FUNMATCHER_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_975__CLASS_FUNMATCHER_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_975__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_975__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_975__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; + cdat->dsym_975__CLASS_FUNMATCHER_BINDING.obj_len = 3; + + /*inistring dstr_976__CLASS_FUNMATCHER*/ + /*_.VALSTR___V1047*/ meltfptr[1046] = (void*)&cdat->dstr_976__CLASS_FUNMATCHER; + cdat->dstr_976__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_976__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER_BINDING", sizeof (cdat->dstr_976__CLASS_FUNMATCHER.val)-1); + /*iniobj dsym_977__CLASS_FIELD_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1048*/ meltfptr[1047]) /*_.VALDATA___V1048*/ meltfptr[1047] = (void*)&cdat->dsym_977__CLASS_FIELD_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_977__CLASS_FIELD_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_977__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_977__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_977__CLASS_FIELD_BINDING.obj_hash = 412002748; + cdat->dsym_977__CLASS_FIELD_BINDING.obj_len = 3; + + /*inistring dstr_978__CLASS_FIELD_BIND*/ + /*_.VALSTR___V1049*/ meltfptr[1048] = (void*)&cdat->dstr_978__CLASS_FIELD_BIND; + cdat->dstr_978__CLASS_FIELD_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_978__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING", sizeof (cdat->dstr_978__CLASS_FIELD_BIND.val)-1); + /*iniobj dsym_979__CLASS_VALUE_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1050*/ meltfptr[1049]) /*_.VALDATA___V1050*/ meltfptr[1049] = (void*)&cdat->dsym_979__CLASS_VALUE_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_979__CLASS_VALUE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_979__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_979__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_979__CLASS_VALUE_BINDING.obj_hash = 952021086; + cdat->dsym_979__CLASS_VALUE_BINDING.obj_len = 3; + + /*inistring dstr_980__CLASS_VALUE_BIND*/ + /*_.VALSTR___V1051*/ meltfptr[1050] = (void*)&cdat->dstr_980__CLASS_VALUE_BIND; + cdat->dstr_980__CLASS_VALUE_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_980__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof (cdat->dstr_980__CLASS_VALUE_BIND.val)-1); + /*iniobj dsym_981__CLASS_PRIMITIVE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1052*/ meltfptr[1051]) /*_.VALDATA___V1052*/ meltfptr[1051] = (void*)&cdat->dsym_981__CLASS_PRIMITIVE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_981__CLASS_PRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_981__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_981__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_981__CLASS_PRIMITIVE.obj_hash = 102527506; + cdat->dsym_981__CLASS_PRIMITIVE.obj_len = 3; + + /*inistring dstr_982__CLASS_PRIMITIVE*/ + /*_.VALSTR___V1053*/ meltfptr[1052] = (void*)&cdat->dstr_982__CLASS_PRIMITIVE; + cdat->dstr_982__CLASS_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_982__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (cdat->dstr_982__CLASS_PRIMITIVE.val)-1); + /*inirout drout_983__LAMBDA_*/ + /*_.VALROUT___V1009*/ meltfptr[1008] = (void*)&cdat->drout_983__LAMBDA_; + cdat->drout_983__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_983__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1267", MELT_ROUTDESCR_LEN - 1); + cdat->drout_983__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_983__LAMBDA_, meltrout_13_warmelt_macro_LAMBDA_); + + /*inirout drout_984__EXPAND_PRIMITIVE*/ + /*_.VALROUT___V993*/ meltfptr[992] = (void*)&cdat->drout_984__EXPAND_PRIMITIVE; + cdat->drout_984__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_984__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.melt:1307", MELT_ROUTDESCR_LEN - 1); + cdat->drout_984__EXPAND_PRIMITIVE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_984__EXPAND_PRIMITIVE, meltrout_14_warmelt_macro_EXPAND_PRIMITIVE); + + /*iniclos dclo_985__EXPAND_PRIMITIVE*/ + /*_.VALCLO___V992*/ meltfptr[991] = (void*)&cdat->dclo_985__EXPAND_PRIMITIVE; + cdat->dclo_985__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_985__EXPAND_PRIMITIVE.nbval = 0; + + /*iniobj dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1054*/ meltfptr[1053]) /*_.VALDATA___V1054*/ meltfptr[1053] = (void*)&cdat->dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; + cdat->dsym_986__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; + + /*inistring dstr_987__CLASS_PATTERN_EX*/ + /*_.VALSTR___V1055*/ meltfptr[1054] = (void*)&cdat->dstr_987__CLASS_PATTERN_EX; + cdat->dstr_987__CLASS_PATTERN_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_987__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_987__CLASS_PATTERN_EX.val)-1); + /*iniobj dsym_988__CLASS_ROOT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1056*/ meltfptr[1055]) /*_.VALDATA___V1056*/ meltfptr[1055] = (void*)&cdat->dsym_988__CLASS_ROOT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_988__CLASS_ROOT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_988__CLASS_ROOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_988__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_988__CLASS_ROOT.obj_hash = 60568825; + cdat->dsym_988__CLASS_ROOT.obj_len = 3; + + /*inistring dstr_989__CLASS_ROOT*/ + /*_.VALSTR___V1057*/ meltfptr[1056] = (void*)&cdat->dstr_989__CLASS_ROOT; + cdat->dstr_989__CLASS_ROOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_989__CLASS_ROOT.val, "CLASS_ROOT", sizeof (cdat->dstr_989__CLASS_ROOT.val)-1); + MELT_LOCATION("warmelt-macro.melt:1324:/ iniobj"); + /*iniobj dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT*/ +/*_.VALDATA___V1058*/ meltfptr[1057] = (void*)&cdat->dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); + cdat->dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 81513666; + cdat->dobj_990__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; + + /*inistring dstr_991__CLASS_PATTERN_EX*/ + /*_.VALSTR___V1059*/ meltfptr[1058] = (void*)&cdat->dstr_991__CLASS_PATTERN_EX; + cdat->dstr_991__CLASS_PATTERN_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_991__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_991__CLASS_PATTERN_EX.val)-1); + /*inimult dtup_992__CLASS_PATTERN_EXPANSION_CONTEXT*/ + /*_.VALTUP___V1060*/ meltfptr[1059] = (void*)&cdat->dtup_992__CLASS_PATTERN_EXPANSION_CONTEXT; + cdat->dtup_992__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); + cdat->dtup_992__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; + /*inimult dtup_993__CLASS_PATTERN_EXPANSION_CONTEXT*/ + /*_.VALTUP___V1067*/ meltfptr[1066] = (void*)&cdat->dtup_993__CLASS_PATTERN_EXPANSION_CONTEXT; + cdat->dtup_993__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); + cdat->dtup_993__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 3; + /*iniobj dsym_994__PCTX_MEXPANDER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1068*/ meltfptr[1067]) /*_.VALDATA___V1068*/ meltfptr[1067] = (void*)&cdat->dsym_994__PCTX_MEXPANDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_994__PCTX_MEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_994__PCTX_MEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_994__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_994__PCTX_MEXPANDER.obj_hash = 715065668; + cdat->dsym_994__PCTX_MEXPANDER.obj_len = 3; + + /*inistring dstr_995__PCTX_MEXPANDER*/ + /*_.VALSTR___V1069*/ meltfptr[1068] = (void*)&cdat->dstr_995__PCTX_MEXPANDER; + cdat->dstr_995__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_995__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_995__PCTX_MEXPANDER.val)-1); /*^iniobj*/ - /*iniobj dobj_919__SPAC_INARGS*/ -/*_.VALDATA___V978*/ meltfptr[977] = (void*)&cdat->dobj_919__SPAC_INARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_919__SPAC_INARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_919__SPAC_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_919__SPAC_INARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_919__SPAC_INARGS.obj_num = 7; - cdat->dobj_919__SPAC_INARGS.obj_hash = 364302767; - cdat->dobj_919__SPAC_INARGS.obj_len = 4; - - /*inistring dstr_920__SPAC_INARGS*/ - /*_.VALSTR___V979*/ meltfptr[978] = (void*)&cdat->dstr_920__SPAC_INARGS; - cdat->dstr_920__SPAC_INARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_920__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_920__SPAC_INARGS.val)-1); - /*iniobj dsym_921__SPAC_OUTARGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V989*/ meltfptr[988]) /*_.VALDATA___V989*/ meltfptr[988] = (void*)&cdat->dsym_921__SPAC_OUTARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_921__SPAC_OUTARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_921__SPAC_OUTARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_921__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_921__SPAC_OUTARGS.obj_hash = 486574494; - cdat->dsym_921__SPAC_OUTARGS.obj_len = 3; - - /*inistring dstr_922__SPAC_OUTARGS*/ - /*_.VALSTR___V990*/ meltfptr[989] = (void*)&cdat->dstr_922__SPAC_OUTARGS; - cdat->dstr_922__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_922__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_922__SPAC_OUTARGS.val)-1); + /*iniobj dobj_996__PCTX_MEXPANDER*/ +/*_.VALDATA___V1061*/ meltfptr[1060] = (void*)&cdat->dobj_996__PCTX_MEXPANDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_996__PCTX_MEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_996__PCTX_MEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_996__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_996__PCTX_MEXPANDER.obj_num = 0; + cdat->dobj_996__PCTX_MEXPANDER.obj_hash = 59167722; + cdat->dobj_996__PCTX_MEXPANDER.obj_len = 4; + + /*inistring dstr_997__PCTX_MEXPANDER*/ + /*_.VALSTR___V1062*/ meltfptr[1061] = (void*)&cdat->dstr_997__PCTX_MEXPANDER; + cdat->dstr_997__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_997__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_997__PCTX_MEXPANDER.val)-1); + /*iniobj dsym_998__PCTX_PEXPANDER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1070*/ meltfptr[1069]) /*_.VALDATA___V1070*/ meltfptr[1069] = (void*)&cdat->dsym_998__PCTX_PEXPANDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_998__PCTX_PEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_998__PCTX_PEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_998__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_998__PCTX_PEXPANDER.obj_hash = 169945608; + cdat->dsym_998__PCTX_PEXPANDER.obj_len = 3; + + /*inistring dstr_999__PCTX_PEXPANDER*/ + /*_.VALSTR___V1071*/ meltfptr[1070] = (void*)&cdat->dstr_999__PCTX_PEXPANDER; + cdat->dstr_999__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_999__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_999__PCTX_PEXPANDER.val)-1); /*^iniobj*/ - /*iniobj dobj_923__SPAC_OUTARGS*/ -/*_.VALDATA___V980*/ meltfptr[979] = (void*)&cdat->dobj_923__SPAC_OUTARGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_923__SPAC_OUTARGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_923__SPAC_OUTARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_923__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_923__SPAC_OUTARGS.obj_num = 8; - cdat->dobj_923__SPAC_OUTARGS.obj_hash = 482382326; - cdat->dobj_923__SPAC_OUTARGS.obj_len = 4; - - /*inistring dstr_924__SPAC_OUTARGS*/ - /*_.VALSTR___V981*/ meltfptr[980] = (void*)&cdat->dstr_924__SPAC_OUTARGS; - cdat->dstr_924__SPAC_OUTARGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_924__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_924__SPAC_OUTARGS.val)-1); - /*iniobj dsym_925__CLASS_SOURCE_PATTERN_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V991*/ meltfptr[990]) /*_.VALDATA___V991*/ meltfptr[990] = (void*)&cdat->dsym_925__CLASS_SOURCE_PATTERN_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_925__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_925__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_925__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_925__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 190682059; - cdat->dsym_925__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 3; - - /*inistring dstr_926__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V992*/ meltfptr[991] = (void*)&cdat->dstr_926__CLASS_SOURCE_PAT; - cdat->dstr_926__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_926__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_926__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:797:/ iniobj"); - /*iniobj dobj_927__CLASS_SOURCE_PATTERN_MATCHER*/ -/*_.VALDATA___V993*/ meltfptr[992] = (void*)&cdat->dobj_927__CLASS_SOURCE_PATTERN_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_927__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_927__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_927__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_927__CLASS_SOURCE_PATTERN_MATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_927__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 718041477; - cdat->dobj_927__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; - - /*inistring dstr_928__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V994*/ meltfptr[993] = (void*)&cdat->dstr_928__CLASS_SOURCE_PAT; - cdat->dstr_928__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_928__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_928__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_929__CLASS_SOURCE_PATTERN_MATCHER*/ - /*_.VALTUP___V995*/ meltfptr[994] = (void*)&cdat->dtup_929__CLASS_SOURCE_PATTERN_MATCHER; - cdat->dtup_929__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_929__CLASS_SOURCE_PATTERN_MATCHER.nbval = 7; - /*inimult dtup_930__CLASS_SOURCE_PATTERN_MATCHER*/ - /*_.VALTUP___V996*/ meltfptr[995] = (void*)&cdat->dtup_930__CLASS_SOURCE_PATTERN_MATCHER; - cdat->dtup_930__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_930__CLASS_SOURCE_PATTERN_MATCHER.nbval = 9; - /*iniobj dsym_931__CLASS_SOURCE_PATTERN_C_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V997*/ meltfptr[996]) /*_.VALDATA___V997*/ meltfptr[996] = (void*)&cdat->dsym_931__CLASS_SOURCE_PATTERN_C_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_931__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_931__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_931__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_931__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 1062480739; - cdat->dsym_931__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 3; - - /*inistring dstr_932__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V998*/ meltfptr[997] = (void*)&cdat->dstr_932__CLASS_SOURCE_PAT; - cdat->dstr_932__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_932__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_932__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:803:/ iniobj"); - /*iniobj dobj_933__CLASS_SOURCE_PATTERN_C_MATCH*/ -/*_.VALDATA___V999*/ meltfptr[998] = (void*)&cdat->dobj_933__CLASS_SOURCE_PATTERN_C_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_933__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_933__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_933__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_933__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_933__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 739474335; - cdat->dobj_933__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; - - /*inistring dstr_934__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V1000*/ meltfptr[999] = (void*)&cdat->dstr_934__CLASS_SOURCE_PAT; - cdat->dstr_934__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_934__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_934__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_935__CLASS_SOURCE_PATTERN_C_MATCH*/ - /*_.VALTUP___V1001*/ meltfptr[1000] = (void*)&cdat->dtup_935__CLASS_SOURCE_PATTERN_C_MATCH; - cdat->dtup_935__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_935__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 8; - /*inimult dtup_936__CLASS_SOURCE_PATTERN_C_MATCH*/ - /*_.VALTUP___V1002*/ meltfptr[1001] = (void*)&cdat->dtup_936__CLASS_SOURCE_PATTERN_C_MATCH; - cdat->dtup_936__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_936__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 9; - /*iniobj dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1003*/ meltfptr[1002]) /*_.VALDATA___V1003*/ meltfptr[1002] = (void*)&cdat->dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 351628715; - cdat->dsym_937__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 3; - - /*inistring dstr_938__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V1004*/ meltfptr[1003] = (void*)&cdat->dstr_938__CLASS_SOURCE_PAT; - cdat->dstr_938__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_938__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_938__CLASS_SOURCE_PAT.val)-1); - MELT_LOCATION("warmelt-macro.melt:809:/ iniobj"); - /*iniobj dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH*/ -/*_.VALDATA___V1005*/ meltfptr[1004] = (void*)&cdat->dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 425468412; - cdat->dobj_939__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; - - /*inistring dstr_940__CLASS_SOURCE_PAT*/ - /*_.VALSTR___V1006*/ meltfptr[1005] = (void*)&cdat->dstr_940__CLASS_SOURCE_PAT; - cdat->dstr_940__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_940__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_940__CLASS_SOURCE_PAT.val)-1); - /*inimult dtup_941__CLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*_.VALTUP___V1007*/ meltfptr[1006] = (void*)&cdat->dtup_941__CLASS_SOURCE_PATTERN_FUN_MATCH; - cdat->dtup_941__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_941__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 8; - /*inimult dtup_942__CLASS_SOURCE_PATTERN_FUN_MATCH*/ - /*_.VALTUP___V1008*/ meltfptr[1007] = (void*)&cdat->dtup_942__CLASS_SOURCE_PATTERN_FUN_MATCH; - cdat->dtup_942__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_942__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 9; - /*inirout drout_943__EXPAND_RESTLIST_AS_LIST*/ - /*_.VALROUT___V1009*/ meltfptr[1008] = (void*)&cdat->drout_943__EXPAND_RESTLIST_AS_LIST; - cdat->drout_943__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_943__EXPAND_RESTLIST_AS_LIST.routdescr, "EXPAND_RESTLIST_AS_LIST @warmelt-macro.melt:820", MELT_ROUTDESCR_LEN - 1); - cdat->drout_943__EXPAND_RESTLIST_AS_LIST.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_943__EXPAND_RESTLIST_AS_LIST, meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST); - - /*iniclos dclo_944__EXPAND_RESTLIST_AS_LIST*/ - /*_.VALCLO___V1024*/ meltfptr[1023] = (void*)&cdat->dclo_944__EXPAND_RESTLIST_AS_LIST; - cdat->dclo_944__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_944__EXPAND_RESTLIST_AS_LIST.nbval = 0; - - /*iniobj dsym_945__CLASS_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1038*/ meltfptr[1037]) /*_.VALDATA___V1038*/ meltfptr[1037] = (void*)&cdat->dsym_945__CLASS_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_945__CLASS_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_945__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_945__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_945__CLASS_ENVIRONMENT.obj_hash = 59212821; - cdat->dsym_945__CLASS_ENVIRONMENT.obj_len = 3; - - /*inistring dstr_946__CLASS_ENVIRONMEN*/ - /*_.VALSTR___V1039*/ meltfptr[1038] = (void*)&cdat->dstr_946__CLASS_ENVIRONMEN; - cdat->dstr_946__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_946__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_946__CLASS_ENVIRONMEN.val)-1); - /*inirout drout_947__EXPAND_RESTLIST_AS_TUPLE*/ - /*_.VALROUT___V1023*/ meltfptr[1022] = (void*)&cdat->drout_947__EXPAND_RESTLIST_AS_TUPLE; - cdat->drout_947__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_947__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.melt:863", MELT_ROUTDESCR_LEN - 1); - cdat->drout_947__EXPAND_RESTLIST_AS_TUPLE.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_947__EXPAND_RESTLIST_AS_TUPLE, meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE); - - /*iniclos dclo_948__EXPAND_RESTLIST_AS_TUPLE*/ - /*_.VALCLO___V1022*/ meltfptr[1021] = (void*)&cdat->dclo_948__EXPAND_RESTLIST_AS_TUPLE; - cdat->dclo_948__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_948__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; - - /*iniobj dsym_949__LIST_TO_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1040*/ meltfptr[1039]) /*_.VALDATA___V1040*/ meltfptr[1039] = (void*)&cdat->dsym_949__LIST_TO_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_949__LIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_949__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_949__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_949__LIST_TO_MULTIPLE.obj_hash = 987171205; - cdat->dsym_949__LIST_TO_MULTIPLE.obj_len = 3; - - /*inistring dstr_950__LIST_TO_MULTIPLE*/ - /*_.VALSTR___V1041*/ meltfptr[1040] = (void*)&cdat->dstr_950__LIST_TO_MULTIPLE; - cdat->dstr_950__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_950__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_950__LIST_TO_MULTIPLE.val)-1); - /*iniobj dsym_951__DISCR_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1042*/ meltfptr[1041]) /*_.VALDATA___V1042*/ meltfptr[1041] = (void*)&cdat->dsym_951__DISCR_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_951__DISCR_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_951__DISCR_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_951__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_951__DISCR_MULTIPLE.obj_hash = 91864583; - cdat->dsym_951__DISCR_MULTIPLE.obj_len = 3; - - /*inistring dstr_952__DISCR_MULTIPLE*/ - /*_.VALSTR___V1043*/ meltfptr[1042] = (void*)&cdat->dstr_952__DISCR_MULTIPLE; - cdat->dstr_952__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_952__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_952__DISCR_MULTIPLE.val)-1); - /*inirout drout_953__EXPAND_PAIRLIST_AS_LIST*/ - /*_.VALROUT___V1019*/ meltfptr[1018] = (void*)&cdat->drout_953__EXPAND_PAIRLIST_AS_LIST; - cdat->drout_953__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_953__EXPAND_PAIRLIST_AS_LIST.routdescr, "EXPAND_PAIRLIST_AS_LIST @warmelt-macro.melt:874", MELT_ROUTDESCR_LEN - 1); - cdat->drout_953__EXPAND_PAIRLIST_AS_LIST.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_953__EXPAND_PAIRLIST_AS_LIST, meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST); - - /*iniclos dclo_954__EXPAND_PAIRLIST_AS_LIST*/ - /*_.VALCLO___V1018*/ meltfptr[1017] = (void*)&cdat->dclo_954__EXPAND_PAIRLIST_AS_LIST; - cdat->dclo_954__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_954__EXPAND_PAIRLIST_AS_LIST.nbval = 0; - - /*inirout drout_955__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALROUT___V1017*/ meltfptr[1016] = (void*)&cdat->drout_955__EXPAND_PAIRLIST_AS_TUPLE; - cdat->drout_955__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_955__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:912", MELT_ROUTDESCR_LEN - 1); - cdat->drout_955__EXPAND_PAIRLIST_AS_TUPLE.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_955__EXPAND_PAIRLIST_AS_TUPLE, meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE); - - /*iniclos dclo_956__EXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALCLO___V1016*/ meltfptr[1015] = (void*)&cdat->dclo_956__EXPAND_PAIRLIST_AS_TUPLE; - cdat->dclo_956__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_956__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; - - /*inirout drout_957__EXPAND_APPLY*/ - /*_.VALROUT___V1036*/ meltfptr[1035] = (void*)&cdat->drout_957__EXPAND_APPLY; - cdat->drout_957__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_957__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.melt:921", MELT_ROUTDESCR_LEN - 1); - cdat->drout_957__EXPAND_APPLY.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_957__EXPAND_APPLY, meltrout_5_warmelt_macro_EXPAND_APPLY); - - /*iniclos dclo_958__EXPAND_APPLY*/ - /*_.VALCLO___V1035*/ meltfptr[1034] = (void*)&cdat->dclo_958__EXPAND_APPLY; - cdat->dclo_958__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_958__EXPAND_APPLY.nbval = 0; - - /*iniobj dsym_959__CLASS_SEXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1044*/ meltfptr[1043]) /*_.VALDATA___V1044*/ meltfptr[1043] = (void*)&cdat->dsym_959__CLASS_SEXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_959__CLASS_SEXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_959__CLASS_SEXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_959__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_959__CLASS_SEXPR.obj_hash = 53411612; - cdat->dsym_959__CLASS_SEXPR.obj_len = 3; - - /*inistring dstr_960__CLASS_SEXPR*/ - /*_.VALSTR___V1045*/ meltfptr[1044] = (void*)&cdat->dstr_960__CLASS_SEXPR; - cdat->dstr_960__CLASS_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_960__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (cdat->dstr_960__CLASS_SEXPR.val)-1); - /*inirout drout_961__EXPAND_MSEND*/ - /*_.VALROUT___V1015*/ meltfptr[1014] = (void*)&cdat->drout_961__EXPAND_MSEND; - cdat->drout_961__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_961__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.melt:940", MELT_ROUTDESCR_LEN - 1); - cdat->drout_961__EXPAND_MSEND.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_961__EXPAND_MSEND, meltrout_6_warmelt_macro_EXPAND_MSEND); - - /*iniclos dclo_962__EXPAND_MSEND*/ - /*_.VALCLO___V1014*/ meltfptr[1013] = (void*)&cdat->dclo_962__EXPAND_MSEND; - cdat->dclo_962__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_962__EXPAND_MSEND.nbval = 0; - - /*iniobj dsym_963__CLASS_SYMBOL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1046*/ meltfptr[1045]) /*_.VALDATA___V1046*/ meltfptr[1045] = (void*)&cdat->dsym_963__CLASS_SYMBOL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_963__CLASS_SYMBOL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_963__CLASS_SYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_963__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_963__CLASS_SYMBOL.obj_hash = 53524182; - cdat->dsym_963__CLASS_SYMBOL.obj_len = 3; - - /*inistring dstr_964__CLASS_SYMBOL*/ - /*_.VALSTR___V1047*/ meltfptr[1046] = (void*)&cdat->dstr_964__CLASS_SYMBOL; - cdat->dstr_964__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_964__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_964__CLASS_SYMBOL.val)-1); - /*iniobj dsym_965__DEBUG_MSG_FUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1048*/ meltfptr[1047]) /*_.VALDATA___V1048*/ meltfptr[1047] = (void*)&cdat->dsym_965__DEBUG_MSG_FUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_965__DEBUG_MSG_FUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_965__DEBUG_MSG_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_965__DEBUG_MSG_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_965__DEBUG_MSG_FUN.obj_hash = 938829072; - cdat->dsym_965__DEBUG_MSG_FUN.obj_len = 3; - - /*inistring dstr_966__DEBUG_MSG_FUN*/ - /*_.VALSTR___V1049*/ meltfptr[1048] = (void*)&cdat->dstr_966__DEBUG_MSG_FUN; - cdat->dstr_966__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_966__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof (cdat->dstr_966__DEBUG_MSG_FUN.val)-1); - /*inirout drout_967__EXPAND_FIELDEXPR*/ - /*_.VALROUT___V1034*/ meltfptr[1033] = (void*)&cdat->drout_967__EXPAND_FIELDEXPR; - cdat->drout_967__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_967__EXPAND_FIELDEXPR.routdescr, "EXPAND_FIELDEXPR @warmelt-macro.melt:970", MELT_ROUTDESCR_LEN - 1); - cdat->drout_967__EXPAND_FIELDEXPR.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_967__EXPAND_FIELDEXPR, meltrout_7_warmelt_macro_EXPAND_FIELDEXPR); - - /*iniclos dclo_968__EXPAND_FIELDEXPR*/ - /*_.VALCLO___V1033*/ meltfptr[1032] = (void*)&cdat->dclo_968__EXPAND_FIELDEXPR; - cdat->dclo_968__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_968__EXPAND_FIELDEXPR.nbval = 0; - - /*iniobj dsym_969__CLASS_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1050*/ meltfptr[1049]) /*_.VALDATA___V1050*/ meltfptr[1049] = (void*)&cdat->dsym_969__CLASS_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_969__CLASS_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_969__CLASS_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_969__CLASS_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_969__CLASS_FIELD.obj_hash = 523073; - cdat->dsym_969__CLASS_FIELD.obj_len = 3; - - /*inistring dstr_970__CLASS_FIELD*/ - /*_.VALSTR___V1051*/ meltfptr[1050] = (void*)&cdat->dstr_970__CLASS_FIELD; - cdat->dstr_970__CLASS_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_970__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_970__CLASS_FIELD.val)-1); - /*iniobj dsym_971__CLASS_KEYWORD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1052*/ meltfptr[1051]) /*_.VALDATA___V1052*/ meltfptr[1051] = (void*)&cdat->dsym_971__CLASS_KEYWORD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_971__CLASS_KEYWORD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_971__CLASS_KEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_971__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_971__CLASS_KEYWORD.obj_hash = 14992133; - cdat->dsym_971__CLASS_KEYWORD.obj_len = 3; - - /*inistring dstr_972__CLASS_KEYWORD*/ - /*_.VALSTR___V1053*/ meltfptr[1052] = (void*)&cdat->dstr_972__CLASS_KEYWORD; - cdat->dstr_972__CLASS_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_972__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (cdat->dstr_972__CLASS_KEYWORD.val)-1); - /*iniobj dsym_973__CLASS_NAMED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1054*/ meltfptr[1053]) /*_.VALDATA___V1054*/ meltfptr[1053] = (void*)&cdat->dsym_973__CLASS_NAMED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_973__CLASS_NAMED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_973__CLASS_NAMED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_973__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_973__CLASS_NAMED.obj_hash = 60407004; - cdat->dsym_973__CLASS_NAMED.obj_len = 3; - - /*inistring dstr_974__CLASS_NAMED*/ - /*_.VALSTR___V1055*/ meltfptr[1054] = (void*)&cdat->dstr_974__CLASS_NAMED; - cdat->dstr_974__CLASS_NAMED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_974__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_974__CLASS_NAMED.val)-1); - /*inirout drout_975__EXPAND_CITERATION*/ - /*_.VALROUT___V1026*/ meltfptr[1025] = (void*)&cdat->drout_975__EXPAND_CITERATION; - cdat->drout_975__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_975__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.melt:1027", MELT_ROUTDESCR_LEN - 1); - cdat->drout_975__EXPAND_CITERATION.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_975__EXPAND_CITERATION, meltrout_8_warmelt_macro_EXPAND_CITERATION); - - /*iniclos dclo_976__EXPAND_CITERATION*/ - /*_.VALCLO___V1025*/ meltfptr[1024] = (void*)&cdat->dclo_976__EXPAND_CITERATION; - cdat->dclo_976__EXPAND_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_976__EXPAND_CITERATION.nbval = 0; - - /*iniobj dsym_977__CLASS_CITERATOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1056*/ meltfptr[1055]) /*_.VALDATA___V1056*/ meltfptr[1055] = (void*)&cdat->dsym_977__CLASS_CITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_977__CLASS_CITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_977__CLASS_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_977__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_977__CLASS_CITERATOR.obj_hash = 650290054; - cdat->dsym_977__CLASS_CITERATOR.obj_len = 3; - - /*inistring dstr_978__CLASS_CITERATOR*/ - /*_.VALSTR___V1057*/ meltfptr[1056] = (void*)&cdat->dstr_978__CLASS_CITERATOR; - cdat->dstr_978__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_978__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (cdat->dstr_978__CLASS_CITERATOR.val)-1); - /*inirout drout_979__EXPAND_CMATCHEXPR*/ - /*_.VALROUT___V1030*/ meltfptr[1029] = (void*)&cdat->drout_979__EXPAND_CMATCHEXPR; - cdat->drout_979__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_979__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1086", MELT_ROUTDESCR_LEN - 1); - cdat->drout_979__EXPAND_CMATCHEXPR.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_979__EXPAND_CMATCHEXPR, meltrout_9_warmelt_macro_EXPAND_CMATCHEXPR); - - /*iniclos dclo_980__EXPAND_CMATCHEXPR*/ - /*_.VALCLO___V1029*/ meltfptr[1028] = (void*)&cdat->dclo_980__EXPAND_CMATCHEXPR; - cdat->dclo_980__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_980__EXPAND_CMATCHEXPR.nbval = 0; - - /*iniobj dsym_981__CLASS_CMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1058*/ meltfptr[1057]) /*_.VALDATA___V1058*/ meltfptr[1057] = (void*)&cdat->dsym_981__CLASS_CMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_981__CLASS_CMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_981__CLASS_CMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_981__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_981__CLASS_CMATCHER.obj_hash = 544975672; - cdat->dsym_981__CLASS_CMATCHER.obj_len = 3; - - /*inistring dstr_982__CLASS_CMATCHER*/ - /*_.VALSTR___V1059*/ meltfptr[1058] = (void*)&cdat->dstr_982__CLASS_CMATCHER; - cdat->dstr_982__CLASS_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_982__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (cdat->dstr_982__CLASS_CMATCHER.val)-1); - /*inirout drout_983__EXPAND_FUNMATCHEXPR*/ - /*_.VALROUT___V1032*/ meltfptr[1031] = (void*)&cdat->drout_983__EXPAND_FUNMATCHEXPR; - cdat->drout_983__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_983__EXPAND_FUNMATCHEXPR.routdescr, "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1128", MELT_ROUTDESCR_LEN - 1); - cdat->drout_983__EXPAND_FUNMATCHEXPR.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_983__EXPAND_FUNMATCHEXPR, meltrout_10_warmelt_macro_EXPAND_FUNMATCHEXPR); - - /*iniclos dclo_984__EXPAND_FUNMATCHEXPR*/ - /*_.VALCLO___V1031*/ meltfptr[1030] = (void*)&cdat->dclo_984__EXPAND_FUNMATCHEXPR; - cdat->dclo_984__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_984__EXPAND_FUNMATCHEXPR.nbval = 0; - - /*iniobj dsym_985__CLASS_FUNMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1060*/ meltfptr[1059]) /*_.VALDATA___V1060*/ meltfptr[1059] = (void*)&cdat->dsym_985__CLASS_FUNMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_985__CLASS_FUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_985__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_985__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_985__CLASS_FUNMATCHER.obj_hash = 197743893; - cdat->dsym_985__CLASS_FUNMATCHER.obj_len = 3; - - /*inistring dstr_986__CLASS_FUNMATCHER*/ - /*_.VALSTR___V1061*/ meltfptr[1060] = (void*)&cdat->dstr_986__CLASS_FUNMATCHER; - cdat->dstr_986__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_986__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (cdat->dstr_986__CLASS_FUNMATCHER.val)-1); - /*inirout drout_987__EXPAND_KEYWORDFUN*/ - /*_.VALROUT___V1013*/ meltfptr[1012] = (void*)&cdat->drout_987__EXPAND_KEYWORDFUN; - cdat->drout_987__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_987__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.melt:1160", MELT_ROUTDESCR_LEN - 1); - cdat->drout_987__EXPAND_KEYWORDFUN.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_987__EXPAND_KEYWORDFUN, meltrout_11_warmelt_macro_EXPAND_KEYWORDFUN); - - /*iniclos dclo_988__EXPAND_KEYWORDFUN*/ - /*_.VALCLO___V1012*/ meltfptr[1011] = (void*)&cdat->dclo_988__EXPAND_KEYWORDFUN; - cdat->dclo_988__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_988__EXPAND_KEYWORDFUN.nbval = 0; - - /*inirout drout_989__MACROEXPAND_1*/ - /*_.VALROUT___V1011*/ meltfptr[1010] = (void*)&cdat->drout_989__MACROEXPAND_1; - cdat->drout_989__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_989__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.melt:1178", MELT_ROUTDESCR_LEN - 1); - cdat->drout_989__MACROEXPAND_1.nbval = 33; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_989__MACROEXPAND_1, meltrout_12_warmelt_macro_MACROEXPAND_1); - - /*iniclos dclo_990__MACROEXPAND_1*/ - /*_.VALCLO___V1010*/ meltfptr[1009] = (void*)&cdat->dclo_990__MACROEXPAND_1; - cdat->dclo_990__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_990__MACROEXPAND_1.nbval = 0; - - /*iniobj dsym_991__FIND_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1062*/ meltfptr[1061]) /*_.VALDATA___V1062*/ meltfptr[1061] = (void*)&cdat->dsym_991__FIND_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_991__FIND_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_991__FIND_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_991__FIND_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_991__FIND_ENV.obj_hash = 233459738; - cdat->dsym_991__FIND_ENV.obj_len = 3; - - /*inistring dstr_992__FIND_ENV*/ - /*_.VALSTR___V1063*/ meltfptr[1062] = (void*)&cdat->dstr_992__FIND_ENV; - cdat->dstr_992__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_992__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_992__FIND_ENV.val)-1); - /*iniobj dsym_993__CLASS_MACRO_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1064*/ meltfptr[1063]) /*_.VALDATA___V1064*/ meltfptr[1063] = (void*)&cdat->dsym_993__CLASS_MACRO_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_993__CLASS_MACRO_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_993__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_993__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_993__CLASS_MACRO_BINDING.obj_hash = 628198824; - cdat->dsym_993__CLASS_MACRO_BINDING.obj_len = 3; - - /*inistring dstr_994__CLASS_MACRO_BIND*/ - /*_.VALSTR___V1065*/ meltfptr[1064] = (void*)&cdat->dstr_994__CLASS_MACRO_BIND; - cdat->dstr_994__CLASS_MACRO_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_994__CLASS_MACRO_BIND.val, "CLASS_MACRO_BINDING", sizeof (cdat->dstr_994__CLASS_MACRO_BIND.val)-1); - /*iniobj dsym_995__CLASS_SELECTOR_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1066*/ meltfptr[1065]) /*_.VALDATA___V1066*/ meltfptr[1065] = (void*)&cdat->dsym_995__CLASS_SELECTOR_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_995__CLASS_SELECTOR_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_995__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_995__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_995__CLASS_SELECTOR_BINDING.obj_hash = 80713028; - cdat->dsym_995__CLASS_SELECTOR_BINDING.obj_len = 3; - - /*inistring dstr_996__CLASS_SELECTOR_B*/ - /*_.VALSTR___V1067*/ meltfptr[1066] = (void*)&cdat->dstr_996__CLASS_SELECTOR_B; - cdat->dstr_996__CLASS_SELECTOR_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_996__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING", sizeof (cdat->dstr_996__CLASS_SELECTOR_B.val)-1); - /*iniobj dsym_997__CLASS_PRIMITIVE_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1068*/ meltfptr[1067]) /*_.VALDATA___V1068*/ meltfptr[1067] = (void*)&cdat->dsym_997__CLASS_PRIMITIVE_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_997__CLASS_PRIMITIVE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_997__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_997__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_997__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; - cdat->dsym_997__CLASS_PRIMITIVE_BINDING.obj_len = 3; - - /*inistring dstr_998__CLASS_PRIMITIVE_*/ - /*_.VALSTR___V1069*/ meltfptr[1068] = (void*)&cdat->dstr_998__CLASS_PRIMITIVE_; - cdat->dstr_998__CLASS_PRIMITIVE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_998__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING", sizeof (cdat->dstr_998__CLASS_PRIMITIVE_.val)-1); - /*iniobj dsym_999__CLASS_CITERATOR_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1070*/ meltfptr[1069]) /*_.VALDATA___V1070*/ meltfptr[1069] = (void*)&cdat->dsym_999__CLASS_CITERATOR_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_999__CLASS_CITERATOR_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_999__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_999__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_999__CLASS_CITERATOR_BINDING.obj_hash = 241925087; - cdat->dsym_999__CLASS_CITERATOR_BINDING.obj_len = 3; - - /*inistring dstr_1000__CLASS_CITERATOR_*/ - /*_.VALSTR___V1071*/ meltfptr[1070] = (void*)&cdat->dstr_1000__CLASS_CITERATOR_; - cdat->dstr_1000__CLASS_CITERATOR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1000__CLASS_CITERATOR_.val, "CLASS_CITERATOR_BINDING", sizeof (cdat->dstr_1000__CLASS_CITERATOR_.val)-1); - /*iniobj dsym_1001__CLASS_CMATCHER_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1072*/ meltfptr[1071]) /*_.VALDATA___V1072*/ meltfptr[1071] = (void*)&cdat->dsym_1001__CLASS_CMATCHER_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1001__CLASS_CMATCHER_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1001__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1001__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1001__CLASS_CMATCHER_BINDING.obj_hash = 386982082; - cdat->dsym_1001__CLASS_CMATCHER_BINDING.obj_len = 3; - - /*inistring dstr_1002__CLASS_CMATCHER_B*/ - /*_.VALSTR___V1073*/ meltfptr[1072] = (void*)&cdat->dstr_1002__CLASS_CMATCHER_B; - cdat->dstr_1002__CLASS_CMATCHER_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1002__CLASS_CMATCHER_B.val, "CLASS_CMATCHER_BINDING", sizeof (cdat->dstr_1002__CLASS_CMATCHER_B.val)-1); - /*iniobj dsym_1003__CLASS_FUNMATCHER_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1074*/ meltfptr[1073]) /*_.VALDATA___V1074*/ meltfptr[1073] = (void*)&cdat->dsym_1003__CLASS_FUNMATCHER_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1003__CLASS_FUNMATCHER_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1003__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1003__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1003__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; - cdat->dsym_1003__CLASS_FUNMATCHER_BINDING.obj_len = 3; - - /*inistring dstr_1004__CLASS_FUNMATCHER*/ - /*_.VALSTR___V1075*/ meltfptr[1074] = (void*)&cdat->dstr_1004__CLASS_FUNMATCHER; - cdat->dstr_1004__CLASS_FUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1004__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER_BINDING", sizeof (cdat->dstr_1004__CLASS_FUNMATCHER.val)-1); - /*iniobj dsym_1005__CLASS_FIELD_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1076*/ meltfptr[1075]) /*_.VALDATA___V1076*/ meltfptr[1075] = (void*)&cdat->dsym_1005__CLASS_FIELD_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1005__CLASS_FIELD_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1005__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1005__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1005__CLASS_FIELD_BINDING.obj_hash = 412002748; - cdat->dsym_1005__CLASS_FIELD_BINDING.obj_len = 3; - - /*inistring dstr_1006__CLASS_FIELD_BIND*/ - /*_.VALSTR___V1077*/ meltfptr[1076] = (void*)&cdat->dstr_1006__CLASS_FIELD_BIND; - cdat->dstr_1006__CLASS_FIELD_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1006__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING", sizeof (cdat->dstr_1006__CLASS_FIELD_BIND.val)-1); - /*iniobj dsym_1007__CLASS_VALUE_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1078*/ meltfptr[1077]) /*_.VALDATA___V1078*/ meltfptr[1077] = (void*)&cdat->dsym_1007__CLASS_VALUE_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1007__CLASS_VALUE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1007__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1007__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1007__CLASS_VALUE_BINDING.obj_hash = 952021086; - cdat->dsym_1007__CLASS_VALUE_BINDING.obj_len = 3; - - /*inistring dstr_1008__CLASS_VALUE_BIND*/ - /*_.VALSTR___V1079*/ meltfptr[1078] = (void*)&cdat->dstr_1008__CLASS_VALUE_BIND; - cdat->dstr_1008__CLASS_VALUE_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1008__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof (cdat->dstr_1008__CLASS_VALUE_BIND.val)-1); - /*iniobj dsym_1009__CLASS_PRIMITIVE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1080*/ meltfptr[1079]) /*_.VALDATA___V1080*/ meltfptr[1079] = (void*)&cdat->dsym_1009__CLASS_PRIMITIVE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1009__CLASS_PRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1009__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1009__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1009__CLASS_PRIMITIVE.obj_hash = 102527506; - cdat->dsym_1009__CLASS_PRIMITIVE.obj_len = 3; - - /*inistring dstr_1010__CLASS_PRIMITIVE*/ - /*_.VALSTR___V1081*/ meltfptr[1080] = (void*)&cdat->dstr_1010__CLASS_PRIMITIVE; - cdat->dstr_1010__CLASS_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1010__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (cdat->dstr_1010__CLASS_PRIMITIVE.val)-1); - /*inirout drout_1011__LAMBDA_*/ - /*_.VALROUT___V1037*/ meltfptr[1036] = (void*)&cdat->drout_1011__LAMBDA_; - cdat->drout_1011__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1011__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1288", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1011__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1011__LAMBDA_, meltrout_13_warmelt_macro_LAMBDA_); - - /*inirout drout_1012__EXPAND_PRIMITIVE*/ - /*_.VALROUT___V1021*/ meltfptr[1020] = (void*)&cdat->drout_1012__EXPAND_PRIMITIVE; - cdat->drout_1012__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1012__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.melt:1328", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1012__EXPAND_PRIMITIVE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1012__EXPAND_PRIMITIVE, meltrout_14_warmelt_macro_EXPAND_PRIMITIVE); - - /*iniclos dclo_1013__EXPAND_PRIMITIVE*/ - /*_.VALCLO___V1020*/ meltfptr[1019] = (void*)&cdat->dclo_1013__EXPAND_PRIMITIVE; - cdat->dclo_1013__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1013__EXPAND_PRIMITIVE.nbval = 0; - - /*iniobj dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1082*/ meltfptr[1081]) /*_.VALDATA___V1082*/ meltfptr[1081] = (void*)&cdat->dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; - cdat->dsym_1014__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; - - /*inistring dstr_1015__CLASS_PATTERN_EX*/ - /*_.VALSTR___V1083*/ meltfptr[1082] = (void*)&cdat->dstr_1015__CLASS_PATTERN_EX; - cdat->dstr_1015__CLASS_PATTERN_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1015__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_1015__CLASS_PATTERN_EX.val)-1); - /*iniobj dsym_1016__CLASS_ROOT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1084*/ meltfptr[1083]) /*_.VALDATA___V1084*/ meltfptr[1083] = (void*)&cdat->dsym_1016__CLASS_ROOT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1016__CLASS_ROOT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1016__CLASS_ROOT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1016__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1016__CLASS_ROOT.obj_hash = 60568825; - cdat->dsym_1016__CLASS_ROOT.obj_len = 3; - - /*inistring dstr_1017__CLASS_ROOT*/ - /*_.VALSTR___V1085*/ meltfptr[1084] = (void*)&cdat->dstr_1017__CLASS_ROOT; - cdat->dstr_1017__CLASS_ROOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1017__CLASS_ROOT.val, "CLASS_ROOT", sizeof (cdat->dstr_1017__CLASS_ROOT.val)-1); - MELT_LOCATION("warmelt-macro.melt:1345:/ iniobj"); - /*iniobj dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT*/ -/*_.VALDATA___V1086*/ meltfptr[1085] = (void*)&cdat->dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_CLASS)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); - cdat->dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 445156240; - cdat->dobj_1018__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; - - /*inistring dstr_1019__CLASS_PATTERN_EX*/ - /*_.VALSTR___V1087*/ meltfptr[1086] = (void*)&cdat->dstr_1019__CLASS_PATTERN_EX; - cdat->dstr_1019__CLASS_PATTERN_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1019__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_1019__CLASS_PATTERN_EX.val)-1); - /*inimult dtup_1020__CLASS_PATTERN_EXPANSION_CONTEXT*/ - /*_.VALTUP___V1088*/ meltfptr[1087] = (void*)&cdat->dtup_1020__CLASS_PATTERN_EXPANSION_CONTEXT; - cdat->dtup_1020__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); - cdat->dtup_1020__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; - /*inimult dtup_1021__CLASS_PATTERN_EXPANSION_CONTEXT*/ - /*_.VALTUP___V1095*/ meltfptr[1094] = (void*)&cdat->dtup_1021__CLASS_PATTERN_EXPANSION_CONTEXT; - cdat->dtup_1021__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); - cdat->dtup_1021__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 3; - /*iniobj dsym_1022__PCTX_MEXPANDER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1096*/ meltfptr[1095]) /*_.VALDATA___V1096*/ meltfptr[1095] = (void*)&cdat->dsym_1022__PCTX_MEXPANDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1022__PCTX_MEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1022__PCTX_MEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1022__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1022__PCTX_MEXPANDER.obj_hash = 715065668; - cdat->dsym_1022__PCTX_MEXPANDER.obj_len = 3; - - /*inistring dstr_1023__PCTX_MEXPANDER*/ - /*_.VALSTR___V1097*/ meltfptr[1096] = (void*)&cdat->dstr_1023__PCTX_MEXPANDER; - cdat->dstr_1023__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1023__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_1023__PCTX_MEXPANDER.val)-1); + /*iniobj dobj_1000__PCTX_PEXPANDER*/ +/*_.VALDATA___V1063*/ meltfptr[1062] = (void*)&cdat->dobj_1000__PCTX_PEXPANDER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1000__PCTX_PEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1000__PCTX_PEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_1000__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_1000__PCTX_PEXPANDER.obj_num = 1; + cdat->dobj_1000__PCTX_PEXPANDER.obj_hash = 834953381; + cdat->dobj_1000__PCTX_PEXPANDER.obj_len = 4; + + /*inistring dstr_1001__PCTX_PEXPANDER*/ + /*_.VALSTR___V1064*/ meltfptr[1063] = (void*)&cdat->dstr_1001__PCTX_PEXPANDER; + cdat->dstr_1001__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1001__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_1001__PCTX_PEXPANDER.val)-1); + /*iniobj dsym_1002__PCTX_VARMAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1072*/ meltfptr[1071]) /*_.VALDATA___V1072*/ meltfptr[1071] = (void*)&cdat->dsym_1002__PCTX_VARMAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1002__PCTX_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1002__PCTX_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1002__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1002__PCTX_VARMAP.obj_hash = 83805471; + cdat->dsym_1002__PCTX_VARMAP.obj_len = 3; + + /*inistring dstr_1003__PCTX_VARMAP*/ + /*_.VALSTR___V1073*/ meltfptr[1072] = (void*)&cdat->dstr_1003__PCTX_VARMAP; + cdat->dstr_1003__PCTX_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1003__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1003__PCTX_VARMAP.val)-1); /*^iniobj*/ - /*iniobj dobj_1024__PCTX_MEXPANDER*/ -/*_.VALDATA___V1089*/ meltfptr[1088] = (void*)&cdat->dobj_1024__PCTX_MEXPANDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1024__PCTX_MEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1024__PCTX_MEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1024__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_1024__PCTX_MEXPANDER.obj_num = 0; - cdat->dobj_1024__PCTX_MEXPANDER.obj_hash = 587352166; - cdat->dobj_1024__PCTX_MEXPANDER.obj_len = 4; - - /*inistring dstr_1025__PCTX_MEXPANDER*/ - /*_.VALSTR___V1090*/ meltfptr[1089] = (void*)&cdat->dstr_1025__PCTX_MEXPANDER; - cdat->dstr_1025__PCTX_MEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1025__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_1025__PCTX_MEXPANDER.val)-1); - /*iniobj dsym_1026__PCTX_PEXPANDER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1098*/ meltfptr[1097]) /*_.VALDATA___V1098*/ meltfptr[1097] = (void*)&cdat->dsym_1026__PCTX_PEXPANDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1026__PCTX_PEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1026__PCTX_PEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1026__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1026__PCTX_PEXPANDER.obj_hash = 169945608; - cdat->dsym_1026__PCTX_PEXPANDER.obj_len = 3; - - /*inistring dstr_1027__PCTX_PEXPANDER*/ - /*_.VALSTR___V1099*/ meltfptr[1098] = (void*)&cdat->dstr_1027__PCTX_PEXPANDER; - cdat->dstr_1027__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1027__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_1027__PCTX_PEXPANDER.val)-1); - /*^iniobj*/ - /*iniobj dobj_1028__PCTX_PEXPANDER*/ -/*_.VALDATA___V1091*/ meltfptr[1090] = (void*)&cdat->dobj_1028__PCTX_PEXPANDER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1028__PCTX_PEXPANDER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1028__PCTX_PEXPANDER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1028__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_1028__PCTX_PEXPANDER.obj_num = 1; - cdat->dobj_1028__PCTX_PEXPANDER.obj_hash = 1300225; - cdat->dobj_1028__PCTX_PEXPANDER.obj_len = 4; - - /*inistring dstr_1029__PCTX_PEXPANDER*/ - /*_.VALSTR___V1092*/ meltfptr[1091] = (void*)&cdat->dstr_1029__PCTX_PEXPANDER; - cdat->dstr_1029__PCTX_PEXPANDER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1029__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_1029__PCTX_PEXPANDER.val)-1); - /*iniobj dsym_1030__PCTX_VARMAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1100*/ meltfptr[1099]) /*_.VALDATA___V1100*/ meltfptr[1099] = (void*)&cdat->dsym_1030__PCTX_VARMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1030__PCTX_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1030__PCTX_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1030__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1030__PCTX_VARMAP.obj_hash = 83805471; - cdat->dsym_1030__PCTX_VARMAP.obj_len = 3; - - /*inistring dstr_1031__PCTX_VARMAP*/ - /*_.VALSTR___V1101*/ meltfptr[1100] = (void*)&cdat->dstr_1031__PCTX_VARMAP; - cdat->dstr_1031__PCTX_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1031__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1031__PCTX_VARMAP.val)-1); - /*^iniobj*/ - /*iniobj dobj_1032__PCTX_VARMAP*/ -/*_.VALDATA___V1093*/ meltfptr[1092] = (void*)&cdat->dobj_1032__PCTX_VARMAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1032__PCTX_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1032__PCTX_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1032__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); - cdat->dobj_1032__PCTX_VARMAP.obj_num = 2; - cdat->dobj_1032__PCTX_VARMAP.obj_hash = 66739927; - cdat->dobj_1032__PCTX_VARMAP.obj_len = 4; - - /*inistring dstr_1033__PCTX_VARMAP*/ - /*_.VALSTR___V1094*/ meltfptr[1093] = (void*)&cdat->dstr_1033__PCTX_VARMAP; - cdat->dstr_1033__PCTX_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1033__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1033__PCTX_VARMAP.val)-1); - /*inirout drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALROUT___V1102*/ meltfptr[1101] = (void*)&cdat->drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - cdat->drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1357", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_15_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE); - - /*iniclos dclo_1035__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - /*_.VALCLO___V1123*/ meltfptr[1122] = (void*)&cdat->dclo_1035__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - cdat->dclo_1035__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1035__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; - - /*iniobj dsym_1036__PAIRLIST_TO_MULTIPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1124*/ meltfptr[1123]) /*_.VALDATA___V1124*/ meltfptr[1123] = (void*)&cdat->dsym_1036__PAIRLIST_TO_MULTIPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1036__PAIRLIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1036__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1036__PAIRLIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1036__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; - cdat->dsym_1036__PAIRLIST_TO_MULTIPLE.obj_len = 3; - - /*inistring dstr_1037__PAIRLIST_TO_MULT*/ - /*_.VALSTR___V1125*/ meltfptr[1124] = (void*)&cdat->dstr_1037__PAIRLIST_TO_MULT; - cdat->dstr_1037__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1037__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof (cdat->dstr_1037__PAIRLIST_TO_MULT.val)-1); - /*inirout drout_1038__LAMBDA_*/ - /*_.VALROUT___V1122*/ meltfptr[1121] = (void*)&cdat->drout_1038__LAMBDA_; - cdat->drout_1038__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1038__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1361", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1038__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1038__LAMBDA_, meltrout_16_warmelt_macro_LAMBDA_); - - /*inirout drout_1039__PATMACEXPAND_FOR_MATCHER*/ - /*_.VALROUT___V1115*/ meltfptr[1114] = (void*)&cdat->drout_1039__PATMACEXPAND_FOR_MATCHER; - cdat->drout_1039__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1039__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:1371", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1039__PATMACEXPAND_FOR_MATCHER.nbval = 14; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1039__PATMACEXPAND_FOR_MATCHER, meltrout_17_warmelt_macro_PATMACEXPAND_FOR_MATCHER); - - /*iniclos dclo_1040__PATMACEXPAND_FOR_MATCHER*/ - /*_.VALCLO___V1114*/ meltfptr[1113] = (void*)&cdat->dclo_1040__PATMACEXPAND_FOR_MATCHER; - cdat->dclo_1040__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1040__PATMACEXPAND_FOR_MATCHER.nbval = 0; - - /*iniobj dsym_1041__CLASS_ANY_MATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1126*/ meltfptr[1125]) /*_.VALDATA___V1126*/ meltfptr[1125] = (void*)&cdat->dsym_1041__CLASS_ANY_MATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1041__CLASS_ANY_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1041__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1041__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1041__CLASS_ANY_MATCHER.obj_hash = 781265508; - cdat->dsym_1041__CLASS_ANY_MATCHER.obj_len = 3; - - /*inistring dstr_1042__CLASS_ANY_MATCHE*/ - /*_.VALSTR___V1127*/ meltfptr[1126] = (void*)&cdat->dstr_1042__CLASS_ANY_MATCHE; - cdat->dstr_1042__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1042__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_1042__CLASS_ANY_MATCHE.val)-1); - /*iniobj dsym_1043__DISCR_BOX*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1128*/ meltfptr[1127]) /*_.VALDATA___V1128*/ meltfptr[1127] = (void*)&cdat->dsym_1043__DISCR_BOX; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1043__DISCR_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1043__DISCR_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1043__DISCR_BOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1043__DISCR_BOX.obj_hash = 8042275; - cdat->dsym_1043__DISCR_BOX.obj_len = 3; - - /*inistring dstr_1044__DISCR_BOX*/ - /*_.VALSTR___V1129*/ meltfptr[1128] = (void*)&cdat->dstr_1044__DISCR_BOX; - cdat->dstr_1044__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1044__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_1044__DISCR_BOX.val)-1); - /*iniobj dsym_1045__MULTIPLE_MAP*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1130*/ meltfptr[1129]) /*_.VALDATA___V1130*/ meltfptr[1129] = (void*)&cdat->dsym_1045__MULTIPLE_MAP; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1045__MULTIPLE_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1045__MULTIPLE_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1045__MULTIPLE_MAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1045__MULTIPLE_MAP.obj_hash = 218301686; - cdat->dsym_1045__MULTIPLE_MAP.obj_len = 3; - - /*inistring dstr_1046__MULTIPLE_MAP*/ - /*_.VALSTR___V1131*/ meltfptr[1130] = (void*)&cdat->dstr_1046__MULTIPLE_MAP; - cdat->dstr_1046__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1046__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_1046__MULTIPLE_MAP.val)-1); - /*inirout drout_1047__LAMBDA_*/ - /*_.VALROUT___V1116*/ meltfptr[1115] = (void*)&cdat->drout_1047__LAMBDA_; - cdat->drout_1047__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1047__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1383", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1047__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1047__LAMBDA_, meltrout_18_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1048__CLASS_FORMAL_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1132*/ meltfptr[1131]) /*_.VALDATA___V1132*/ meltfptr[1131] = (void*)&cdat->dsym_1048__CLASS_FORMAL_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1048__CLASS_FORMAL_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1048__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1048__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1048__CLASS_FORMAL_BINDING.obj_hash = 3733780; - cdat->dsym_1048__CLASS_FORMAL_BINDING.obj_len = 3; - - /*inistring dstr_1049__CLASS_FORMAL_BIN*/ - /*_.VALSTR___V1133*/ meltfptr[1132] = (void*)&cdat->dstr_1049__CLASS_FORMAL_BIN; - cdat->dstr_1049__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1049__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_1049__CLASS_FORMAL_BIN.val)-1); - /*inirout drout_1050__LAMBDA_*/ - /*_.VALROUT___V1117*/ meltfptr[1116] = (void*)&cdat->drout_1050__LAMBDA_; - cdat->drout_1050__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1050__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1395", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1050__LAMBDA_.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1050__LAMBDA_, meltrout_19_warmelt_macro_LAMBDA_); - - /*inirout drout_1051__PATTERN_WEIGHT_TUPLE*/ - /*_.VALROUT___V1119*/ meltfptr[1118] = (void*)&cdat->drout_1051__PATTERN_WEIGHT_TUPLE; - cdat->drout_1051__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1051__PATTERN_WEIGHT_TUPLE.routdescr, "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:1414", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1051__PATTERN_WEIGHT_TUPLE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1051__PATTERN_WEIGHT_TUPLE, meltrout_20_warmelt_macro_PATTERN_WEIGHT_TUPLE); - - /*iniclos dclo_1052__PATTERN_WEIGHT_TUPLE*/ - /*_.VALCLO___V1118*/ meltfptr[1117] = (void*)&cdat->dclo_1052__PATTERN_WEIGHT_TUPLE; - cdat->dclo_1052__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1052__PATTERN_WEIGHT_TUPLE.nbval = 0; - - /*iniobj dsym_1053__DISCR_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1134*/ meltfptr[1133]) /*_.VALDATA___V1134*/ meltfptr[1133] = (void*)&cdat->dsym_1053__DISCR_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1053__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1053__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1053__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1053__DISCR_INTEGER.obj_hash = 119182103; - cdat->dsym_1053__DISCR_INTEGER.obj_len = 3; - - /*inistring dstr_1054__DISCR_INTEGER*/ - /*_.VALSTR___V1135*/ meltfptr[1134] = (void*)&cdat->dstr_1054__DISCR_INTEGER; - cdat->dstr_1054__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1054__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_1054__DISCR_INTEGER.val)-1); - /*inirout drout_1055__LAMBDA_*/ - /*_.VALROUT___V1120*/ meltfptr[1119] = (void*)&cdat->drout_1055__LAMBDA_; - cdat->drout_1055__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1055__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1427", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1055__LAMBDA_.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1055__LAMBDA_, meltrout_21_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1056__DISCR_CONSTANT_INTEGER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1136*/ meltfptr[1135]) /*_.VALDATA___V1136*/ meltfptr[1135] = (void*)&cdat->dsym_1056__DISCR_CONSTANT_INTEGER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1056__DISCR_CONSTANT_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1056__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1056__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1056__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; - cdat->dsym_1056__DISCR_CONSTANT_INTEGER.obj_len = 3; - - /*inistring dstr_1057__DISCR_CONSTANT_I*/ - /*_.VALSTR___V1137*/ meltfptr[1136] = (void*)&cdat->dstr_1057__DISCR_CONSTANT_I; - cdat->dstr_1057__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1057__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_1057__DISCR_CONSTANT_I.val)-1); - /*inirout drout_1058__PATTERNEXPAND_EXPR*/ - /*_.VALROUT___V1113*/ meltfptr[1112] = (void*)&cdat->drout_1058__PATTERNEXPAND_EXPR; - cdat->drout_1058__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1058__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.melt:1448", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1058__PATTERNEXPAND_EXPR.nbval = 19; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1058__PATTERNEXPAND_EXPR, meltrout_22_warmelt_macro_PATTERNEXPAND_EXPR); - - /*iniclos dclo_1059__PATTERNEXPAND_EXPR*/ - /*_.VALCLO___V1112*/ meltfptr[1111] = (void*)&cdat->dclo_1059__PATTERNEXPAND_EXPR; - cdat->dclo_1059__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1059__PATTERNEXPAND_EXPR.nbval = 0; - - /*iniobj dsym_1060__CLASS_PATMACRO_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1138*/ meltfptr[1137]) /*_.VALDATA___V1138*/ meltfptr[1137] = (void*)&cdat->dsym_1060__CLASS_PATMACRO_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1060__CLASS_PATMACRO_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1060__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1060__CLASS_PATMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1060__CLASS_PATMACRO_BINDING.obj_hash = 202308327; - cdat->dsym_1060__CLASS_PATMACRO_BINDING.obj_len = 3; - - /*inistring dstr_1061__CLASS_PATMACRO_B*/ - /*_.VALSTR___V1139*/ meltfptr[1138] = (void*)&cdat->dstr_1061__CLASS_PATMACRO_B; - cdat->dstr_1061__CLASS_PATMACRO_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1061__CLASS_PATMACRO_B.val, "CLASS_PATMACRO_BINDING", sizeof (cdat->dstr_1061__CLASS_PATMACRO_B.val)-1); - /*inirout drout_1062__PATTERNEXPAND_1*/ - /*_.VALROUT___V1104*/ meltfptr[1103] = (void*)&cdat->drout_1062__PATTERNEXPAND_1; - cdat->drout_1062__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1062__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.melt:1601", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1062__PATTERNEXPAND_1.nbval = 17; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1062__PATTERNEXPAND_1, meltrout_23_warmelt_macro_PATTERNEXPAND_1); - - /*iniclos dclo_1063__PATTERNEXPAND_1*/ - /*_.VALCLO___V1103*/ meltfptr[1102] = (void*)&cdat->dclo_1063__PATTERNEXPAND_1; - cdat->dclo_1063__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1063__PATTERNEXPAND_1.nbval = 0; - - /*iniobj dsym_1064__QUESTION*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1105*/ meltfptr[1104]) /*_.VALDATA___V1105*/ meltfptr[1104] = (void*)&cdat->dsym_1064__QUESTION; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1064__QUESTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1064__QUESTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1064__QUESTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1064__QUESTION.obj_hash = 320539216; - cdat->dsym_1064__QUESTION.obj_len = 3; - - /*inistring dstr_1065__QUESTION*/ - /*_.VALSTR___V1106*/ meltfptr[1105] = (void*)&cdat->dstr_1065__QUESTION; - cdat->dstr_1065__QUESTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1065__QUESTION.val, "QUESTION", sizeof (cdat->dstr_1065__QUESTION.val)-1); - /*iniboxint dint_1066__*/ - /*_.VALBXINT___V1107*/ meltfptr[1106] = (void*)&cdat->dint_1066__; - cdat->dint_1066__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_1066__.val = 1; - - /*iniobj dsym_1067__*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1108*/ meltfptr[1107]) /*_.VALDATA___V1108*/ meltfptr[1107] = (void*)&cdat->dsym_1067__; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1067__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1067__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1067__.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1067__.obj_hash = 331173307; - cdat->dsym_1067__.obj_len = 3; - - /*inistring dstr_1068__*/ - /*_.VALSTR___V1109*/ meltfptr[1108] = (void*)&cdat->dstr_1068__; - cdat->dstr_1068__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1068__.val, "_", sizeof (cdat->dstr_1068__.val)-1); - /*iniboxint dint_1069__*/ - /*_.VALBXINT___V1110*/ meltfptr[1109] = (void*)&cdat->dint_1069__; - cdat->dint_1069__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_1069__.val = 1; - - /*iniboxint dint_1070__*/ - /*_.VALBXINT___V1111*/ meltfptr[1110] = (void*)&cdat->dint_1070__; - cdat->dint_1070__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_1070__.val = 1; - - /*iniboxint dint_1071__*/ - /*_.VALBXINT___V1121*/ meltfptr[1120] = (void*)&cdat->dint_1071__; - cdat->dint_1071__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); - cdat->dint_1071__.val = 1; - - /*inirout drout_1072__MACROEXPAND_TOPLEVEL_LIST*/ - /*_.VALROUT___V1140*/ meltfptr[1139] = (void*)&cdat->drout_1072__MACROEXPAND_TOPLEVEL_LIST; - cdat->drout_1072__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1072__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1691", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1072__MACROEXPAND_TOPLEVEL_LIST.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1072__MACROEXPAND_TOPLEVEL_LIST, meltrout_24_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST); - - /*iniclos dclo_1073__MACROEXPAND_TOPLEVEL_LIST*/ - /*_.VALCLO___V1141*/ meltfptr[1140] = (void*)&cdat->dclo_1073__MACROEXPAND_TOPLEVEL_LIST; - cdat->dclo_1073__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1073__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; - - /*iniobj dsym_1074__DISCR_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1142*/ meltfptr[1141]) /*_.VALDATA___V1142*/ meltfptr[1141] = (void*)&cdat->dsym_1074__DISCR_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1074__DISCR_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1074__DISCR_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1074__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1074__DISCR_LIST.obj_hash = 98407634; - cdat->dsym_1074__DISCR_LIST.obj_len = 3; - - /*inistring dstr_1075__DISCR_LIST*/ - /*_.VALSTR___V1143*/ meltfptr[1142] = (void*)&cdat->dstr_1075__DISCR_LIST; - cdat->dstr_1075__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1075__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_1075__DISCR_LIST.val)-1); - /*iniobj dsym_1076__CLASS_LOCATED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1144*/ meltfptr[1143]) /*_.VALDATA___V1144*/ meltfptr[1143] = (void*)&cdat->dsym_1076__CLASS_LOCATED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1076__CLASS_LOCATED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1076__CLASS_LOCATED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1076__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1076__CLASS_LOCATED.obj_hash = 979003; - cdat->dsym_1076__CLASS_LOCATED.obj_len = 3; - - /*inistring dstr_1077__CLASS_LOCATED*/ - /*_.VALSTR___V1145*/ meltfptr[1144] = (void*)&cdat->dstr_1077__CLASS_LOCATED; - cdat->dstr_1077__CLASS_LOCATED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1077__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_1077__CLASS_LOCATED.val)-1); - /*inirout drout_1078__LAMBDA_ARG_BINDINGS*/ - /*_.VALROUT___V1028*/ meltfptr[1027] = (void*)&cdat->drout_1078__LAMBDA_ARG_BINDINGS; - cdat->drout_1078__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1078__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1736", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1078__LAMBDA_ARG_BINDINGS.nbval = 11; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1078__LAMBDA_ARG_BINDINGS, meltrout_25_warmelt_macro_LAMBDA_ARG_BINDINGS); - - /*iniclos dclo_1079__LAMBDA_ARG_BINDINGS*/ - /*_.VALCLO___V1027*/ meltfptr[1026] = (void*)&cdat->dclo_1079__LAMBDA_ARG_BINDINGS; - cdat->dclo_1079__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1079__LAMBDA_ARG_BINDINGS.nbval = 0; - - /*iniobj dsym_1080__CTYPE_VALUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1146*/ meltfptr[1145]) /*_.VALDATA___V1146*/ meltfptr[1145] = (void*)&cdat->dsym_1080__CTYPE_VALUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1080__CTYPE_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1080__CTYPE_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1080__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1080__CTYPE_VALUE.obj_hash = 11062864; - cdat->dsym_1080__CTYPE_VALUE.obj_len = 3; - - /*inistring dstr_1081__CTYPE_VALUE*/ - /*_.VALSTR___V1147*/ meltfptr[1146] = (void*)&cdat->dstr_1081__CTYPE_VALUE; - cdat->dstr_1081__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1081__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_1081__CTYPE_VALUE.val)-1); - /*iniobj dsym_1082__DISCR_MAP_OBJECTS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1148*/ meltfptr[1147]) /*_.VALDATA___V1148*/ meltfptr[1147] = (void*)&cdat->dsym_1082__DISCR_MAP_OBJECTS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1082__DISCR_MAP_OBJECTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1082__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1082__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1082__DISCR_MAP_OBJECTS.obj_hash = 217147088; - cdat->dsym_1082__DISCR_MAP_OBJECTS.obj_len = 3; - - /*inistring dstr_1083__DISCR_MAP_OBJECT*/ - /*_.VALSTR___V1149*/ meltfptr[1148] = (void*)&cdat->dstr_1083__DISCR_MAP_OBJECT; - cdat->dstr_1083__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1083__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_1083__DISCR_MAP_OBJECT.val)-1); - /*iniobj dsym_1084__CLASS_CTYPE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1150*/ meltfptr[1149]) /*_.VALDATA___V1150*/ meltfptr[1149] = (void*)&cdat->dsym_1084__CLASS_CTYPE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1084__CLASS_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1084__CLASS_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1084__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1084__CLASS_CTYPE.obj_hash = 78610803; - cdat->dsym_1084__CLASS_CTYPE.obj_len = 3; - - /*inistring dstr_1085__CLASS_CTYPE*/ - /*_.VALSTR___V1151*/ meltfptr[1150] = (void*)&cdat->dstr_1085__CLASS_CTYPE; - cdat->dstr_1085__CLASS_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1085__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_1085__CLASS_CTYPE.val)-1); - /*inirout drout_1086__INSTALL_INITIAL_MACRO*/ - /*_.VALROUT___V1152*/ meltfptr[1151] = (void*)&cdat->drout_1086__INSTALL_INITIAL_MACRO; - cdat->drout_1086__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1086__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1830", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1086__INSTALL_INITIAL_MACRO.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1086__INSTALL_INITIAL_MACRO, meltrout_26_warmelt_macro_INSTALL_INITIAL_MACRO); - - /*iniclos dclo_1087__INSTALL_INITIAL_MACRO*/ - /*_.VALCLO___V1153*/ meltfptr[1152] = (void*)&cdat->dclo_1087__INSTALL_INITIAL_MACRO; - cdat->dclo_1087__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1087__INSTALL_INITIAL_MACRO.nbval = 0; - - /*iniobj dsym_1088__PUT_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1154*/ meltfptr[1153]) /*_.VALDATA___V1154*/ meltfptr[1153] = (void*)&cdat->dsym_1088__PUT_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1088__PUT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1088__PUT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1088__PUT_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1088__PUT_ENV.obj_hash = 440202203; - cdat->dsym_1088__PUT_ENV.obj_len = 3; - - /*inistring dstr_1089__PUT_ENV*/ - /*_.VALSTR___V1155*/ meltfptr[1154] = (void*)&cdat->dstr_1089__PUT_ENV; - cdat->dstr_1089__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1089__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_1089__PUT_ENV.val)-1); - /*iniobj dsym_1090__INITIAL_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1156*/ meltfptr[1155]) /*_.VALDATA___V1156*/ meltfptr[1155] = (void*)&cdat->dsym_1090__INITIAL_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1090__INITIAL_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1090__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1090__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1090__INITIAL_ENVIRONMENT.obj_hash = 756729242; - cdat->dsym_1090__INITIAL_ENVIRONMENT.obj_len = 3; - - /*inistring dstr_1091__INITIAL_ENVIRONM*/ - /*_.VALSTR___V1157*/ meltfptr[1156] = (void*)&cdat->dstr_1091__INITIAL_ENVIRONM; - cdat->dstr_1091__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1091__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_1091__INITIAL_ENVIRONM.val)-1); - /*inirout drout_1092__INSTALL_INITIAL_PATMACRO*/ - /*_.VALROUT___V1158*/ meltfptr[1157] = (void*)&cdat->drout_1092__INSTALL_INITIAL_PATMACRO; - cdat->drout_1092__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1092__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:1856", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1092__INSTALL_INITIAL_PATMACRO.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1092__INSTALL_INITIAL_PATMACRO, meltrout_27_warmelt_macro_INSTALL_INITIAL_PATMACRO); - - /*iniclos dclo_1093__INSTALL_INITIAL_PATMACRO*/ - /*_.VALCLO___V1159*/ meltfptr[1158] = (void*)&cdat->dclo_1093__INSTALL_INITIAL_PATMACRO; - cdat->dclo_1093__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1093__INSTALL_INITIAL_PATMACRO.nbval = 0; - - /*iniobj dsym_1094__WARN_SHADOW*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1160*/ meltfptr[1159]) /*_.VALDATA___V1160*/ meltfptr[1159] = (void*)&cdat->dsym_1094__WARN_SHADOW; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1094__WARN_SHADOW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1094__WARN_SHADOW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1094__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1094__WARN_SHADOW.obj_hash = 463836272; - cdat->dsym_1094__WARN_SHADOW.obj_len = 3; - - /*inistring dstr_1095__WARN_SHADOW*/ - /*_.VALSTR___V1161*/ meltfptr[1160] = (void*)&cdat->dstr_1095__WARN_SHADOW; - cdat->dstr_1095__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1095__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1095__WARN_SHADOW.val)-1); - MELT_LOCATION("warmelt-macro.melt:1874:/ iniobj"); - /*iniobj dobj_1096__WARN_SHADOW*/ -/*_.VALDATA___V1162*/ meltfptr[1161] = (void*)&cdat->dobj_1096__WARN_SHADOW; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1096__WARN_SHADOW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1096__WARN_SHADOW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1096__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1096__WARN_SHADOW.obj_hash = 587942471; - cdat->dobj_1096__WARN_SHADOW.obj_len = 5; - - /*inimult dtup_1097__WARN_SHADOW*/ - /*_.VALTUP___V1166*/ meltfptr[1165] = (void*)&cdat->dtup_1097__WARN_SHADOW; - cdat->dtup_1097__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_1097__WARN_SHADOW.nbval = 1; - /*inimult dtup_1098__WARN_SHADOW*/ - /*_.VALTUP___V1164*/ meltfptr[1163] = (void*)&cdat->dtup_1098__WARN_SHADOW; - cdat->dtup_1098__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - cdat->dtup_1098__WARN_SHADOW.nbval = 0; - /*inistring dstr_1099__warn_shadow*/ - /*_.VALSTR___V1165*/ meltfptr[1164] = (void*)&cdat->dstr_1099__warn_shadow; - cdat->dstr_1099__warn_shadow.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1099__warn_shadow.val, "warn_shadow", sizeof (cdat->dstr_1099__warn_shadow.val)-1); - /*inistring dstr_1100__WARN_SHADOW*/ - /*_.VALSTR___V1163*/ meltfptr[1162] = (void*)&cdat->dstr_1100__WARN_SHADOW; - cdat->dstr_1100__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1100__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1100__WARN_SHADOW.val)-1); - /*inirout drout_1101__WARN_IF_REDEFINED*/ - /*_.VALROUT___V1167*/ meltfptr[1166] = (void*)&cdat->drout_1101__WARN_IF_REDEFINED; - cdat->drout_1101__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1101__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:1878", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1101__WARN_IF_REDEFINED.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1101__WARN_IF_REDEFINED, meltrout_28_warmelt_macro_WARN_IF_REDEFINED); - - /*iniclos dclo_1102__WARN_IF_REDEFINED*/ - /*_.VALCLO___V1168*/ meltfptr[1167] = (void*)&cdat->dclo_1102__WARN_IF_REDEFINED; - cdat->dclo_1102__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1102__WARN_IF_REDEFINED.nbval = 0; - - /*inirout drout_1103__FLATTEN_FOR_C_CODE_EXPANSION*/ - /*_.VALROUT___V1169*/ meltfptr[1168] = (void*)&cdat->drout_1103__FLATTEN_FOR_C_CODE_EXPANSION; - cdat->drout_1103__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1103__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:1891", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1103__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1103__FLATTEN_FOR_C_CODE_EXPANSION, meltrout_29_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION); - - /*iniclos dclo_1104__FLATTEN_FOR_C_CODE_EXPANSION*/ - /*_.VALCLO___V1170*/ meltfptr[1169] = (void*)&cdat->dclo_1104__FLATTEN_FOR_C_CODE_EXPANSION; - cdat->dclo_1104__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1104__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; - - /*iniobj dsym_1105__DISCR_VERBATIM_STRING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1171*/ meltfptr[1170]) /*_.VALDATA___V1171*/ meltfptr[1170] = (void*)&cdat->dsym_1105__DISCR_VERBATIM_STRING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1105__DISCR_VERBATIM_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1105__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1105__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1105__DISCR_VERBATIM_STRING.obj_hash = 258402049; - cdat->dsym_1105__DISCR_VERBATIM_STRING.obj_len = 3; - - /*inistring dstr_1106__DISCR_VERBATIM_S*/ - /*_.VALSTR___V1172*/ meltfptr[1171] = (void*)&cdat->dstr_1106__DISCR_VERBATIM_S; - cdat->dstr_1106__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1106__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_1106__DISCR_VERBATIM_S.val)-1); - /*inirout drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*_.VALROUT___V1173*/ meltfptr[1172] = (void*)&cdat->drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION; - cdat->drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:1937", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION, meltrout_30_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION); - - /*iniclos dclo_1108__PARSE_PAIRLIST_C_CODE_EXPANSION*/ - /*_.VALCLO___V1174*/ meltfptr[1173] = (void*)&cdat->dclo_1108__PARSE_PAIRLIST_C_CODE_EXPANSION; - cdat->dclo_1108__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1108__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; - - /*inirout drout_1109__CHECK_C_EXPANSION*/ - /*_.VALROUT___V1175*/ meltfptr[1174] = (void*)&cdat->drout_1109__CHECK_C_EXPANSION; - cdat->drout_1109__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1109__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:1958", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1109__CHECK_C_EXPANSION.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1109__CHECK_C_EXPANSION, meltrout_31_warmelt_macro_CHECK_C_EXPANSION); - - /*iniclos dclo_1110__CHECK_C_EXPANSION*/ - /*_.VALCLO___V1176*/ meltfptr[1175] = (void*)&cdat->dclo_1110__CHECK_C_EXPANSION; - cdat->dclo_1110__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1110__CHECK_C_EXPANSION.nbval = 0; - - /*inirout drout_1111__MEXPAND_DEFPRIMITIVE*/ - /*_.VALROUT___V1177*/ meltfptr[1176] = (void*)&cdat->drout_1111__MEXPAND_DEFPRIMITIVE; - cdat->drout_1111__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1111__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:1986", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1111__MEXPAND_DEFPRIMITIVE.nbval = 19; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1111__MEXPAND_DEFPRIMITIVE, meltrout_32_warmelt_macro_MEXPAND_DEFPRIMITIVE); - - /*iniclos dclo_1112__MEXPAND_DEFPRIMITIVE*/ - /*_.VALCLO___V1180*/ meltfptr[1179] = (void*)&cdat->dclo_1112__MEXPAND_DEFPRIMITIVE; - cdat->dclo_1112__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1112__MEXPAND_DEFPRIMITIVE.nbval = 0; - - /*iniobj dsym_1113__DOC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1178*/ meltfptr[1177]) /*_.VALDATA___V1178*/ meltfptr[1177] = (void*)&cdat->dsym_1113__DOC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1113__DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1113__DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1113__DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1113__DOC.obj_hash = 518786062; - cdat->dsym_1113__DOC.obj_len = 3; - - /*inistring dstr_1114__DOC*/ - /*_.VALSTR___V1179*/ meltfptr[1178] = (void*)&cdat->dstr_1114__DOC; - cdat->dstr_1114__DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1114__DOC.val, "DOC", sizeof (cdat->dstr_1114__DOC.val)-1); - /*iniobj dsym_1115__CLASS_ANY_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1181*/ meltfptr[1180]) /*_.VALDATA___V1181*/ meltfptr[1180] = (void*)&cdat->dsym_1115__CLASS_ANY_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1115__CLASS_ANY_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1115__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1115__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1115__CLASS_ANY_BINDING.obj_hash = 935770; - cdat->dsym_1115__CLASS_ANY_BINDING.obj_len = 3; - - /*inistring dstr_1116__CLASS_ANY_BINDIN*/ - /*_.VALSTR___V1182*/ meltfptr[1181] = (void*)&cdat->dstr_1116__CLASS_ANY_BINDIN; - cdat->dstr_1116__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1116__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_1116__CLASS_ANY_BINDIN.val)-1); - /*iniobj dsym_1117__DEFPRIMITIVE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1183*/ meltfptr[1182]) /*_.VALDATA___V1183*/ meltfptr[1182] = (void*)&cdat->dsym_1117__DEFPRIMITIVE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1117__DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1117__DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1117__DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1117__DEFPRIMITIVE.obj_hash = 68752716; - cdat->dsym_1117__DEFPRIMITIVE.obj_len = 3; - - /*inistring dstr_1118__DEFPRIMITIVE*/ - /*_.VALSTR___V1184*/ meltfptr[1183] = (void*)&cdat->dstr_1118__DEFPRIMITIVE; - cdat->dstr_1118__DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1118__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (cdat->dstr_1118__DEFPRIMITIVE.val)-1); - /*inirout drout_1119__MEXPAND_DEFCITERATOR*/ - /*_.VALROUT___V1185*/ meltfptr[1184] = (void*)&cdat->drout_1119__MEXPAND_DEFCITERATOR; - cdat->drout_1119__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1119__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2094", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1119__MEXPAND_DEFCITERATOR.nbval = 15; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1119__MEXPAND_DEFCITERATOR, meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR); - - /*iniclos dclo_1120__MEXPAND_DEFCITERATOR*/ - /*_.VALCLO___V1186*/ meltfptr[1185] = (void*)&cdat->dclo_1120__MEXPAND_DEFCITERATOR; - cdat->dclo_1120__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1120__MEXPAND_DEFCITERATOR.nbval = 0; - - /*iniobj dsym_1121__DEFCITERATOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1187*/ meltfptr[1186]) /*_.VALDATA___V1187*/ meltfptr[1186] = (void*)&cdat->dsym_1121__DEFCITERATOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1121__DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1121__DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1121__DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1121__DEFCITERATOR.obj_hash = 388838610; - cdat->dsym_1121__DEFCITERATOR.obj_len = 3; - - /*inistring dstr_1122__DEFCITERATOR*/ - /*_.VALSTR___V1188*/ meltfptr[1187] = (void*)&cdat->dstr_1122__DEFCITERATOR; - cdat->dstr_1122__DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1122__DEFCITERATOR.val, "DEFCITERATOR", sizeof (cdat->dstr_1122__DEFCITERATOR.val)-1); - /*inirout drout_1123__MEXPAND_DEFVARIADIC*/ - /*_.VALROUT___V1189*/ meltfptr[1188] = (void*)&cdat->drout_1123__MEXPAND_DEFVARIADIC; - cdat->drout_1123__MEXPAND_DEFVARIADIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1123__MEXPAND_DEFVARIADIC.routdescr, "MEXPAND_DEFVARIADIC @warmelt-macro.melt:2217", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1123__MEXPAND_DEFVARIADIC.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1123__MEXPAND_DEFVARIADIC, meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC); - - /*iniclos dclo_1124__MEXPAND_DEFVARIADIC*/ - /*_.VALCLO___V1190*/ meltfptr[1189] = (void*)&cdat->dclo_1124__MEXPAND_DEFVARIADIC; - cdat->dclo_1124__MEXPAND_DEFVARIADIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1124__MEXPAND_DEFVARIADIC.nbval = 0; - - /*iniobj dsym_1125__DEFVARIADIC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1191*/ meltfptr[1190]) /*_.VALDATA___V1191*/ meltfptr[1190] = (void*)&cdat->dsym_1125__DEFVARIADIC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1125__DEFVARIADIC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1125__DEFVARIADIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1125__DEFVARIADIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1125__DEFVARIADIC.obj_hash = 597875232; - cdat->dsym_1125__DEFVARIADIC.obj_len = 3; - - /*inistring dstr_1126__DEFVARIADIC*/ - /*_.VALSTR___V1192*/ meltfptr[1191] = (void*)&cdat->dstr_1126__DEFVARIADIC; - cdat->dstr_1126__DEFVARIADIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1126__DEFVARIADIC.val, "DEFVARIADIC", sizeof (cdat->dstr_1126__DEFVARIADIC.val)-1); - /*inirout drout_1127__MEXPAND_DEFCMATCHER*/ - /*_.VALROUT___V1193*/ meltfptr[1192] = (void*)&cdat->drout_1127__MEXPAND_DEFCMATCHER; - cdat->drout_1127__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1127__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:2238", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1127__MEXPAND_DEFCMATCHER.nbval = 18; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1127__MEXPAND_DEFCMATCHER, meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER); - - /*iniclos dclo_1128__MEXPAND_DEFCMATCHER*/ - /*_.VALCLO___V1195*/ meltfptr[1194] = (void*)&cdat->dclo_1128__MEXPAND_DEFCMATCHER; - cdat->dclo_1128__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1128__MEXPAND_DEFCMATCHER.nbval = 0; - - /*iniobj dsym_1129__MULTIPLE_EVERY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1196*/ meltfptr[1195]) /*_.VALDATA___V1196*/ meltfptr[1195] = (void*)&cdat->dsym_1129__MULTIPLE_EVERY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1129__MULTIPLE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1129__MULTIPLE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1129__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1129__MULTIPLE_EVERY.obj_hash = 130098745; - cdat->dsym_1129__MULTIPLE_EVERY.obj_len = 3; - - /*inistring dstr_1130__MULTIPLE_EVERY*/ - /*_.VALSTR___V1197*/ meltfptr[1196] = (void*)&cdat->dstr_1130__MULTIPLE_EVERY; - cdat->dstr_1130__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1130__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (cdat->dstr_1130__MULTIPLE_EVERY.val)-1); - /*inirout drout_1131__LAMBDA_*/ - /*_.VALROUT___V1194*/ meltfptr[1193] = (void*)&cdat->drout_1131__LAMBDA_; - cdat->drout_1131__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1131__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2281", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1131__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1131__LAMBDA_, meltrout_36_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1132__DEFCMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1198*/ meltfptr[1197]) /*_.VALDATA___V1198*/ meltfptr[1197] = (void*)&cdat->dsym_1132__DEFCMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1132__DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1132__DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1132__DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1132__DEFCMATCHER.obj_hash = 63669746; - cdat->dsym_1132__DEFCMATCHER.obj_len = 3; - - /*inistring dstr_1133__DEFCMATCHER*/ - /*_.VALSTR___V1199*/ meltfptr[1198] = (void*)&cdat->dstr_1133__DEFCMATCHER; - cdat->dstr_1133__DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1133__DEFCMATCHER.val, "DEFCMATCHER", sizeof (cdat->dstr_1133__DEFCMATCHER.val)-1); - /*inirout drout_1134__MEXPAND_DEFUNMATCHER*/ - /*_.VALROUT___V1200*/ meltfptr[1199] = (void*)&cdat->drout_1134__MEXPAND_DEFUNMATCHER; - cdat->drout_1134__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1134__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:2414", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1134__MEXPAND_DEFUNMATCHER.nbval = 14; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1134__MEXPAND_DEFUNMATCHER, meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER); - - /*iniclos dclo_1135__MEXPAND_DEFUNMATCHER*/ - /*_.VALCLO___V1202*/ meltfptr[1201] = (void*)&cdat->dclo_1135__MEXPAND_DEFUNMATCHER; - cdat->dclo_1135__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1135__MEXPAND_DEFUNMATCHER.nbval = 0; - - /*inirout drout_1136__LAMBDA_*/ - /*_.VALROUT___V1201*/ meltfptr[1200] = (void*)&cdat->drout_1136__LAMBDA_; - cdat->drout_1136__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1136__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2455", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1136__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1136__LAMBDA_, meltrout_38_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1137__DEFUNMATCHER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1203*/ meltfptr[1202]) /*_.VALDATA___V1203*/ meltfptr[1202] = (void*)&cdat->dsym_1137__DEFUNMATCHER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1137__DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1137__DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1137__DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1137__DEFUNMATCHER.obj_hash = 739727106; - cdat->dsym_1137__DEFUNMATCHER.obj_len = 3; - - /*inistring dstr_1138__DEFUNMATCHER*/ - /*_.VALSTR___V1204*/ meltfptr[1203] = (void*)&cdat->dstr_1138__DEFUNMATCHER; - cdat->dstr_1138__DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1138__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (cdat->dstr_1138__DEFUNMATCHER.val)-1); - /*inirout drout_1139__MEXPAND_DEFUN*/ - /*_.VALROUT___V1205*/ meltfptr[1204] = (void*)&cdat->drout_1139__MEXPAND_DEFUN; - cdat->drout_1139__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1139__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:2548", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1139__MEXPAND_DEFUN.nbval = 16; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1139__MEXPAND_DEFUN, meltrout_39_warmelt_macro_MEXPAND_DEFUN); - - /*iniclos dclo_1140__MEXPAND_DEFUN*/ - /*_.VALCLO___V1207*/ meltfptr[1206] = (void*)&cdat->dclo_1140__MEXPAND_DEFUN; - cdat->dclo_1140__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1140__MEXPAND_DEFUN.nbval = 0; - - /*iniobj dsym_1141__FRESH_ENV*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1208*/ meltfptr[1207]) /*_.VALDATA___V1208*/ meltfptr[1207] = (void*)&cdat->dsym_1141__FRESH_ENV; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1141__FRESH_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1141__FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1141__FRESH_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1141__FRESH_ENV.obj_hash = 1002363940; - cdat->dsym_1141__FRESH_ENV.obj_len = 3; - - /*inistring dstr_1142__FRESH_ENV*/ - /*_.VALSTR___V1209*/ meltfptr[1208] = (void*)&cdat->dstr_1142__FRESH_ENV; - cdat->dstr_1142__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1142__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_1142__FRESH_ENV.val)-1); - /*inirout drout_1143__LAMBDA_*/ - /*_.VALROUT___V1206*/ meltfptr[1205] = (void*)&cdat->drout_1143__LAMBDA_; - cdat->drout_1143__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1143__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2579", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1143__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1143__LAMBDA_, meltrout_40_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1144__CLASS_FUNCTION_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1210*/ meltfptr[1209]) /*_.VALDATA___V1210*/ meltfptr[1209] = (void*)&cdat->dsym_1144__CLASS_FUNCTION_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1144__CLASS_FUNCTION_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1144__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1144__CLASS_FUNCTION_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1144__CLASS_FUNCTION_BINDING.obj_hash = 942362333; - cdat->dsym_1144__CLASS_FUNCTION_BINDING.obj_len = 3; - - /*inistring dstr_1145__CLASS_FUNCTION_B*/ - /*_.VALSTR___V1211*/ meltfptr[1210] = (void*)&cdat->dstr_1145__CLASS_FUNCTION_B; - cdat->dstr_1145__CLASS_FUNCTION_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1145__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING", sizeof (cdat->dstr_1145__CLASS_FUNCTION_B.val)-1); - /*iniobj dsym_1146__DEFUN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1212*/ meltfptr[1211]) /*_.VALDATA___V1212*/ meltfptr[1211] = (void*)&cdat->dsym_1146__DEFUN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1146__DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1146__DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1146__DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1146__DEFUN.obj_hash = 98259022; - cdat->dsym_1146__DEFUN.obj_len = 3; - - /*inistring dstr_1147__DEFUN*/ - /*_.VALSTR___V1213*/ meltfptr[1212] = (void*)&cdat->dstr_1147__DEFUN; - cdat->dstr_1147__DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1147__DEFUN.val, "DEFUN", sizeof (cdat->dstr_1147__DEFUN.val)-1); - /*inirout drout_1148__MEXPAND_DEFINE*/ - /*_.VALROUT___V1214*/ meltfptr[1213] = (void*)&cdat->drout_1148__MEXPAND_DEFINE; - cdat->drout_1148__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1148__MEXPAND_DEFINE.routdescr, "MEXPAND_DEFINE @warmelt-macro.melt:2621", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1148__MEXPAND_DEFINE.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1148__MEXPAND_DEFINE, meltrout_41_warmelt_macro_MEXPAND_DEFINE); - - /*iniclos dclo_1149__MEXPAND_DEFINE*/ - /*_.VALCLO___V1215*/ meltfptr[1214] = (void*)&cdat->dclo_1149__MEXPAND_DEFINE; - cdat->dclo_1149__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1149__MEXPAND_DEFINE.nbval = 0; - - /*iniobj dsym_1150__DEFINE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1216*/ meltfptr[1215]) /*_.VALDATA___V1216*/ meltfptr[1215] = (void*)&cdat->dsym_1150__DEFINE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1150__DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1150__DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1150__DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1150__DEFINE.obj_hash = 264523154; - cdat->dsym_1150__DEFINE.obj_len = 3; - - /*inistring dstr_1151__DEFINE*/ - /*_.VALSTR___V1217*/ meltfptr[1216] = (void*)&cdat->dstr_1151__DEFINE; - cdat->dstr_1151__DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1151__DEFINE.val, "DEFINE", sizeof (cdat->dstr_1151__DEFINE.val)-1); - /*inirout drout_1152__SCAN_DEFCLASS*/ - /*_.VALROUT___V1218*/ meltfptr[1217] = (void*)&cdat->drout_1152__SCAN_DEFCLASS; - cdat->drout_1152__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1152__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:2664", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1152__SCAN_DEFCLASS.nbval = 15; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1152__SCAN_DEFCLASS, meltrout_42_warmelt_macro_SCAN_DEFCLASS); - - /*iniclos dclo_1153__SCAN_DEFCLASS*/ - /*_.VALCLO___V1225*/ meltfptr[1224] = (void*)&cdat->dclo_1153__SCAN_DEFCLASS; - cdat->dclo_1153__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1153__SCAN_DEFCLASS.nbval = 0; - - /*iniobj dsym_1154__SUPER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1219*/ meltfptr[1218]) /*_.VALDATA___V1219*/ meltfptr[1218] = (void*)&cdat->dsym_1154__SUPER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1154__SUPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1154__SUPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1154__SUPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1154__SUPER.obj_hash = 103938843; - cdat->dsym_1154__SUPER.obj_len = 3; - - /*inistring dstr_1155__SUPER*/ - /*_.VALSTR___V1220*/ meltfptr[1219] = (void*)&cdat->dstr_1155__SUPER; - cdat->dstr_1155__SUPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1155__SUPER.val, "SUPER", sizeof (cdat->dstr_1155__SUPER.val)-1); - /*iniobj dsym_1156__CLASS_CLASS_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1226*/ meltfptr[1225]) /*_.VALDATA___V1226*/ meltfptr[1225] = (void*)&cdat->dsym_1156__CLASS_CLASS_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1156__CLASS_CLASS_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1156__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1156__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1156__CLASS_CLASS_BINDING.obj_hash = 848133131; - cdat->dsym_1156__CLASS_CLASS_BINDING.obj_len = 3; - - /*inistring dstr_1157__CLASS_CLASS_BIND*/ - /*_.VALSTR___V1227*/ meltfptr[1226] = (void*)&cdat->dstr_1157__CLASS_CLASS_BIND; - cdat->dstr_1157__CLASS_CLASS_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1157__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof (cdat->dstr_1157__CLASS_CLASS_BIND.val)-1); - /*iniobj dsym_1158__CLASS_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1228*/ meltfptr[1227]) /*_.VALDATA___V1228*/ meltfptr[1227] = (void*)&cdat->dsym_1158__CLASS_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1158__CLASS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1158__CLASS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1158__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1158__CLASS_CLASS.obj_hash = 60141292; - cdat->dsym_1158__CLASS_CLASS.obj_len = 3; - - /*inistring dstr_1159__CLASS_CLASS*/ - /*_.VALSTR___V1229*/ meltfptr[1228] = (void*)&cdat->dstr_1159__CLASS_CLASS; - cdat->dstr_1159__CLASS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1159__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_1159__CLASS_CLASS.val)-1); - /*iniobj dsym_1160__FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1221*/ meltfptr[1220]) /*_.VALDATA___V1221*/ meltfptr[1220] = (void*)&cdat->dsym_1160__FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1160__FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1160__FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1160__FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1160__FIELDS.obj_hash = 63787385; - cdat->dsym_1160__FIELDS.obj_len = 3; - - /*inistring dstr_1161__FIELDS*/ - /*_.VALSTR___V1222*/ meltfptr[1221] = (void*)&cdat->dstr_1161__FIELDS; - cdat->dstr_1161__FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1161__FIELDS.val, "FIELDS", sizeof (cdat->dstr_1161__FIELDS.val)-1); - /*iniobj dsym_1162__PREDEF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1223*/ meltfptr[1222]) /*_.VALDATA___V1223*/ meltfptr[1222] = (void*)&cdat->dsym_1162__PREDEF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1162__PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1162__PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1162__PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1162__PREDEF.obj_hash = 55393491; - cdat->dsym_1162__PREDEF.obj_len = 3; - - /*inistring dstr_1163__PREDEF*/ - /*_.VALSTR___V1224*/ meltfptr[1223] = (void*)&cdat->dstr_1163__PREDEF; - cdat->dstr_1163__PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1163__PREDEF.val, "PREDEF", sizeof (cdat->dstr_1163__PREDEF.val)-1); - /*inirout drout_1164__MEXPAND_DEFCLASS*/ - /*_.VALROUT___V1230*/ meltfptr[1229] = (void*)&cdat->drout_1164__MEXPAND_DEFCLASS; - cdat->drout_1164__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1164__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:2784", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1164__MEXPAND_DEFCLASS.nbval = 27; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1164__MEXPAND_DEFCLASS, meltrout_43_warmelt_macro_MEXPAND_DEFCLASS); - - /*iniclos dclo_1165__MEXPAND_DEFCLASS*/ - /*_.VALCLO___V1233*/ meltfptr[1232] = (void*)&cdat->dclo_1165__MEXPAND_DEFCLASS; - cdat->dclo_1165__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1165__MEXPAND_DEFCLASS.nbval = 0; - - /*iniobj dsym_1166__DISCR_CLASS_SEQUENCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1234*/ meltfptr[1233]) /*_.VALDATA___V1234*/ meltfptr[1233] = (void*)&cdat->dsym_1166__DISCR_CLASS_SEQUENCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1166__DISCR_CLASS_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1166__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1166__DISCR_CLASS_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1166__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; - cdat->dsym_1166__DISCR_CLASS_SEQUENCE.obj_len = 3; - - /*inistring dstr_1167__DISCR_CLASS_SEQU*/ - /*_.VALSTR___V1235*/ meltfptr[1234] = (void*)&cdat->dstr_1167__DISCR_CLASS_SEQU; - cdat->dstr_1167__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1167__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_1167__DISCR_CLASS_SEQU.val)-1); - /*iniobj dsym_1168__DISCR_MAP_STRINGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1236*/ meltfptr[1235]) /*_.VALDATA___V1236*/ meltfptr[1235] = (void*)&cdat->dsym_1168__DISCR_MAP_STRINGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1168__DISCR_MAP_STRINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1168__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1168__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1168__DISCR_MAP_STRINGS.obj_hash = 344609662; - cdat->dsym_1168__DISCR_MAP_STRINGS.obj_len = 3; - - /*inistring dstr_1169__DISCR_MAP_STRING*/ - /*_.VALSTR___V1237*/ meltfptr[1236] = (void*)&cdat->dstr_1169__DISCR_MAP_STRING; - cdat->dstr_1169__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1169__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_1169__DISCR_MAP_STRING.val)-1); - /*iniobj dsym_1170__DISCR_FIELD_SEQUENCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1238*/ meltfptr[1237]) /*_.VALDATA___V1238*/ meltfptr[1237] = (void*)&cdat->dsym_1170__DISCR_FIELD_SEQUENCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1170__DISCR_FIELD_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1170__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1170__DISCR_FIELD_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1170__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; - cdat->dsym_1170__DISCR_FIELD_SEQUENCE.obj_len = 3; - - /*inistring dstr_1171__DISCR_FIELD_SEQU*/ - /*_.VALSTR___V1239*/ meltfptr[1238] = (void*)&cdat->dstr_1171__DISCR_FIELD_SEQU; - cdat->dstr_1171__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1171__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_1171__DISCR_FIELD_SEQU.val)-1); - /*inirout drout_1172__LAMBDA_*/ - /*_.VALROUT___V1231*/ meltfptr[1230] = (void*)&cdat->drout_1172__LAMBDA_; - cdat->drout_1172__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1172__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2846", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1172__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1172__LAMBDA_, meltrout_44_warmelt_macro_LAMBDA_); - - /*inirout drout_1173__LAMBDA_*/ - /*_.VALROUT___V1232*/ meltfptr[1231] = (void*)&cdat->drout_1173__LAMBDA_; - cdat->drout_1173__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1173__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2855", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1173__LAMBDA_.nbval = 9; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1173__LAMBDA_, meltrout_45_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1174__DEFCLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1240*/ meltfptr[1239]) /*_.VALDATA___V1240*/ meltfptr[1239] = (void*)&cdat->dsym_1174__DEFCLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1174__DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1174__DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1174__DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1174__DEFCLASS.obj_hash = 67702184; - cdat->dsym_1174__DEFCLASS.obj_len = 3; - - /*inistring dstr_1175__DEFCLASS*/ - /*_.VALSTR___V1241*/ meltfptr[1240] = (void*)&cdat->dstr_1175__DEFCLASS; - cdat->dstr_1175__DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1175__DEFCLASS.val, "DEFCLASS", sizeof (cdat->dstr_1175__DEFCLASS.val)-1); - /*inirout drout_1176__PARSE_FIELD_ASSIGNMENT*/ - /*_.VALROUT___V1242*/ meltfptr[1241] = (void*)&cdat->drout_1176__PARSE_FIELD_ASSIGNMENT; - cdat->drout_1176__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1176__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:2933", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1176__PARSE_FIELD_ASSIGNMENT.nbval = 15; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1176__PARSE_FIELD_ASSIGNMENT, meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT); - - /*iniclos dclo_1177__PARSE_FIELD_ASSIGNMENT*/ - /*_.VALCLO___V1246*/ meltfptr[1245] = (void*)&cdat->dclo_1177__PARSE_FIELD_ASSIGNMENT; - cdat->dclo_1177__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1177__PARSE_FIELD_ASSIGNMENT.nbval = 0; - - /*iniobj dsym_1178__MULTIPLE_ITERATE_TEST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1247*/ meltfptr[1246]) /*_.VALDATA___V1247*/ meltfptr[1246] = (void*)&cdat->dsym_1178__MULTIPLE_ITERATE_TEST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1178__MULTIPLE_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1178__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1178__MULTIPLE_ITERATE_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1178__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; - cdat->dsym_1178__MULTIPLE_ITERATE_TEST.obj_len = 3; - - /*inistring dstr_1179__MULTIPLE_ITERATE*/ - /*_.VALSTR___V1248*/ meltfptr[1247] = (void*)&cdat->dstr_1179__MULTIPLE_ITERATE; - cdat->dstr_1179__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1179__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof (cdat->dstr_1179__MULTIPLE_ITERATE.val)-1); - /*inirout drout_1180__LAMBDA_*/ - /*_.VALROUT___V1243*/ meltfptr[1242] = (void*)&cdat->drout_1180__LAMBDA_; - cdat->drout_1180__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1180__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2956", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1180__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1180__LAMBDA_, meltrout_47_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1181__TRUE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1244*/ meltfptr[1243]) /*_.VALDATA___V1244*/ meltfptr[1243] = (void*)&cdat->dsym_1181__TRUE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1181__TRUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1181__TRUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1181__TRUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1181__TRUE.obj_hash = 576485513; - cdat->dsym_1181__TRUE.obj_len = 3; - - /*inistring dstr_1182__TRUE*/ - /*_.VALSTR___V1245*/ meltfptr[1244] = (void*)&cdat->dstr_1182__TRUE; - cdat->dstr_1182__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1182__TRUE.val, "TRUE", sizeof (cdat->dstr_1182__TRUE.val)-1); - /*inirout drout_1183__MEXPAND_DEFINSTANCE*/ - /*_.VALROUT___V1249*/ meltfptr[1248] = (void*)&cdat->drout_1183__MEXPAND_DEFINSTANCE; - cdat->drout_1183__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1183__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:3029", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1183__MEXPAND_DEFINSTANCE.nbval = 21; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1183__MEXPAND_DEFINSTANCE, meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE); - - /*iniclos dclo_1184__MEXPAND_DEFINSTANCE*/ - /*_.VALCLO___V1252*/ meltfptr[1251] = (void*)&cdat->dclo_1184__MEXPAND_DEFINSTANCE; - cdat->dclo_1184__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1184__MEXPAND_DEFINSTANCE.nbval = 0; - - /*iniobj dsym_1185__OBJ_NUM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1250*/ meltfptr[1249]) /*_.VALDATA___V1250*/ meltfptr[1249] = (void*)&cdat->dsym_1185__OBJ_NUM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1185__OBJ_NUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1185__OBJ_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1185__OBJ_NUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1185__OBJ_NUM.obj_hash = 56861275; - cdat->dsym_1185__OBJ_NUM.obj_len = 3; - - /*inistring dstr_1186__OBJ_NUM*/ - /*_.VALSTR___V1251*/ meltfptr[1250] = (void*)&cdat->dstr_1186__OBJ_NUM; - cdat->dstr_1186__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1186__OBJ_NUM.val, "OBJ_NUM", sizeof (cdat->dstr_1186__OBJ_NUM.val)-1); - /*iniobj dsym_1187__CLASS_INSTANCE_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1253*/ meltfptr[1252]) /*_.VALDATA___V1253*/ meltfptr[1252] = (void*)&cdat->dsym_1187__CLASS_INSTANCE_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1187__CLASS_INSTANCE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1187__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1187__CLASS_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1187__CLASS_INSTANCE_BINDING.obj_hash = 401143458; - cdat->dsym_1187__CLASS_INSTANCE_BINDING.obj_len = 3; - - /*inistring dstr_1188__CLASS_INSTANCE_B*/ - /*_.VALSTR___V1254*/ meltfptr[1253] = (void*)&cdat->dstr_1188__CLASS_INSTANCE_B; - cdat->dstr_1188__CLASS_INSTANCE_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1188__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING", sizeof (cdat->dstr_1188__CLASS_INSTANCE_B.val)-1); - /*iniobj dsym_1189__DEFINSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1255*/ meltfptr[1254]) /*_.VALDATA___V1255*/ meltfptr[1254] = (void*)&cdat->dsym_1189__DEFINSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1189__DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1189__DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1189__DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1189__DEFINSTANCE.obj_hash = 28184141; - cdat->dsym_1189__DEFINSTANCE.obj_len = 3; - - /*inistring dstr_1190__DEFINSTANCE*/ - /*_.VALSTR___V1256*/ meltfptr[1255] = (void*)&cdat->dstr_1190__DEFINSTANCE; - cdat->dstr_1190__DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1190__DEFINSTANCE.val, "DEFINSTANCE", sizeof (cdat->dstr_1190__DEFINSTANCE.val)-1); - /*inirout drout_1191__MEXPAND_DEFSELECTOR*/ - /*_.VALROUT___V1257*/ meltfptr[1256] = (void*)&cdat->drout_1191__MEXPAND_DEFSELECTOR; - cdat->drout_1191__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1191__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:3137", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1191__MEXPAND_DEFSELECTOR.nbval = 28; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1191__MEXPAND_DEFSELECTOR, meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR); - - /*iniclos dclo_1192__MEXPAND_DEFSELECTOR*/ - /*_.VALCLO___V1260*/ meltfptr[1259] = (void*)&cdat->dclo_1192__MEXPAND_DEFSELECTOR; - cdat->dclo_1192__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1192__MEXPAND_DEFSELECTOR.nbval = 0; - - /*iniobj dsym_1193__MELT_MODE_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1261*/ meltfptr[1260]) /*_.VALDATA___V1261*/ meltfptr[1260] = (void*)&cdat->dsym_1193__MELT_MODE_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1193__MELT_MODE_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1193__MELT_MODE_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1193__MELT_MODE_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1193__MELT_MODE_CONTAINER.obj_hash = 532518171; - cdat->dsym_1193__MELT_MODE_CONTAINER.obj_len = 3; - - /*inistring dstr_1194__MELT_MODE_CONTAI*/ - /*_.VALSTR___V1262*/ meltfptr[1261] = (void*)&cdat->dstr_1194__MELT_MODE_CONTAI; - cdat->dstr_1194__MELT_MODE_CONTAI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1194__MELT_MODE_CONTAI.val, "MELT_MODE_CONTAINER", sizeof (cdat->dstr_1194__MELT_MODE_CONTAI.val)-1); - /*iniobj dsym_1195__CLASS_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1263*/ meltfptr[1262]) /*_.VALDATA___V1263*/ meltfptr[1262] = (void*)&cdat->dsym_1195__CLASS_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1195__CLASS_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1195__CLASS_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1195__CLASS_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1195__CLASS_CONTAINER.obj_hash = 301899711; - cdat->dsym_1195__CLASS_CONTAINER.obj_len = 3; - - /*inistring dstr_1196__CLASS_CONTAINER*/ - /*_.VALSTR___V1264*/ meltfptr[1263] = (void*)&cdat->dstr_1196__CLASS_CONTAINER; - cdat->dstr_1196__CLASS_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1196__CLASS_CONTAINER.val, "CLASS_CONTAINER", sizeof (cdat->dstr_1196__CLASS_CONTAINER.val)-1); - /*iniobj dsym_1197__FORMALS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1258*/ meltfptr[1257]) /*_.VALDATA___V1258*/ meltfptr[1257] = (void*)&cdat->dsym_1197__FORMALS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1197__FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1197__FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1197__FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1197__FORMALS.obj_hash = 499105813; - cdat->dsym_1197__FORMALS.obj_len = 3; - - /*inistring dstr_1198__FORMALS*/ - /*_.VALSTR___V1259*/ meltfptr[1258] = (void*)&cdat->dstr_1198__FORMALS; - cdat->dstr_1198__FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1198__FORMALS.val, "FORMALS", sizeof (cdat->dstr_1198__FORMALS.val)-1); - /*iniobj dsym_1199__DEFSELECTOR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1265*/ meltfptr[1264]) /*_.VALDATA___V1265*/ meltfptr[1264] = (void*)&cdat->dsym_1199__DEFSELECTOR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1199__DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1199__DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1199__DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1199__DEFSELECTOR.obj_hash = 34255542; - cdat->dsym_1199__DEFSELECTOR.obj_len = 3; - - /*inistring dstr_1200__DEFSELECTOR*/ - /*_.VALSTR___V1266*/ meltfptr[1265] = (void*)&cdat->dstr_1200__DEFSELECTOR; - cdat->dstr_1200__DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1200__DEFSELECTOR.val, "DEFSELECTOR", sizeof (cdat->dstr_1200__DEFSELECTOR.val)-1); - /*inirout drout_1201__MEXPAND_INSTANCE*/ - /*_.VALROUT___V1267*/ meltfptr[1266] = (void*)&cdat->drout_1201__MEXPAND_INSTANCE; - cdat->drout_1201__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1201__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:3278", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1201__MEXPAND_INSTANCE.nbval = 14; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1201__MEXPAND_INSTANCE, meltrout_50_warmelt_macro_MEXPAND_INSTANCE); - - /*iniclos dclo_1202__MEXPAND_INSTANCE*/ - /*_.VALCLO___V1268*/ meltfptr[1267] = (void*)&cdat->dclo_1202__MEXPAND_INSTANCE; - cdat->dclo_1202__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1202__MEXPAND_INSTANCE.nbval = 0; - - /*iniobj dsym_1203__INSTANCE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1269*/ meltfptr[1268]) /*_.VALDATA___V1269*/ meltfptr[1268] = (void*)&cdat->dsym_1203__INSTANCE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1203__INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1203__INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1203__INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1203__INSTANCE.obj_hash = 837795892; - cdat->dsym_1203__INSTANCE.obj_len = 3; - - /*inistring dstr_1204__INSTANCE*/ - /*_.VALSTR___V1270*/ meltfptr[1269] = (void*)&cdat->dstr_1204__INSTANCE; - cdat->dstr_1204__INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1204__INSTANCE.val, "INSTANCE", sizeof (cdat->dstr_1204__INSTANCE.val)-1); - /*inirout drout_1205__MEXPAND_LOAD*/ - /*_.VALROUT___V1271*/ meltfptr[1270] = (void*)&cdat->drout_1205__MEXPAND_LOAD; - cdat->drout_1205__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1205__MEXPAND_LOAD.routdescr, "MEXPAND_LOAD @warmelt-macro.melt:3346", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1205__MEXPAND_LOAD.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1205__MEXPAND_LOAD, meltrout_51_warmelt_macro_MEXPAND_LOAD); - - /*iniclos dclo_1206__MEXPAND_LOAD*/ - /*_.VALCLO___V1272*/ meltfptr[1271] = (void*)&cdat->dclo_1206__MEXPAND_LOAD; - cdat->dclo_1206__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1206__MEXPAND_LOAD.nbval = 0; - - /*iniobj dsym_1207__LOAD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1273*/ meltfptr[1272]) /*_.VALDATA___V1273*/ meltfptr[1272] = (void*)&cdat->dsym_1207__LOAD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1207__LOAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1207__LOAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1207__LOAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1207__LOAD.obj_hash = 801185878; - cdat->dsym_1207__LOAD.obj_len = 3; - - /*inistring dstr_1208__LOAD*/ - /*_.VALSTR___V1274*/ meltfptr[1273] = (void*)&cdat->dstr_1208__LOAD; - cdat->dstr_1208__LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1208__LOAD.val, "LOAD", sizeof (cdat->dstr_1208__LOAD.val)-1); - /*inirout drout_1209__PARSE_FIELD_PATTERN*/ - /*_.VALROUT___V1275*/ meltfptr[1274] = (void*)&cdat->drout_1209__PARSE_FIELD_PATTERN; - cdat->drout_1209__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1209__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:3386", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1209__PARSE_FIELD_PATTERN.nbval = 12; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1209__PARSE_FIELD_PATTERN, meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN); - - /*iniclos dclo_1210__PARSE_FIELD_PATTERN*/ - /*_.VALCLO___V1277*/ meltfptr[1276] = (void*)&cdat->dclo_1210__PARSE_FIELD_PATTERN; - cdat->dclo_1210__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1210__PARSE_FIELD_PATTERN.nbval = 0; - - /*inirout drout_1211__LAMBDA_*/ - /*_.VALROUT___V1276*/ meltfptr[1275] = (void*)&cdat->drout_1211__LAMBDA_; - cdat->drout_1211__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1211__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3401", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1211__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1211__LAMBDA_, meltrout_53_warmelt_macro_LAMBDA_); - - /*inirout drout_1212__PATEXPAND_INSTANCE*/ - /*_.VALROUT___V1278*/ meltfptr[1277] = (void*)&cdat->drout_1212__PATEXPAND_INSTANCE; - cdat->drout_1212__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1212__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:3430", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1212__PATEXPAND_INSTANCE.nbval = 20; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1212__PATEXPAND_INSTANCE, meltrout_54_warmelt_macro_PATEXPAND_INSTANCE); - - /*iniclos dclo_1213__PATEXPAND_INSTANCE*/ - /*_.VALCLO___V1280*/ meltfptr[1279] = (void*)&cdat->dclo_1213__PATEXPAND_INSTANCE; - cdat->dclo_1213__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1213__PATEXPAND_INSTANCE.nbval = 0; - - /*inirout drout_1214__LAMBDA_*/ - /*_.VALROUT___V1279*/ meltfptr[1278] = (void*)&cdat->drout_1214__LAMBDA_; - cdat->drout_1214__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1214__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3488", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1214__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1214__LAMBDA_, meltrout_55_warmelt_macro_LAMBDA_); - - /*inirout drout_1215__PATEXPAND_OBJECT*/ - /*_.VALROUT___V1281*/ meltfptr[1280] = (void*)&cdat->drout_1215__PATEXPAND_OBJECT; - cdat->drout_1215__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1215__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:3525", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1215__PATEXPAND_OBJECT.nbval = 20; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1215__PATEXPAND_OBJECT, meltrout_56_warmelt_macro_PATEXPAND_OBJECT); - - /*iniclos dclo_1216__PATEXPAND_OBJECT*/ - /*_.VALCLO___V1283*/ meltfptr[1282] = (void*)&cdat->dclo_1216__PATEXPAND_OBJECT; - cdat->dclo_1216__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1216__PATEXPAND_OBJECT.nbval = 0; - - /*inirout drout_1217__LAMBDA_*/ - /*_.VALROUT___V1282*/ meltfptr[1281] = (void*)&cdat->drout_1217__LAMBDA_; - cdat->drout_1217__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1217__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3583", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1217__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1217__LAMBDA_, meltrout_57_warmelt_macro_LAMBDA_); - - /*inirout drout_1218__MEXPAND_OBJECT*/ - /*_.VALROUT___V1284*/ meltfptr[1283] = (void*)&cdat->drout_1218__MEXPAND_OBJECT; - cdat->drout_1218__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1218__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:3602", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1218__MEXPAND_OBJECT.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1218__MEXPAND_OBJECT, meltrout_58_warmelt_macro_MEXPAND_OBJECT); - - /*iniclos dclo_1219__MEXPAND_OBJECT*/ - /*_.VALCLO___V1285*/ meltfptr[1284] = (void*)&cdat->dclo_1219__MEXPAND_OBJECT; - cdat->dclo_1219__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1219__MEXPAND_OBJECT.nbval = 0; - - /*iniobj dsym_1220__OBJECT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1286*/ meltfptr[1285]) /*_.VALDATA___V1286*/ meltfptr[1285] = (void*)&cdat->dsym_1220__OBJECT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1220__OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1220__OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1220__OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1220__OBJECT.obj_hash = 680382828; - cdat->dsym_1220__OBJECT.obj_len = 3; - - /*inistring dstr_1221__OBJECT*/ - /*_.VALSTR___V1287*/ meltfptr[1286] = (void*)&cdat->dstr_1221__OBJECT; - cdat->dstr_1221__OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1221__OBJECT.val, "OBJECT", sizeof (cdat->dstr_1221__OBJECT.val)-1); - /*inirout drout_1222__MEXPAND_CODE_CHUNK*/ - /*_.VALROUT___V1288*/ meltfptr[1287] = (void*)&cdat->drout_1222__MEXPAND_CODE_CHUNK; - cdat->drout_1222__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1222__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:3625", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1222__MEXPAND_CODE_CHUNK.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1222__MEXPAND_CODE_CHUNK, meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK); - - /*iniclos dclo_1223__MEXPAND_CODE_CHUNK*/ - /*_.VALCLO___V1289*/ meltfptr[1288] = (void*)&cdat->dclo_1223__MEXPAND_CODE_CHUNK; - cdat->dclo_1223__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1223__MEXPAND_CODE_CHUNK.nbval = 0; - - /*iniobj dsym_1224__CODE_CHUNK*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1290*/ meltfptr[1289]) /*_.VALDATA___V1290*/ meltfptr[1289] = (void*)&cdat->dsym_1224__CODE_CHUNK; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1224__CODE_CHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1224__CODE_CHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1224__CODE_CHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1224__CODE_CHUNK.obj_hash = 744676025; - cdat->dsym_1224__CODE_CHUNK.obj_len = 3; - - /*inistring dstr_1225__CODE_CHUNK*/ - /*_.VALSTR___V1291*/ meltfptr[1290] = (void*)&cdat->dstr_1225__CODE_CHUNK; - cdat->dstr_1225__CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1225__CODE_CHUNK.val, "CODE_CHUNK", sizeof (cdat->dstr_1225__CODE_CHUNK.val)-1); - /*inirout drout_1226__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*_.VALROUT___V1292*/ meltfptr[1291] = (void*)&cdat->drout_1226__MEXPAND_UNSAFE_PUT_FIELDS; - cdat->drout_1226__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1226__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:3676", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1226__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1226__MEXPAND_UNSAFE_PUT_FIELDS, meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS); - - /*iniclos dclo_1227__MEXPAND_UNSAFE_PUT_FIELDS*/ - /*_.VALCLO___V1293*/ meltfptr[1292] = (void*)&cdat->dclo_1227__MEXPAND_UNSAFE_PUT_FIELDS; - cdat->dclo_1227__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1227__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; - - /*iniobj dsym_1228__UNSAFE_PUT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1294*/ meltfptr[1293]) /*_.VALDATA___V1294*/ meltfptr[1293] = (void*)&cdat->dsym_1228__UNSAFE_PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1228__UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1228__UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1228__UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1228__UNSAFE_PUT_FIELDS.obj_hash = 2805843; - cdat->dsym_1228__UNSAFE_PUT_FIELDS.obj_len = 3; - - /*inistring dstr_1229__UNSAFE_PUT_FIELD*/ - /*_.VALSTR___V1295*/ meltfptr[1294] = (void*)&cdat->dstr_1229__UNSAFE_PUT_FIELD; - cdat->dstr_1229__UNSAFE_PUT_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1229__UNSAFE_PUT_FIELD.val, "UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_1229__UNSAFE_PUT_FIELD.val)-1); - /*inirout drout_1230__MEXPAND_PUT_FIELDS*/ - /*_.VALROUT___V1296*/ meltfptr[1295] = (void*)&cdat->drout_1230__MEXPAND_PUT_FIELDS; - cdat->drout_1230__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1230__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:3721", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1230__MEXPAND_PUT_FIELDS.nbval = 9; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1230__MEXPAND_PUT_FIELDS, meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS); - - /*iniclos dclo_1231__MEXPAND_PUT_FIELDS*/ - /*_.VALCLO___V1297*/ meltfptr[1296] = (void*)&cdat->dclo_1231__MEXPAND_PUT_FIELDS; - cdat->dclo_1231__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1231__MEXPAND_PUT_FIELDS.nbval = 0; - - /*iniobj dsym_1232__PUT_FIELDS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1298*/ meltfptr[1297]) /*_.VALDATA___V1298*/ meltfptr[1297] = (void*)&cdat->dsym_1232__PUT_FIELDS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1232__PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1232__PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1232__PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1232__PUT_FIELDS.obj_hash = 370297609; - cdat->dsym_1232__PUT_FIELDS.obj_len = 3; - - /*inistring dstr_1233__PUT_FIELDS*/ - /*_.VALSTR___V1299*/ meltfptr[1298] = (void*)&cdat->dstr_1233__PUT_FIELDS; - cdat->dstr_1233__PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1233__PUT_FIELDS.val, "PUT_FIELDS", sizeof (cdat->dstr_1233__PUT_FIELDS.val)-1); - /*inirout drout_1234__MEXPAND_UNSAFE_GET_FIELD*/ - /*_.VALROUT___V1300*/ meltfptr[1299] = (void*)&cdat->drout_1234__MEXPAND_UNSAFE_GET_FIELD; - cdat->drout_1234__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1234__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:3767", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1234__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1234__MEXPAND_UNSAFE_GET_FIELD, meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD); - - /*iniclos dclo_1235__MEXPAND_UNSAFE_GET_FIELD*/ - /*_.VALCLO___V1301*/ meltfptr[1300] = (void*)&cdat->dclo_1235__MEXPAND_UNSAFE_GET_FIELD; - cdat->dclo_1235__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1235__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; - - /*iniobj dsym_1236__UNSAFE_GET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1302*/ meltfptr[1301]) /*_.VALDATA___V1302*/ meltfptr[1301] = (void*)&cdat->dsym_1236__UNSAFE_GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1236__UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1236__UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1236__UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1236__UNSAFE_GET_FIELD.obj_hash = 38069390; - cdat->dsym_1236__UNSAFE_GET_FIELD.obj_len = 3; - - /*inistring dstr_1237__UNSAFE_GET_FIELD*/ - /*_.VALSTR___V1303*/ meltfptr[1302] = (void*)&cdat->dstr_1237__UNSAFE_GET_FIELD; - cdat->dstr_1237__UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1237__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (cdat->dstr_1237__UNSAFE_GET_FIELD.val)-1); - /*inirout drout_1238__MEXPAND_GET_FIELD*/ - /*_.VALROUT___V1304*/ meltfptr[1303] = (void*)&cdat->drout_1238__MEXPAND_GET_FIELD; - cdat->drout_1238__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1238__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:3808", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1238__MEXPAND_GET_FIELD.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1238__MEXPAND_GET_FIELD, meltrout_63_warmelt_macro_MEXPAND_GET_FIELD); - - /*iniclos dclo_1239__MEXPAND_GET_FIELD*/ - /*_.VALCLO___V1305*/ meltfptr[1304] = (void*)&cdat->dclo_1239__MEXPAND_GET_FIELD; - cdat->dclo_1239__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1239__MEXPAND_GET_FIELD.nbval = 0; - - /*iniobj dsym_1240__GET_FIELD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1306*/ meltfptr[1305]) /*_.VALDATA___V1306*/ meltfptr[1305] = (void*)&cdat->dsym_1240__GET_FIELD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1240__GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1240__GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1240__GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1240__GET_FIELD.obj_hash = 203020234; - cdat->dsym_1240__GET_FIELD.obj_len = 3; - - /*inistring dstr_1241__GET_FIELD*/ - /*_.VALSTR___V1307*/ meltfptr[1306] = (void*)&cdat->dstr_1241__GET_FIELD; - cdat->dstr_1241__GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1241__GET_FIELD.val, "GET_FIELD", sizeof (cdat->dstr_1241__GET_FIELD.val)-1); - /*inirout drout_1242__MEXPAND_SETQ*/ - /*_.VALROUT___V1308*/ meltfptr[1307] = (void*)&cdat->drout_1242__MEXPAND_SETQ; - cdat->drout_1242__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1242__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:3850", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1242__MEXPAND_SETQ.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1242__MEXPAND_SETQ, meltrout_64_warmelt_macro_MEXPAND_SETQ); - - /*iniclos dclo_1243__MEXPAND_SETQ*/ - /*_.VALCLO___V1309*/ meltfptr[1308] = (void*)&cdat->dclo_1243__MEXPAND_SETQ; - cdat->dclo_1243__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1243__MEXPAND_SETQ.nbval = 0; - - /*iniobj dsym_1244__SETQ*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1310*/ meltfptr[1309]) /*_.VALDATA___V1310*/ meltfptr[1309] = (void*)&cdat->dsym_1244__SETQ; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1244__SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1244__SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1244__SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1244__SETQ.obj_hash = 46296512; - cdat->dsym_1244__SETQ.obj_len = 3; - - /*inistring dstr_1245__SETQ*/ - /*_.VALSTR___V1311*/ meltfptr[1310] = (void*)&cdat->dstr_1245__SETQ; - cdat->dstr_1245__SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1245__SETQ.val, "SETQ", sizeof (cdat->dstr_1245__SETQ.val)-1); - /*inirout drout_1246__MEXPAND_IF*/ - /*_.VALROUT___V1312*/ meltfptr[1311] = (void*)&cdat->drout_1246__MEXPAND_IF; - cdat->drout_1246__MEXPAND_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1246__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:3880", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1246__MEXPAND_IF.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1246__MEXPAND_IF, meltrout_65_warmelt_macro_MEXPAND_IF); - - /*iniclos dclo_1247__MEXPAND_IF*/ - /*_.VALCLO___V1313*/ meltfptr[1312] = (void*)&cdat->dclo_1247__MEXPAND_IF; - cdat->dclo_1247__MEXPAND_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1247__MEXPAND_IF.nbval = 0; - - /*iniobj dsym_1248__IF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1314*/ meltfptr[1313]) /*_.VALDATA___V1314*/ meltfptr[1313] = (void*)&cdat->dsym_1248__IF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1248__IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1248__IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1248__IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1248__IF.obj_hash = 117586816; - cdat->dsym_1248__IF.obj_len = 3; - - /*inistring dstr_1249__IF*/ - /*_.VALSTR___V1315*/ meltfptr[1314] = (void*)&cdat->dstr_1249__IF; - cdat->dstr_1249__IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1249__IF.val, "IF", sizeof (cdat->dstr_1249__IF.val)-1); - /*inirout drout_1250__MEXPAND_CPPIF*/ - /*_.VALROUT___V1316*/ meltfptr[1315] = (void*)&cdat->drout_1250__MEXPAND_CPPIF; - cdat->drout_1250__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1250__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:3930", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1250__MEXPAND_CPPIF.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1250__MEXPAND_CPPIF, meltrout_66_warmelt_macro_MEXPAND_CPPIF); - - /*iniclos dclo_1251__MEXPAND_CPPIF*/ - /*_.VALCLO___V1317*/ meltfptr[1316] = (void*)&cdat->dclo_1251__MEXPAND_CPPIF; - cdat->dclo_1251__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1251__MEXPAND_CPPIF.nbval = 0; - - /*iniobj dsym_1252__CPPIF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1318*/ meltfptr[1317]) /*_.VALDATA___V1318*/ meltfptr[1317] = (void*)&cdat->dsym_1252__CPPIF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1252__CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1252__CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1252__CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1252__CPPIF.obj_hash = 829409177; - cdat->dsym_1252__CPPIF.obj_len = 3; - - /*inistring dstr_1253__CPPIF*/ - /*_.VALSTR___V1319*/ meltfptr[1318] = (void*)&cdat->dstr_1253__CPPIF; - cdat->dstr_1253__CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1253__CPPIF.val, "CPPIF", sizeof (cdat->dstr_1253__CPPIF.val)-1); - /*inirout drout_1254__FILTERGCCVERSION*/ - /*_.VALROUT___V1320*/ meltfptr[1319] = (void*)&cdat->drout_1254__FILTERGCCVERSION; - cdat->drout_1254__FILTERGCCVERSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1254__FILTERGCCVERSION.routdescr, "FILTERGCCVERSION @warmelt-macro.melt:3986", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1254__FILTERGCCVERSION.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1254__FILTERGCCVERSION, meltrout_67_warmelt_macro_FILTERGCCVERSION); - - /*iniclos dclo_1255__FILTERGCCVERSION*/ - /*_.VALCLO___V1321*/ meltfptr[1320] = (void*)&cdat->dclo_1255__FILTERGCCVERSION; - cdat->dclo_1255__FILTERGCCVERSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1255__FILTERGCCVERSION.nbval = 0; - - /*inirout drout_1256__MEXPAND_GCCIF*/ - /*_.VALROUT___V1322*/ meltfptr[1321] = (void*)&cdat->drout_1256__MEXPAND_GCCIF; - cdat->drout_1256__MEXPAND_GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1256__MEXPAND_GCCIF.routdescr, "MEXPAND_GCCIF @warmelt-macro.melt:4001", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1256__MEXPAND_GCCIF.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1256__MEXPAND_GCCIF, meltrout_68_warmelt_macro_MEXPAND_GCCIF); - - /*iniclos dclo_1257__MEXPAND_GCCIF*/ - /*_.VALCLO___V1323*/ meltfptr[1322] = (void*)&cdat->dclo_1257__MEXPAND_GCCIF; - cdat->dclo_1257__MEXPAND_GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1257__MEXPAND_GCCIF.nbval = 0; - - /*iniobj dsym_1258__GCCIF*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1324*/ meltfptr[1323]) /*_.VALDATA___V1324*/ meltfptr[1323] = (void*)&cdat->dsym_1258__GCCIF; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1258__GCCIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1258__GCCIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1258__GCCIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1258__GCCIF.obj_hash = 909505007; - cdat->dsym_1258__GCCIF.obj_len = 3; - - /*inistring dstr_1259__GCCIF*/ - /*_.VALSTR___V1325*/ meltfptr[1324] = (void*)&cdat->dstr_1259__GCCIF; - cdat->dstr_1259__GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1259__GCCIF.val, "GCCIF", sizeof (cdat->dstr_1259__GCCIF.val)-1); - /*inirout drout_1260__MEXPAND_COND*/ - /*_.VALROUT___V1326*/ meltfptr[1325] = (void*)&cdat->drout_1260__MEXPAND_COND; - cdat->drout_1260__MEXPAND_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1260__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:4059", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1260__MEXPAND_COND.nbval = 12; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1260__MEXPAND_COND, meltrout_69_warmelt_macro_MEXPAND_COND); - - /*iniclos dclo_1261__MEXPAND_COND*/ - /*_.VALCLO___V1333*/ meltfptr[1332] = (void*)&cdat->dclo_1261__MEXPAND_COND; - cdat->dclo_1261__MEXPAND_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1261__MEXPAND_COND.nbval = 0; - - /*inirout drout_1262__LAMBDA_*/ - /*_.VALROUT___V1327*/ meltfptr[1326] = (void*)&cdat->drout_1262__LAMBDA_; - cdat->drout_1262__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1262__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4069", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1262__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1262__LAMBDA_, meltrout_70_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1263__ELSE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1328*/ meltfptr[1327]) /*_.VALDATA___V1328*/ meltfptr[1327] = (void*)&cdat->dsym_1263__ELSE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1263__ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1263__ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1263__ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); - cdat->dsym_1263__ELSE.obj_hash = 34374860; - cdat->dsym_1263__ELSE.obj_len = 3; - - /*inistring dstr_1264__ELSE*/ - /*_.VALSTR___V1329*/ meltfptr[1328] = (void*)&cdat->dstr_1264__ELSE; - cdat->dstr_1264__ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1264__ELSE.val, "ELSE", sizeof (cdat->dstr_1264__ELSE.val)-1); - /*iniobj dsym_1265__COND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1334*/ meltfptr[1333]) /*_.VALDATA___V1334*/ meltfptr[1333] = (void*)&cdat->dsym_1265__COND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1265__COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1265__COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1265__COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1265__COND.obj_hash = 51211759; - cdat->dsym_1265__COND.obj_len = 3; - - /*inistring dstr_1266__COND*/ - /*_.VALSTR___V1335*/ meltfptr[1334] = (void*)&cdat->dstr_1266__COND; - cdat->dstr_1266__COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1266__COND.val, "COND", sizeof (cdat->dstr_1266__COND.val)-1); - /*inirout drout_1267__MEXPAND_AND*/ - /*_.VALROUT___V1336*/ meltfptr[1335] = (void*)&cdat->drout_1267__MEXPAND_AND; - cdat->drout_1267__MEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1267__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:4159", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1267__MEXPAND_AND.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1267__MEXPAND_AND, meltrout_71_warmelt_macro_MEXPAND_AND); - - /*iniclos dclo_1268__MEXPAND_AND*/ - /*_.VALCLO___V1338*/ meltfptr[1337] = (void*)&cdat->dclo_1268__MEXPAND_AND; - cdat->dclo_1268__MEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1268__MEXPAND_AND.nbval = 0; - - /*inirout drout_1269__LAMBDA_*/ - /*_.VALROUT___V1337*/ meltfptr[1336] = (void*)&cdat->drout_1269__LAMBDA_; - cdat->drout_1269__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1269__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4170", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1269__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1269__LAMBDA_, meltrout_72_warmelt_macro_LAMBDA_); - - /*inirout drout_1270__PATEXPAND_AS*/ - /*_.VALROUT___V1339*/ meltfptr[1338] = (void*)&cdat->drout_1270__PATEXPAND_AS; - cdat->drout_1270__PATEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1270__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:4197", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1270__PATEXPAND_AS.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1270__PATEXPAND_AS, meltrout_73_warmelt_macro_PATEXPAND_AS); - - /*iniclos dclo_1271__PATEXPAND_AS*/ - /*_.VALCLO___V1340*/ meltfptr[1339] = (void*)&cdat->dclo_1271__PATEXPAND_AS; - cdat->dclo_1271__PATEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1271__PATEXPAND_AS.nbval = 0; - - /*inirout drout_1272__MEXPAND_AS*/ - /*_.VALROUT___V1341*/ meltfptr[1340] = (void*)&cdat->drout_1272__MEXPAND_AS; - cdat->drout_1272__MEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1272__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:4235", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1272__MEXPAND_AS.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1272__MEXPAND_AS, meltrout_74_warmelt_macro_MEXPAND_AS); - - /*iniclos dclo_1273__MEXPAND_AS*/ - /*_.VALCLO___V1342*/ meltfptr[1341] = (void*)&cdat->dclo_1273__MEXPAND_AS; - cdat->dclo_1273__MEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1273__MEXPAND_AS.nbval = 0; - - /*iniobj dsym_1274__AS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1343*/ meltfptr[1342]) /*_.VALDATA___V1343*/ meltfptr[1342] = (void*)&cdat->dsym_1274__AS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1274__AS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1274__AS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1274__AS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1274__AS.obj_hash = 76496773; - cdat->dsym_1274__AS.obj_len = 3; - - /*inistring dstr_1275__AS*/ - /*_.VALSTR___V1344*/ meltfptr[1343] = (void*)&cdat->dstr_1275__AS; - cdat->dstr_1275__AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1275__AS.val, "AS", sizeof (cdat->dstr_1275__AS.val)-1); - /*inirout drout_1276__PATEXPAND_WHEN*/ - /*_.VALROUT___V1345*/ meltfptr[1344] = (void*)&cdat->drout_1276__PATEXPAND_WHEN; - cdat->drout_1276__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1276__PATEXPAND_WHEN.routdescr, "PATEXPAND_WHEN @warmelt-macro.melt:4249", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1276__PATEXPAND_WHEN.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1276__PATEXPAND_WHEN, meltrout_75_warmelt_macro_PATEXPAND_WHEN); - - /*iniclos dclo_1277__PATEXPAND_WHEN*/ - /*_.VALCLO___V1346*/ meltfptr[1345] = (void*)&cdat->dclo_1277__PATEXPAND_WHEN; - cdat->dclo_1277__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1277__PATEXPAND_WHEN.nbval = 0; - - /*inirout drout_1278__MEXPAND_WHEN*/ - /*_.VALROUT___V1347*/ meltfptr[1346] = (void*)&cdat->drout_1278__MEXPAND_WHEN; - cdat->drout_1278__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1278__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:4264", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1278__MEXPAND_WHEN.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1278__MEXPAND_WHEN, meltrout_76_warmelt_macro_MEXPAND_WHEN); - - /*iniclos dclo_1279__MEXPAND_WHEN*/ - /*_.VALCLO___V1348*/ meltfptr[1347] = (void*)&cdat->dclo_1279__MEXPAND_WHEN; - cdat->dclo_1279__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1279__MEXPAND_WHEN.nbval = 0; - - /*iniobj dsym_1280__WHEN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1349*/ meltfptr[1348]) /*_.VALDATA___V1349*/ meltfptr[1348] = (void*)&cdat->dsym_1280__WHEN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1280__WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1280__WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1280__WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1280__WHEN.obj_hash = 10073847; - cdat->dsym_1280__WHEN.obj_len = 3; - - /*inistring dstr_1281__WHEN*/ - /*_.VALSTR___V1350*/ meltfptr[1349] = (void*)&cdat->dstr_1281__WHEN; - cdat->dstr_1281__WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1281__WHEN.val, "WHEN", sizeof (cdat->dstr_1281__WHEN.val)-1); - /*inirout drout_1282__PATEXPAND_AND*/ - /*_.VALROUT___V1351*/ meltfptr[1350] = (void*)&cdat->drout_1282__PATEXPAND_AND; - cdat->drout_1282__PATEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1282__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:4279", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1282__PATEXPAND_AND.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1282__PATEXPAND_AND, meltrout_77_warmelt_macro_PATEXPAND_AND); - - /*iniclos dclo_1283__PATEXPAND_AND*/ - /*_.VALCLO___V1352*/ meltfptr[1351] = (void*)&cdat->dclo_1283__PATEXPAND_AND; - cdat->dclo_1283__PATEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1283__PATEXPAND_AND.nbval = 0; - - /*iniobj dsym_1284__AND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1353*/ meltfptr[1352]) /*_.VALDATA___V1353*/ meltfptr[1352] = (void*)&cdat->dsym_1284__AND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1284__AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1284__AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1284__AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1284__AND.obj_hash = 123533605; - cdat->dsym_1284__AND.obj_len = 3; - - /*inistring dstr_1285__AND*/ - /*_.VALSTR___V1354*/ meltfptr[1353] = (void*)&cdat->dstr_1285__AND; - cdat->dstr_1285__AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1285__AND.val, "AND", sizeof (cdat->dstr_1285__AND.val)-1); - /*inirout drout_1286__MEXPAND_OR*/ - /*_.VALROUT___V1355*/ meltfptr[1354] = (void*)&cdat->drout_1286__MEXPAND_OR; - cdat->drout_1286__MEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1286__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:4316", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1286__MEXPAND_OR.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1286__MEXPAND_OR, meltrout_78_warmelt_macro_MEXPAND_OR); - - /*iniclos dclo_1287__MEXPAND_OR*/ - /*_.VALCLO___V1357*/ meltfptr[1356] = (void*)&cdat->dclo_1287__MEXPAND_OR; - cdat->dclo_1287__MEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1287__MEXPAND_OR.nbval = 0; + /*iniobj dobj_1004__PCTX_VARMAP*/ +/*_.VALDATA___V1065*/ meltfptr[1064] = (void*)&cdat->dobj_1004__PCTX_VARMAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1004__PCTX_VARMAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_FIELD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1004__PCTX_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_1004__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); + cdat->dobj_1004__PCTX_VARMAP.obj_num = 2; + cdat->dobj_1004__PCTX_VARMAP.obj_hash = 1032618528; + cdat->dobj_1004__PCTX_VARMAP.obj_len = 4; + + /*inistring dstr_1005__PCTX_VARMAP*/ + /*_.VALSTR___V1066*/ meltfptr[1065] = (void*)&cdat->dstr_1005__PCTX_VARMAP; + cdat->dstr_1005__PCTX_VARMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1005__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1005__PCTX_VARMAP.val)-1); + /*inirout drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ + /*_.VALROUT___V1074*/ meltfptr[1073] = (void*)&cdat->drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + cdat->drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1336", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_15_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE); + + /*iniclos dclo_1007__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ + /*_.VALCLO___V1095*/ meltfptr[1094] = (void*)&cdat->dclo_1007__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + cdat->dclo_1007__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1007__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; + + /*iniobj dsym_1008__PAIRLIST_TO_MULTIPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1096*/ meltfptr[1095]) /*_.VALDATA___V1096*/ meltfptr[1095] = (void*)&cdat->dsym_1008__PAIRLIST_TO_MULTIPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1008__PAIRLIST_TO_MULTIPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1008__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1008__PAIRLIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1008__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; + cdat->dsym_1008__PAIRLIST_TO_MULTIPLE.obj_len = 3; + + /*inistring dstr_1009__PAIRLIST_TO_MULT*/ + /*_.VALSTR___V1097*/ meltfptr[1096] = (void*)&cdat->dstr_1009__PAIRLIST_TO_MULT; + cdat->dstr_1009__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1009__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof (cdat->dstr_1009__PAIRLIST_TO_MULT.val)-1); + /*inirout drout_1010__LAMBDA_*/ + /*_.VALROUT___V1094*/ meltfptr[1093] = (void*)&cdat->drout_1010__LAMBDA_; + cdat->drout_1010__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1010__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1340", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1010__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1010__LAMBDA_, meltrout_16_warmelt_macro_LAMBDA_); + + /*inirout drout_1011__PATMACEXPAND_FOR_MATCHER*/ + /*_.VALROUT___V1087*/ meltfptr[1086] = (void*)&cdat->drout_1011__PATMACEXPAND_FOR_MATCHER; + cdat->drout_1011__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1011__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:1350", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1011__PATMACEXPAND_FOR_MATCHER.nbval = 14; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1011__PATMACEXPAND_FOR_MATCHER, meltrout_17_warmelt_macro_PATMACEXPAND_FOR_MATCHER); + + /*iniclos dclo_1012__PATMACEXPAND_FOR_MATCHER*/ + /*_.VALCLO___V1086*/ meltfptr[1085] = (void*)&cdat->dclo_1012__PATMACEXPAND_FOR_MATCHER; + cdat->dclo_1012__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1012__PATMACEXPAND_FOR_MATCHER.nbval = 0; + + /*iniobj dsym_1013__CLASS_ANY_MATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1098*/ meltfptr[1097]) /*_.VALDATA___V1098*/ meltfptr[1097] = (void*)&cdat->dsym_1013__CLASS_ANY_MATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1013__CLASS_ANY_MATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1013__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1013__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1013__CLASS_ANY_MATCHER.obj_hash = 781265508; + cdat->dsym_1013__CLASS_ANY_MATCHER.obj_len = 3; + + /*inistring dstr_1014__CLASS_ANY_MATCHE*/ + /*_.VALSTR___V1099*/ meltfptr[1098] = (void*)&cdat->dstr_1014__CLASS_ANY_MATCHE; + cdat->dstr_1014__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1014__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_1014__CLASS_ANY_MATCHE.val)-1); + /*iniobj dsym_1015__DISCR_BOX*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1100*/ meltfptr[1099]) /*_.VALDATA___V1100*/ meltfptr[1099] = (void*)&cdat->dsym_1015__DISCR_BOX; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1015__DISCR_BOX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1015__DISCR_BOX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1015__DISCR_BOX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1015__DISCR_BOX.obj_hash = 8042275; + cdat->dsym_1015__DISCR_BOX.obj_len = 3; + + /*inistring dstr_1016__DISCR_BOX*/ + /*_.VALSTR___V1101*/ meltfptr[1100] = (void*)&cdat->dstr_1016__DISCR_BOX; + cdat->dstr_1016__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1016__DISCR_BOX.val, "DISCR_BOX", sizeof (cdat->dstr_1016__DISCR_BOX.val)-1); + /*iniobj dsym_1017__MULTIPLE_MAP*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1102*/ meltfptr[1101]) /*_.VALDATA___V1102*/ meltfptr[1101] = (void*)&cdat->dsym_1017__MULTIPLE_MAP; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1017__MULTIPLE_MAP", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1017__MULTIPLE_MAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1017__MULTIPLE_MAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1017__MULTIPLE_MAP.obj_hash = 218301686; + cdat->dsym_1017__MULTIPLE_MAP.obj_len = 3; + + /*inistring dstr_1018__MULTIPLE_MAP*/ + /*_.VALSTR___V1103*/ meltfptr[1102] = (void*)&cdat->dstr_1018__MULTIPLE_MAP; + cdat->dstr_1018__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1018__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_1018__MULTIPLE_MAP.val)-1); + /*inirout drout_1019__LAMBDA_*/ + /*_.VALROUT___V1088*/ meltfptr[1087] = (void*)&cdat->drout_1019__LAMBDA_; + cdat->drout_1019__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1019__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1362", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1019__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1019__LAMBDA_, meltrout_18_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1020__CLASS_FORMAL_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1104*/ meltfptr[1103]) /*_.VALDATA___V1104*/ meltfptr[1103] = (void*)&cdat->dsym_1020__CLASS_FORMAL_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1020__CLASS_FORMAL_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1020__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1020__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1020__CLASS_FORMAL_BINDING.obj_hash = 3733780; + cdat->dsym_1020__CLASS_FORMAL_BINDING.obj_len = 3; + + /*inistring dstr_1021__CLASS_FORMAL_BIN*/ + /*_.VALSTR___V1105*/ meltfptr[1104] = (void*)&cdat->dstr_1021__CLASS_FORMAL_BIN; + cdat->dstr_1021__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1021__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_1021__CLASS_FORMAL_BIN.val)-1); + /*inirout drout_1022__LAMBDA_*/ + /*_.VALROUT___V1089*/ meltfptr[1088] = (void*)&cdat->drout_1022__LAMBDA_; + cdat->drout_1022__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1022__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1374", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1022__LAMBDA_.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1022__LAMBDA_, meltrout_19_warmelt_macro_LAMBDA_); + + /*inirout drout_1023__PATTERN_WEIGHT_TUPLE*/ + /*_.VALROUT___V1091*/ meltfptr[1090] = (void*)&cdat->drout_1023__PATTERN_WEIGHT_TUPLE; + cdat->drout_1023__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1023__PATTERN_WEIGHT_TUPLE.routdescr, "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:1393", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1023__PATTERN_WEIGHT_TUPLE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1023__PATTERN_WEIGHT_TUPLE, meltrout_20_warmelt_macro_PATTERN_WEIGHT_TUPLE); + + /*iniclos dclo_1024__PATTERN_WEIGHT_TUPLE*/ + /*_.VALCLO___V1090*/ meltfptr[1089] = (void*)&cdat->dclo_1024__PATTERN_WEIGHT_TUPLE; + cdat->dclo_1024__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1024__PATTERN_WEIGHT_TUPLE.nbval = 0; + + /*iniobj dsym_1025__DISCR_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1106*/ meltfptr[1105]) /*_.VALDATA___V1106*/ meltfptr[1105] = (void*)&cdat->dsym_1025__DISCR_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1025__DISCR_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1025__DISCR_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1025__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1025__DISCR_INTEGER.obj_hash = 119182103; + cdat->dsym_1025__DISCR_INTEGER.obj_len = 3; + + /*inistring dstr_1026__DISCR_INTEGER*/ + /*_.VALSTR___V1107*/ meltfptr[1106] = (void*)&cdat->dstr_1026__DISCR_INTEGER; + cdat->dstr_1026__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1026__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_1026__DISCR_INTEGER.val)-1); + /*inirout drout_1027__LAMBDA_*/ + /*_.VALROUT___V1092*/ meltfptr[1091] = (void*)&cdat->drout_1027__LAMBDA_; + cdat->drout_1027__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1027__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1406", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1027__LAMBDA_.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1027__LAMBDA_, meltrout_21_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1028__DISCR_CONSTANT_INTEGER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1108*/ meltfptr[1107]) /*_.VALDATA___V1108*/ meltfptr[1107] = (void*)&cdat->dsym_1028__DISCR_CONSTANT_INTEGER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1028__DISCR_CONSTANT_INTEGER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1028__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1028__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1028__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; + cdat->dsym_1028__DISCR_CONSTANT_INTEGER.obj_len = 3; + + /*inistring dstr_1029__DISCR_CONSTANT_I*/ + /*_.VALSTR___V1109*/ meltfptr[1108] = (void*)&cdat->dstr_1029__DISCR_CONSTANT_I; + cdat->dstr_1029__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1029__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_1029__DISCR_CONSTANT_I.val)-1); + /*inirout drout_1030__PATTERNEXPAND_EXPR*/ + /*_.VALROUT___V1085*/ meltfptr[1084] = (void*)&cdat->drout_1030__PATTERNEXPAND_EXPR; + cdat->drout_1030__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1030__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.melt:1427", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1030__PATTERNEXPAND_EXPR.nbval = 19; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1030__PATTERNEXPAND_EXPR, meltrout_22_warmelt_macro_PATTERNEXPAND_EXPR); + + /*iniclos dclo_1031__PATTERNEXPAND_EXPR*/ + /*_.VALCLO___V1084*/ meltfptr[1083] = (void*)&cdat->dclo_1031__PATTERNEXPAND_EXPR; + cdat->dclo_1031__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1031__PATTERNEXPAND_EXPR.nbval = 0; + + /*iniobj dsym_1032__CLASS_PATMACRO_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1110*/ meltfptr[1109]) /*_.VALDATA___V1110*/ meltfptr[1109] = (void*)&cdat->dsym_1032__CLASS_PATMACRO_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1032__CLASS_PATMACRO_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1032__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1032__CLASS_PATMACRO_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1032__CLASS_PATMACRO_BINDING.obj_hash = 202308327; + cdat->dsym_1032__CLASS_PATMACRO_BINDING.obj_len = 3; + + /*inistring dstr_1033__CLASS_PATMACRO_B*/ + /*_.VALSTR___V1111*/ meltfptr[1110] = (void*)&cdat->dstr_1033__CLASS_PATMACRO_B; + cdat->dstr_1033__CLASS_PATMACRO_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1033__CLASS_PATMACRO_B.val, "CLASS_PATMACRO_BINDING", sizeof (cdat->dstr_1033__CLASS_PATMACRO_B.val)-1); + /*inirout drout_1034__PATTERNEXPAND_1*/ + /*_.VALROUT___V1076*/ meltfptr[1075] = (void*)&cdat->drout_1034__PATTERNEXPAND_1; + cdat->drout_1034__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1034__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.melt:1580", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1034__PATTERNEXPAND_1.nbval = 17; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1034__PATTERNEXPAND_1, meltrout_23_warmelt_macro_PATTERNEXPAND_1); + + /*iniclos dclo_1035__PATTERNEXPAND_1*/ + /*_.VALCLO___V1075*/ meltfptr[1074] = (void*)&cdat->dclo_1035__PATTERNEXPAND_1; + cdat->dclo_1035__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1035__PATTERNEXPAND_1.nbval = 0; + + /*iniobj dsym_1036__QUESTION*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1077*/ meltfptr[1076]) /*_.VALDATA___V1077*/ meltfptr[1076] = (void*)&cdat->dsym_1036__QUESTION; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1036__QUESTION", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1036__QUESTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1036__QUESTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1036__QUESTION.obj_hash = 320539216; + cdat->dsym_1036__QUESTION.obj_len = 3; + + /*inistring dstr_1037__QUESTION*/ + /*_.VALSTR___V1078*/ meltfptr[1077] = (void*)&cdat->dstr_1037__QUESTION; + cdat->dstr_1037__QUESTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1037__QUESTION.val, "QUESTION", sizeof (cdat->dstr_1037__QUESTION.val)-1); + /*iniboxint dint_1038__*/ + /*_.VALBXINT___V1079*/ meltfptr[1078] = (void*)&cdat->dint_1038__; + cdat->dint_1038__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_1038__.val = 1; + + /*iniobj dsym_1039__*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1080*/ meltfptr[1079]) /*_.VALDATA___V1080*/ meltfptr[1079] = (void*)&cdat->dsym_1039__; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1039__", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1039__", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1039__.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1039__.obj_hash = 331173307; + cdat->dsym_1039__.obj_len = 3; + + /*inistring dstr_1040__*/ + /*_.VALSTR___V1081*/ meltfptr[1080] = (void*)&cdat->dstr_1040__; + cdat->dstr_1040__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1040__.val, "_", sizeof (cdat->dstr_1040__.val)-1); + /*iniboxint dint_1041__*/ + /*_.VALBXINT___V1082*/ meltfptr[1081] = (void*)&cdat->dint_1041__; + cdat->dint_1041__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_1041__.val = 1; + + /*iniboxint dint_1042__*/ + /*_.VALBXINT___V1083*/ meltfptr[1082] = (void*)&cdat->dint_1042__; + cdat->dint_1042__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_1042__.val = 1; + + /*iniboxint dint_1043__*/ + /*_.VALBXINT___V1093*/ meltfptr[1092] = (void*)&cdat->dint_1043__; + cdat->dint_1043__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); + cdat->dint_1043__.val = 1; + + /*inirout drout_1044__MACROEXPAND_TOPLEVEL_LIST*/ + /*_.VALROUT___V1112*/ meltfptr[1111] = (void*)&cdat->drout_1044__MACROEXPAND_TOPLEVEL_LIST; + cdat->drout_1044__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1044__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1670", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1044__MACROEXPAND_TOPLEVEL_LIST.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1044__MACROEXPAND_TOPLEVEL_LIST, meltrout_24_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST); + + /*iniclos dclo_1045__MACROEXPAND_TOPLEVEL_LIST*/ + /*_.VALCLO___V1113*/ meltfptr[1112] = (void*)&cdat->dclo_1045__MACROEXPAND_TOPLEVEL_LIST; + cdat->dclo_1045__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1045__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; + + /*iniobj dsym_1046__DISCR_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1114*/ meltfptr[1113]) /*_.VALDATA___V1114*/ meltfptr[1113] = (void*)&cdat->dsym_1046__DISCR_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1046__DISCR_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1046__DISCR_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1046__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1046__DISCR_LIST.obj_hash = 98407634; + cdat->dsym_1046__DISCR_LIST.obj_len = 3; + + /*inistring dstr_1047__DISCR_LIST*/ + /*_.VALSTR___V1115*/ meltfptr[1114] = (void*)&cdat->dstr_1047__DISCR_LIST; + cdat->dstr_1047__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1047__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_1047__DISCR_LIST.val)-1); + /*iniobj dsym_1048__CLASS_LOCATED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1116*/ meltfptr[1115]) /*_.VALDATA___V1116*/ meltfptr[1115] = (void*)&cdat->dsym_1048__CLASS_LOCATED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1048__CLASS_LOCATED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1048__CLASS_LOCATED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1048__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1048__CLASS_LOCATED.obj_hash = 979003; + cdat->dsym_1048__CLASS_LOCATED.obj_len = 3; + + /*inistring dstr_1049__CLASS_LOCATED*/ + /*_.VALSTR___V1117*/ meltfptr[1116] = (void*)&cdat->dstr_1049__CLASS_LOCATED; + cdat->dstr_1049__CLASS_LOCATED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1049__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_1049__CLASS_LOCATED.val)-1); + /*inirout drout_1050__LAMBDA_ARG_BINDINGS*/ + /*_.VALROUT___V1000*/ meltfptr[999] = (void*)&cdat->drout_1050__LAMBDA_ARG_BINDINGS; + cdat->drout_1050__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1050__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1715", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1050__LAMBDA_ARG_BINDINGS.nbval = 11; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1050__LAMBDA_ARG_BINDINGS, meltrout_25_warmelt_macro_LAMBDA_ARG_BINDINGS); + + /*iniclos dclo_1051__LAMBDA_ARG_BINDINGS*/ + /*_.VALCLO___V999*/ meltfptr[998] = (void*)&cdat->dclo_1051__LAMBDA_ARG_BINDINGS; + cdat->dclo_1051__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1051__LAMBDA_ARG_BINDINGS.nbval = 0; + + /*iniobj dsym_1052__CTYPE_VALUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1118*/ meltfptr[1117]) /*_.VALDATA___V1118*/ meltfptr[1117] = (void*)&cdat->dsym_1052__CTYPE_VALUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1052__CTYPE_VALUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1052__CTYPE_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1052__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1052__CTYPE_VALUE.obj_hash = 11062864; + cdat->dsym_1052__CTYPE_VALUE.obj_len = 3; + + /*inistring dstr_1053__CTYPE_VALUE*/ + /*_.VALSTR___V1119*/ meltfptr[1118] = (void*)&cdat->dstr_1053__CTYPE_VALUE; + cdat->dstr_1053__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1053__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_1053__CTYPE_VALUE.val)-1); + /*iniobj dsym_1054__DISCR_MAP_OBJECTS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1120*/ meltfptr[1119]) /*_.VALDATA___V1120*/ meltfptr[1119] = (void*)&cdat->dsym_1054__DISCR_MAP_OBJECTS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1054__DISCR_MAP_OBJECTS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1054__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1054__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1054__DISCR_MAP_OBJECTS.obj_hash = 217147088; + cdat->dsym_1054__DISCR_MAP_OBJECTS.obj_len = 3; + + /*inistring dstr_1055__DISCR_MAP_OBJECT*/ + /*_.VALSTR___V1121*/ meltfptr[1120] = (void*)&cdat->dstr_1055__DISCR_MAP_OBJECT; + cdat->dstr_1055__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1055__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_1055__DISCR_MAP_OBJECT.val)-1); + /*iniobj dsym_1056__CLASS_CTYPE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1122*/ meltfptr[1121]) /*_.VALDATA___V1122*/ meltfptr[1121] = (void*)&cdat->dsym_1056__CLASS_CTYPE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1056__CLASS_CTYPE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1056__CLASS_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1056__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1056__CLASS_CTYPE.obj_hash = 78610803; + cdat->dsym_1056__CLASS_CTYPE.obj_len = 3; + + /*inistring dstr_1057__CLASS_CTYPE*/ + /*_.VALSTR___V1123*/ meltfptr[1122] = (void*)&cdat->dstr_1057__CLASS_CTYPE; + cdat->dstr_1057__CLASS_CTYPE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1057__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_1057__CLASS_CTYPE.val)-1); + /*inirout drout_1058__INSTALL_INITIAL_MACRO*/ + /*_.VALROUT___V1124*/ meltfptr[1123] = (void*)&cdat->drout_1058__INSTALL_INITIAL_MACRO; + cdat->drout_1058__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1058__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1809", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1058__INSTALL_INITIAL_MACRO.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1058__INSTALL_INITIAL_MACRO, meltrout_26_warmelt_macro_INSTALL_INITIAL_MACRO); + + /*iniclos dclo_1059__INSTALL_INITIAL_MACRO*/ + /*_.VALCLO___V1125*/ meltfptr[1124] = (void*)&cdat->dclo_1059__INSTALL_INITIAL_MACRO; + cdat->dclo_1059__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1059__INSTALL_INITIAL_MACRO.nbval = 0; + + /*iniobj dsym_1060__PUT_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1126*/ meltfptr[1125]) /*_.VALDATA___V1126*/ meltfptr[1125] = (void*)&cdat->dsym_1060__PUT_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1060__PUT_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1060__PUT_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1060__PUT_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1060__PUT_ENV.obj_hash = 440202203; + cdat->dsym_1060__PUT_ENV.obj_len = 3; + + /*inistring dstr_1061__PUT_ENV*/ + /*_.VALSTR___V1127*/ meltfptr[1126] = (void*)&cdat->dstr_1061__PUT_ENV; + cdat->dstr_1061__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1061__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_1061__PUT_ENV.val)-1); + /*iniobj dsym_1062__INITIAL_ENVIRONMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1128*/ meltfptr[1127]) /*_.VALDATA___V1128*/ meltfptr[1127] = (void*)&cdat->dsym_1062__INITIAL_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1062__INITIAL_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1062__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1062__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1062__INITIAL_ENVIRONMENT.obj_hash = 756729242; + cdat->dsym_1062__INITIAL_ENVIRONMENT.obj_len = 3; + + /*inistring dstr_1063__INITIAL_ENVIRONM*/ + /*_.VALSTR___V1129*/ meltfptr[1128] = (void*)&cdat->dstr_1063__INITIAL_ENVIRONM; + cdat->dstr_1063__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1063__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_1063__INITIAL_ENVIRONM.val)-1); + /*inirout drout_1064__INSTALL_INITIAL_PATMACRO*/ + /*_.VALROUT___V1130*/ meltfptr[1129] = (void*)&cdat->drout_1064__INSTALL_INITIAL_PATMACRO; + cdat->drout_1064__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1064__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:1835", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1064__INSTALL_INITIAL_PATMACRO.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1064__INSTALL_INITIAL_PATMACRO, meltrout_27_warmelt_macro_INSTALL_INITIAL_PATMACRO); + + /*iniclos dclo_1065__INSTALL_INITIAL_PATMACRO*/ + /*_.VALCLO___V1131*/ meltfptr[1130] = (void*)&cdat->dclo_1065__INSTALL_INITIAL_PATMACRO; + cdat->dclo_1065__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1065__INSTALL_INITIAL_PATMACRO.nbval = 0; + + /*iniobj dsym_1066__WARN_SHADOW*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1132*/ meltfptr[1131]) /*_.VALDATA___V1132*/ meltfptr[1131] = (void*)&cdat->dsym_1066__WARN_SHADOW; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1066__WARN_SHADOW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1066__WARN_SHADOW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1066__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1066__WARN_SHADOW.obj_hash = 463836272; + cdat->dsym_1066__WARN_SHADOW.obj_len = 3; + + /*inistring dstr_1067__WARN_SHADOW*/ + /*_.VALSTR___V1133*/ meltfptr[1132] = (void*)&cdat->dstr_1067__WARN_SHADOW; + cdat->dstr_1067__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1067__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1067__WARN_SHADOW.val)-1); + MELT_LOCATION("warmelt-macro.melt:1853:/ iniobj"); + /*iniobj dobj_1068__WARN_SHADOW*/ +/*_.VALDATA___V1134*/ meltfptr[1133] = (void*)&cdat->dobj_1068__WARN_SHADOW; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1068__WARN_SHADOW", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1068__WARN_SHADOW", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dobj_1068__WARN_SHADOW.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); + cdat->dobj_1068__WARN_SHADOW.obj_hash = 254380624; + cdat->dobj_1068__WARN_SHADOW.obj_len = 5; + + /*inimult dtup_1069__WARN_SHADOW*/ + /*_.VALTUP___V1138*/ meltfptr[1137] = (void*)&cdat->dtup_1069__WARN_SHADOW; + cdat->dtup_1069__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_1069__WARN_SHADOW.nbval = 1; + /*inimult dtup_1070__WARN_SHADOW*/ + /*_.VALTUP___V1136*/ meltfptr[1135] = (void*)&cdat->dtup_1070__WARN_SHADOW; + cdat->dtup_1070__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); + cdat->dtup_1070__WARN_SHADOW.nbval = 0; + /*inistring dstr_1071__warn_shadow*/ + /*_.VALSTR___V1137*/ meltfptr[1136] = (void*)&cdat->dstr_1071__warn_shadow; + cdat->dstr_1071__warn_shadow.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1071__warn_shadow.val, "warn_shadow", sizeof (cdat->dstr_1071__warn_shadow.val)-1); + /*inistring dstr_1072__WARN_SHADOW*/ + /*_.VALSTR___V1135*/ meltfptr[1134] = (void*)&cdat->dstr_1072__WARN_SHADOW; + cdat->dstr_1072__WARN_SHADOW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1072__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1072__WARN_SHADOW.val)-1); + /*inirout drout_1073__WARN_IF_REDEFINED*/ + /*_.VALROUT___V1139*/ meltfptr[1138] = (void*)&cdat->drout_1073__WARN_IF_REDEFINED; + cdat->drout_1073__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1073__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:1857", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1073__WARN_IF_REDEFINED.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1073__WARN_IF_REDEFINED, meltrout_28_warmelt_macro_WARN_IF_REDEFINED); + + /*iniclos dclo_1074__WARN_IF_REDEFINED*/ + /*_.VALCLO___V1140*/ meltfptr[1139] = (void*)&cdat->dclo_1074__WARN_IF_REDEFINED; + cdat->dclo_1074__WARN_IF_REDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1074__WARN_IF_REDEFINED.nbval = 0; + + /*inirout drout_1075__FLATTEN_FOR_C_CODE_EXPANSION*/ + /*_.VALROUT___V1141*/ meltfptr[1140] = (void*)&cdat->drout_1075__FLATTEN_FOR_C_CODE_EXPANSION; + cdat->drout_1075__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1075__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:1870", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1075__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1075__FLATTEN_FOR_C_CODE_EXPANSION, meltrout_29_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION); + + /*iniclos dclo_1076__FLATTEN_FOR_C_CODE_EXPANSION*/ + /*_.VALCLO___V1142*/ meltfptr[1141] = (void*)&cdat->dclo_1076__FLATTEN_FOR_C_CODE_EXPANSION; + cdat->dclo_1076__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1076__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; + + /*iniobj dsym_1077__DISCR_VERBATIM_STRING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1143*/ meltfptr[1142]) /*_.VALDATA___V1143*/ meltfptr[1142] = (void*)&cdat->dsym_1077__DISCR_VERBATIM_STRING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1077__DISCR_VERBATIM_STRING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1077__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1077__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1077__DISCR_VERBATIM_STRING.obj_hash = 258402049; + cdat->dsym_1077__DISCR_VERBATIM_STRING.obj_len = 3; + + /*inistring dstr_1078__DISCR_VERBATIM_S*/ + /*_.VALSTR___V1144*/ meltfptr[1143] = (void*)&cdat->dstr_1078__DISCR_VERBATIM_S; + cdat->dstr_1078__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1078__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_1078__DISCR_VERBATIM_S.val)-1); + /*inirout drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION*/ + /*_.VALROUT___V1145*/ meltfptr[1144] = (void*)&cdat->drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION; + cdat->drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:1916", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION, meltrout_30_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION); + + /*iniclos dclo_1080__PARSE_PAIRLIST_C_CODE_EXPANSION*/ + /*_.VALCLO___V1146*/ meltfptr[1145] = (void*)&cdat->dclo_1080__PARSE_PAIRLIST_C_CODE_EXPANSION; + cdat->dclo_1080__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1080__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; + + /*inirout drout_1081__CHECK_C_EXPANSION*/ + /*_.VALROUT___V1147*/ meltfptr[1146] = (void*)&cdat->drout_1081__CHECK_C_EXPANSION; + cdat->drout_1081__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1081__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:1937", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1081__CHECK_C_EXPANSION.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1081__CHECK_C_EXPANSION, meltrout_31_warmelt_macro_CHECK_C_EXPANSION); + + /*iniclos dclo_1082__CHECK_C_EXPANSION*/ + /*_.VALCLO___V1148*/ meltfptr[1147] = (void*)&cdat->dclo_1082__CHECK_C_EXPANSION; + cdat->dclo_1082__CHECK_C_EXPANSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1082__CHECK_C_EXPANSION.nbval = 0; + + /*inirout drout_1083__MEXPAND_DEFPRIMITIVE*/ + /*_.VALROUT___V1149*/ meltfptr[1148] = (void*)&cdat->drout_1083__MEXPAND_DEFPRIMITIVE; + cdat->drout_1083__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1083__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:1965", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1083__MEXPAND_DEFPRIMITIVE.nbval = 19; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1083__MEXPAND_DEFPRIMITIVE, meltrout_32_warmelt_macro_MEXPAND_DEFPRIMITIVE); + + /*iniclos dclo_1084__MEXPAND_DEFPRIMITIVE*/ + /*_.VALCLO___V1152*/ meltfptr[1151] = (void*)&cdat->dclo_1084__MEXPAND_DEFPRIMITIVE; + cdat->dclo_1084__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1084__MEXPAND_DEFPRIMITIVE.nbval = 0; + + /*iniobj dsym_1085__DOC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1150*/ meltfptr[1149]) /*_.VALDATA___V1150*/ meltfptr[1149] = (void*)&cdat->dsym_1085__DOC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1085__DOC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1085__DOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1085__DOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1085__DOC.obj_hash = 518786062; + cdat->dsym_1085__DOC.obj_len = 3; + + /*inistring dstr_1086__DOC*/ + /*_.VALSTR___V1151*/ meltfptr[1150] = (void*)&cdat->dstr_1086__DOC; + cdat->dstr_1086__DOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1086__DOC.val, "DOC", sizeof (cdat->dstr_1086__DOC.val)-1); + /*iniobj dsym_1087__CLASS_ANY_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1153*/ meltfptr[1152]) /*_.VALDATA___V1153*/ meltfptr[1152] = (void*)&cdat->dsym_1087__CLASS_ANY_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1087__CLASS_ANY_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1087__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1087__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1087__CLASS_ANY_BINDING.obj_hash = 935770; + cdat->dsym_1087__CLASS_ANY_BINDING.obj_len = 3; + + /*inistring dstr_1088__CLASS_ANY_BINDIN*/ + /*_.VALSTR___V1154*/ meltfptr[1153] = (void*)&cdat->dstr_1088__CLASS_ANY_BINDIN; + cdat->dstr_1088__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1088__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_1088__CLASS_ANY_BINDIN.val)-1); + /*iniobj dsym_1089__DEFPRIMITIVE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1155*/ meltfptr[1154]) /*_.VALDATA___V1155*/ meltfptr[1154] = (void*)&cdat->dsym_1089__DEFPRIMITIVE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1089__DEFPRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1089__DEFPRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1089__DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1089__DEFPRIMITIVE.obj_hash = 68752716; + cdat->dsym_1089__DEFPRIMITIVE.obj_len = 3; + + /*inistring dstr_1090__DEFPRIMITIVE*/ + /*_.VALSTR___V1156*/ meltfptr[1155] = (void*)&cdat->dstr_1090__DEFPRIMITIVE; + cdat->dstr_1090__DEFPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1090__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (cdat->dstr_1090__DEFPRIMITIVE.val)-1); + /*inirout drout_1091__MEXPAND_DEFCITERATOR*/ + /*_.VALROUT___V1157*/ meltfptr[1156] = (void*)&cdat->drout_1091__MEXPAND_DEFCITERATOR; + cdat->drout_1091__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1091__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2073", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1091__MEXPAND_DEFCITERATOR.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1091__MEXPAND_DEFCITERATOR, meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR); + + /*iniclos dclo_1092__MEXPAND_DEFCITERATOR*/ + /*_.VALCLO___V1158*/ meltfptr[1157] = (void*)&cdat->dclo_1092__MEXPAND_DEFCITERATOR; + cdat->dclo_1092__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1092__MEXPAND_DEFCITERATOR.nbval = 0; + + /*iniobj dsym_1093__DEFCITERATOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1159*/ meltfptr[1158]) /*_.VALDATA___V1159*/ meltfptr[1158] = (void*)&cdat->dsym_1093__DEFCITERATOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1093__DEFCITERATOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1093__DEFCITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1093__DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1093__DEFCITERATOR.obj_hash = 388838610; + cdat->dsym_1093__DEFCITERATOR.obj_len = 3; + + /*inistring dstr_1094__DEFCITERATOR*/ + /*_.VALSTR___V1160*/ meltfptr[1159] = (void*)&cdat->dstr_1094__DEFCITERATOR; + cdat->dstr_1094__DEFCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1094__DEFCITERATOR.val, "DEFCITERATOR", sizeof (cdat->dstr_1094__DEFCITERATOR.val)-1); + /*inirout drout_1095__MEXPAND_DEFCMATCHER*/ + /*_.VALROUT___V1161*/ meltfptr[1160] = (void*)&cdat->drout_1095__MEXPAND_DEFCMATCHER; + cdat->drout_1095__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1095__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:2196", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1095__MEXPAND_DEFCMATCHER.nbval = 18; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1095__MEXPAND_DEFCMATCHER, meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER); + + /*iniclos dclo_1096__MEXPAND_DEFCMATCHER*/ + /*_.VALCLO___V1163*/ meltfptr[1162] = (void*)&cdat->dclo_1096__MEXPAND_DEFCMATCHER; + cdat->dclo_1096__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1096__MEXPAND_DEFCMATCHER.nbval = 0; + + /*iniobj dsym_1097__MULTIPLE_EVERY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1164*/ meltfptr[1163]) /*_.VALDATA___V1164*/ meltfptr[1163] = (void*)&cdat->dsym_1097__MULTIPLE_EVERY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1097__MULTIPLE_EVERY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1097__MULTIPLE_EVERY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1097__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1097__MULTIPLE_EVERY.obj_hash = 130098745; + cdat->dsym_1097__MULTIPLE_EVERY.obj_len = 3; + + /*inistring dstr_1098__MULTIPLE_EVERY*/ + /*_.VALSTR___V1165*/ meltfptr[1164] = (void*)&cdat->dstr_1098__MULTIPLE_EVERY; + cdat->dstr_1098__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1098__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (cdat->dstr_1098__MULTIPLE_EVERY.val)-1); + /*inirout drout_1099__LAMBDA_*/ + /*_.VALROUT___V1162*/ meltfptr[1161] = (void*)&cdat->drout_1099__LAMBDA_; + cdat->drout_1099__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1099__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2239", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1099__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1099__LAMBDA_, meltrout_35_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1100__DEFCMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1166*/ meltfptr[1165]) /*_.VALDATA___V1166*/ meltfptr[1165] = (void*)&cdat->dsym_1100__DEFCMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1100__DEFCMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1100__DEFCMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1100__DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1100__DEFCMATCHER.obj_hash = 63669746; + cdat->dsym_1100__DEFCMATCHER.obj_len = 3; + + /*inistring dstr_1101__DEFCMATCHER*/ + /*_.VALSTR___V1167*/ meltfptr[1166] = (void*)&cdat->dstr_1101__DEFCMATCHER; + cdat->dstr_1101__DEFCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1101__DEFCMATCHER.val, "DEFCMATCHER", sizeof (cdat->dstr_1101__DEFCMATCHER.val)-1); + /*inirout drout_1102__MEXPAND_DEFUNMATCHER*/ + /*_.VALROUT___V1168*/ meltfptr[1167] = (void*)&cdat->drout_1102__MEXPAND_DEFUNMATCHER; + cdat->drout_1102__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1102__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:2372", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1102__MEXPAND_DEFUNMATCHER.nbval = 14; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1102__MEXPAND_DEFUNMATCHER, meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER); + + /*iniclos dclo_1103__MEXPAND_DEFUNMATCHER*/ + /*_.VALCLO___V1170*/ meltfptr[1169] = (void*)&cdat->dclo_1103__MEXPAND_DEFUNMATCHER; + cdat->dclo_1103__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1103__MEXPAND_DEFUNMATCHER.nbval = 0; + + /*inirout drout_1104__LAMBDA_*/ + /*_.VALROUT___V1169*/ meltfptr[1168] = (void*)&cdat->drout_1104__LAMBDA_; + cdat->drout_1104__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1104__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2413", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1104__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1104__LAMBDA_, meltrout_37_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1105__DEFUNMATCHER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1171*/ meltfptr[1170]) /*_.VALDATA___V1171*/ meltfptr[1170] = (void*)&cdat->dsym_1105__DEFUNMATCHER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1105__DEFUNMATCHER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1105__DEFUNMATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1105__DEFUNMATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1105__DEFUNMATCHER.obj_hash = 739727106; + cdat->dsym_1105__DEFUNMATCHER.obj_len = 3; + + /*inistring dstr_1106__DEFUNMATCHER*/ + /*_.VALSTR___V1172*/ meltfptr[1171] = (void*)&cdat->dstr_1106__DEFUNMATCHER; + cdat->dstr_1106__DEFUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1106__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (cdat->dstr_1106__DEFUNMATCHER.val)-1); + /*inirout drout_1107__MEXPAND_DEFUN*/ + /*_.VALROUT___V1173*/ meltfptr[1172] = (void*)&cdat->drout_1107__MEXPAND_DEFUN; + cdat->drout_1107__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1107__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:2506", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1107__MEXPAND_DEFUN.nbval = 16; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__MEXPAND_DEFUN, meltrout_38_warmelt_macro_MEXPAND_DEFUN); + + /*iniclos dclo_1108__MEXPAND_DEFUN*/ + /*_.VALCLO___V1175*/ meltfptr[1174] = (void*)&cdat->dclo_1108__MEXPAND_DEFUN; + cdat->dclo_1108__MEXPAND_DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1108__MEXPAND_DEFUN.nbval = 0; + + /*iniobj dsym_1109__FRESH_ENV*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1176*/ meltfptr[1175]) /*_.VALDATA___V1176*/ meltfptr[1175] = (void*)&cdat->dsym_1109__FRESH_ENV; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1109__FRESH_ENV", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1109__FRESH_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1109__FRESH_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1109__FRESH_ENV.obj_hash = 1002363940; + cdat->dsym_1109__FRESH_ENV.obj_len = 3; + + /*inistring dstr_1110__FRESH_ENV*/ + /*_.VALSTR___V1177*/ meltfptr[1176] = (void*)&cdat->dstr_1110__FRESH_ENV; + cdat->dstr_1110__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1110__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_1110__FRESH_ENV.val)-1); + /*inirout drout_1111__LAMBDA_*/ + /*_.VALROUT___V1174*/ meltfptr[1173] = (void*)&cdat->drout_1111__LAMBDA_; + cdat->drout_1111__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1111__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2537", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1111__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1111__LAMBDA_, meltrout_39_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1112__CLASS_FUNCTION_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1178*/ meltfptr[1177]) /*_.VALDATA___V1178*/ meltfptr[1177] = (void*)&cdat->dsym_1112__CLASS_FUNCTION_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1112__CLASS_FUNCTION_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1112__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1112__CLASS_FUNCTION_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1112__CLASS_FUNCTION_BINDING.obj_hash = 942362333; + cdat->dsym_1112__CLASS_FUNCTION_BINDING.obj_len = 3; + + /*inistring dstr_1113__CLASS_FUNCTION_B*/ + /*_.VALSTR___V1179*/ meltfptr[1178] = (void*)&cdat->dstr_1113__CLASS_FUNCTION_B; + cdat->dstr_1113__CLASS_FUNCTION_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1113__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING", sizeof (cdat->dstr_1113__CLASS_FUNCTION_B.val)-1); + /*iniobj dsym_1114__DEFUN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1180*/ meltfptr[1179]) /*_.VALDATA___V1180*/ meltfptr[1179] = (void*)&cdat->dsym_1114__DEFUN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1114__DEFUN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1114__DEFUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1114__DEFUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1114__DEFUN.obj_hash = 98259022; + cdat->dsym_1114__DEFUN.obj_len = 3; + + /*inistring dstr_1115__DEFUN*/ + /*_.VALSTR___V1181*/ meltfptr[1180] = (void*)&cdat->dstr_1115__DEFUN; + cdat->dstr_1115__DEFUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1115__DEFUN.val, "DEFUN", sizeof (cdat->dstr_1115__DEFUN.val)-1); + /*inirout drout_1116__MEXPAND_DEFINE*/ + /*_.VALROUT___V1182*/ meltfptr[1181] = (void*)&cdat->drout_1116__MEXPAND_DEFINE; + cdat->drout_1116__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1116__MEXPAND_DEFINE.routdescr, "MEXPAND_DEFINE @warmelt-macro.melt:2579", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1116__MEXPAND_DEFINE.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1116__MEXPAND_DEFINE, meltrout_40_warmelt_macro_MEXPAND_DEFINE); + + /*iniclos dclo_1117__MEXPAND_DEFINE*/ + /*_.VALCLO___V1183*/ meltfptr[1182] = (void*)&cdat->dclo_1117__MEXPAND_DEFINE; + cdat->dclo_1117__MEXPAND_DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1117__MEXPAND_DEFINE.nbval = 0; + + /*iniobj dsym_1118__DEFINE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1184*/ meltfptr[1183]) /*_.VALDATA___V1184*/ meltfptr[1183] = (void*)&cdat->dsym_1118__DEFINE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1118__DEFINE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1118__DEFINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1118__DEFINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1118__DEFINE.obj_hash = 264523154; + cdat->dsym_1118__DEFINE.obj_len = 3; + + /*inistring dstr_1119__DEFINE*/ + /*_.VALSTR___V1185*/ meltfptr[1184] = (void*)&cdat->dstr_1119__DEFINE; + cdat->dstr_1119__DEFINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1119__DEFINE.val, "DEFINE", sizeof (cdat->dstr_1119__DEFINE.val)-1); + /*inirout drout_1120__SCAN_DEFCLASS*/ + /*_.VALROUT___V1186*/ meltfptr[1185] = (void*)&cdat->drout_1120__SCAN_DEFCLASS; + cdat->drout_1120__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1120__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:2622", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1120__SCAN_DEFCLASS.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1120__SCAN_DEFCLASS, meltrout_41_warmelt_macro_SCAN_DEFCLASS); + + /*iniclos dclo_1121__SCAN_DEFCLASS*/ + /*_.VALCLO___V1193*/ meltfptr[1192] = (void*)&cdat->dclo_1121__SCAN_DEFCLASS; + cdat->dclo_1121__SCAN_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1121__SCAN_DEFCLASS.nbval = 0; + + /*iniobj dsym_1122__SUPER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1187*/ meltfptr[1186]) /*_.VALDATA___V1187*/ meltfptr[1186] = (void*)&cdat->dsym_1122__SUPER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1122__SUPER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1122__SUPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1122__SUPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1122__SUPER.obj_hash = 103938843; + cdat->dsym_1122__SUPER.obj_len = 3; + + /*inistring dstr_1123__SUPER*/ + /*_.VALSTR___V1188*/ meltfptr[1187] = (void*)&cdat->dstr_1123__SUPER; + cdat->dstr_1123__SUPER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1123__SUPER.val, "SUPER", sizeof (cdat->dstr_1123__SUPER.val)-1); + /*iniobj dsym_1124__CLASS_CLASS_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1194*/ meltfptr[1193]) /*_.VALDATA___V1194*/ meltfptr[1193] = (void*)&cdat->dsym_1124__CLASS_CLASS_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1124__CLASS_CLASS_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1124__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1124__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1124__CLASS_CLASS_BINDING.obj_hash = 848133131; + cdat->dsym_1124__CLASS_CLASS_BINDING.obj_len = 3; + + /*inistring dstr_1125__CLASS_CLASS_BIND*/ + /*_.VALSTR___V1195*/ meltfptr[1194] = (void*)&cdat->dstr_1125__CLASS_CLASS_BIND; + cdat->dstr_1125__CLASS_CLASS_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1125__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof (cdat->dstr_1125__CLASS_CLASS_BIND.val)-1); + /*iniobj dsym_1126__CLASS_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1196*/ meltfptr[1195]) /*_.VALDATA___V1196*/ meltfptr[1195] = (void*)&cdat->dsym_1126__CLASS_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1126__CLASS_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1126__CLASS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1126__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1126__CLASS_CLASS.obj_hash = 60141292; + cdat->dsym_1126__CLASS_CLASS.obj_len = 3; + + /*inistring dstr_1127__CLASS_CLASS*/ + /*_.VALSTR___V1197*/ meltfptr[1196] = (void*)&cdat->dstr_1127__CLASS_CLASS; + cdat->dstr_1127__CLASS_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1127__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_1127__CLASS_CLASS.val)-1); + /*iniobj dsym_1128__FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1189*/ meltfptr[1188]) /*_.VALDATA___V1189*/ meltfptr[1188] = (void*)&cdat->dsym_1128__FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1128__FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1128__FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1128__FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1128__FIELDS.obj_hash = 63787385; + cdat->dsym_1128__FIELDS.obj_len = 3; + + /*inistring dstr_1129__FIELDS*/ + /*_.VALSTR___V1190*/ meltfptr[1189] = (void*)&cdat->dstr_1129__FIELDS; + cdat->dstr_1129__FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1129__FIELDS.val, "FIELDS", sizeof (cdat->dstr_1129__FIELDS.val)-1); + /*iniobj dsym_1130__PREDEF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1191*/ meltfptr[1190]) /*_.VALDATA___V1191*/ meltfptr[1190] = (void*)&cdat->dsym_1130__PREDEF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1130__PREDEF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1130__PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1130__PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1130__PREDEF.obj_hash = 55393491; + cdat->dsym_1130__PREDEF.obj_len = 3; + + /*inistring dstr_1131__PREDEF*/ + /*_.VALSTR___V1192*/ meltfptr[1191] = (void*)&cdat->dstr_1131__PREDEF; + cdat->dstr_1131__PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1131__PREDEF.val, "PREDEF", sizeof (cdat->dstr_1131__PREDEF.val)-1); + /*inirout drout_1132__MEXPAND_DEFCLASS*/ + /*_.VALROUT___V1198*/ meltfptr[1197] = (void*)&cdat->drout_1132__MEXPAND_DEFCLASS; + cdat->drout_1132__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1132__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:2742", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1132__MEXPAND_DEFCLASS.nbval = 27; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1132__MEXPAND_DEFCLASS, meltrout_42_warmelt_macro_MEXPAND_DEFCLASS); + + /*iniclos dclo_1133__MEXPAND_DEFCLASS*/ + /*_.VALCLO___V1201*/ meltfptr[1200] = (void*)&cdat->dclo_1133__MEXPAND_DEFCLASS; + cdat->dclo_1133__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1133__MEXPAND_DEFCLASS.nbval = 0; + + /*iniobj dsym_1134__DISCR_CLASS_SEQUENCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1202*/ meltfptr[1201]) /*_.VALDATA___V1202*/ meltfptr[1201] = (void*)&cdat->dsym_1134__DISCR_CLASS_SEQUENCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1134__DISCR_CLASS_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1134__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1134__DISCR_CLASS_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1134__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; + cdat->dsym_1134__DISCR_CLASS_SEQUENCE.obj_len = 3; + + /*inistring dstr_1135__DISCR_CLASS_SEQU*/ + /*_.VALSTR___V1203*/ meltfptr[1202] = (void*)&cdat->dstr_1135__DISCR_CLASS_SEQU; + cdat->dstr_1135__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1135__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_1135__DISCR_CLASS_SEQU.val)-1); + /*iniobj dsym_1136__DISCR_MAP_STRINGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1204*/ meltfptr[1203]) /*_.VALDATA___V1204*/ meltfptr[1203] = (void*)&cdat->dsym_1136__DISCR_MAP_STRINGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1136__DISCR_MAP_STRINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1136__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1136__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1136__DISCR_MAP_STRINGS.obj_hash = 344609662; + cdat->dsym_1136__DISCR_MAP_STRINGS.obj_len = 3; + + /*inistring dstr_1137__DISCR_MAP_STRING*/ + /*_.VALSTR___V1205*/ meltfptr[1204] = (void*)&cdat->dstr_1137__DISCR_MAP_STRING; + cdat->dstr_1137__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1137__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_1137__DISCR_MAP_STRING.val)-1); + /*iniobj dsym_1138__DISCR_FIELD_SEQUENCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1206*/ meltfptr[1205]) /*_.VALDATA___V1206*/ meltfptr[1205] = (void*)&cdat->dsym_1138__DISCR_FIELD_SEQUENCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1138__DISCR_FIELD_SEQUENCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1138__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1138__DISCR_FIELD_SEQUENCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1138__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; + cdat->dsym_1138__DISCR_FIELD_SEQUENCE.obj_len = 3; + + /*inistring dstr_1139__DISCR_FIELD_SEQU*/ + /*_.VALSTR___V1207*/ meltfptr[1206] = (void*)&cdat->dstr_1139__DISCR_FIELD_SEQU; + cdat->dstr_1139__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1139__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_1139__DISCR_FIELD_SEQU.val)-1); + /*inirout drout_1140__LAMBDA_*/ + /*_.VALROUT___V1199*/ meltfptr[1198] = (void*)&cdat->drout_1140__LAMBDA_; + cdat->drout_1140__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1140__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2804", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1140__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1140__LAMBDA_, meltrout_43_warmelt_macro_LAMBDA_); + + /*inirout drout_1141__LAMBDA_*/ + /*_.VALROUT___V1200*/ meltfptr[1199] = (void*)&cdat->drout_1141__LAMBDA_; + cdat->drout_1141__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1141__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2813", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1141__LAMBDA_.nbval = 9; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1141__LAMBDA_, meltrout_44_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1142__DEFCLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1208*/ meltfptr[1207]) /*_.VALDATA___V1208*/ meltfptr[1207] = (void*)&cdat->dsym_1142__DEFCLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1142__DEFCLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1142__DEFCLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1142__DEFCLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1142__DEFCLASS.obj_hash = 67702184; + cdat->dsym_1142__DEFCLASS.obj_len = 3; + + /*inistring dstr_1143__DEFCLASS*/ + /*_.VALSTR___V1209*/ meltfptr[1208] = (void*)&cdat->dstr_1143__DEFCLASS; + cdat->dstr_1143__DEFCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1143__DEFCLASS.val, "DEFCLASS", sizeof (cdat->dstr_1143__DEFCLASS.val)-1); + /*inirout drout_1144__PARSE_FIELD_ASSIGNMENT*/ + /*_.VALROUT___V1210*/ meltfptr[1209] = (void*)&cdat->drout_1144__PARSE_FIELD_ASSIGNMENT; + cdat->drout_1144__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1144__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:2891", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1144__PARSE_FIELD_ASSIGNMENT.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1144__PARSE_FIELD_ASSIGNMENT, meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT); + + /*iniclos dclo_1145__PARSE_FIELD_ASSIGNMENT*/ + /*_.VALCLO___V1214*/ meltfptr[1213] = (void*)&cdat->dclo_1145__PARSE_FIELD_ASSIGNMENT; + cdat->dclo_1145__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1145__PARSE_FIELD_ASSIGNMENT.nbval = 0; + + /*iniobj dsym_1146__MULTIPLE_ITERATE_TEST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1215*/ meltfptr[1214]) /*_.VALDATA___V1215*/ meltfptr[1214] = (void*)&cdat->dsym_1146__MULTIPLE_ITERATE_TEST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1146__MULTIPLE_ITERATE_TEST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1146__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1146__MULTIPLE_ITERATE_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1146__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; + cdat->dsym_1146__MULTIPLE_ITERATE_TEST.obj_len = 3; + + /*inistring dstr_1147__MULTIPLE_ITERATE*/ + /*_.VALSTR___V1216*/ meltfptr[1215] = (void*)&cdat->dstr_1147__MULTIPLE_ITERATE; + cdat->dstr_1147__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1147__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof (cdat->dstr_1147__MULTIPLE_ITERATE.val)-1); + /*inirout drout_1148__LAMBDA_*/ + /*_.VALROUT___V1211*/ meltfptr[1210] = (void*)&cdat->drout_1148__LAMBDA_; + cdat->drout_1148__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1148__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2914", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1148__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1148__LAMBDA_, meltrout_46_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1149__TRUE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1212*/ meltfptr[1211]) /*_.VALDATA___V1212*/ meltfptr[1211] = (void*)&cdat->dsym_1149__TRUE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1149__TRUE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1149__TRUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1149__TRUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1149__TRUE.obj_hash = 576485513; + cdat->dsym_1149__TRUE.obj_len = 3; + + /*inistring dstr_1150__TRUE*/ + /*_.VALSTR___V1213*/ meltfptr[1212] = (void*)&cdat->dstr_1150__TRUE; + cdat->dstr_1150__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1150__TRUE.val, "TRUE", sizeof (cdat->dstr_1150__TRUE.val)-1); + /*inirout drout_1151__MEXPAND_DEFINSTANCE*/ + /*_.VALROUT___V1217*/ meltfptr[1216] = (void*)&cdat->drout_1151__MEXPAND_DEFINSTANCE; + cdat->drout_1151__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1151__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:2987", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1151__MEXPAND_DEFINSTANCE.nbval = 21; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1151__MEXPAND_DEFINSTANCE, meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE); + + /*iniclos dclo_1152__MEXPAND_DEFINSTANCE*/ + /*_.VALCLO___V1220*/ meltfptr[1219] = (void*)&cdat->dclo_1152__MEXPAND_DEFINSTANCE; + cdat->dclo_1152__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1152__MEXPAND_DEFINSTANCE.nbval = 0; + + /*iniobj dsym_1153__OBJ_NUM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1218*/ meltfptr[1217]) /*_.VALDATA___V1218*/ meltfptr[1217] = (void*)&cdat->dsym_1153__OBJ_NUM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1153__OBJ_NUM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1153__OBJ_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1153__OBJ_NUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1153__OBJ_NUM.obj_hash = 56861275; + cdat->dsym_1153__OBJ_NUM.obj_len = 3; + + /*inistring dstr_1154__OBJ_NUM*/ + /*_.VALSTR___V1219*/ meltfptr[1218] = (void*)&cdat->dstr_1154__OBJ_NUM; + cdat->dstr_1154__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1154__OBJ_NUM.val, "OBJ_NUM", sizeof (cdat->dstr_1154__OBJ_NUM.val)-1); + /*iniobj dsym_1155__CLASS_INSTANCE_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1221*/ meltfptr[1220]) /*_.VALDATA___V1221*/ meltfptr[1220] = (void*)&cdat->dsym_1155__CLASS_INSTANCE_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1155__CLASS_INSTANCE_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1155__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1155__CLASS_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1155__CLASS_INSTANCE_BINDING.obj_hash = 401143458; + cdat->dsym_1155__CLASS_INSTANCE_BINDING.obj_len = 3; + + /*inistring dstr_1156__CLASS_INSTANCE_B*/ + /*_.VALSTR___V1222*/ meltfptr[1221] = (void*)&cdat->dstr_1156__CLASS_INSTANCE_B; + cdat->dstr_1156__CLASS_INSTANCE_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1156__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING", sizeof (cdat->dstr_1156__CLASS_INSTANCE_B.val)-1); + /*iniobj dsym_1157__DEFINSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1223*/ meltfptr[1222]) /*_.VALDATA___V1223*/ meltfptr[1222] = (void*)&cdat->dsym_1157__DEFINSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1157__DEFINSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1157__DEFINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1157__DEFINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1157__DEFINSTANCE.obj_hash = 28184141; + cdat->dsym_1157__DEFINSTANCE.obj_len = 3; + + /*inistring dstr_1158__DEFINSTANCE*/ + /*_.VALSTR___V1224*/ meltfptr[1223] = (void*)&cdat->dstr_1158__DEFINSTANCE; + cdat->dstr_1158__DEFINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1158__DEFINSTANCE.val, "DEFINSTANCE", sizeof (cdat->dstr_1158__DEFINSTANCE.val)-1); + /*inirout drout_1159__MEXPAND_DEFSELECTOR*/ + /*_.VALROUT___V1225*/ meltfptr[1224] = (void*)&cdat->drout_1159__MEXPAND_DEFSELECTOR; + cdat->drout_1159__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1159__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:3095", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1159__MEXPAND_DEFSELECTOR.nbval = 28; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1159__MEXPAND_DEFSELECTOR, meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR); + + /*iniclos dclo_1160__MEXPAND_DEFSELECTOR*/ + /*_.VALCLO___V1228*/ meltfptr[1227] = (void*)&cdat->dclo_1160__MEXPAND_DEFSELECTOR; + cdat->dclo_1160__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1160__MEXPAND_DEFSELECTOR.nbval = 0; + + /*iniobj dsym_1161__MELT_MODE_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1229*/ meltfptr[1228]) /*_.VALDATA___V1229*/ meltfptr[1228] = (void*)&cdat->dsym_1161__MELT_MODE_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1161__MELT_MODE_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1161__MELT_MODE_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1161__MELT_MODE_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1161__MELT_MODE_CONTAINER.obj_hash = 532518171; + cdat->dsym_1161__MELT_MODE_CONTAINER.obj_len = 3; + + /*inistring dstr_1162__MELT_MODE_CONTAI*/ + /*_.VALSTR___V1230*/ meltfptr[1229] = (void*)&cdat->dstr_1162__MELT_MODE_CONTAI; + cdat->dstr_1162__MELT_MODE_CONTAI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1162__MELT_MODE_CONTAI.val, "MELT_MODE_CONTAINER", sizeof (cdat->dstr_1162__MELT_MODE_CONTAI.val)-1); + /*iniobj dsym_1163__CLASS_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1231*/ meltfptr[1230]) /*_.VALDATA___V1231*/ meltfptr[1230] = (void*)&cdat->dsym_1163__CLASS_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1163__CLASS_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1163__CLASS_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1163__CLASS_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1163__CLASS_CONTAINER.obj_hash = 301899711; + cdat->dsym_1163__CLASS_CONTAINER.obj_len = 3; + + /*inistring dstr_1164__CLASS_CONTAINER*/ + /*_.VALSTR___V1232*/ meltfptr[1231] = (void*)&cdat->dstr_1164__CLASS_CONTAINER; + cdat->dstr_1164__CLASS_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1164__CLASS_CONTAINER.val, "CLASS_CONTAINER", sizeof (cdat->dstr_1164__CLASS_CONTAINER.val)-1); + /*iniobj dsym_1165__FORMALS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1226*/ meltfptr[1225]) /*_.VALDATA___V1226*/ meltfptr[1225] = (void*)&cdat->dsym_1165__FORMALS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1165__FORMALS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1165__FORMALS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1165__FORMALS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1165__FORMALS.obj_hash = 499105813; + cdat->dsym_1165__FORMALS.obj_len = 3; + + /*inistring dstr_1166__FORMALS*/ + /*_.VALSTR___V1227*/ meltfptr[1226] = (void*)&cdat->dstr_1166__FORMALS; + cdat->dstr_1166__FORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1166__FORMALS.val, "FORMALS", sizeof (cdat->dstr_1166__FORMALS.val)-1); + /*iniobj dsym_1167__DEFSELECTOR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1233*/ meltfptr[1232]) /*_.VALDATA___V1233*/ meltfptr[1232] = (void*)&cdat->dsym_1167__DEFSELECTOR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1167__DEFSELECTOR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1167__DEFSELECTOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1167__DEFSELECTOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1167__DEFSELECTOR.obj_hash = 34255542; + cdat->dsym_1167__DEFSELECTOR.obj_len = 3; + + /*inistring dstr_1168__DEFSELECTOR*/ + /*_.VALSTR___V1234*/ meltfptr[1233] = (void*)&cdat->dstr_1168__DEFSELECTOR; + cdat->dstr_1168__DEFSELECTOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1168__DEFSELECTOR.val, "DEFSELECTOR", sizeof (cdat->dstr_1168__DEFSELECTOR.val)-1); + /*inirout drout_1169__MEXPAND_INSTANCE*/ + /*_.VALROUT___V1235*/ meltfptr[1234] = (void*)&cdat->drout_1169__MEXPAND_INSTANCE; + cdat->drout_1169__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1169__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:3236", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1169__MEXPAND_INSTANCE.nbval = 14; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1169__MEXPAND_INSTANCE, meltrout_49_warmelt_macro_MEXPAND_INSTANCE); + + /*iniclos dclo_1170__MEXPAND_INSTANCE*/ + /*_.VALCLO___V1236*/ meltfptr[1235] = (void*)&cdat->dclo_1170__MEXPAND_INSTANCE; + cdat->dclo_1170__MEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1170__MEXPAND_INSTANCE.nbval = 0; + + /*iniobj dsym_1171__INSTANCE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1237*/ meltfptr[1236]) /*_.VALDATA___V1237*/ meltfptr[1236] = (void*)&cdat->dsym_1171__INSTANCE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1171__INSTANCE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1171__INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1171__INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1171__INSTANCE.obj_hash = 837795892; + cdat->dsym_1171__INSTANCE.obj_len = 3; + + /*inistring dstr_1172__INSTANCE*/ + /*_.VALSTR___V1238*/ meltfptr[1237] = (void*)&cdat->dstr_1172__INSTANCE; + cdat->dstr_1172__INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1172__INSTANCE.val, "INSTANCE", sizeof (cdat->dstr_1172__INSTANCE.val)-1); + /*inirout drout_1173__MEXPAND_LOAD*/ + /*_.VALROUT___V1239*/ meltfptr[1238] = (void*)&cdat->drout_1173__MEXPAND_LOAD; + cdat->drout_1173__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1173__MEXPAND_LOAD.routdescr, "MEXPAND_LOAD @warmelt-macro.melt:3304", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1173__MEXPAND_LOAD.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1173__MEXPAND_LOAD, meltrout_50_warmelt_macro_MEXPAND_LOAD); + + /*iniclos dclo_1174__MEXPAND_LOAD*/ + /*_.VALCLO___V1240*/ meltfptr[1239] = (void*)&cdat->dclo_1174__MEXPAND_LOAD; + cdat->dclo_1174__MEXPAND_LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1174__MEXPAND_LOAD.nbval = 0; + + /*iniobj dsym_1175__LOAD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1241*/ meltfptr[1240]) /*_.VALDATA___V1241*/ meltfptr[1240] = (void*)&cdat->dsym_1175__LOAD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1175__LOAD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1175__LOAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1175__LOAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1175__LOAD.obj_hash = 801185878; + cdat->dsym_1175__LOAD.obj_len = 3; + + /*inistring dstr_1176__LOAD*/ + /*_.VALSTR___V1242*/ meltfptr[1241] = (void*)&cdat->dstr_1176__LOAD; + cdat->dstr_1176__LOAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1176__LOAD.val, "LOAD", sizeof (cdat->dstr_1176__LOAD.val)-1); + /*inirout drout_1177__PARSE_FIELD_PATTERN*/ + /*_.VALROUT___V1243*/ meltfptr[1242] = (void*)&cdat->drout_1177__PARSE_FIELD_PATTERN; + cdat->drout_1177__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1177__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:3344", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1177__PARSE_FIELD_PATTERN.nbval = 12; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1177__PARSE_FIELD_PATTERN, meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN); + + /*iniclos dclo_1178__PARSE_FIELD_PATTERN*/ + /*_.VALCLO___V1245*/ meltfptr[1244] = (void*)&cdat->dclo_1178__PARSE_FIELD_PATTERN; + cdat->dclo_1178__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1178__PARSE_FIELD_PATTERN.nbval = 0; + + /*inirout drout_1179__LAMBDA_*/ + /*_.VALROUT___V1244*/ meltfptr[1243] = (void*)&cdat->drout_1179__LAMBDA_; + cdat->drout_1179__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1179__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3359", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1179__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1179__LAMBDA_, meltrout_52_warmelt_macro_LAMBDA_); + + /*inirout drout_1180__PATEXPAND_INSTANCE*/ + /*_.VALROUT___V1246*/ meltfptr[1245] = (void*)&cdat->drout_1180__PATEXPAND_INSTANCE; + cdat->drout_1180__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1180__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:3388", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1180__PATEXPAND_INSTANCE.nbval = 20; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1180__PATEXPAND_INSTANCE, meltrout_53_warmelt_macro_PATEXPAND_INSTANCE); + + /*iniclos dclo_1181__PATEXPAND_INSTANCE*/ + /*_.VALCLO___V1248*/ meltfptr[1247] = (void*)&cdat->dclo_1181__PATEXPAND_INSTANCE; + cdat->dclo_1181__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1181__PATEXPAND_INSTANCE.nbval = 0; + + /*inirout drout_1182__LAMBDA_*/ + /*_.VALROUT___V1247*/ meltfptr[1246] = (void*)&cdat->drout_1182__LAMBDA_; + cdat->drout_1182__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1182__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3446", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1182__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1182__LAMBDA_, meltrout_54_warmelt_macro_LAMBDA_); + + /*inirout drout_1183__PATEXPAND_OBJECT*/ + /*_.VALROUT___V1249*/ meltfptr[1248] = (void*)&cdat->drout_1183__PATEXPAND_OBJECT; + cdat->drout_1183__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1183__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:3483", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1183__PATEXPAND_OBJECT.nbval = 20; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1183__PATEXPAND_OBJECT, meltrout_55_warmelt_macro_PATEXPAND_OBJECT); + + /*iniclos dclo_1184__PATEXPAND_OBJECT*/ + /*_.VALCLO___V1251*/ meltfptr[1250] = (void*)&cdat->dclo_1184__PATEXPAND_OBJECT; + cdat->dclo_1184__PATEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1184__PATEXPAND_OBJECT.nbval = 0; + + /*inirout drout_1185__LAMBDA_*/ + /*_.VALROUT___V1250*/ meltfptr[1249] = (void*)&cdat->drout_1185__LAMBDA_; + cdat->drout_1185__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1185__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3541", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1185__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1185__LAMBDA_, meltrout_56_warmelt_macro_LAMBDA_); + + /*inirout drout_1186__MEXPAND_OBJECT*/ + /*_.VALROUT___V1252*/ meltfptr[1251] = (void*)&cdat->drout_1186__MEXPAND_OBJECT; + cdat->drout_1186__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1186__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:3560", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1186__MEXPAND_OBJECT.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1186__MEXPAND_OBJECT, meltrout_57_warmelt_macro_MEXPAND_OBJECT); + + /*iniclos dclo_1187__MEXPAND_OBJECT*/ + /*_.VALCLO___V1253*/ meltfptr[1252] = (void*)&cdat->dclo_1187__MEXPAND_OBJECT; + cdat->dclo_1187__MEXPAND_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1187__MEXPAND_OBJECT.nbval = 0; + + /*iniobj dsym_1188__OBJECT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1254*/ meltfptr[1253]) /*_.VALDATA___V1254*/ meltfptr[1253] = (void*)&cdat->dsym_1188__OBJECT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1188__OBJECT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1188__OBJECT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1188__OBJECT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1188__OBJECT.obj_hash = 680382828; + cdat->dsym_1188__OBJECT.obj_len = 3; + + /*inistring dstr_1189__OBJECT*/ + /*_.VALSTR___V1255*/ meltfptr[1254] = (void*)&cdat->dstr_1189__OBJECT; + cdat->dstr_1189__OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1189__OBJECT.val, "OBJECT", sizeof (cdat->dstr_1189__OBJECT.val)-1); + /*inirout drout_1190__MEXPAND_CODE_CHUNK*/ + /*_.VALROUT___V1256*/ meltfptr[1255] = (void*)&cdat->drout_1190__MEXPAND_CODE_CHUNK; + cdat->drout_1190__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1190__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:3583", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1190__MEXPAND_CODE_CHUNK.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1190__MEXPAND_CODE_CHUNK, meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK); + + /*iniclos dclo_1191__MEXPAND_CODE_CHUNK*/ + /*_.VALCLO___V1257*/ meltfptr[1256] = (void*)&cdat->dclo_1191__MEXPAND_CODE_CHUNK; + cdat->dclo_1191__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1191__MEXPAND_CODE_CHUNK.nbval = 0; + + /*iniobj dsym_1192__CODE_CHUNK*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1258*/ meltfptr[1257]) /*_.VALDATA___V1258*/ meltfptr[1257] = (void*)&cdat->dsym_1192__CODE_CHUNK; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1192__CODE_CHUNK", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1192__CODE_CHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1192__CODE_CHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1192__CODE_CHUNK.obj_hash = 744676025; + cdat->dsym_1192__CODE_CHUNK.obj_len = 3; + + /*inistring dstr_1193__CODE_CHUNK*/ + /*_.VALSTR___V1259*/ meltfptr[1258] = (void*)&cdat->dstr_1193__CODE_CHUNK; + cdat->dstr_1193__CODE_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1193__CODE_CHUNK.val, "CODE_CHUNK", sizeof (cdat->dstr_1193__CODE_CHUNK.val)-1); + /*inirout drout_1194__MEXPAND_UNSAFE_PUT_FIELDS*/ + /*_.VALROUT___V1260*/ meltfptr[1259] = (void*)&cdat->drout_1194__MEXPAND_UNSAFE_PUT_FIELDS; + cdat->drout_1194__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1194__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:3634", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1194__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1194__MEXPAND_UNSAFE_PUT_FIELDS, meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS); + + /*iniclos dclo_1195__MEXPAND_UNSAFE_PUT_FIELDS*/ + /*_.VALCLO___V1261*/ meltfptr[1260] = (void*)&cdat->dclo_1195__MEXPAND_UNSAFE_PUT_FIELDS; + cdat->dclo_1195__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1195__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; + + /*iniobj dsym_1196__UNSAFE_PUT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1262*/ meltfptr[1261]) /*_.VALDATA___V1262*/ meltfptr[1261] = (void*)&cdat->dsym_1196__UNSAFE_PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1196__UNSAFE_PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1196__UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1196__UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1196__UNSAFE_PUT_FIELDS.obj_hash = 2805843; + cdat->dsym_1196__UNSAFE_PUT_FIELDS.obj_len = 3; + + /*inistring dstr_1197__UNSAFE_PUT_FIELD*/ + /*_.VALSTR___V1263*/ meltfptr[1262] = (void*)&cdat->dstr_1197__UNSAFE_PUT_FIELD; + cdat->dstr_1197__UNSAFE_PUT_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1197__UNSAFE_PUT_FIELD.val, "UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_1197__UNSAFE_PUT_FIELD.val)-1); + /*inirout drout_1198__MEXPAND_PUT_FIELDS*/ + /*_.VALROUT___V1264*/ meltfptr[1263] = (void*)&cdat->drout_1198__MEXPAND_PUT_FIELDS; + cdat->drout_1198__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1198__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:3679", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1198__MEXPAND_PUT_FIELDS.nbval = 9; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1198__MEXPAND_PUT_FIELDS, meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS); + + /*iniclos dclo_1199__MEXPAND_PUT_FIELDS*/ + /*_.VALCLO___V1265*/ meltfptr[1264] = (void*)&cdat->dclo_1199__MEXPAND_PUT_FIELDS; + cdat->dclo_1199__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1199__MEXPAND_PUT_FIELDS.nbval = 0; + + /*iniobj dsym_1200__PUT_FIELDS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1266*/ meltfptr[1265]) /*_.VALDATA___V1266*/ meltfptr[1265] = (void*)&cdat->dsym_1200__PUT_FIELDS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1200__PUT_FIELDS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1200__PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1200__PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1200__PUT_FIELDS.obj_hash = 370297609; + cdat->dsym_1200__PUT_FIELDS.obj_len = 3; + + /*inistring dstr_1201__PUT_FIELDS*/ + /*_.VALSTR___V1267*/ meltfptr[1266] = (void*)&cdat->dstr_1201__PUT_FIELDS; + cdat->dstr_1201__PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1201__PUT_FIELDS.val, "PUT_FIELDS", sizeof (cdat->dstr_1201__PUT_FIELDS.val)-1); + /*inirout drout_1202__MEXPAND_UNSAFE_GET_FIELD*/ + /*_.VALROUT___V1268*/ meltfptr[1267] = (void*)&cdat->drout_1202__MEXPAND_UNSAFE_GET_FIELD; + cdat->drout_1202__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1202__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:3725", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1202__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1202__MEXPAND_UNSAFE_GET_FIELD, meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD); + + /*iniclos dclo_1203__MEXPAND_UNSAFE_GET_FIELD*/ + /*_.VALCLO___V1269*/ meltfptr[1268] = (void*)&cdat->dclo_1203__MEXPAND_UNSAFE_GET_FIELD; + cdat->dclo_1203__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1203__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; + + /*iniobj dsym_1204__UNSAFE_GET_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1270*/ meltfptr[1269]) /*_.VALDATA___V1270*/ meltfptr[1269] = (void*)&cdat->dsym_1204__UNSAFE_GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1204__UNSAFE_GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1204__UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1204__UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1204__UNSAFE_GET_FIELD.obj_hash = 38069390; + cdat->dsym_1204__UNSAFE_GET_FIELD.obj_len = 3; + + /*inistring dstr_1205__UNSAFE_GET_FIELD*/ + /*_.VALSTR___V1271*/ meltfptr[1270] = (void*)&cdat->dstr_1205__UNSAFE_GET_FIELD; + cdat->dstr_1205__UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1205__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (cdat->dstr_1205__UNSAFE_GET_FIELD.val)-1); + /*inirout drout_1206__MEXPAND_GET_FIELD*/ + /*_.VALROUT___V1272*/ meltfptr[1271] = (void*)&cdat->drout_1206__MEXPAND_GET_FIELD; + cdat->drout_1206__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1206__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:3766", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1206__MEXPAND_GET_FIELD.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1206__MEXPAND_GET_FIELD, meltrout_62_warmelt_macro_MEXPAND_GET_FIELD); + + /*iniclos dclo_1207__MEXPAND_GET_FIELD*/ + /*_.VALCLO___V1273*/ meltfptr[1272] = (void*)&cdat->dclo_1207__MEXPAND_GET_FIELD; + cdat->dclo_1207__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1207__MEXPAND_GET_FIELD.nbval = 0; + + /*iniobj dsym_1208__GET_FIELD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1274*/ meltfptr[1273]) /*_.VALDATA___V1274*/ meltfptr[1273] = (void*)&cdat->dsym_1208__GET_FIELD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1208__GET_FIELD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1208__GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1208__GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1208__GET_FIELD.obj_hash = 203020234; + cdat->dsym_1208__GET_FIELD.obj_len = 3; + + /*inistring dstr_1209__GET_FIELD*/ + /*_.VALSTR___V1275*/ meltfptr[1274] = (void*)&cdat->dstr_1209__GET_FIELD; + cdat->dstr_1209__GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1209__GET_FIELD.val, "GET_FIELD", sizeof (cdat->dstr_1209__GET_FIELD.val)-1); + /*inirout drout_1210__MEXPAND_SETQ*/ + /*_.VALROUT___V1276*/ meltfptr[1275] = (void*)&cdat->drout_1210__MEXPAND_SETQ; + cdat->drout_1210__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1210__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:3808", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1210__MEXPAND_SETQ.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1210__MEXPAND_SETQ, meltrout_63_warmelt_macro_MEXPAND_SETQ); + + /*iniclos dclo_1211__MEXPAND_SETQ*/ + /*_.VALCLO___V1277*/ meltfptr[1276] = (void*)&cdat->dclo_1211__MEXPAND_SETQ; + cdat->dclo_1211__MEXPAND_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1211__MEXPAND_SETQ.nbval = 0; + + /*iniobj dsym_1212__SETQ*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1278*/ meltfptr[1277]) /*_.VALDATA___V1278*/ meltfptr[1277] = (void*)&cdat->dsym_1212__SETQ; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1212__SETQ", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1212__SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1212__SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1212__SETQ.obj_hash = 46296512; + cdat->dsym_1212__SETQ.obj_len = 3; + + /*inistring dstr_1213__SETQ*/ + /*_.VALSTR___V1279*/ meltfptr[1278] = (void*)&cdat->dstr_1213__SETQ; + cdat->dstr_1213__SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1213__SETQ.val, "SETQ", sizeof (cdat->dstr_1213__SETQ.val)-1); + /*inirout drout_1214__MEXPAND_IF*/ + /*_.VALROUT___V1280*/ meltfptr[1279] = (void*)&cdat->drout_1214__MEXPAND_IF; + cdat->drout_1214__MEXPAND_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1214__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:3838", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1214__MEXPAND_IF.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1214__MEXPAND_IF, meltrout_64_warmelt_macro_MEXPAND_IF); + + /*iniclos dclo_1215__MEXPAND_IF*/ + /*_.VALCLO___V1281*/ meltfptr[1280] = (void*)&cdat->dclo_1215__MEXPAND_IF; + cdat->dclo_1215__MEXPAND_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1215__MEXPAND_IF.nbval = 0; + + /*iniobj dsym_1216__IF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1282*/ meltfptr[1281]) /*_.VALDATA___V1282*/ meltfptr[1281] = (void*)&cdat->dsym_1216__IF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1216__IF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1216__IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1216__IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1216__IF.obj_hash = 117586816; + cdat->dsym_1216__IF.obj_len = 3; + + /*inistring dstr_1217__IF*/ + /*_.VALSTR___V1283*/ meltfptr[1282] = (void*)&cdat->dstr_1217__IF; + cdat->dstr_1217__IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1217__IF.val, "IF", sizeof (cdat->dstr_1217__IF.val)-1); + /*inirout drout_1218__MEXPAND_CPPIF*/ + /*_.VALROUT___V1284*/ meltfptr[1283] = (void*)&cdat->drout_1218__MEXPAND_CPPIF; + cdat->drout_1218__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1218__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:3888", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1218__MEXPAND_CPPIF.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1218__MEXPAND_CPPIF, meltrout_65_warmelt_macro_MEXPAND_CPPIF); + + /*iniclos dclo_1219__MEXPAND_CPPIF*/ + /*_.VALCLO___V1285*/ meltfptr[1284] = (void*)&cdat->dclo_1219__MEXPAND_CPPIF; + cdat->dclo_1219__MEXPAND_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1219__MEXPAND_CPPIF.nbval = 0; + + /*iniobj dsym_1220__CPPIF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1286*/ meltfptr[1285]) /*_.VALDATA___V1286*/ meltfptr[1285] = (void*)&cdat->dsym_1220__CPPIF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1220__CPPIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1220__CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1220__CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1220__CPPIF.obj_hash = 829409177; + cdat->dsym_1220__CPPIF.obj_len = 3; + + /*inistring dstr_1221__CPPIF*/ + /*_.VALSTR___V1287*/ meltfptr[1286] = (void*)&cdat->dstr_1221__CPPIF; + cdat->dstr_1221__CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1221__CPPIF.val, "CPPIF", sizeof (cdat->dstr_1221__CPPIF.val)-1); + /*inirout drout_1222__FILTERGCCVERSION*/ + /*_.VALROUT___V1288*/ meltfptr[1287] = (void*)&cdat->drout_1222__FILTERGCCVERSION; + cdat->drout_1222__FILTERGCCVERSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1222__FILTERGCCVERSION.routdescr, "FILTERGCCVERSION @warmelt-macro.melt:3944", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1222__FILTERGCCVERSION.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1222__FILTERGCCVERSION, meltrout_66_warmelt_macro_FILTERGCCVERSION); + + /*iniclos dclo_1223__FILTERGCCVERSION*/ + /*_.VALCLO___V1289*/ meltfptr[1288] = (void*)&cdat->dclo_1223__FILTERGCCVERSION; + cdat->dclo_1223__FILTERGCCVERSION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1223__FILTERGCCVERSION.nbval = 0; + + /*inirout drout_1224__MEXPAND_GCCIF*/ + /*_.VALROUT___V1290*/ meltfptr[1289] = (void*)&cdat->drout_1224__MEXPAND_GCCIF; + cdat->drout_1224__MEXPAND_GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1224__MEXPAND_GCCIF.routdescr, "MEXPAND_GCCIF @warmelt-macro.melt:3959", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1224__MEXPAND_GCCIF.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1224__MEXPAND_GCCIF, meltrout_67_warmelt_macro_MEXPAND_GCCIF); + + /*iniclos dclo_1225__MEXPAND_GCCIF*/ + /*_.VALCLO___V1291*/ meltfptr[1290] = (void*)&cdat->dclo_1225__MEXPAND_GCCIF; + cdat->dclo_1225__MEXPAND_GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1225__MEXPAND_GCCIF.nbval = 0; + + /*iniobj dsym_1226__GCCIF*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1292*/ meltfptr[1291]) /*_.VALDATA___V1292*/ meltfptr[1291] = (void*)&cdat->dsym_1226__GCCIF; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1226__GCCIF", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1226__GCCIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1226__GCCIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1226__GCCIF.obj_hash = 909505007; + cdat->dsym_1226__GCCIF.obj_len = 3; + + /*inistring dstr_1227__GCCIF*/ + /*_.VALSTR___V1293*/ meltfptr[1292] = (void*)&cdat->dstr_1227__GCCIF; + cdat->dstr_1227__GCCIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1227__GCCIF.val, "GCCIF", sizeof (cdat->dstr_1227__GCCIF.val)-1); + /*inirout drout_1228__MEXPAND_COND*/ + /*_.VALROUT___V1294*/ meltfptr[1293] = (void*)&cdat->drout_1228__MEXPAND_COND; + cdat->drout_1228__MEXPAND_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1228__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:4017", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1228__MEXPAND_COND.nbval = 12; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1228__MEXPAND_COND, meltrout_68_warmelt_macro_MEXPAND_COND); + + /*iniclos dclo_1229__MEXPAND_COND*/ + /*_.VALCLO___V1301*/ meltfptr[1300] = (void*)&cdat->dclo_1229__MEXPAND_COND; + cdat->dclo_1229__MEXPAND_COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1229__MEXPAND_COND.nbval = 0; + + /*inirout drout_1230__LAMBDA_*/ + /*_.VALROUT___V1295*/ meltfptr[1294] = (void*)&cdat->drout_1230__LAMBDA_; + cdat->drout_1230__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1230__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4027", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1230__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1230__LAMBDA_, meltrout_69_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1231__ELSE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1296*/ meltfptr[1295]) /*_.VALDATA___V1296*/ meltfptr[1295] = (void*)&cdat->dsym_1231__ELSE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1231__ELSE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_KEYWORD)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1231__ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1231__ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD)))); + cdat->dsym_1231__ELSE.obj_hash = 34374860; + cdat->dsym_1231__ELSE.obj_len = 3; + + /*inistring dstr_1232__ELSE*/ + /*_.VALSTR___V1297*/ meltfptr[1296] = (void*)&cdat->dstr_1232__ELSE; + cdat->dstr_1232__ELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1232__ELSE.val, "ELSE", sizeof (cdat->dstr_1232__ELSE.val)-1); + /*iniobj dsym_1233__COND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1302*/ meltfptr[1301]) /*_.VALDATA___V1302*/ meltfptr[1301] = (void*)&cdat->dsym_1233__COND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1233__COND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1233__COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1233__COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1233__COND.obj_hash = 51211759; + cdat->dsym_1233__COND.obj_len = 3; + + /*inistring dstr_1234__COND*/ + /*_.VALSTR___V1303*/ meltfptr[1302] = (void*)&cdat->dstr_1234__COND; + cdat->dstr_1234__COND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1234__COND.val, "COND", sizeof (cdat->dstr_1234__COND.val)-1); + /*inirout drout_1235__MEXPAND_AND*/ + /*_.VALROUT___V1304*/ meltfptr[1303] = (void*)&cdat->drout_1235__MEXPAND_AND; + cdat->drout_1235__MEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1235__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:4117", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1235__MEXPAND_AND.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1235__MEXPAND_AND, meltrout_70_warmelt_macro_MEXPAND_AND); + + /*iniclos dclo_1236__MEXPAND_AND*/ + /*_.VALCLO___V1306*/ meltfptr[1305] = (void*)&cdat->dclo_1236__MEXPAND_AND; + cdat->dclo_1236__MEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1236__MEXPAND_AND.nbval = 0; + + /*inirout drout_1237__LAMBDA_*/ + /*_.VALROUT___V1305*/ meltfptr[1304] = (void*)&cdat->drout_1237__LAMBDA_; + cdat->drout_1237__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1237__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4128", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1237__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1237__LAMBDA_, meltrout_71_warmelt_macro_LAMBDA_); + + /*inirout drout_1238__PATEXPAND_AS*/ + /*_.VALROUT___V1307*/ meltfptr[1306] = (void*)&cdat->drout_1238__PATEXPAND_AS; + cdat->drout_1238__PATEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1238__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:4155", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1238__PATEXPAND_AS.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1238__PATEXPAND_AS, meltrout_72_warmelt_macro_PATEXPAND_AS); + + /*iniclos dclo_1239__PATEXPAND_AS*/ + /*_.VALCLO___V1308*/ meltfptr[1307] = (void*)&cdat->dclo_1239__PATEXPAND_AS; + cdat->dclo_1239__PATEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1239__PATEXPAND_AS.nbval = 0; + + /*inirout drout_1240__MEXPAND_AS*/ + /*_.VALROUT___V1309*/ meltfptr[1308] = (void*)&cdat->drout_1240__MEXPAND_AS; + cdat->drout_1240__MEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1240__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:4193", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1240__MEXPAND_AS.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1240__MEXPAND_AS, meltrout_73_warmelt_macro_MEXPAND_AS); + + /*iniclos dclo_1241__MEXPAND_AS*/ + /*_.VALCLO___V1310*/ meltfptr[1309] = (void*)&cdat->dclo_1241__MEXPAND_AS; + cdat->dclo_1241__MEXPAND_AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1241__MEXPAND_AS.nbval = 0; + + /*iniobj dsym_1242__AS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1311*/ meltfptr[1310]) /*_.VALDATA___V1311*/ meltfptr[1310] = (void*)&cdat->dsym_1242__AS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1242__AS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1242__AS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1242__AS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1242__AS.obj_hash = 76496773; + cdat->dsym_1242__AS.obj_len = 3; + + /*inistring dstr_1243__AS*/ + /*_.VALSTR___V1312*/ meltfptr[1311] = (void*)&cdat->dstr_1243__AS; + cdat->dstr_1243__AS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1243__AS.val, "AS", sizeof (cdat->dstr_1243__AS.val)-1); + /*inirout drout_1244__PATEXPAND_WHEN*/ + /*_.VALROUT___V1313*/ meltfptr[1312] = (void*)&cdat->drout_1244__PATEXPAND_WHEN; + cdat->drout_1244__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1244__PATEXPAND_WHEN.routdescr, "PATEXPAND_WHEN @warmelt-macro.melt:4207", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1244__PATEXPAND_WHEN.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1244__PATEXPAND_WHEN, meltrout_74_warmelt_macro_PATEXPAND_WHEN); + + /*iniclos dclo_1245__PATEXPAND_WHEN*/ + /*_.VALCLO___V1314*/ meltfptr[1313] = (void*)&cdat->dclo_1245__PATEXPAND_WHEN; + cdat->dclo_1245__PATEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1245__PATEXPAND_WHEN.nbval = 0; + + /*inirout drout_1246__MEXPAND_WHEN*/ + /*_.VALROUT___V1315*/ meltfptr[1314] = (void*)&cdat->drout_1246__MEXPAND_WHEN; + cdat->drout_1246__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1246__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:4222", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1246__MEXPAND_WHEN.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1246__MEXPAND_WHEN, meltrout_75_warmelt_macro_MEXPAND_WHEN); + + /*iniclos dclo_1247__MEXPAND_WHEN*/ + /*_.VALCLO___V1316*/ meltfptr[1315] = (void*)&cdat->dclo_1247__MEXPAND_WHEN; + cdat->dclo_1247__MEXPAND_WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1247__MEXPAND_WHEN.nbval = 0; + + /*iniobj dsym_1248__WHEN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1317*/ meltfptr[1316]) /*_.VALDATA___V1317*/ meltfptr[1316] = (void*)&cdat->dsym_1248__WHEN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1248__WHEN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1248__WHEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1248__WHEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1248__WHEN.obj_hash = 10073847; + cdat->dsym_1248__WHEN.obj_len = 3; + + /*inistring dstr_1249__WHEN*/ + /*_.VALSTR___V1318*/ meltfptr[1317] = (void*)&cdat->dstr_1249__WHEN; + cdat->dstr_1249__WHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1249__WHEN.val, "WHEN", sizeof (cdat->dstr_1249__WHEN.val)-1); + /*inirout drout_1250__PATEXPAND_AND*/ + /*_.VALROUT___V1319*/ meltfptr[1318] = (void*)&cdat->drout_1250__PATEXPAND_AND; + cdat->drout_1250__PATEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1250__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:4237", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1250__PATEXPAND_AND.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1250__PATEXPAND_AND, meltrout_76_warmelt_macro_PATEXPAND_AND); + + /*iniclos dclo_1251__PATEXPAND_AND*/ + /*_.VALCLO___V1320*/ meltfptr[1319] = (void*)&cdat->dclo_1251__PATEXPAND_AND; + cdat->dclo_1251__PATEXPAND_AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1251__PATEXPAND_AND.nbval = 0; + + /*iniobj dsym_1252__AND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1321*/ meltfptr[1320]) /*_.VALDATA___V1321*/ meltfptr[1320] = (void*)&cdat->dsym_1252__AND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1252__AND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1252__AND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1252__AND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1252__AND.obj_hash = 123533605; + cdat->dsym_1252__AND.obj_len = 3; + + /*inistring dstr_1253__AND*/ + /*_.VALSTR___V1322*/ meltfptr[1321] = (void*)&cdat->dstr_1253__AND; + cdat->dstr_1253__AND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1253__AND.val, "AND", sizeof (cdat->dstr_1253__AND.val)-1); + /*inirout drout_1254__MEXPAND_OR*/ + /*_.VALROUT___V1323*/ meltfptr[1322] = (void*)&cdat->drout_1254__MEXPAND_OR; + cdat->drout_1254__MEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1254__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:4274", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1254__MEXPAND_OR.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1254__MEXPAND_OR, meltrout_77_warmelt_macro_MEXPAND_OR); + + /*iniclos dclo_1255__MEXPAND_OR*/ + /*_.VALCLO___V1325*/ meltfptr[1324] = (void*)&cdat->dclo_1255__MEXPAND_OR; + cdat->dclo_1255__MEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1255__MEXPAND_OR.nbval = 0; + + /*inirout drout_1256__LAMBDA_*/ + /*_.VALROUT___V1324*/ meltfptr[1323] = (void*)&cdat->drout_1256__LAMBDA_; + cdat->drout_1256__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1256__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4284", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1256__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1256__LAMBDA_, meltrout_78_warmelt_macro_LAMBDA_); + + /*inirout drout_1257__PATEXPAND_OR*/ + /*_.VALROUT___V1326*/ meltfptr[1325] = (void*)&cdat->drout_1257__PATEXPAND_OR; + cdat->drout_1257__PATEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1257__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:4301", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1257__PATEXPAND_OR.nbval = 8; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1257__PATEXPAND_OR, meltrout_79_warmelt_macro_PATEXPAND_OR); + + /*iniclos dclo_1258__PATEXPAND_OR*/ + /*_.VALCLO___V1327*/ meltfptr[1326] = (void*)&cdat->dclo_1258__PATEXPAND_OR; + cdat->dclo_1258__PATEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1258__PATEXPAND_OR.nbval = 0; + + /*iniobj dsym_1259__OR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1328*/ meltfptr[1327]) /*_.VALDATA___V1328*/ meltfptr[1327] = (void*)&cdat->dsym_1259__OR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1259__OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1259__OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1259__OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1259__OR.obj_hash = 44588765; + cdat->dsym_1259__OR.obj_len = 3; + + /*inistring dstr_1260__OR*/ + /*_.VALSTR___V1329*/ meltfptr[1328] = (void*)&cdat->dstr_1260__OR; + cdat->dstr_1260__OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1260__OR.val, "OR", sizeof (cdat->dstr_1260__OR.val)-1); + /*inirout drout_1261__MEXPAND_TUPLE*/ + /*_.VALROUT___V1330*/ meltfptr[1329] = (void*)&cdat->drout_1261__MEXPAND_TUPLE; + cdat->drout_1261__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1261__MEXPAND_TUPLE.routdescr, "MEXPAND_TUPLE @warmelt-macro.melt:4337", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1261__MEXPAND_TUPLE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1261__MEXPAND_TUPLE, meltrout_80_warmelt_macro_MEXPAND_TUPLE); + + /*iniclos dclo_1262__MEXPAND_TUPLE*/ + /*_.VALCLO___V1331*/ meltfptr[1330] = (void*)&cdat->dclo_1262__MEXPAND_TUPLE; + cdat->dclo_1262__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1262__MEXPAND_TUPLE.nbval = 0; + + /*inirout drout_1263__PATEXPAND_TUPLE*/ + /*_.VALROUT___V1332*/ meltfptr[1331] = (void*)&cdat->drout_1263__PATEXPAND_TUPLE; + cdat->drout_1263__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1263__PATEXPAND_TUPLE.routdescr, "PATEXPAND_TUPLE @warmelt-macro.melt:4354", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1263__PATEXPAND_TUPLE.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1263__PATEXPAND_TUPLE, meltrout_81_warmelt_macro_PATEXPAND_TUPLE); + + /*iniclos dclo_1264__PATEXPAND_TUPLE*/ + /*_.VALCLO___V1333*/ meltfptr[1332] = (void*)&cdat->dclo_1264__PATEXPAND_TUPLE; + cdat->dclo_1264__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1264__PATEXPAND_TUPLE.nbval = 0; + + /*iniobj dsym_1265__TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1334*/ meltfptr[1333]) /*_.VALDATA___V1334*/ meltfptr[1333] = (void*)&cdat->dsym_1265__TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1265__TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1265__TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1265__TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1265__TUPLE.obj_hash = 507871921; + cdat->dsym_1265__TUPLE.obj_len = 3; + + /*inistring dstr_1266__TUPLE*/ + /*_.VALSTR___V1335*/ meltfptr[1334] = (void*)&cdat->dstr_1266__TUPLE; + cdat->dstr_1266__TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1266__TUPLE.val, "TUPLE", sizeof (cdat->dstr_1266__TUPLE.val)-1); + /*inirout drout_1267__MEXPAND_LIST*/ + /*_.VALROUT___V1336*/ meltfptr[1335] = (void*)&cdat->drout_1267__MEXPAND_LIST; + cdat->drout_1267__MEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1267__MEXPAND_LIST.routdescr, "MEXPAND_LIST @warmelt-macro.melt:4384", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1267__MEXPAND_LIST.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1267__MEXPAND_LIST, meltrout_82_warmelt_macro_MEXPAND_LIST); + + /*iniclos dclo_1268__MEXPAND_LIST*/ + /*_.VALCLO___V1337*/ meltfptr[1336] = (void*)&cdat->dclo_1268__MEXPAND_LIST; + cdat->dclo_1268__MEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1268__MEXPAND_LIST.nbval = 0; + + /*inirout drout_1269__PATEXPAND_LIST*/ + /*_.VALROUT___V1338*/ meltfptr[1337] = (void*)&cdat->drout_1269__PATEXPAND_LIST; + cdat->drout_1269__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1269__PATEXPAND_LIST.routdescr, "PATEXPAND_LIST @warmelt-macro.melt:4401", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1269__PATEXPAND_LIST.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1269__PATEXPAND_LIST, meltrout_83_warmelt_macro_PATEXPAND_LIST); + + /*iniclos dclo_1270__PATEXPAND_LIST*/ + /*_.VALCLO___V1339*/ meltfptr[1338] = (void*)&cdat->dclo_1270__PATEXPAND_LIST; + cdat->dclo_1270__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1270__PATEXPAND_LIST.nbval = 0; + + /*iniobj dsym_1271__LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1340*/ meltfptr[1339]) /*_.VALDATA___V1340*/ meltfptr[1339] = (void*)&cdat->dsym_1271__LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1271__LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1271__LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1271__LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1271__LIST.obj_hash = 120854873; + cdat->dsym_1271__LIST.obj_len = 3; + + /*inistring dstr_1272__LIST*/ + /*_.VALSTR___V1341*/ meltfptr[1340] = (void*)&cdat->dstr_1272__LIST; + cdat->dstr_1272__LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1272__LIST.val, "LIST", sizeof (cdat->dstr_1272__LIST.val)-1); + /*inirout drout_1273__MEXPAND_MATCH*/ + /*_.VALROUT___V1342*/ meltfptr[1341] = (void*)&cdat->drout_1273__MEXPAND_MATCH; + cdat->drout_1273__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1273__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:4432", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1273__MEXPAND_MATCH.nbval = 17; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1273__MEXPAND_MATCH, meltrout_84_warmelt_macro_MEXPAND_MATCH); + + /*iniclos dclo_1274__MEXPAND_MATCH*/ + /*_.VALCLO___V1344*/ meltfptr[1343] = (void*)&cdat->dclo_1274__MEXPAND_MATCH; + cdat->dclo_1274__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1274__MEXPAND_MATCH.nbval = 0; + + /*inirout drout_1275__LAMBDA_*/ + /*_.VALROUT___V1343*/ meltfptr[1342] = (void*)&cdat->drout_1275__LAMBDA_; + cdat->drout_1275__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1275__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4444", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1275__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1275__LAMBDA_, meltrout_85_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1276__MATCH*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1345*/ meltfptr[1344]) /*_.VALDATA___V1345*/ meltfptr[1344] = (void*)&cdat->dsym_1276__MATCH; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1276__MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1276__MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1276__MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1276__MATCH.obj_hash = 996778084; + cdat->dsym_1276__MATCH.obj_len = 3; + + /*inistring dstr_1277__MATCH*/ + /*_.VALSTR___V1346*/ meltfptr[1345] = (void*)&cdat->dstr_1277__MATCH; + cdat->dstr_1277__MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1277__MATCH.val, "MATCH", sizeof (cdat->dstr_1277__MATCH.val)-1); + /*inirout drout_1278__MEXPAND_LETBINDING*/ + /*_.VALROUT___V1347*/ meltfptr[1346] = (void*)&cdat->drout_1278__MEXPAND_LETBINDING; + cdat->drout_1278__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1278__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:4521", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1278__MEXPAND_LETBINDING.nbval = 13; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1278__MEXPAND_LETBINDING, meltrout_86_warmelt_macro_MEXPAND_LETBINDING); + + /*iniclos dclo_1279__MEXPAND_LETBINDING*/ + /*_.VALCLO___V1348*/ meltfptr[1347] = (void*)&cdat->dclo_1279__MEXPAND_LETBINDING; + cdat->dclo_1279__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1279__MEXPAND_LETBINDING.nbval = 0; + + /*iniobj dsym_1280__CLASS_LET_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1349*/ meltfptr[1348]) /*_.VALDATA___V1349*/ meltfptr[1348] = (void*)&cdat->dsym_1280__CLASS_LET_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1280__CLASS_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1280__CLASS_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1280__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1280__CLASS_LET_BINDING.obj_hash = 373730517; + cdat->dsym_1280__CLASS_LET_BINDING.obj_len = 3; + + /*inistring dstr_1281__CLASS_LET_BINDIN*/ + /*_.VALSTR___V1350*/ meltfptr[1349] = (void*)&cdat->dstr_1281__CLASS_LET_BINDIN; + cdat->dstr_1281__CLASS_LET_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1281__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", sizeof (cdat->dstr_1281__CLASS_LET_BINDIN.val)-1); + /*iniobj dsym_1282__CLASS_FIXED_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1351*/ meltfptr[1350]) /*_.VALDATA___V1351*/ meltfptr[1350] = (void*)&cdat->dsym_1282__CLASS_FIXED_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1282__CLASS_FIXED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1282__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1282__CLASS_FIXED_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1282__CLASS_FIXED_BINDING.obj_hash = 179808938; + cdat->dsym_1282__CLASS_FIXED_BINDING.obj_len = 3; + + /*inistring dstr_1283__CLASS_FIXED_BIND*/ + /*_.VALSTR___V1352*/ meltfptr[1351] = (void*)&cdat->dstr_1283__CLASS_FIXED_BIND; + cdat->dstr_1283__CLASS_FIXED_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1283__CLASS_FIXED_BIND.val, "CLASS_FIXED_BINDING", sizeof (cdat->dstr_1283__CLASS_FIXED_BIND.val)-1); + /*inirout drout_1284__MEXPAND_LET*/ + /*_.VALROUT___V1353*/ meltfptr[1352] = (void*)&cdat->drout_1284__MEXPAND_LET; + cdat->drout_1284__MEXPAND_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1284__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:4603", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1284__MEXPAND_LET.nbval = 16; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1284__MEXPAND_LET, meltrout_87_warmelt_macro_MEXPAND_LET); + + /*iniclos dclo_1285__MEXPAND_LET*/ + /*_.VALCLO___V1357*/ meltfptr[1356] = (void*)&cdat->dclo_1285__MEXPAND_LET; + cdat->dclo_1285__MEXPAND_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1285__MEXPAND_LET.nbval = 0; + + /*inirout drout_1286__LAMBDA_*/ + /*_.VALROUT___V1354*/ meltfptr[1353] = (void*)&cdat->drout_1286__LAMBDA_; + cdat->drout_1286__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1286__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4622", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1286__LAMBDA_.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1286__LAMBDA_, meltrout_88_warmelt_macro_LAMBDA_); + + /*inirout drout_1287__LAMBDA_*/ + /*_.VALROUT___V1355*/ meltfptr[1354] = (void*)&cdat->drout_1287__LAMBDA_; + cdat->drout_1287__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1287__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4630", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1287__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1287__LAMBDA_, meltrout_89_warmelt_macro_LAMBDA_); /*inirout drout_1288__LAMBDA_*/ /*_.VALROUT___V1356*/ meltfptr[1355] = (void*)&cdat->drout_1288__LAMBDA_; cdat->drout_1288__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1288__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4326", MELT_ROUTDESCR_LEN - 1); + strncpy (cdat->drout_1288__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4642", MELT_ROUTDESCR_LEN - 1); cdat->drout_1288__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1288__LAMBDA_, meltrout_79_warmelt_macro_LAMBDA_); - - /*inirout drout_1289__PATEXPAND_OR*/ - /*_.VALROUT___V1358*/ meltfptr[1357] = (void*)&cdat->drout_1289__PATEXPAND_OR; - cdat->drout_1289__PATEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1289__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:4343", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1289__PATEXPAND_OR.nbval = 8; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1289__PATEXPAND_OR, meltrout_80_warmelt_macro_PATEXPAND_OR); - - /*iniclos dclo_1290__PATEXPAND_OR*/ - /*_.VALCLO___V1359*/ meltfptr[1358] = (void*)&cdat->dclo_1290__PATEXPAND_OR; - cdat->dclo_1290__PATEXPAND_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1290__PATEXPAND_OR.nbval = 0; - - /*iniobj dsym_1291__OR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1360*/ meltfptr[1359]) /*_.VALDATA___V1360*/ meltfptr[1359] = (void*)&cdat->dsym_1291__OR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1291__OR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1291__OR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1291__OR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1291__OR.obj_hash = 44588765; - cdat->dsym_1291__OR.obj_len = 3; - - /*inistring dstr_1292__OR*/ - /*_.VALSTR___V1361*/ meltfptr[1360] = (void*)&cdat->dstr_1292__OR; - cdat->dstr_1292__OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1292__OR.val, "OR", sizeof (cdat->dstr_1292__OR.val)-1); - /*inirout drout_1293__MEXPAND_TUPLE*/ - /*_.VALROUT___V1362*/ meltfptr[1361] = (void*)&cdat->drout_1293__MEXPAND_TUPLE; - cdat->drout_1293__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1293__MEXPAND_TUPLE.routdescr, "MEXPAND_TUPLE @warmelt-macro.melt:4379", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1293__MEXPAND_TUPLE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1293__MEXPAND_TUPLE, meltrout_81_warmelt_macro_MEXPAND_TUPLE); - - /*iniclos dclo_1294__MEXPAND_TUPLE*/ - /*_.VALCLO___V1363*/ meltfptr[1362] = (void*)&cdat->dclo_1294__MEXPAND_TUPLE; - cdat->dclo_1294__MEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1294__MEXPAND_TUPLE.nbval = 0; - - /*inirout drout_1295__PATEXPAND_TUPLE*/ - /*_.VALROUT___V1364*/ meltfptr[1363] = (void*)&cdat->drout_1295__PATEXPAND_TUPLE; - cdat->drout_1295__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1295__PATEXPAND_TUPLE.routdescr, "PATEXPAND_TUPLE @warmelt-macro.melt:4396", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1295__PATEXPAND_TUPLE.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1295__PATEXPAND_TUPLE, meltrout_82_warmelt_macro_PATEXPAND_TUPLE); - - /*iniclos dclo_1296__PATEXPAND_TUPLE*/ - /*_.VALCLO___V1365*/ meltfptr[1364] = (void*)&cdat->dclo_1296__PATEXPAND_TUPLE; - cdat->dclo_1296__PATEXPAND_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1296__PATEXPAND_TUPLE.nbval = 0; - - /*iniobj dsym_1297__TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1366*/ meltfptr[1365]) /*_.VALDATA___V1366*/ meltfptr[1365] = (void*)&cdat->dsym_1297__TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1297__TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1297__TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1297__TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1297__TUPLE.obj_hash = 507871921; - cdat->dsym_1297__TUPLE.obj_len = 3; - - /*inistring dstr_1298__TUPLE*/ - /*_.VALSTR___V1367*/ meltfptr[1366] = (void*)&cdat->dstr_1298__TUPLE; - cdat->dstr_1298__TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1298__TUPLE.val, "TUPLE", sizeof (cdat->dstr_1298__TUPLE.val)-1); - /*inirout drout_1299__MEXPAND_LIST*/ - /*_.VALROUT___V1368*/ meltfptr[1367] = (void*)&cdat->drout_1299__MEXPAND_LIST; - cdat->drout_1299__MEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1299__MEXPAND_LIST.routdescr, "MEXPAND_LIST @warmelt-macro.melt:4426", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1299__MEXPAND_LIST.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1299__MEXPAND_LIST, meltrout_83_warmelt_macro_MEXPAND_LIST); - - /*iniclos dclo_1300__MEXPAND_LIST*/ - /*_.VALCLO___V1369*/ meltfptr[1368] = (void*)&cdat->dclo_1300__MEXPAND_LIST; - cdat->dclo_1300__MEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1300__MEXPAND_LIST.nbval = 0; - - /*inirout drout_1301__PATEXPAND_LIST*/ - /*_.VALROUT___V1370*/ meltfptr[1369] = (void*)&cdat->drout_1301__PATEXPAND_LIST; - cdat->drout_1301__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1301__PATEXPAND_LIST.routdescr, "PATEXPAND_LIST @warmelt-macro.melt:4443", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1301__PATEXPAND_LIST.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1301__PATEXPAND_LIST, meltrout_84_warmelt_macro_PATEXPAND_LIST); - - /*iniclos dclo_1302__PATEXPAND_LIST*/ - /*_.VALCLO___V1371*/ meltfptr[1370] = (void*)&cdat->dclo_1302__PATEXPAND_LIST; - cdat->dclo_1302__PATEXPAND_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1302__PATEXPAND_LIST.nbval = 0; - - /*iniobj dsym_1303__LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1372*/ meltfptr[1371]) /*_.VALDATA___V1372*/ meltfptr[1371] = (void*)&cdat->dsym_1303__LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1303__LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1303__LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1303__LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1303__LIST.obj_hash = 120854873; - cdat->dsym_1303__LIST.obj_len = 3; - - /*inistring dstr_1304__LIST*/ - /*_.VALSTR___V1373*/ meltfptr[1372] = (void*)&cdat->dstr_1304__LIST; - cdat->dstr_1304__LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1304__LIST.val, "LIST", sizeof (cdat->dstr_1304__LIST.val)-1); - /*inirout drout_1305__MEXPAND_MATCH*/ - /*_.VALROUT___V1374*/ meltfptr[1373] = (void*)&cdat->drout_1305__MEXPAND_MATCH; - cdat->drout_1305__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1305__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:4474", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1305__MEXPAND_MATCH.nbval = 17; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1305__MEXPAND_MATCH, meltrout_85_warmelt_macro_MEXPAND_MATCH); - - /*iniclos dclo_1306__MEXPAND_MATCH*/ - /*_.VALCLO___V1376*/ meltfptr[1375] = (void*)&cdat->dclo_1306__MEXPAND_MATCH; - cdat->dclo_1306__MEXPAND_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1306__MEXPAND_MATCH.nbval = 0; - - /*inirout drout_1307__LAMBDA_*/ - /*_.VALROUT___V1375*/ meltfptr[1374] = (void*)&cdat->drout_1307__LAMBDA_; - cdat->drout_1307__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1307__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4486", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1307__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1307__LAMBDA_, meltrout_86_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1308__MATCH*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1377*/ meltfptr[1376]) /*_.VALDATA___V1377*/ meltfptr[1376] = (void*)&cdat->dsym_1308__MATCH; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1308__MATCH", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1308__MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1308__MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1308__MATCH.obj_hash = 996778084; - cdat->dsym_1308__MATCH.obj_len = 3; - - /*inistring dstr_1309__MATCH*/ - /*_.VALSTR___V1378*/ meltfptr[1377] = (void*)&cdat->dstr_1309__MATCH; - cdat->dstr_1309__MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1309__MATCH.val, "MATCH", sizeof (cdat->dstr_1309__MATCH.val)-1); - /*inirout drout_1310__MEXPAND_LETBINDING*/ - /*_.VALROUT___V1379*/ meltfptr[1378] = (void*)&cdat->drout_1310__MEXPAND_LETBINDING; - cdat->drout_1310__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1310__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:4563", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1310__MEXPAND_LETBINDING.nbval = 13; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1310__MEXPAND_LETBINDING, meltrout_87_warmelt_macro_MEXPAND_LETBINDING); - - /*iniclos dclo_1311__MEXPAND_LETBINDING*/ - /*_.VALCLO___V1380*/ meltfptr[1379] = (void*)&cdat->dclo_1311__MEXPAND_LETBINDING; - cdat->dclo_1311__MEXPAND_LETBINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1311__MEXPAND_LETBINDING.nbval = 0; - - /*iniobj dsym_1312__CLASS_LET_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1381*/ meltfptr[1380]) /*_.VALDATA___V1381*/ meltfptr[1380] = (void*)&cdat->dsym_1312__CLASS_LET_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1312__CLASS_LET_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1312__CLASS_LET_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1312__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1312__CLASS_LET_BINDING.obj_hash = 373730517; - cdat->dsym_1312__CLASS_LET_BINDING.obj_len = 3; - - /*inistring dstr_1313__CLASS_LET_BINDIN*/ - /*_.VALSTR___V1382*/ meltfptr[1381] = (void*)&cdat->dstr_1313__CLASS_LET_BINDIN; - cdat->dstr_1313__CLASS_LET_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1313__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", sizeof (cdat->dstr_1313__CLASS_LET_BINDIN.val)-1); - /*iniobj dsym_1314__CLASS_FIXED_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1383*/ meltfptr[1382]) /*_.VALDATA___V1383*/ meltfptr[1382] = (void*)&cdat->dsym_1314__CLASS_FIXED_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1314__CLASS_FIXED_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1314__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1314__CLASS_FIXED_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1314__CLASS_FIXED_BINDING.obj_hash = 179808938; - cdat->dsym_1314__CLASS_FIXED_BINDING.obj_len = 3; - - /*inistring dstr_1315__CLASS_FIXED_BIND*/ - /*_.VALSTR___V1384*/ meltfptr[1383] = (void*)&cdat->dstr_1315__CLASS_FIXED_BIND; - cdat->dstr_1315__CLASS_FIXED_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1315__CLASS_FIXED_BIND.val, "CLASS_FIXED_BINDING", sizeof (cdat->dstr_1315__CLASS_FIXED_BIND.val)-1); - /*inirout drout_1316__MEXPAND_LET*/ - /*_.VALROUT___V1385*/ meltfptr[1384] = (void*)&cdat->drout_1316__MEXPAND_LET; - cdat->drout_1316__MEXPAND_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1316__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:4645", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1316__MEXPAND_LET.nbval = 16; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1316__MEXPAND_LET, meltrout_88_warmelt_macro_MEXPAND_LET); - - /*iniclos dclo_1317__MEXPAND_LET*/ - /*_.VALCLO___V1389*/ meltfptr[1388] = (void*)&cdat->dclo_1317__MEXPAND_LET; - cdat->dclo_1317__MEXPAND_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1317__MEXPAND_LET.nbval = 0; - - /*inirout drout_1318__LAMBDA_*/ - /*_.VALROUT___V1386*/ meltfptr[1385] = (void*)&cdat->drout_1318__LAMBDA_; - cdat->drout_1318__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1318__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4664", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1318__LAMBDA_.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1318__LAMBDA_, meltrout_89_warmelt_macro_LAMBDA_); - - /*inirout drout_1319__LAMBDA_*/ - /*_.VALROUT___V1387*/ meltfptr[1386] = (void*)&cdat->drout_1319__LAMBDA_; - cdat->drout_1319__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1319__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4672", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1319__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1319__LAMBDA_, meltrout_90_warmelt_macro_LAMBDA_); - - /*inirout drout_1320__LAMBDA_*/ - /*_.VALROUT___V1388*/ meltfptr[1387] = (void*)&cdat->drout_1320__LAMBDA_; - cdat->drout_1320__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1320__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4684", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1320__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1320__LAMBDA_, meltrout_91_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1321__LET*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1390*/ meltfptr[1389]) /*_.VALDATA___V1390*/ meltfptr[1389] = (void*)&cdat->dsym_1321__LET; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1321__LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1321__LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1321__LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1321__LET.obj_hash = 70931144; - cdat->dsym_1321__LET.obj_len = 3; - - /*inistring dstr_1322__LET*/ - /*_.VALSTR___V1391*/ meltfptr[1390] = (void*)&cdat->dstr_1322__LET; - cdat->dstr_1322__LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1322__LET.val, "LET", sizeof (cdat->dstr_1322__LET.val)-1); - /*inirout drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE*/ - /*_.VALROUT___V1392*/ meltfptr[1391] = (void*)&cdat->drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE; - cdat->drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:4708", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE, meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE); - - /*iniclos dclo_1324__YES_RECURSIVELY_CONSTRUCTIBLE*/ - /*_.VALCLO___V1393*/ meltfptr[1392] = (void*)&cdat->dclo_1324__YES_RECURSIVELY_CONSTRUCTIBLE; - cdat->dclo_1324__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1324__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 0; - - /*iniobj dsym_1325__INSTALL_METHOD*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1394*/ meltfptr[1393]) /*_.VALDATA___V1394*/ meltfptr[1393] = (void*)&cdat->dsym_1325__INSTALL_METHOD; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1325__INSTALL_METHOD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1325__INSTALL_METHOD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1325__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1325__INSTALL_METHOD.obj_hash = 680699224; - cdat->dsym_1325__INSTALL_METHOD.obj_len = 3; - - /*inistring dstr_1326__INSTALL_METHOD*/ - /*_.VALSTR___V1395*/ meltfptr[1394] = (void*)&cdat->dstr_1326__INSTALL_METHOD; - cdat->dstr_1326__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1326__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_1326__INSTALL_METHOD.val)-1); - /*inirout drout_1327__MEXPAND_LETREC*/ - /*_.VALROUT___V1396*/ meltfptr[1395] = (void*)&cdat->drout_1327__MEXPAND_LETREC; - cdat->drout_1327__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1327__MEXPAND_LETREC.routdescr, "MEXPAND_LETREC @warmelt-macro.melt:4721", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1327__MEXPAND_LETREC.nbval = 22; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1327__MEXPAND_LETREC, meltrout_93_warmelt_macro_MEXPAND_LETREC); - - /*iniclos dclo_1328__MEXPAND_LETREC*/ - /*_.VALCLO___V1399*/ meltfptr[1398] = (void*)&cdat->dclo_1328__MEXPAND_LETREC; - cdat->dclo_1328__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1328__MEXPAND_LETREC.nbval = 0; - - /*inirout drout_1329__LAMBDA_*/ - /*_.VALROUT___V1397*/ meltfptr[1396] = (void*)&cdat->drout_1329__LAMBDA_; - cdat->drout_1329__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1329__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4746", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1329__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1329__LAMBDA_, meltrout_94_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1330__CLASS_LETREC_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1400*/ meltfptr[1399]) /*_.VALDATA___V1400*/ meltfptr[1399] = (void*)&cdat->dsym_1330__CLASS_LETREC_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1330__CLASS_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1330__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1330__CLASS_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1330__CLASS_LETREC_BINDING.obj_hash = 61769779; - cdat->dsym_1330__CLASS_LETREC_BINDING.obj_len = 3; - - /*inistring dstr_1331__CLASS_LETREC_BIN*/ - /*_.VALSTR___V1401*/ meltfptr[1400] = (void*)&cdat->dstr_1331__CLASS_LETREC_BIN; - cdat->dstr_1331__CLASS_LETREC_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1331__CLASS_LETREC_BIN.val, "CLASS_LETREC_BINDING", sizeof (cdat->dstr_1331__CLASS_LETREC_BIN.val)-1); - /*inirout drout_1332__LAMBDA_*/ - /*_.VALROUT___V1398*/ meltfptr[1397] = (void*)&cdat->drout_1332__LAMBDA_; - cdat->drout_1332__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1332__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4851", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1332__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1332__LAMBDA_, meltrout_95_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1333__LETREC*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1402*/ meltfptr[1401]) /*_.VALDATA___V1402*/ meltfptr[1401] = (void*)&cdat->dsym_1333__LETREC; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1333__LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1333__LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1333__LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1333__LETREC.obj_hash = 270027731; - cdat->dsym_1333__LETREC.obj_len = 3; - - /*inistring dstr_1334__LETREC*/ - /*_.VALSTR___V1403*/ meltfptr[1402] = (void*)&cdat->dstr_1334__LETREC; - cdat->dstr_1334__LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1334__LETREC.val, "LETREC", sizeof (cdat->dstr_1334__LETREC.val)-1); - /*inirout drout_1335__MEXPAND_LAMBDA*/ - /*_.VALROUT___V1404*/ meltfptr[1403] = (void*)&cdat->drout_1335__MEXPAND_LAMBDA; - cdat->drout_1335__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1335__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:4874", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1335__MEXPAND_LAMBDA.nbval = 12; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1335__MEXPAND_LAMBDA, meltrout_96_warmelt_macro_MEXPAND_LAMBDA); - - /*iniclos dclo_1336__MEXPAND_LAMBDA*/ - /*_.VALCLO___V1407*/ meltfptr[1406] = (void*)&cdat->dclo_1336__MEXPAND_LAMBDA; - cdat->dclo_1336__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1336__MEXPAND_LAMBDA.nbval = 0; - - /*inirout drout_1337__LAMBDA_*/ - /*_.VALROUT___V1405*/ meltfptr[1404] = (void*)&cdat->drout_1337__LAMBDA_; - cdat->drout_1337__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1337__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4889", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1337__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1337__LAMBDA_, meltrout_97_warmelt_macro_LAMBDA_); - - /*inirout drout_1338__LAMBDA_*/ - /*_.VALROUT___V1406*/ meltfptr[1405] = (void*)&cdat->drout_1338__LAMBDA_; - cdat->drout_1338__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1338__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4891", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1338__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1338__LAMBDA_, meltrout_98_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1339__LAMBDA*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1408*/ meltfptr[1407]) /*_.VALDATA___V1408*/ meltfptr[1407] = (void*)&cdat->dsym_1339__LAMBDA; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1339__LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1339__LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1339__LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1339__LAMBDA.obj_hash = 15346448; - cdat->dsym_1339__LAMBDA.obj_len = 3; - - /*inistring dstr_1340__LAMBDA*/ - /*_.VALSTR___V1409*/ meltfptr[1408] = (void*)&cdat->dstr_1340__LAMBDA; - cdat->dstr_1340__LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1340__LAMBDA.val, "LAMBDA", sizeof (cdat->dstr_1340__LAMBDA.val)-1); - /*inirout drout_1341__MEXPAND_MULTICALL*/ - /*_.VALROUT___V1410*/ meltfptr[1409] = (void*)&cdat->drout_1341__MEXPAND_MULTICALL; - cdat->drout_1341__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1341__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:4916", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1341__MEXPAND_MULTICALL.nbval = 16; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1341__MEXPAND_MULTICALL, meltrout_99_warmelt_macro_MEXPAND_MULTICALL); - - /*iniclos dclo_1342__MEXPAND_MULTICALL*/ - /*_.VALCLO___V1413*/ meltfptr[1412] = (void*)&cdat->dclo_1342__MEXPAND_MULTICALL; - cdat->dclo_1342__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1342__MEXPAND_MULTICALL.nbval = 0; - - /*inirout drout_1343__LAMBDA_*/ - /*_.VALROUT___V1411*/ meltfptr[1410] = (void*)&cdat->drout_1343__LAMBDA_; - cdat->drout_1343__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1343__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4942", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1343__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1343__LAMBDA_, meltrout_100_warmelt_macro_LAMBDA_); - - /*inirout drout_1344__LAMBDA_*/ - /*_.VALROUT___V1412*/ meltfptr[1411] = (void*)&cdat->drout_1344__LAMBDA_; - cdat->drout_1344__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1344__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4945", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1344__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1344__LAMBDA_, meltrout_101_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1345__MULTICALL*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1414*/ meltfptr[1413]) /*_.VALDATA___V1414*/ meltfptr[1413] = (void*)&cdat->dsym_1345__MULTICALL; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1345__MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1345__MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1345__MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1345__MULTICALL.obj_hash = 128361181; - cdat->dsym_1345__MULTICALL.obj_len = 3; - - /*inistring dstr_1346__MULTICALL*/ - /*_.VALSTR___V1415*/ meltfptr[1414] = (void*)&cdat->dstr_1346__MULTICALL; - cdat->dstr_1346__MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1346__MULTICALL.val, "MULTICALL", sizeof (cdat->dstr_1346__MULTICALL.val)-1); - /*inirout drout_1347__MEXPAND_QUOTE*/ - /*_.VALROUT___V1416*/ meltfptr[1415] = (void*)&cdat->drout_1347__MEXPAND_QUOTE; - cdat->drout_1347__MEXPAND_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1347__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.melt:4970", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1347__MEXPAND_QUOTE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1347__MEXPAND_QUOTE, meltrout_102_warmelt_macro_MEXPAND_QUOTE); - - /*iniclos dclo_1348__MEXPAND_QUOTE*/ - /*_.VALCLO___V1417*/ meltfptr[1416] = (void*)&cdat->dclo_1348__MEXPAND_QUOTE; - cdat->dclo_1348__MEXPAND_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1348__MEXPAND_QUOTE.nbval = 0; - - /*iniobj dsym_1349__QUOTE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1418*/ meltfptr[1417]) /*_.VALDATA___V1418*/ meltfptr[1417] = (void*)&cdat->dsym_1349__QUOTE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1349__QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1349__QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1349__QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1349__QUOTE.obj_hash = 18202130; - cdat->dsym_1349__QUOTE.obj_len = 3; - - /*inistring dstr_1350__QUOTE*/ - /*_.VALSTR___V1419*/ meltfptr[1418] = (void*)&cdat->dstr_1350__QUOTE; - cdat->dstr_1350__QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1350__QUOTE.val, "QUOTE", sizeof (cdat->dstr_1350__QUOTE.val)-1); - /*inirout drout_1351__MEXPAND_COMMENT*/ - /*_.VALROUT___V1420*/ meltfptr[1419] = (void*)&cdat->drout_1351__MEXPAND_COMMENT; - cdat->drout_1351__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1351__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:5008", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1351__MEXPAND_COMMENT.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1351__MEXPAND_COMMENT, meltrout_103_warmelt_macro_MEXPAND_COMMENT); - - /*iniclos dclo_1352__MEXPAND_COMMENT*/ - /*_.VALCLO___V1421*/ meltfptr[1420] = (void*)&cdat->dclo_1352__MEXPAND_COMMENT; - cdat->dclo_1352__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1352__MEXPAND_COMMENT.nbval = 0; - - /*iniobj dsym_1353__COMMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1422*/ meltfptr[1421]) /*_.VALDATA___V1422*/ meltfptr[1421] = (void*)&cdat->dsym_1353__COMMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1353__COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1353__COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1353__COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1353__COMMENT.obj_hash = 922859745; - cdat->dsym_1353__COMMENT.obj_len = 3; - - /*inistring dstr_1354__COMMENT*/ - /*_.VALSTR___V1423*/ meltfptr[1422] = (void*)&cdat->dstr_1354__COMMENT; - cdat->dstr_1354__COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1354__COMMENT.val, "COMMENT", sizeof (cdat->dstr_1354__COMMENT.val)-1); - /*inirout drout_1355__PAIRLIST_TO_PROGN*/ - /*_.VALROUT___V1331*/ meltfptr[1330] = (void*)&cdat->drout_1355__PAIRLIST_TO_PROGN; - cdat->drout_1355__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1355__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:5038", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1355__PAIRLIST_TO_PROGN.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1355__PAIRLIST_TO_PROGN, meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN); - - /*iniclos dclo_1356__PAIRLIST_TO_PROGN*/ - /*_.VALCLO___V1330*/ meltfptr[1329] = (void*)&cdat->dclo_1356__PAIRLIST_TO_PROGN; - cdat->dclo_1356__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1356__PAIRLIST_TO_PROGN.nbval = 0; - - /*inirout drout_1357__LAMBDA_*/ - /*_.VALROUT___V1332*/ meltfptr[1331] = (void*)&cdat->drout_1357__LAMBDA_; - cdat->drout_1357__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1357__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5045", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1357__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1357__LAMBDA_, meltrout_105_warmelt_macro_LAMBDA_); - - /*inirout drout_1358__PAIRLIST_TO_RETURN*/ - /*_.VALROUT___V1424*/ meltfptr[1423] = (void*)&cdat->drout_1358__PAIRLIST_TO_RETURN; - cdat->drout_1358__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1358__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:5056", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1358__PAIRLIST_TO_RETURN.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1358__PAIRLIST_TO_RETURN, meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN); - - /*iniclos dclo_1359__PAIRLIST_TO_RETURN*/ - /*_.VALCLO___V1426*/ meltfptr[1425] = (void*)&cdat->dclo_1359__PAIRLIST_TO_RETURN; - cdat->dclo_1359__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1359__PAIRLIST_TO_RETURN.nbval = 0; - - /*inirout drout_1360__LAMBDA_*/ - /*_.VALROUT___V1425*/ meltfptr[1424] = (void*)&cdat->drout_1360__LAMBDA_; - cdat->drout_1360__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1360__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5061", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1360__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1360__LAMBDA_, meltrout_107_warmelt_macro_LAMBDA_); - - /*inirout drout_1361__MEXPAND_PROGN*/ - /*_.VALROUT___V1427*/ meltfptr[1426] = (void*)&cdat->drout_1361__MEXPAND_PROGN; - cdat->drout_1361__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1361__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:5069", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1361__MEXPAND_PROGN.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1361__MEXPAND_PROGN, meltrout_108_warmelt_macro_MEXPAND_PROGN); - - /*iniclos dclo_1362__MEXPAND_PROGN*/ - /*_.VALCLO___V1428*/ meltfptr[1427] = (void*)&cdat->dclo_1362__MEXPAND_PROGN; - cdat->dclo_1362__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1362__MEXPAND_PROGN.nbval = 0; - - /*iniobj dsym_1363__PROGN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1429*/ meltfptr[1428]) /*_.VALDATA___V1429*/ meltfptr[1428] = (void*)&cdat->dsym_1363__PROGN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1363__PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1363__PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1363__PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1363__PROGN.obj_hash = 98153540; - cdat->dsym_1363__PROGN.obj_len = 3; - - /*inistring dstr_1364__PROGN*/ - /*_.VALSTR___V1430*/ meltfptr[1429] = (void*)&cdat->dstr_1364__PROGN; - cdat->dstr_1364__PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1364__PROGN.val, "PROGN", sizeof (cdat->dstr_1364__PROGN.val)-1); - /*inirout drout_1365__MEXPAND_RETURN*/ - /*_.VALROUT___V1431*/ meltfptr[1430] = (void*)&cdat->drout_1365__MEXPAND_RETURN; - cdat->drout_1365__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1365__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:5094", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1365__MEXPAND_RETURN.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1365__MEXPAND_RETURN, meltrout_109_warmelt_macro_MEXPAND_RETURN); - - /*iniclos dclo_1366__MEXPAND_RETURN*/ - /*_.VALCLO___V1432*/ meltfptr[1431] = (void*)&cdat->dclo_1366__MEXPAND_RETURN; - cdat->dclo_1366__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1366__MEXPAND_RETURN.nbval = 0; - - /*iniobj dsym_1367__RETURN*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1433*/ meltfptr[1432]) /*_.VALDATA___V1433*/ meltfptr[1432] = (void*)&cdat->dsym_1367__RETURN; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1367__RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1367__RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1367__RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1367__RETURN.obj_hash = 94541761; - cdat->dsym_1367__RETURN.obj_len = 3; - - /*inistring dstr_1368__RETURN*/ - /*_.VALSTR___V1434*/ meltfptr[1433] = (void*)&cdat->dstr_1368__RETURN; - cdat->dstr_1368__RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1368__RETURN.val, "RETURN", sizeof (cdat->dstr_1368__RETURN.val)-1); - /*inirout drout_1369__MEXPAND_FOREVER*/ - /*_.VALROUT___V1435*/ meltfptr[1434] = (void*)&cdat->drout_1369__MEXPAND_FOREVER; - cdat->drout_1369__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1369__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:5113", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1369__MEXPAND_FOREVER.nbval = 11; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1369__MEXPAND_FOREVER, meltrout_110_warmelt_macro_MEXPAND_FOREVER); - - /*iniclos dclo_1370__MEXPAND_FOREVER*/ - /*_.VALCLO___V1437*/ meltfptr[1436] = (void*)&cdat->dclo_1370__MEXPAND_FOREVER; - cdat->dclo_1370__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1370__MEXPAND_FOREVER.nbval = 0; - - /*iniobj dsym_1371__CLASS_LABEL_BINDING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1438*/ meltfptr[1437]) /*_.VALDATA___V1438*/ meltfptr[1437] = (void*)&cdat->dsym_1371__CLASS_LABEL_BINDING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1371__CLASS_LABEL_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1371__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1371__CLASS_LABEL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1371__CLASS_LABEL_BINDING.obj_hash = 513737494; - cdat->dsym_1371__CLASS_LABEL_BINDING.obj_len = 3; - - /*inistring dstr_1372__CLASS_LABEL_BIND*/ - /*_.VALSTR___V1439*/ meltfptr[1438] = (void*)&cdat->dstr_1372__CLASS_LABEL_BIND; - cdat->dstr_1372__CLASS_LABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1372__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING", sizeof (cdat->dstr_1372__CLASS_LABEL_BIND.val)-1); - /*inirout drout_1373__LAMBDA_*/ - /*_.VALROUT___V1436*/ meltfptr[1435] = (void*)&cdat->drout_1373__LAMBDA_; - cdat->drout_1373__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1373__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5134", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1373__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1373__LAMBDA_, meltrout_111_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1374__FOREVER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1440*/ meltfptr[1439]) /*_.VALDATA___V1440*/ meltfptr[1439] = (void*)&cdat->dsym_1374__FOREVER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1374__FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1374__FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1374__FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1374__FOREVER.obj_hash = 118376766; - cdat->dsym_1374__FOREVER.obj_len = 3; - - /*inistring dstr_1375__FOREVER*/ - /*_.VALSTR___V1441*/ meltfptr[1440] = (void*)&cdat->dstr_1375__FOREVER; - cdat->dstr_1375__FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1375__FOREVER.val, "FOREVER", sizeof (cdat->dstr_1375__FOREVER.val)-1); - /*inirout drout_1376__MEXPAND_EXIT*/ - /*_.VALROUT___V1442*/ meltfptr[1441] = (void*)&cdat->drout_1376__MEXPAND_EXIT; - cdat->drout_1376__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1376__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:5151", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1376__MEXPAND_EXIT.nbval = 11; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1376__MEXPAND_EXIT, meltrout_112_warmelt_macro_MEXPAND_EXIT); - - /*iniclos dclo_1377__MEXPAND_EXIT*/ - /*_.VALCLO___V1444*/ meltfptr[1443] = (void*)&cdat->dclo_1377__MEXPAND_EXIT; - cdat->dclo_1377__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1377__MEXPAND_EXIT.nbval = 0; - - /*inirout drout_1378__LAMBDA_*/ - /*_.VALROUT___V1443*/ meltfptr[1442] = (void*)&cdat->drout_1378__LAMBDA_; - cdat->drout_1378__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1378__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5174", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1378__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1378__LAMBDA_, meltrout_113_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1379__EXIT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1445*/ meltfptr[1444]) /*_.VALDATA___V1445*/ meltfptr[1444] = (void*)&cdat->dsym_1379__EXIT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1379__EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1379__EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1379__EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1379__EXIT.obj_hash = 90311298; - cdat->dsym_1379__EXIT.obj_len = 3; - - /*inistring dstr_1380__EXIT*/ - /*_.VALSTR___V1446*/ meltfptr[1445] = (void*)&cdat->dstr_1380__EXIT; - cdat->dstr_1380__EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1380__EXIT.val, "EXIT", sizeof (cdat->dstr_1380__EXIT.val)-1); - /*inirout drout_1381__MEXPAND_COMPILE_WARNING*/ - /*_.VALROUT___V1447*/ meltfptr[1446] = (void*)&cdat->drout_1381__MEXPAND_COMPILE_WARNING; - cdat->drout_1381__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1381__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:5192", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1381__MEXPAND_COMPILE_WARNING.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1381__MEXPAND_COMPILE_WARNING, meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING); - - /*iniclos dclo_1382__MEXPAND_COMPILE_WARNING*/ - /*_.VALCLO___V1448*/ meltfptr[1447] = (void*)&cdat->dclo_1382__MEXPAND_COMPILE_WARNING; - cdat->dclo_1382__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1382__MEXPAND_COMPILE_WARNING.nbval = 0; - - /*iniobj dsym_1383__COMPILE_WARNING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1449*/ meltfptr[1448]) /*_.VALDATA___V1449*/ meltfptr[1448] = (void*)&cdat->dsym_1383__COMPILE_WARNING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1383__COMPILE_WARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1383__COMPILE_WARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1383__COMPILE_WARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1383__COMPILE_WARNING.obj_hash = 87862926; - cdat->dsym_1383__COMPILE_WARNING.obj_len = 3; - - /*inistring dstr_1384__COMPILE_WARNING*/ - /*_.VALSTR___V1450*/ meltfptr[1449] = (void*)&cdat->dstr_1384__COMPILE_WARNING; - cdat->dstr_1384__COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1384__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (cdat->dstr_1384__COMPILE_WARNING.val)-1); - /*inirout drout_1385__MEXPAND_ASSERT_MSG*/ - /*_.VALROUT___V1451*/ meltfptr[1450] = (void*)&cdat->drout_1385__MEXPAND_ASSERT_MSG; - cdat->drout_1385__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1385__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:5234", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1385__MEXPAND_ASSERT_MSG.nbval = 15; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1385__MEXPAND_ASSERT_MSG, meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG); - - /*iniclos dclo_1386__MEXPAND_ASSERT_MSG*/ - /*_.VALCLO___V1456*/ meltfptr[1455] = (void*)&cdat->dclo_1386__MEXPAND_ASSERT_MSG; - cdat->dclo_1386__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1386__MEXPAND_ASSERT_MSG.nbval = 0; - - /*iniobj dsym_1387__ASSERT_FAILED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1452*/ meltfptr[1451]) /*_.VALDATA___V1452*/ meltfptr[1451] = (void*)&cdat->dsym_1387__ASSERT_FAILED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1387__ASSERT_FAILED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1387__ASSERT_FAILED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1387__ASSERT_FAILED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1387__ASSERT_FAILED.obj_hash = 201548028; - cdat->dsym_1387__ASSERT_FAILED.obj_len = 3; - - /*inistring dstr_1388__ASSERT_FAILED*/ - /*_.VALSTR___V1453*/ meltfptr[1452] = (void*)&cdat->dstr_1388__ASSERT_FAILED; - cdat->dstr_1388__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1388__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof (cdat->dstr_1388__ASSERT_FAILED.val)-1); - /*iniobj dsym_1389__FIND_ENV_DEBUG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1457*/ meltfptr[1456]) /*_.VALDATA___V1457*/ meltfptr[1456] = (void*)&cdat->dsym_1389__FIND_ENV_DEBUG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1389__FIND_ENV_DEBUG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1389__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1389__FIND_ENV_DEBUG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1389__FIND_ENV_DEBUG.obj_hash = 670001916; - cdat->dsym_1389__FIND_ENV_DEBUG.obj_len = 3; - - /*inistring dstr_1390__FIND_ENV_DEBUG*/ - /*_.VALSTR___V1458*/ meltfptr[1457] = (void*)&cdat->dstr_1390__FIND_ENV_DEBUG; - cdat->dstr_1390__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1390__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (cdat->dstr_1390__FIND_ENV_DEBUG.val)-1); - /*iniobj dsym_1391__ENABLE_CHECKING*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1454*/ meltfptr[1453]) /*_.VALDATA___V1454*/ meltfptr[1453] = (void*)&cdat->dsym_1391__ENABLE_CHECKING; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1391__ENABLE_CHECKING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1391__ENABLE_CHECKING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1391__ENABLE_CHECKING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1391__ENABLE_CHECKING.obj_hash = 375027773; - cdat->dsym_1391__ENABLE_CHECKING.obj_len = 3; - - /*inistring dstr_1392__ENABLE_CHECKING*/ - /*_.VALSTR___V1455*/ meltfptr[1454] = (void*)&cdat->dstr_1392__ENABLE_CHECKING; - cdat->dstr_1392__ENABLE_CHECKING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1392__ENABLE_CHECKING.val, "ENABLE_CHECKING", sizeof (cdat->dstr_1392__ENABLE_CHECKING.val)-1); - /*iniobj dsym_1393__ASSERT_MSG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1459*/ meltfptr[1458]) /*_.VALDATA___V1459*/ meltfptr[1458] = (void*)&cdat->dsym_1393__ASSERT_MSG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1393__ASSERT_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1393__ASSERT_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1393__ASSERT_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1393__ASSERT_MSG.obj_hash = 877781164; - cdat->dsym_1393__ASSERT_MSG.obj_len = 3; - - /*inistring dstr_1394__ASSERT_MSG*/ - /*_.VALSTR___V1460*/ meltfptr[1459] = (void*)&cdat->dstr_1394__ASSERT_MSG; - cdat->dstr_1394__ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1394__ASSERT_MSG.val, "ASSERT_MSG", sizeof (cdat->dstr_1394__ASSERT_MSG.val)-1); - /*inirout drout_1395__MEXPAND_DEBUG_MSG*/ - /*_.VALROUT___V1461*/ meltfptr[1460] = (void*)&cdat->drout_1395__MEXPAND_DEBUG_MSG; - cdat->drout_1395__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1395__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.melt:5321", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1395__MEXPAND_DEBUG_MSG.nbval = 11; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1395__MEXPAND_DEBUG_MSG, meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG); - - /*iniclos dclo_1396__MEXPAND_DEBUG_MSG*/ - /*_.VALCLO___V1464*/ meltfptr[1463] = (void*)&cdat->dclo_1396__MEXPAND_DEBUG_MSG; - cdat->dclo_1396__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1396__MEXPAND_DEBUG_MSG.nbval = 0; - - /*iniobj dsym_1397__THE_MELTCALLCOUNT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1462*/ meltfptr[1461]) /*_.VALDATA___V1462*/ meltfptr[1461] = (void*)&cdat->dsym_1397__THE_MELTCALLCOUNT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1397__THE_MELTCALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1397__THE_MELTCALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1397__THE_MELTCALLCOUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1397__THE_MELTCALLCOUNT.obj_hash = 508915431; - cdat->dsym_1397__THE_MELTCALLCOUNT.obj_len = 3; - - /*inistring dstr_1398__THE_MELTCALLCOUN*/ - /*_.VALSTR___V1463*/ meltfptr[1462] = (void*)&cdat->dstr_1398__THE_MELTCALLCOUN; - cdat->dstr_1398__THE_MELTCALLCOUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1398__THE_MELTCALLCOUN.val, "THE_MELTCALLCOUNT", sizeof (cdat->dstr_1398__THE_MELTCALLCOUN.val)-1); - /*iniobj dsym_1399__DEBUG_MSG*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1465*/ meltfptr[1464]) /*_.VALDATA___V1465*/ meltfptr[1464] = (void*)&cdat->dsym_1399__DEBUG_MSG; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1399__DEBUG_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1399__DEBUG_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1399__DEBUG_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1399__DEBUG_MSG.obj_hash = 653165353; - cdat->dsym_1399__DEBUG_MSG.obj_len = 3; - - /*inistring dstr_1400__DEBUG_MSG*/ - /*_.VALSTR___V1466*/ meltfptr[1465] = (void*)&cdat->dstr_1400__DEBUG_MSG; - cdat->dstr_1400__DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1400__DEBUG_MSG.val, "DEBUG_MSG", sizeof (cdat->dstr_1400__DEBUG_MSG.val)-1); - /*inirout drout_1401__MEXPAND_EXPORT_VALUES*/ - /*_.VALROUT___V1467*/ meltfptr[1466] = (void*)&cdat->drout_1401__MEXPAND_EXPORT_VALUES; - cdat->drout_1401__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1401__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:5382", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1401__MEXPAND_EXPORT_VALUES.nbval = 10; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1401__MEXPAND_EXPORT_VALUES, meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES); - - /*iniclos dclo_1402__MEXPAND_EXPORT_VALUES*/ - /*_.VALCLO___V1469*/ meltfptr[1468] = (void*)&cdat->dclo_1402__MEXPAND_EXPORT_VALUES; - cdat->dclo_1402__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1402__MEXPAND_EXPORT_VALUES.nbval = 0; - - /*inirout drout_1403__LAMBDA_*/ - /*_.VALROUT___V1468*/ meltfptr[1467] = (void*)&cdat->drout_1403__LAMBDA_; - cdat->drout_1403__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1403__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5392", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1403__LAMBDA_.nbval = 3; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1403__LAMBDA_, meltrout_118_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1404__EXPORT_VALUES*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1470*/ meltfptr[1469]) /*_.VALDATA___V1470*/ meltfptr[1469] = (void*)&cdat->dsym_1404__EXPORT_VALUES; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1404__EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1404__EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1404__EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1404__EXPORT_VALUES.obj_hash = 967501408; - cdat->dsym_1404__EXPORT_VALUES.obj_len = 3; - - /*inistring dstr_1405__EXPORT_VALUES*/ - /*_.VALSTR___V1471*/ meltfptr[1470] = (void*)&cdat->dstr_1405__EXPORT_VALUES; - cdat->dstr_1405__EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1405__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (cdat->dstr_1405__EXPORT_VALUES.val)-1); - /*inirout drout_1406__MEXPAND_EXPORT_MACRO*/ - /*_.VALROUT___V1472*/ meltfptr[1471] = (void*)&cdat->drout_1406__MEXPAND_EXPORT_MACRO; - cdat->drout_1406__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1406__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:5412", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1406__MEXPAND_EXPORT_MACRO.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1406__MEXPAND_EXPORT_MACRO, meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO); - - /*iniclos dclo_1407__MEXPAND_EXPORT_MACRO*/ - /*_.VALCLO___V1473*/ meltfptr[1472] = (void*)&cdat->dclo_1407__MEXPAND_EXPORT_MACRO; - cdat->dclo_1407__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1407__MEXPAND_EXPORT_MACRO.nbval = 0; - - /*iniobj dsym_1408__EXPORT_MACRO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1474*/ meltfptr[1473]) /*_.VALDATA___V1474*/ meltfptr[1473] = (void*)&cdat->dsym_1408__EXPORT_MACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1408__EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1408__EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1408__EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1408__EXPORT_MACRO.obj_hash = 539749464; - cdat->dsym_1408__EXPORT_MACRO.obj_len = 3; - - /*inistring dstr_1409__EXPORT_MACRO*/ - /*_.VALSTR___V1475*/ meltfptr[1474] = (void*)&cdat->dstr_1409__EXPORT_MACRO; - cdat->dstr_1409__EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1409__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (cdat->dstr_1409__EXPORT_MACRO.val)-1); - /*inirout drout_1410__MEXPAND_EXPORT_PATMACRO*/ - /*_.VALROUT___V1476*/ meltfptr[1475] = (void*)&cdat->drout_1410__MEXPAND_EXPORT_PATMACRO; - cdat->drout_1410__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1410__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:5453", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1410__MEXPAND_EXPORT_PATMACRO.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1410__MEXPAND_EXPORT_PATMACRO, meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO); - - /*iniclos dclo_1411__MEXPAND_EXPORT_PATMACRO*/ - /*_.VALCLO___V1477*/ meltfptr[1476] = (void*)&cdat->dclo_1411__MEXPAND_EXPORT_PATMACRO; - cdat->dclo_1411__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1411__MEXPAND_EXPORT_PATMACRO.nbval = 0; - - /*iniobj dsym_1412__EXPORT_PATMACRO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1478*/ meltfptr[1477]) /*_.VALDATA___V1478*/ meltfptr[1477] = (void*)&cdat->dsym_1412__EXPORT_PATMACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1412__EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1412__EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1412__EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1412__EXPORT_PATMACRO.obj_hash = 363095059; - cdat->dsym_1412__EXPORT_PATMACRO.obj_len = 3; - - /*inistring dstr_1413__EXPORT_PATMACRO*/ - /*_.VALSTR___V1479*/ meltfptr[1478] = (void*)&cdat->dstr_1413__EXPORT_PATMACRO; - cdat->dstr_1413__EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1413__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (cdat->dstr_1413__EXPORT_PATMACRO.val)-1); - /*inirout drout_1414__MEXPAND_EXPORT_CLASS*/ - /*_.VALROUT___V1480*/ meltfptr[1479] = (void*)&cdat->drout_1414__MEXPAND_EXPORT_CLASS; - cdat->drout_1414__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1414__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:5499", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1414__MEXPAND_EXPORT_CLASS.nbval = 9; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1414__MEXPAND_EXPORT_CLASS, meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS); - - /*iniclos dclo_1415__MEXPAND_EXPORT_CLASS*/ - /*_.VALCLO___V1482*/ meltfptr[1481] = (void*)&cdat->dclo_1415__MEXPAND_EXPORT_CLASS; - cdat->dclo_1415__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1415__MEXPAND_EXPORT_CLASS.nbval = 0; - - /*inirout drout_1416__LAMBDA_*/ - /*_.VALROUT___V1481*/ meltfptr[1480] = (void*)&cdat->drout_1416__LAMBDA_; - cdat->drout_1416__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1416__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5509", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1416__LAMBDA_.nbval = 2; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1416__LAMBDA_, meltrout_122_warmelt_macro_LAMBDA_); - - /*iniobj dsym_1417__EXPORT_CLASS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1483*/ meltfptr[1482]) /*_.VALDATA___V1483*/ meltfptr[1482] = (void*)&cdat->dsym_1417__EXPORT_CLASS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1417__EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1417__EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1417__EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1417__EXPORT_CLASS.obj_hash = 352628427; - cdat->dsym_1417__EXPORT_CLASS.obj_len = 3; - - /*inistring dstr_1418__EXPORT_CLASS*/ - /*_.VALSTR___V1484*/ meltfptr[1483] = (void*)&cdat->dstr_1418__EXPORT_CLASS; - cdat->dstr_1418__EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1418__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (cdat->dstr_1418__EXPORT_CLASS.val)-1); - /*inirout drout_1419__MEXPAND_EXPORT_SYNONYM*/ - /*_.VALROUT___V1485*/ meltfptr[1484] = (void*)&cdat->drout_1419__MEXPAND_EXPORT_SYNONYM; - cdat->drout_1419__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1419__MEXPAND_EXPORT_SYNONYM.routdescr, "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:5526", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1419__MEXPAND_EXPORT_SYNONYM.nbval = 7; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1419__MEXPAND_EXPORT_SYNONYM, meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM); - - /*iniclos dclo_1420__MEXPAND_EXPORT_SYNONYM*/ - /*_.VALCLO___V1486*/ meltfptr[1485] = (void*)&cdat->dclo_1420__MEXPAND_EXPORT_SYNONYM; - cdat->dclo_1420__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1420__MEXPAND_EXPORT_SYNONYM.nbval = 0; - - /*iniobj dsym_1421__EXPORT_SYNONYM*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1487*/ meltfptr[1486]) /*_.VALDATA___V1487*/ meltfptr[1486] = (void*)&cdat->dsym_1421__EXPORT_SYNONYM; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1421__EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1421__EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1421__EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1421__EXPORT_SYNONYM.obj_hash = 585099698; - cdat->dsym_1421__EXPORT_SYNONYM.obj_len = 3; - - /*inistring dstr_1422__EXPORT_SYNONYM*/ - /*_.VALSTR___V1488*/ meltfptr[1487] = (void*)&cdat->dstr_1422__EXPORT_SYNONYM; - cdat->dstr_1422__EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1422__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (cdat->dstr_1422__EXPORT_SYNONYM.val)-1); - /*inirout drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALROUT___V1489*/ meltfptr[1488] = (void*)&cdat->drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:5571", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); - - /*iniclos dclo_1424__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALCLO___V1490*/ meltfptr[1489] = (void*)&cdat->dclo_1424__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dclo_1424__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1424__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; - - /*iniobj dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1491*/ meltfptr[1490]) /*_.VALDATA___V1491*/ meltfptr[1490] = (void*)&cdat->dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; - cdat->dsym_1425__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; - - /*inistring dstr_1426__CURRENT_MODULE_E*/ - /*_.VALSTR___V1492*/ meltfptr[1491] = (void*)&cdat->dstr_1426__CURRENT_MODULE_E; - cdat->dstr_1426__CURRENT_MODULE_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1426__CURRENT_MODULE_E.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1426__CURRENT_MODULE_E.val)-1); - /*inirout drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALROUT___V1493*/ meltfptr[1492] = (void*)&cdat->drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT; - cdat->drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:5594", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT, meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT); - - /*iniclos dclo_1428__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ - /*_.VALCLO___V1494*/ meltfptr[1493] = (void*)&cdat->dclo_1428__MEXPAND_PARENT_MODULE_ENVIRONMENT; - cdat->dclo_1428__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1428__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; - - /*iniobj dsym_1429__PARENT_MODULE_ENVIRONMENT*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1495*/ meltfptr[1494]) /*_.VALDATA___V1495*/ meltfptr[1494] = (void*)&cdat->dsym_1429__PARENT_MODULE_ENVIRONMENT; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1429__PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1429__PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1429__PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1429__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; - cdat->dsym_1429__PARENT_MODULE_ENVIRONMENT.obj_len = 3; - - /*inistring dstr_1430__PARENT_MODULE_EN*/ - /*_.VALSTR___V1496*/ meltfptr[1495] = (void*)&cdat->dstr_1430__PARENT_MODULE_EN; - cdat->dstr_1430__PARENT_MODULE_EN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1430__PARENT_MODULE_EN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_1430__PARENT_MODULE_EN.val)-1); - /*inirout drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALROUT___V1497*/ meltfptr[1496] = (void*)&cdat->drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:5617", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); - - /*iniclos dclo_1432__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - /*_.VALCLO___V1498*/ meltfptr[1497] = (void*)&cdat->dclo_1432__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - cdat->dclo_1432__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1432__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; - - /*iniobj dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1499*/ meltfptr[1498]) /*_.VALDATA___V1499*/ meltfptr[1498] = (void*)&cdat->dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; - cdat->dsym_1433__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; - - /*inistring dstr_1434__UPDATE_CURRENT_M*/ - /*_.VALSTR___V1500*/ meltfptr[1499] = (void*)&cdat->dstr_1434__UPDATE_CURRENT_M; - cdat->dstr_1434__UPDATE_CURRENT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1434__UPDATE_CURRENT_M.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1434__UPDATE_CURRENT_M.val)-1); - /*inirout drout_1435__MEXPAND_FETCH_PREDEFINED*/ - /*_.VALROUT___V1501*/ meltfptr[1500] = (void*)&cdat->drout_1435__MEXPAND_FETCH_PREDEFINED; - cdat->drout_1435__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1435__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:5641", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1435__MEXPAND_FETCH_PREDEFINED.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1435__MEXPAND_FETCH_PREDEFINED, meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED); - - /*iniclos dclo_1436__MEXPAND_FETCH_PREDEFINED*/ - /*_.VALCLO___V1502*/ meltfptr[1501] = (void*)&cdat->dclo_1436__MEXPAND_FETCH_PREDEFINED; - cdat->dclo_1436__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1436__MEXPAND_FETCH_PREDEFINED.nbval = 0; - - /*iniobj dsym_1437__FETCH_PREDEFINED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1503*/ meltfptr[1502]) /*_.VALDATA___V1503*/ meltfptr[1502] = (void*)&cdat->dsym_1437__FETCH_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1437__FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1437__FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1437__FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1437__FETCH_PREDEFINED.obj_hash = 951904659; - cdat->dsym_1437__FETCH_PREDEFINED.obj_len = 3; - - /*inistring dstr_1438__FETCH_PREDEFINED*/ - /*_.VALSTR___V1504*/ meltfptr[1503] = (void*)&cdat->dstr_1438__FETCH_PREDEFINED; - cdat->dstr_1438__FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1438__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (cdat->dstr_1438__FETCH_PREDEFINED.val)-1); - /*inirout drout_1439__MEXPAND_STORE_PREDEFINED*/ - /*_.VALROUT___V1505*/ meltfptr[1504] = (void*)&cdat->drout_1439__MEXPAND_STORE_PREDEFINED; - cdat->drout_1439__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); - strncpy (cdat->drout_1439__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:5667", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1439__MEXPAND_STORE_PREDEFINED.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1439__MEXPAND_STORE_PREDEFINED, meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED); - - /*iniclos dclo_1440__MEXPAND_STORE_PREDEFINED*/ - /*_.VALCLO___V1506*/ meltfptr[1505] = (void*)&cdat->dclo_1440__MEXPAND_STORE_PREDEFINED; - cdat->dclo_1440__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); - cdat->dclo_1440__MEXPAND_STORE_PREDEFINED.nbval = 0; - - /*iniobj dsym_1441__STORE_PREDEFINED*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1507*/ meltfptr[1506]) /*_.VALDATA___V1507*/ meltfptr[1506] = (void*)&cdat->dsym_1441__STORE_PREDEFINED; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1441__STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1441__STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1441__STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1441__STORE_PREDEFINED.obj_hash = 8509317; - cdat->dsym_1441__STORE_PREDEFINED.obj_len = 3; - - /*inistring dstr_1442__STORE_PREDEFINED*/ - /*_.VALSTR___V1508*/ meltfptr[1507] = (void*)&cdat->dstr_1442__STORE_PREDEFINED; - cdat->dstr_1442__STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1442__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (cdat->dstr_1442__STORE_PREDEFINED.val)-1); - /*iniobj dsym_1443__EXPAND_APPLY*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1509*/ meltfptr[1508]) /*_.VALDATA___V1509*/ meltfptr[1508] = (void*)&cdat->dsym_1443__EXPAND_APPLY; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1443__EXPAND_APPLY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1443__EXPAND_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1443__EXPAND_APPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1443__EXPAND_APPLY.obj_hash = 57901779; - cdat->dsym_1443__EXPAND_APPLY.obj_len = 3; - - /*inistring dstr_1444__EXPAND_APPLY*/ - /*_.VALSTR___V1510*/ meltfptr[1509] = (void*)&cdat->dstr_1444__EXPAND_APPLY; - cdat->dstr_1444__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1444__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (cdat->dstr_1444__EXPAND_APPLY.val)-1); - /*iniobj dsym_1445__EXPAND_MSEND*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1511*/ meltfptr[1510]) /*_.VALDATA___V1511*/ meltfptr[1510] = (void*)&cdat->dsym_1445__EXPAND_MSEND; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1445__EXPAND_MSEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1445__EXPAND_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1445__EXPAND_MSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1445__EXPAND_MSEND.obj_hash = 624621035; - cdat->dsym_1445__EXPAND_MSEND.obj_len = 3; - - /*inistring dstr_1446__EXPAND_MSEND*/ - /*_.VALSTR___V1512*/ meltfptr[1511] = (void*)&cdat->dstr_1446__EXPAND_MSEND; - cdat->dstr_1446__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1446__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (cdat->dstr_1446__EXPAND_MSEND.val)-1); - /*iniobj dsym_1447__EXPAND_PAIRLIST_AS_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1513*/ meltfptr[1512]) /*_.VALDATA___V1513*/ meltfptr[1512] = (void*)&cdat->dsym_1447__EXPAND_PAIRLIST_AS_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1447__EXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1447__EXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1447__EXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1447__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; - cdat->dsym_1447__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; - - /*inistring dstr_1448__EXPAND_PAIRLIST_*/ - /*_.VALSTR___V1514*/ meltfptr[1513] = (void*)&cdat->dstr_1448__EXPAND_PAIRLIST_; - cdat->dstr_1448__EXPAND_PAIRLIST_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1448__EXPAND_PAIRLIST_.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1448__EXPAND_PAIRLIST_.val)-1); - /*iniobj dsym_1449__EXPAND_PRIMITIVE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1515*/ meltfptr[1514]) /*_.VALDATA___V1515*/ meltfptr[1514] = (void*)&cdat->dsym_1449__EXPAND_PRIMITIVE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1449__EXPAND_PRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1449__EXPAND_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1449__EXPAND_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1449__EXPAND_PRIMITIVE.obj_hash = 489692488; - cdat->dsym_1449__EXPAND_PRIMITIVE.obj_len = 3; - - /*inistring dstr_1450__EXPAND_PRIMITIVE*/ - /*_.VALSTR___V1516*/ meltfptr[1515] = (void*)&cdat->dstr_1450__EXPAND_PRIMITIVE; - cdat->dstr_1450__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1450__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (cdat->dstr_1450__EXPAND_PRIMITIVE.val)-1); - /*iniobj dsym_1451__INSTALL_INITIAL_MACRO*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1517*/ meltfptr[1516]) /*_.VALDATA___V1517*/ meltfptr[1516] = (void*)&cdat->dsym_1451__INSTALL_INITIAL_MACRO; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1451__INSTALL_INITIAL_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1451__INSTALL_INITIAL_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1451__INSTALL_INITIAL_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1451__INSTALL_INITIAL_MACRO.obj_hash = 101362976; - cdat->dsym_1451__INSTALL_INITIAL_MACRO.obj_len = 3; - - /*inistring dstr_1452__INSTALL_INITIAL_*/ - /*_.VALSTR___V1518*/ meltfptr[1517] = (void*)&cdat->dstr_1452__INSTALL_INITIAL_; - cdat->dstr_1452__INSTALL_INITIAL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1452__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO", sizeof (cdat->dstr_1452__INSTALL_INITIAL_.val)-1); - /*iniobj dsym_1453__LAMBDA_ARG_BINDINGS*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1519*/ meltfptr[1518]) /*_.VALDATA___V1519*/ meltfptr[1518] = (void*)&cdat->dsym_1453__LAMBDA_ARG_BINDINGS; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1453__LAMBDA_ARG_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1453__LAMBDA_ARG_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1453__LAMBDA_ARG_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1453__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; - cdat->dsym_1453__LAMBDA_ARG_BINDINGS.obj_len = 3; - - /*inistring dstr_1454__LAMBDA_ARG_BINDI*/ - /*_.VALSTR___V1520*/ meltfptr[1519] = (void*)&cdat->dstr_1454__LAMBDA_ARG_BINDI; - cdat->dstr_1454__LAMBDA_ARG_BINDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1454__LAMBDA_ARG_BINDI.val, "LAMBDA_ARG_BINDINGS", sizeof (cdat->dstr_1454__LAMBDA_ARG_BINDI.val)-1); - /*iniobj dsym_1455__MACROEXPAND_1*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1521*/ meltfptr[1520]) /*_.VALDATA___V1521*/ meltfptr[1520] = (void*)&cdat->dsym_1455__MACROEXPAND_1; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1455__MACROEXPAND_1", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1455__MACROEXPAND_1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1455__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1455__MACROEXPAND_1.obj_hash = 858793911; - cdat->dsym_1455__MACROEXPAND_1.obj_len = 3; - - /*inistring dstr_1456__MACROEXPAND_1*/ - /*_.VALSTR___V1522*/ meltfptr[1521] = (void*)&cdat->dstr_1456__MACROEXPAND_1; - cdat->dstr_1456__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1456__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (cdat->dstr_1456__MACROEXPAND_1.val)-1); - /*iniobj dsym_1457__MACROEXPAND_TOPLEVEL_LIST*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1523*/ meltfptr[1522]) /*_.VALDATA___V1523*/ meltfptr[1522] = (void*)&cdat->dsym_1457__MACROEXPAND_TOPLEVEL_LIST; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1457__MACROEXPAND_TOPLEVEL_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1457__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1457__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1457__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; - cdat->dsym_1457__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; - - /*inistring dstr_1458__MACROEXPAND_TOPL*/ - /*_.VALSTR___V1524*/ meltfptr[1523] = (void*)&cdat->dstr_1458__MACROEXPAND_TOPL; - cdat->dstr_1458__MACROEXPAND_TOPL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1458__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (cdat->dstr_1458__MACROEXPAND_TOPL.val)-1); - /*iniobj dsym_1459__PATTERNEXPAND_1*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1525*/ meltfptr[1524]) /*_.VALDATA___V1525*/ meltfptr[1524] = (void*)&cdat->dsym_1459__PATTERNEXPAND_1; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1459__PATTERNEXPAND_1", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1459__PATTERNEXPAND_1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1459__PATTERNEXPAND_1.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1459__PATTERNEXPAND_1.obj_hash = 263501284; - cdat->dsym_1459__PATTERNEXPAND_1.obj_len = 3; - - /*inistring dstr_1460__PATTERNEXPAND_1*/ - /*_.VALSTR___V1526*/ meltfptr[1525] = (void*)&cdat->dstr_1460__PATTERNEXPAND_1; - cdat->dstr_1460__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1460__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (cdat->dstr_1460__PATTERNEXPAND_1.val)-1); - /*iniobj dsym_1461__PATTERNEXPAND_EXPR*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1527*/ meltfptr[1526]) /*_.VALDATA___V1527*/ meltfptr[1526] = (void*)&cdat->dsym_1461__PATTERNEXPAND_EXPR; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1461__PATTERNEXPAND_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1461__PATTERNEXPAND_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1461__PATTERNEXPAND_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1461__PATTERNEXPAND_EXPR.obj_hash = 842722016; - cdat->dsym_1461__PATTERNEXPAND_EXPR.obj_len = 3; - - /*inistring dstr_1462__PATTERNEXPAND_EX*/ - /*_.VALSTR___V1528*/ meltfptr[1527] = (void*)&cdat->dstr_1462__PATTERNEXPAND_EX; - cdat->dstr_1462__PATTERNEXPAND_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1462__PATTERNEXPAND_EX.val, "PATTERNEXPAND_EXPR", sizeof (cdat->dstr_1462__PATTERNEXPAND_EX.val)-1); - /*iniobj dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1529*/ meltfptr[1528]) /*_.VALDATA___V1529*/ meltfptr[1528] = (void*)&cdat->dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; - cdat->dsym_1463__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; - - /*inistring dstr_1464__PATTERNEXPAND_PA*/ - /*_.VALSTR___V1530*/ meltfptr[1529] = (void*)&cdat->dstr_1464__PATTERNEXPAND_PA; - cdat->dstr_1464__PATTERNEXPAND_PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1464__PATTERNEXPAND_PA.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1464__PATTERNEXPAND_PA.val)-1); - /*iniobj dsym_1465__PATTERN_WEIGHT_TUPLE*/ -/*uniqueobj*/ if (!/*_.VALDATA___V1531*/ meltfptr[1530]) /*_.VALDATA___V1531*/ meltfptr[1530] = (void*)&cdat->dsym_1465__PATTERN_WEIGHT_TUPLE; - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1465__PATTERN_WEIGHT_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); - if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1465__PATTERN_WEIGHT_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1465__PATTERN_WEIGHT_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); - cdat->dsym_1465__PATTERN_WEIGHT_TUPLE.obj_hash = 239554717; - cdat->dsym_1465__PATTERN_WEIGHT_TUPLE.obj_len = 3; - - /*inistring dstr_1466__PATTERN_WEIGHT_T*/ - /*_.VALSTR___V1532*/ meltfptr[1531] = (void*)&cdat->dstr_1466__PATTERN_WEIGHT_T; - cdat->dstr_1466__PATTERN_WEIGHT_T.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ strncpy(cdat->dstr_1466__PATTERN_WEIGHT_T.val, "PATTERN_WEIGHT_TUPLE", sizeof (cdat->dstr_1466__PATTERN_WEIGHT_T.val)-1); cdat = NULL; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1288__LAMBDA_, meltrout_90_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1289__LET*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1358*/ meltfptr[1357]) /*_.VALDATA___V1358*/ meltfptr[1357] = (void*)&cdat->dsym_1289__LET; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1289__LET", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1289__LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1289__LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1289__LET.obj_hash = 70931144; + cdat->dsym_1289__LET.obj_len = 3; + + /*inistring dstr_1290__LET*/ + /*_.VALSTR___V1359*/ meltfptr[1358] = (void*)&cdat->dstr_1290__LET; + cdat->dstr_1290__LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1290__LET.val, "LET", sizeof (cdat->dstr_1290__LET.val)-1); + /*inirout drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE*/ + /*_.VALROUT___V1360*/ meltfptr[1359] = (void*)&cdat->drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE; + cdat->drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:4666", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE, meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE); + + /*iniclos dclo_1292__YES_RECURSIVELY_CONSTRUCTIBLE*/ + /*_.VALCLO___V1361*/ meltfptr[1360] = (void*)&cdat->dclo_1292__YES_RECURSIVELY_CONSTRUCTIBLE; + cdat->dclo_1292__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1292__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 0; + + /*iniobj dsym_1293__INSTALL_METHOD*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1362*/ meltfptr[1361]) /*_.VALDATA___V1362*/ meltfptr[1361] = (void*)&cdat->dsym_1293__INSTALL_METHOD; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1293__INSTALL_METHOD", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1293__INSTALL_METHOD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1293__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1293__INSTALL_METHOD.obj_hash = 680699224; + cdat->dsym_1293__INSTALL_METHOD.obj_len = 3; + + /*inistring dstr_1294__INSTALL_METHOD*/ + /*_.VALSTR___V1363*/ meltfptr[1362] = (void*)&cdat->dstr_1294__INSTALL_METHOD; + cdat->dstr_1294__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1294__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_1294__INSTALL_METHOD.val)-1); + /*inirout drout_1295__MEXPAND_LETREC*/ + /*_.VALROUT___V1364*/ meltfptr[1363] = (void*)&cdat->drout_1295__MEXPAND_LETREC; + cdat->drout_1295__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1295__MEXPAND_LETREC.routdescr, "MEXPAND_LETREC @warmelt-macro.melt:4679", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1295__MEXPAND_LETREC.nbval = 22; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1295__MEXPAND_LETREC, meltrout_92_warmelt_macro_MEXPAND_LETREC); + + /*iniclos dclo_1296__MEXPAND_LETREC*/ + /*_.VALCLO___V1367*/ meltfptr[1366] = (void*)&cdat->dclo_1296__MEXPAND_LETREC; + cdat->dclo_1296__MEXPAND_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1296__MEXPAND_LETREC.nbval = 0; + + /*inirout drout_1297__LAMBDA_*/ + /*_.VALROUT___V1365*/ meltfptr[1364] = (void*)&cdat->drout_1297__LAMBDA_; + cdat->drout_1297__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1297__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4704", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1297__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1297__LAMBDA_, meltrout_93_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1298__CLASS_LETREC_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1368*/ meltfptr[1367]) /*_.VALDATA___V1368*/ meltfptr[1367] = (void*)&cdat->dsym_1298__CLASS_LETREC_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1298__CLASS_LETREC_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1298__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1298__CLASS_LETREC_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1298__CLASS_LETREC_BINDING.obj_hash = 61769779; + cdat->dsym_1298__CLASS_LETREC_BINDING.obj_len = 3; + + /*inistring dstr_1299__CLASS_LETREC_BIN*/ + /*_.VALSTR___V1369*/ meltfptr[1368] = (void*)&cdat->dstr_1299__CLASS_LETREC_BIN; + cdat->dstr_1299__CLASS_LETREC_BIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1299__CLASS_LETREC_BIN.val, "CLASS_LETREC_BINDING", sizeof (cdat->dstr_1299__CLASS_LETREC_BIN.val)-1); + /*inirout drout_1300__LAMBDA_*/ + /*_.VALROUT___V1366*/ meltfptr[1365] = (void*)&cdat->drout_1300__LAMBDA_; + cdat->drout_1300__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1300__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4809", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1300__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1300__LAMBDA_, meltrout_94_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1301__LETREC*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1370*/ meltfptr[1369]) /*_.VALDATA___V1370*/ meltfptr[1369] = (void*)&cdat->dsym_1301__LETREC; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1301__LETREC", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1301__LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1301__LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1301__LETREC.obj_hash = 270027731; + cdat->dsym_1301__LETREC.obj_len = 3; + + /*inistring dstr_1302__LETREC*/ + /*_.VALSTR___V1371*/ meltfptr[1370] = (void*)&cdat->dstr_1302__LETREC; + cdat->dstr_1302__LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1302__LETREC.val, "LETREC", sizeof (cdat->dstr_1302__LETREC.val)-1); + /*inirout drout_1303__MEXPAND_LAMBDA*/ + /*_.VALROUT___V1372*/ meltfptr[1371] = (void*)&cdat->drout_1303__MEXPAND_LAMBDA; + cdat->drout_1303__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1303__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:4832", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1303__MEXPAND_LAMBDA.nbval = 12; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1303__MEXPAND_LAMBDA, meltrout_95_warmelt_macro_MEXPAND_LAMBDA); + + /*iniclos dclo_1304__MEXPAND_LAMBDA*/ + /*_.VALCLO___V1375*/ meltfptr[1374] = (void*)&cdat->dclo_1304__MEXPAND_LAMBDA; + cdat->dclo_1304__MEXPAND_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1304__MEXPAND_LAMBDA.nbval = 0; + + /*inirout drout_1305__LAMBDA_*/ + /*_.VALROUT___V1373*/ meltfptr[1372] = (void*)&cdat->drout_1305__LAMBDA_; + cdat->drout_1305__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1305__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4847", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1305__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1305__LAMBDA_, meltrout_96_warmelt_macro_LAMBDA_); + + /*inirout drout_1306__LAMBDA_*/ + /*_.VALROUT___V1374*/ meltfptr[1373] = (void*)&cdat->drout_1306__LAMBDA_; + cdat->drout_1306__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1306__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4849", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1306__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1306__LAMBDA_, meltrout_97_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1307__LAMBDA*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1376*/ meltfptr[1375]) /*_.VALDATA___V1376*/ meltfptr[1375] = (void*)&cdat->dsym_1307__LAMBDA; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1307__LAMBDA", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1307__LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1307__LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1307__LAMBDA.obj_hash = 15346448; + cdat->dsym_1307__LAMBDA.obj_len = 3; + + /*inistring dstr_1308__LAMBDA*/ + /*_.VALSTR___V1377*/ meltfptr[1376] = (void*)&cdat->dstr_1308__LAMBDA; + cdat->dstr_1308__LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1308__LAMBDA.val, "LAMBDA", sizeof (cdat->dstr_1308__LAMBDA.val)-1); + /*inirout drout_1309__MEXPAND_MULTICALL*/ + /*_.VALROUT___V1378*/ meltfptr[1377] = (void*)&cdat->drout_1309__MEXPAND_MULTICALL; + cdat->drout_1309__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1309__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:4874", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1309__MEXPAND_MULTICALL.nbval = 16; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1309__MEXPAND_MULTICALL, meltrout_98_warmelt_macro_MEXPAND_MULTICALL); + + /*iniclos dclo_1310__MEXPAND_MULTICALL*/ + /*_.VALCLO___V1381*/ meltfptr[1380] = (void*)&cdat->dclo_1310__MEXPAND_MULTICALL; + cdat->dclo_1310__MEXPAND_MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1310__MEXPAND_MULTICALL.nbval = 0; + + /*inirout drout_1311__LAMBDA_*/ + /*_.VALROUT___V1379*/ meltfptr[1378] = (void*)&cdat->drout_1311__LAMBDA_; + cdat->drout_1311__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1311__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4900", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1311__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1311__LAMBDA_, meltrout_99_warmelt_macro_LAMBDA_); + + /*inirout drout_1312__LAMBDA_*/ + /*_.VALROUT___V1380*/ meltfptr[1379] = (void*)&cdat->drout_1312__LAMBDA_; + cdat->drout_1312__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1312__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4903", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1312__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1312__LAMBDA_, meltrout_100_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1313__MULTICALL*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1382*/ meltfptr[1381]) /*_.VALDATA___V1382*/ meltfptr[1381] = (void*)&cdat->dsym_1313__MULTICALL; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1313__MULTICALL", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1313__MULTICALL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1313__MULTICALL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1313__MULTICALL.obj_hash = 128361181; + cdat->dsym_1313__MULTICALL.obj_len = 3; + + /*inistring dstr_1314__MULTICALL*/ + /*_.VALSTR___V1383*/ meltfptr[1382] = (void*)&cdat->dstr_1314__MULTICALL; + cdat->dstr_1314__MULTICALL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1314__MULTICALL.val, "MULTICALL", sizeof (cdat->dstr_1314__MULTICALL.val)-1); + /*inirout drout_1315__MEXPAND_QUOTE*/ + /*_.VALROUT___V1384*/ meltfptr[1383] = (void*)&cdat->drout_1315__MEXPAND_QUOTE; + cdat->drout_1315__MEXPAND_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1315__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.melt:4928", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1315__MEXPAND_QUOTE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1315__MEXPAND_QUOTE, meltrout_101_warmelt_macro_MEXPAND_QUOTE); + + /*iniclos dclo_1316__MEXPAND_QUOTE*/ + /*_.VALCLO___V1385*/ meltfptr[1384] = (void*)&cdat->dclo_1316__MEXPAND_QUOTE; + cdat->dclo_1316__MEXPAND_QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1316__MEXPAND_QUOTE.nbval = 0; + + /*iniobj dsym_1317__QUOTE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1386*/ meltfptr[1385]) /*_.VALDATA___V1386*/ meltfptr[1385] = (void*)&cdat->dsym_1317__QUOTE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1317__QUOTE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1317__QUOTE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1317__QUOTE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1317__QUOTE.obj_hash = 18202130; + cdat->dsym_1317__QUOTE.obj_len = 3; + + /*inistring dstr_1318__QUOTE*/ + /*_.VALSTR___V1387*/ meltfptr[1386] = (void*)&cdat->dstr_1318__QUOTE; + cdat->dstr_1318__QUOTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1318__QUOTE.val, "QUOTE", sizeof (cdat->dstr_1318__QUOTE.val)-1); + /*inirout drout_1319__MEXPAND_COMMENT*/ + /*_.VALROUT___V1388*/ meltfptr[1387] = (void*)&cdat->drout_1319__MEXPAND_COMMENT; + cdat->drout_1319__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1319__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:4966", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1319__MEXPAND_COMMENT.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1319__MEXPAND_COMMENT, meltrout_102_warmelt_macro_MEXPAND_COMMENT); + + /*iniclos dclo_1320__MEXPAND_COMMENT*/ + /*_.VALCLO___V1389*/ meltfptr[1388] = (void*)&cdat->dclo_1320__MEXPAND_COMMENT; + cdat->dclo_1320__MEXPAND_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1320__MEXPAND_COMMENT.nbval = 0; + + /*iniobj dsym_1321__COMMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1390*/ meltfptr[1389]) /*_.VALDATA___V1390*/ meltfptr[1389] = (void*)&cdat->dsym_1321__COMMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1321__COMMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1321__COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1321__COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1321__COMMENT.obj_hash = 922859745; + cdat->dsym_1321__COMMENT.obj_len = 3; + + /*inistring dstr_1322__COMMENT*/ + /*_.VALSTR___V1391*/ meltfptr[1390] = (void*)&cdat->dstr_1322__COMMENT; + cdat->dstr_1322__COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1322__COMMENT.val, "COMMENT", sizeof (cdat->dstr_1322__COMMENT.val)-1); + /*inirout drout_1323__PAIRLIST_TO_PROGN*/ + /*_.VALROUT___V1299*/ meltfptr[1298] = (void*)&cdat->drout_1323__PAIRLIST_TO_PROGN; + cdat->drout_1323__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1323__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:4996", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1323__PAIRLIST_TO_PROGN.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1323__PAIRLIST_TO_PROGN, meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN); + + /*iniclos dclo_1324__PAIRLIST_TO_PROGN*/ + /*_.VALCLO___V1298*/ meltfptr[1297] = (void*)&cdat->dclo_1324__PAIRLIST_TO_PROGN; + cdat->dclo_1324__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1324__PAIRLIST_TO_PROGN.nbval = 0; + + /*inirout drout_1325__LAMBDA_*/ + /*_.VALROUT___V1300*/ meltfptr[1299] = (void*)&cdat->drout_1325__LAMBDA_; + cdat->drout_1325__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1325__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5003", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1325__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1325__LAMBDA_, meltrout_104_warmelt_macro_LAMBDA_); + + /*inirout drout_1326__PAIRLIST_TO_RETURN*/ + /*_.VALROUT___V1392*/ meltfptr[1391] = (void*)&cdat->drout_1326__PAIRLIST_TO_RETURN; + cdat->drout_1326__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1326__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:5014", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1326__PAIRLIST_TO_RETURN.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1326__PAIRLIST_TO_RETURN, meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN); + + /*iniclos dclo_1327__PAIRLIST_TO_RETURN*/ + /*_.VALCLO___V1394*/ meltfptr[1393] = (void*)&cdat->dclo_1327__PAIRLIST_TO_RETURN; + cdat->dclo_1327__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1327__PAIRLIST_TO_RETURN.nbval = 0; + + /*inirout drout_1328__LAMBDA_*/ + /*_.VALROUT___V1393*/ meltfptr[1392] = (void*)&cdat->drout_1328__LAMBDA_; + cdat->drout_1328__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1328__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5019", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1328__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1328__LAMBDA_, meltrout_106_warmelt_macro_LAMBDA_); + + /*inirout drout_1329__MEXPAND_PROGN*/ + /*_.VALROUT___V1395*/ meltfptr[1394] = (void*)&cdat->drout_1329__MEXPAND_PROGN; + cdat->drout_1329__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1329__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:5027", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1329__MEXPAND_PROGN.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1329__MEXPAND_PROGN, meltrout_107_warmelt_macro_MEXPAND_PROGN); + + /*iniclos dclo_1330__MEXPAND_PROGN*/ + /*_.VALCLO___V1396*/ meltfptr[1395] = (void*)&cdat->dclo_1330__MEXPAND_PROGN; + cdat->dclo_1330__MEXPAND_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1330__MEXPAND_PROGN.nbval = 0; + + /*iniobj dsym_1331__PROGN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1397*/ meltfptr[1396]) /*_.VALDATA___V1397*/ meltfptr[1396] = (void*)&cdat->dsym_1331__PROGN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1331__PROGN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1331__PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1331__PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1331__PROGN.obj_hash = 98153540; + cdat->dsym_1331__PROGN.obj_len = 3; + + /*inistring dstr_1332__PROGN*/ + /*_.VALSTR___V1398*/ meltfptr[1397] = (void*)&cdat->dstr_1332__PROGN; + cdat->dstr_1332__PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1332__PROGN.val, "PROGN", sizeof (cdat->dstr_1332__PROGN.val)-1); + /*inirout drout_1333__MEXPAND_RETURN*/ + /*_.VALROUT___V1399*/ meltfptr[1398] = (void*)&cdat->drout_1333__MEXPAND_RETURN; + cdat->drout_1333__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1333__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:5052", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1333__MEXPAND_RETURN.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1333__MEXPAND_RETURN, meltrout_108_warmelt_macro_MEXPAND_RETURN); + + /*iniclos dclo_1334__MEXPAND_RETURN*/ + /*_.VALCLO___V1400*/ meltfptr[1399] = (void*)&cdat->dclo_1334__MEXPAND_RETURN; + cdat->dclo_1334__MEXPAND_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1334__MEXPAND_RETURN.nbval = 0; + + /*iniobj dsym_1335__RETURN*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1401*/ meltfptr[1400]) /*_.VALDATA___V1401*/ meltfptr[1400] = (void*)&cdat->dsym_1335__RETURN; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1335__RETURN", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1335__RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1335__RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1335__RETURN.obj_hash = 94541761; + cdat->dsym_1335__RETURN.obj_len = 3; + + /*inistring dstr_1336__RETURN*/ + /*_.VALSTR___V1402*/ meltfptr[1401] = (void*)&cdat->dstr_1336__RETURN; + cdat->dstr_1336__RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1336__RETURN.val, "RETURN", sizeof (cdat->dstr_1336__RETURN.val)-1); + /*inirout drout_1337__MEXPAND_FOREVER*/ + /*_.VALROUT___V1403*/ meltfptr[1402] = (void*)&cdat->drout_1337__MEXPAND_FOREVER; + cdat->drout_1337__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1337__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:5071", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1337__MEXPAND_FOREVER.nbval = 11; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1337__MEXPAND_FOREVER, meltrout_109_warmelt_macro_MEXPAND_FOREVER); + + /*iniclos dclo_1338__MEXPAND_FOREVER*/ + /*_.VALCLO___V1405*/ meltfptr[1404] = (void*)&cdat->dclo_1338__MEXPAND_FOREVER; + cdat->dclo_1338__MEXPAND_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1338__MEXPAND_FOREVER.nbval = 0; + + /*iniobj dsym_1339__CLASS_LABEL_BINDING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1406*/ meltfptr[1405]) /*_.VALDATA___V1406*/ meltfptr[1405] = (void*)&cdat->dsym_1339__CLASS_LABEL_BINDING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1339__CLASS_LABEL_BINDING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1339__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1339__CLASS_LABEL_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1339__CLASS_LABEL_BINDING.obj_hash = 513737494; + cdat->dsym_1339__CLASS_LABEL_BINDING.obj_len = 3; + + /*inistring dstr_1340__CLASS_LABEL_BIND*/ + /*_.VALSTR___V1407*/ meltfptr[1406] = (void*)&cdat->dstr_1340__CLASS_LABEL_BIND; + cdat->dstr_1340__CLASS_LABEL_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1340__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING", sizeof (cdat->dstr_1340__CLASS_LABEL_BIND.val)-1); + /*inirout drout_1341__LAMBDA_*/ + /*_.VALROUT___V1404*/ meltfptr[1403] = (void*)&cdat->drout_1341__LAMBDA_; + cdat->drout_1341__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1341__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5092", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1341__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1341__LAMBDA_, meltrout_110_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1342__FOREVER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1408*/ meltfptr[1407]) /*_.VALDATA___V1408*/ meltfptr[1407] = (void*)&cdat->dsym_1342__FOREVER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1342__FOREVER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1342__FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1342__FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1342__FOREVER.obj_hash = 118376766; + cdat->dsym_1342__FOREVER.obj_len = 3; + + /*inistring dstr_1343__FOREVER*/ + /*_.VALSTR___V1409*/ meltfptr[1408] = (void*)&cdat->dstr_1343__FOREVER; + cdat->dstr_1343__FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1343__FOREVER.val, "FOREVER", sizeof (cdat->dstr_1343__FOREVER.val)-1); + /*inirout drout_1344__MEXPAND_EXIT*/ + /*_.VALROUT___V1410*/ meltfptr[1409] = (void*)&cdat->drout_1344__MEXPAND_EXIT; + cdat->drout_1344__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1344__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:5109", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1344__MEXPAND_EXIT.nbval = 11; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1344__MEXPAND_EXIT, meltrout_111_warmelt_macro_MEXPAND_EXIT); + + /*iniclos dclo_1345__MEXPAND_EXIT*/ + /*_.VALCLO___V1412*/ meltfptr[1411] = (void*)&cdat->dclo_1345__MEXPAND_EXIT; + cdat->dclo_1345__MEXPAND_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1345__MEXPAND_EXIT.nbval = 0; + + /*inirout drout_1346__LAMBDA_*/ + /*_.VALROUT___V1411*/ meltfptr[1410] = (void*)&cdat->drout_1346__LAMBDA_; + cdat->drout_1346__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1346__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5132", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1346__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1346__LAMBDA_, meltrout_112_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1347__EXIT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1413*/ meltfptr[1412]) /*_.VALDATA___V1413*/ meltfptr[1412] = (void*)&cdat->dsym_1347__EXIT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1347__EXIT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1347__EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1347__EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1347__EXIT.obj_hash = 90311298; + cdat->dsym_1347__EXIT.obj_len = 3; + + /*inistring dstr_1348__EXIT*/ + /*_.VALSTR___V1414*/ meltfptr[1413] = (void*)&cdat->dstr_1348__EXIT; + cdat->dstr_1348__EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1348__EXIT.val, "EXIT", sizeof (cdat->dstr_1348__EXIT.val)-1); + /*inirout drout_1349__MEXPAND_COMPILE_WARNING*/ + /*_.VALROUT___V1415*/ meltfptr[1414] = (void*)&cdat->drout_1349__MEXPAND_COMPILE_WARNING; + cdat->drout_1349__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1349__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:5150", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1349__MEXPAND_COMPILE_WARNING.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1349__MEXPAND_COMPILE_WARNING, meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING); + + /*iniclos dclo_1350__MEXPAND_COMPILE_WARNING*/ + /*_.VALCLO___V1416*/ meltfptr[1415] = (void*)&cdat->dclo_1350__MEXPAND_COMPILE_WARNING; + cdat->dclo_1350__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1350__MEXPAND_COMPILE_WARNING.nbval = 0; + + /*iniobj dsym_1351__COMPILE_WARNING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1417*/ meltfptr[1416]) /*_.VALDATA___V1417*/ meltfptr[1416] = (void*)&cdat->dsym_1351__COMPILE_WARNING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1351__COMPILE_WARNING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1351__COMPILE_WARNING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1351__COMPILE_WARNING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1351__COMPILE_WARNING.obj_hash = 87862926; + cdat->dsym_1351__COMPILE_WARNING.obj_len = 3; + + /*inistring dstr_1352__COMPILE_WARNING*/ + /*_.VALSTR___V1418*/ meltfptr[1417] = (void*)&cdat->dstr_1352__COMPILE_WARNING; + cdat->dstr_1352__COMPILE_WARNING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1352__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (cdat->dstr_1352__COMPILE_WARNING.val)-1); + /*inirout drout_1353__MEXPAND_ASSERT_MSG*/ + /*_.VALROUT___V1419*/ meltfptr[1418] = (void*)&cdat->drout_1353__MEXPAND_ASSERT_MSG; + cdat->drout_1353__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1353__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:5192", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1353__MEXPAND_ASSERT_MSG.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1353__MEXPAND_ASSERT_MSG, meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG); + + /*iniclos dclo_1354__MEXPAND_ASSERT_MSG*/ + /*_.VALCLO___V1424*/ meltfptr[1423] = (void*)&cdat->dclo_1354__MEXPAND_ASSERT_MSG; + cdat->dclo_1354__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1354__MEXPAND_ASSERT_MSG.nbval = 0; + + /*iniobj dsym_1355__ASSERT_FAILED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1420*/ meltfptr[1419]) /*_.VALDATA___V1420*/ meltfptr[1419] = (void*)&cdat->dsym_1355__ASSERT_FAILED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1355__ASSERT_FAILED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1355__ASSERT_FAILED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1355__ASSERT_FAILED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1355__ASSERT_FAILED.obj_hash = 201548028; + cdat->dsym_1355__ASSERT_FAILED.obj_len = 3; + + /*inistring dstr_1356__ASSERT_FAILED*/ + /*_.VALSTR___V1421*/ meltfptr[1420] = (void*)&cdat->dstr_1356__ASSERT_FAILED; + cdat->dstr_1356__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1356__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof (cdat->dstr_1356__ASSERT_FAILED.val)-1); + /*iniobj dsym_1357__FIND_ENV_DEBUG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1425*/ meltfptr[1424]) /*_.VALDATA___V1425*/ meltfptr[1424] = (void*)&cdat->dsym_1357__FIND_ENV_DEBUG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1357__FIND_ENV_DEBUG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1357__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1357__FIND_ENV_DEBUG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1357__FIND_ENV_DEBUG.obj_hash = 670001916; + cdat->dsym_1357__FIND_ENV_DEBUG.obj_len = 3; + + /*inistring dstr_1358__FIND_ENV_DEBUG*/ + /*_.VALSTR___V1426*/ meltfptr[1425] = (void*)&cdat->dstr_1358__FIND_ENV_DEBUG; + cdat->dstr_1358__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1358__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (cdat->dstr_1358__FIND_ENV_DEBUG.val)-1); + /*iniobj dsym_1359__ENABLE_CHECKING*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1422*/ meltfptr[1421]) /*_.VALDATA___V1422*/ meltfptr[1421] = (void*)&cdat->dsym_1359__ENABLE_CHECKING; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1359__ENABLE_CHECKING", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1359__ENABLE_CHECKING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1359__ENABLE_CHECKING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1359__ENABLE_CHECKING.obj_hash = 375027773; + cdat->dsym_1359__ENABLE_CHECKING.obj_len = 3; + + /*inistring dstr_1360__ENABLE_CHECKING*/ + /*_.VALSTR___V1423*/ meltfptr[1422] = (void*)&cdat->dstr_1360__ENABLE_CHECKING; + cdat->dstr_1360__ENABLE_CHECKING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1360__ENABLE_CHECKING.val, "ENABLE_CHECKING", sizeof (cdat->dstr_1360__ENABLE_CHECKING.val)-1); + /*iniobj dsym_1361__ASSERT_MSG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1427*/ meltfptr[1426]) /*_.VALDATA___V1427*/ meltfptr[1426] = (void*)&cdat->dsym_1361__ASSERT_MSG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1361__ASSERT_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1361__ASSERT_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1361__ASSERT_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1361__ASSERT_MSG.obj_hash = 877781164; + cdat->dsym_1361__ASSERT_MSG.obj_len = 3; + + /*inistring dstr_1362__ASSERT_MSG*/ + /*_.VALSTR___V1428*/ meltfptr[1427] = (void*)&cdat->dstr_1362__ASSERT_MSG; + cdat->dstr_1362__ASSERT_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1362__ASSERT_MSG.val, "ASSERT_MSG", sizeof (cdat->dstr_1362__ASSERT_MSG.val)-1); + /*inirout drout_1363__MEXPAND_DEBUG_MSG*/ + /*_.VALROUT___V1429*/ meltfptr[1428] = (void*)&cdat->drout_1363__MEXPAND_DEBUG_MSG; + cdat->drout_1363__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1363__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.melt:5279", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1363__MEXPAND_DEBUG_MSG.nbval = 11; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1363__MEXPAND_DEBUG_MSG, meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG); + + /*iniclos dclo_1364__MEXPAND_DEBUG_MSG*/ + /*_.VALCLO___V1432*/ meltfptr[1431] = (void*)&cdat->dclo_1364__MEXPAND_DEBUG_MSG; + cdat->dclo_1364__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1364__MEXPAND_DEBUG_MSG.nbval = 0; + + /*iniobj dsym_1365__THE_MELTCALLCOUNT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1430*/ meltfptr[1429]) /*_.VALDATA___V1430*/ meltfptr[1429] = (void*)&cdat->dsym_1365__THE_MELTCALLCOUNT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1365__THE_MELTCALLCOUNT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1365__THE_MELTCALLCOUNT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1365__THE_MELTCALLCOUNT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1365__THE_MELTCALLCOUNT.obj_hash = 508915431; + cdat->dsym_1365__THE_MELTCALLCOUNT.obj_len = 3; + + /*inistring dstr_1366__THE_MELTCALLCOUN*/ + /*_.VALSTR___V1431*/ meltfptr[1430] = (void*)&cdat->dstr_1366__THE_MELTCALLCOUN; + cdat->dstr_1366__THE_MELTCALLCOUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1366__THE_MELTCALLCOUN.val, "THE_MELTCALLCOUNT", sizeof (cdat->dstr_1366__THE_MELTCALLCOUN.val)-1); + /*iniobj dsym_1367__DEBUG_MSG*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1433*/ meltfptr[1432]) /*_.VALDATA___V1433*/ meltfptr[1432] = (void*)&cdat->dsym_1367__DEBUG_MSG; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1367__DEBUG_MSG", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1367__DEBUG_MSG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1367__DEBUG_MSG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1367__DEBUG_MSG.obj_hash = 653165353; + cdat->dsym_1367__DEBUG_MSG.obj_len = 3; + + /*inistring dstr_1368__DEBUG_MSG*/ + /*_.VALSTR___V1434*/ meltfptr[1433] = (void*)&cdat->dstr_1368__DEBUG_MSG; + cdat->dstr_1368__DEBUG_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1368__DEBUG_MSG.val, "DEBUG_MSG", sizeof (cdat->dstr_1368__DEBUG_MSG.val)-1); + /*inirout drout_1369__MEXPAND_EXPORT_VALUES*/ + /*_.VALROUT___V1435*/ meltfptr[1434] = (void*)&cdat->drout_1369__MEXPAND_EXPORT_VALUES; + cdat->drout_1369__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1369__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:5340", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1369__MEXPAND_EXPORT_VALUES.nbval = 10; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1369__MEXPAND_EXPORT_VALUES, meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES); + + /*iniclos dclo_1370__MEXPAND_EXPORT_VALUES*/ + /*_.VALCLO___V1437*/ meltfptr[1436] = (void*)&cdat->dclo_1370__MEXPAND_EXPORT_VALUES; + cdat->dclo_1370__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1370__MEXPAND_EXPORT_VALUES.nbval = 0; + + /*inirout drout_1371__LAMBDA_*/ + /*_.VALROUT___V1436*/ meltfptr[1435] = (void*)&cdat->drout_1371__LAMBDA_; + cdat->drout_1371__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1371__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5350", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1371__LAMBDA_.nbval = 3; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1371__LAMBDA_, meltrout_117_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1372__EXPORT_VALUES*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1438*/ meltfptr[1437]) /*_.VALDATA___V1438*/ meltfptr[1437] = (void*)&cdat->dsym_1372__EXPORT_VALUES; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1372__EXPORT_VALUES", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1372__EXPORT_VALUES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1372__EXPORT_VALUES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1372__EXPORT_VALUES.obj_hash = 967501408; + cdat->dsym_1372__EXPORT_VALUES.obj_len = 3; + + /*inistring dstr_1373__EXPORT_VALUES*/ + /*_.VALSTR___V1439*/ meltfptr[1438] = (void*)&cdat->dstr_1373__EXPORT_VALUES; + cdat->dstr_1373__EXPORT_VALUES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1373__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (cdat->dstr_1373__EXPORT_VALUES.val)-1); + /*inirout drout_1374__MEXPAND_EXPORT_MACRO*/ + /*_.VALROUT___V1440*/ meltfptr[1439] = (void*)&cdat->drout_1374__MEXPAND_EXPORT_MACRO; + cdat->drout_1374__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1374__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:5370", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1374__MEXPAND_EXPORT_MACRO.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1374__MEXPAND_EXPORT_MACRO, meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO); + + /*iniclos dclo_1375__MEXPAND_EXPORT_MACRO*/ + /*_.VALCLO___V1441*/ meltfptr[1440] = (void*)&cdat->dclo_1375__MEXPAND_EXPORT_MACRO; + cdat->dclo_1375__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1375__MEXPAND_EXPORT_MACRO.nbval = 0; + + /*iniobj dsym_1376__EXPORT_MACRO*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1442*/ meltfptr[1441]) /*_.VALDATA___V1442*/ meltfptr[1441] = (void*)&cdat->dsym_1376__EXPORT_MACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1376__EXPORT_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1376__EXPORT_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1376__EXPORT_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1376__EXPORT_MACRO.obj_hash = 539749464; + cdat->dsym_1376__EXPORT_MACRO.obj_len = 3; + + /*inistring dstr_1377__EXPORT_MACRO*/ + /*_.VALSTR___V1443*/ meltfptr[1442] = (void*)&cdat->dstr_1377__EXPORT_MACRO; + cdat->dstr_1377__EXPORT_MACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1377__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (cdat->dstr_1377__EXPORT_MACRO.val)-1); + /*inirout drout_1378__MEXPAND_EXPORT_PATMACRO*/ + /*_.VALROUT___V1444*/ meltfptr[1443] = (void*)&cdat->drout_1378__MEXPAND_EXPORT_PATMACRO; + cdat->drout_1378__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1378__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:5411", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1378__MEXPAND_EXPORT_PATMACRO.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1378__MEXPAND_EXPORT_PATMACRO, meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO); + + /*iniclos dclo_1379__MEXPAND_EXPORT_PATMACRO*/ + /*_.VALCLO___V1445*/ meltfptr[1444] = (void*)&cdat->dclo_1379__MEXPAND_EXPORT_PATMACRO; + cdat->dclo_1379__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1379__MEXPAND_EXPORT_PATMACRO.nbval = 0; + + /*iniobj dsym_1380__EXPORT_PATMACRO*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1446*/ meltfptr[1445]) /*_.VALDATA___V1446*/ meltfptr[1445] = (void*)&cdat->dsym_1380__EXPORT_PATMACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1380__EXPORT_PATMACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1380__EXPORT_PATMACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1380__EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1380__EXPORT_PATMACRO.obj_hash = 363095059; + cdat->dsym_1380__EXPORT_PATMACRO.obj_len = 3; + + /*inistring dstr_1381__EXPORT_PATMACRO*/ + /*_.VALSTR___V1447*/ meltfptr[1446] = (void*)&cdat->dstr_1381__EXPORT_PATMACRO; + cdat->dstr_1381__EXPORT_PATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1381__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (cdat->dstr_1381__EXPORT_PATMACRO.val)-1); + /*inirout drout_1382__MEXPAND_EXPORT_CLASS*/ + /*_.VALROUT___V1448*/ meltfptr[1447] = (void*)&cdat->drout_1382__MEXPAND_EXPORT_CLASS; + cdat->drout_1382__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1382__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:5457", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1382__MEXPAND_EXPORT_CLASS.nbval = 9; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1382__MEXPAND_EXPORT_CLASS, meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS); + + /*iniclos dclo_1383__MEXPAND_EXPORT_CLASS*/ + /*_.VALCLO___V1450*/ meltfptr[1449] = (void*)&cdat->dclo_1383__MEXPAND_EXPORT_CLASS; + cdat->dclo_1383__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1383__MEXPAND_EXPORT_CLASS.nbval = 0; + + /*inirout drout_1384__LAMBDA_*/ + /*_.VALROUT___V1449*/ meltfptr[1448] = (void*)&cdat->drout_1384__LAMBDA_; + cdat->drout_1384__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1384__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5467", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1384__LAMBDA_.nbval = 2; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1384__LAMBDA_, meltrout_121_warmelt_macro_LAMBDA_); + + /*iniobj dsym_1385__EXPORT_CLASS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1451*/ meltfptr[1450]) /*_.VALDATA___V1451*/ meltfptr[1450] = (void*)&cdat->dsym_1385__EXPORT_CLASS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1385__EXPORT_CLASS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1385__EXPORT_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1385__EXPORT_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1385__EXPORT_CLASS.obj_hash = 352628427; + cdat->dsym_1385__EXPORT_CLASS.obj_len = 3; + + /*inistring dstr_1386__EXPORT_CLASS*/ + /*_.VALSTR___V1452*/ meltfptr[1451] = (void*)&cdat->dstr_1386__EXPORT_CLASS; + cdat->dstr_1386__EXPORT_CLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1386__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (cdat->dstr_1386__EXPORT_CLASS.val)-1); + /*inirout drout_1387__MEXPAND_EXPORT_SYNONYM*/ + /*_.VALROUT___V1453*/ meltfptr[1452] = (void*)&cdat->drout_1387__MEXPAND_EXPORT_SYNONYM; + cdat->drout_1387__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1387__MEXPAND_EXPORT_SYNONYM.routdescr, "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:5484", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1387__MEXPAND_EXPORT_SYNONYM.nbval = 7; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1387__MEXPAND_EXPORT_SYNONYM, meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM); + + /*iniclos dclo_1388__MEXPAND_EXPORT_SYNONYM*/ + /*_.VALCLO___V1454*/ meltfptr[1453] = (void*)&cdat->dclo_1388__MEXPAND_EXPORT_SYNONYM; + cdat->dclo_1388__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1388__MEXPAND_EXPORT_SYNONYM.nbval = 0; + + /*iniobj dsym_1389__EXPORT_SYNONYM*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1455*/ meltfptr[1454]) /*_.VALDATA___V1455*/ meltfptr[1454] = (void*)&cdat->dsym_1389__EXPORT_SYNONYM; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1389__EXPORT_SYNONYM", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1389__EXPORT_SYNONYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1389__EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1389__EXPORT_SYNONYM.obj_hash = 585099698; + cdat->dsym_1389__EXPORT_SYNONYM.obj_len = 3; + + /*inistring dstr_1390__EXPORT_SYNONYM*/ + /*_.VALSTR___V1456*/ meltfptr[1455] = (void*)&cdat->dstr_1390__EXPORT_SYNONYM; + cdat->dstr_1390__EXPORT_SYNONYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1390__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (cdat->dstr_1390__EXPORT_SYNONYM.val)-1); + /*inirout drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALROUT___V1457*/ meltfptr[1456] = (void*)&cdat->drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:5529", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); + + /*iniclos dclo_1392__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALCLO___V1458*/ meltfptr[1457] = (void*)&cdat->dclo_1392__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dclo_1392__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1392__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; + + /*iniobj dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1459*/ meltfptr[1458]) /*_.VALDATA___V1459*/ meltfptr[1458] = (void*)&cdat->dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; + cdat->dsym_1393__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; + + /*inistring dstr_1394__CURRENT_MODULE_E*/ + /*_.VALSTR___V1460*/ meltfptr[1459] = (void*)&cdat->dstr_1394__CURRENT_MODULE_E; + cdat->dstr_1394__CURRENT_MODULE_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1394__CURRENT_MODULE_E.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1394__CURRENT_MODULE_E.val)-1); + /*inirout drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALROUT___V1461*/ meltfptr[1460] = (void*)&cdat->drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT; + cdat->drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:5552", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT, meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT); + + /*iniclos dclo_1396__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ + /*_.VALCLO___V1462*/ meltfptr[1461] = (void*)&cdat->dclo_1396__MEXPAND_PARENT_MODULE_ENVIRONMENT; + cdat->dclo_1396__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1396__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; + + /*iniobj dsym_1397__PARENT_MODULE_ENVIRONMENT*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1463*/ meltfptr[1462]) /*_.VALDATA___V1463*/ meltfptr[1462] = (void*)&cdat->dsym_1397__PARENT_MODULE_ENVIRONMENT; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1397__PARENT_MODULE_ENVIRONMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1397__PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1397__PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1397__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; + cdat->dsym_1397__PARENT_MODULE_ENVIRONMENT.obj_len = 3; + + /*inistring dstr_1398__PARENT_MODULE_EN*/ + /*_.VALSTR___V1464*/ meltfptr[1463] = (void*)&cdat->dstr_1398__PARENT_MODULE_EN; + cdat->dstr_1398__PARENT_MODULE_EN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1398__PARENT_MODULE_EN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_1398__PARENT_MODULE_EN.val)-1); + /*inirout drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALROUT___V1465*/ meltfptr[1464] = (void*)&cdat->drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:5575", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); + + /*iniclos dclo_1400__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*_.VALCLO___V1466*/ meltfptr[1465] = (void*)&cdat->dclo_1400__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + cdat->dclo_1400__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1400__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; + + /*iniobj dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1467*/ meltfptr[1466]) /*_.VALDATA___V1467*/ meltfptr[1466] = (void*)&cdat->dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; + cdat->dsym_1401__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; + + /*inistring dstr_1402__UPDATE_CURRENT_M*/ + /*_.VALSTR___V1468*/ meltfptr[1467] = (void*)&cdat->dstr_1402__UPDATE_CURRENT_M; + cdat->dstr_1402__UPDATE_CURRENT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1402__UPDATE_CURRENT_M.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1402__UPDATE_CURRENT_M.val)-1); + /*inirout drout_1403__MEXPAND_FETCH_PREDEFINED*/ + /*_.VALROUT___V1469*/ meltfptr[1468] = (void*)&cdat->drout_1403__MEXPAND_FETCH_PREDEFINED; + cdat->drout_1403__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1403__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:5599", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1403__MEXPAND_FETCH_PREDEFINED.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1403__MEXPAND_FETCH_PREDEFINED, meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED); + + /*iniclos dclo_1404__MEXPAND_FETCH_PREDEFINED*/ + /*_.VALCLO___V1470*/ meltfptr[1469] = (void*)&cdat->dclo_1404__MEXPAND_FETCH_PREDEFINED; + cdat->dclo_1404__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1404__MEXPAND_FETCH_PREDEFINED.nbval = 0; + + /*iniobj dsym_1405__FETCH_PREDEFINED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1471*/ meltfptr[1470]) /*_.VALDATA___V1471*/ meltfptr[1470] = (void*)&cdat->dsym_1405__FETCH_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1405__FETCH_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1405__FETCH_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1405__FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1405__FETCH_PREDEFINED.obj_hash = 951904659; + cdat->dsym_1405__FETCH_PREDEFINED.obj_len = 3; + + /*inistring dstr_1406__FETCH_PREDEFINED*/ + /*_.VALSTR___V1472*/ meltfptr[1471] = (void*)&cdat->dstr_1406__FETCH_PREDEFINED; + cdat->dstr_1406__FETCH_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1406__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (cdat->dstr_1406__FETCH_PREDEFINED.val)-1); + /*inirout drout_1407__MEXPAND_STORE_PREDEFINED*/ + /*_.VALROUT___V1473*/ meltfptr[1472] = (void*)&cdat->drout_1407__MEXPAND_STORE_PREDEFINED; + cdat->drout_1407__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE)))); + strncpy (cdat->drout_1407__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:5625", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1407__MEXPAND_STORE_PREDEFINED.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1407__MEXPAND_STORE_PREDEFINED, meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED); + + /*iniclos dclo_1408__MEXPAND_STORE_PREDEFINED*/ + /*_.VALCLO___V1474*/ meltfptr[1473] = (void*)&cdat->dclo_1408__MEXPAND_STORE_PREDEFINED; + cdat->dclo_1408__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))); + cdat->dclo_1408__MEXPAND_STORE_PREDEFINED.nbval = 0; + + /*iniobj dsym_1409__STORE_PREDEFINED*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1475*/ meltfptr[1474]) /*_.VALDATA___V1475*/ meltfptr[1474] = (void*)&cdat->dsym_1409__STORE_PREDEFINED; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1409__STORE_PREDEFINED", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1409__STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1409__STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1409__STORE_PREDEFINED.obj_hash = 8509317; + cdat->dsym_1409__STORE_PREDEFINED.obj_len = 3; + + /*inistring dstr_1410__STORE_PREDEFINED*/ + /*_.VALSTR___V1476*/ meltfptr[1475] = (void*)&cdat->dstr_1410__STORE_PREDEFINED; + cdat->dstr_1410__STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1410__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (cdat->dstr_1410__STORE_PREDEFINED.val)-1); + /*iniobj dsym_1411__EXPAND_APPLY*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1477*/ meltfptr[1476]) /*_.VALDATA___V1477*/ meltfptr[1476] = (void*)&cdat->dsym_1411__EXPAND_APPLY; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1411__EXPAND_APPLY", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1411__EXPAND_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1411__EXPAND_APPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1411__EXPAND_APPLY.obj_hash = 57901779; + cdat->dsym_1411__EXPAND_APPLY.obj_len = 3; + + /*inistring dstr_1412__EXPAND_APPLY*/ + /*_.VALSTR___V1478*/ meltfptr[1477] = (void*)&cdat->dstr_1412__EXPAND_APPLY; + cdat->dstr_1412__EXPAND_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1412__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (cdat->dstr_1412__EXPAND_APPLY.val)-1); + /*iniobj dsym_1413__EXPAND_MSEND*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1479*/ meltfptr[1478]) /*_.VALDATA___V1479*/ meltfptr[1478] = (void*)&cdat->dsym_1413__EXPAND_MSEND; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1413__EXPAND_MSEND", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1413__EXPAND_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1413__EXPAND_MSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1413__EXPAND_MSEND.obj_hash = 624621035; + cdat->dsym_1413__EXPAND_MSEND.obj_len = 3; + + /*inistring dstr_1414__EXPAND_MSEND*/ + /*_.VALSTR___V1480*/ meltfptr[1479] = (void*)&cdat->dstr_1414__EXPAND_MSEND; + cdat->dstr_1414__EXPAND_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1414__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (cdat->dstr_1414__EXPAND_MSEND.val)-1); + /*iniobj dsym_1415__EXPAND_PAIRLIST_AS_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1481*/ meltfptr[1480]) /*_.VALDATA___V1481*/ meltfptr[1480] = (void*)&cdat->dsym_1415__EXPAND_PAIRLIST_AS_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1415__EXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1415__EXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1415__EXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1415__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; + cdat->dsym_1415__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; + + /*inistring dstr_1416__EXPAND_PAIRLIST_*/ + /*_.VALSTR___V1482*/ meltfptr[1481] = (void*)&cdat->dstr_1416__EXPAND_PAIRLIST_; + cdat->dstr_1416__EXPAND_PAIRLIST_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1416__EXPAND_PAIRLIST_.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1416__EXPAND_PAIRLIST_.val)-1); + /*iniobj dsym_1417__EXPAND_PRIMITIVE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1483*/ meltfptr[1482]) /*_.VALDATA___V1483*/ meltfptr[1482] = (void*)&cdat->dsym_1417__EXPAND_PRIMITIVE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1417__EXPAND_PRIMITIVE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1417__EXPAND_PRIMITIVE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1417__EXPAND_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1417__EXPAND_PRIMITIVE.obj_hash = 489692488; + cdat->dsym_1417__EXPAND_PRIMITIVE.obj_len = 3; + + /*inistring dstr_1418__EXPAND_PRIMITIVE*/ + /*_.VALSTR___V1484*/ meltfptr[1483] = (void*)&cdat->dstr_1418__EXPAND_PRIMITIVE; + cdat->dstr_1418__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1418__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (cdat->dstr_1418__EXPAND_PRIMITIVE.val)-1); + /*iniobj dsym_1419__INSTALL_INITIAL_MACRO*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1485*/ meltfptr[1484]) /*_.VALDATA___V1485*/ meltfptr[1484] = (void*)&cdat->dsym_1419__INSTALL_INITIAL_MACRO; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1419__INSTALL_INITIAL_MACRO", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1419__INSTALL_INITIAL_MACRO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1419__INSTALL_INITIAL_MACRO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1419__INSTALL_INITIAL_MACRO.obj_hash = 101362976; + cdat->dsym_1419__INSTALL_INITIAL_MACRO.obj_len = 3; + + /*inistring dstr_1420__INSTALL_INITIAL_*/ + /*_.VALSTR___V1486*/ meltfptr[1485] = (void*)&cdat->dstr_1420__INSTALL_INITIAL_; + cdat->dstr_1420__INSTALL_INITIAL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1420__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO", sizeof (cdat->dstr_1420__INSTALL_INITIAL_.val)-1); + /*iniobj dsym_1421__LAMBDA_ARG_BINDINGS*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1487*/ meltfptr[1486]) /*_.VALDATA___V1487*/ meltfptr[1486] = (void*)&cdat->dsym_1421__LAMBDA_ARG_BINDINGS; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1421__LAMBDA_ARG_BINDINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1421__LAMBDA_ARG_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1421__LAMBDA_ARG_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1421__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; + cdat->dsym_1421__LAMBDA_ARG_BINDINGS.obj_len = 3; + + /*inistring dstr_1422__LAMBDA_ARG_BINDI*/ + /*_.VALSTR___V1488*/ meltfptr[1487] = (void*)&cdat->dstr_1422__LAMBDA_ARG_BINDI; + cdat->dstr_1422__LAMBDA_ARG_BINDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1422__LAMBDA_ARG_BINDI.val, "LAMBDA_ARG_BINDINGS", sizeof (cdat->dstr_1422__LAMBDA_ARG_BINDI.val)-1); + /*iniobj dsym_1423__MACROEXPAND_1*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1489*/ meltfptr[1488]) /*_.VALDATA___V1489*/ meltfptr[1488] = (void*)&cdat->dsym_1423__MACROEXPAND_1; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1423__MACROEXPAND_1", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1423__MACROEXPAND_1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1423__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1423__MACROEXPAND_1.obj_hash = 858793911; + cdat->dsym_1423__MACROEXPAND_1.obj_len = 3; + + /*inistring dstr_1424__MACROEXPAND_1*/ + /*_.VALSTR___V1490*/ meltfptr[1489] = (void*)&cdat->dstr_1424__MACROEXPAND_1; + cdat->dstr_1424__MACROEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1424__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (cdat->dstr_1424__MACROEXPAND_1.val)-1); + /*iniobj dsym_1425__MACROEXPAND_TOPLEVEL_LIST*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1491*/ meltfptr[1490]) /*_.VALDATA___V1491*/ meltfptr[1490] = (void*)&cdat->dsym_1425__MACROEXPAND_TOPLEVEL_LIST; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1425__MACROEXPAND_TOPLEVEL_LIST", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1425__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1425__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1425__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; + cdat->dsym_1425__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; + + /*inistring dstr_1426__MACROEXPAND_TOPL*/ + /*_.VALSTR___V1492*/ meltfptr[1491] = (void*)&cdat->dstr_1426__MACROEXPAND_TOPL; + cdat->dstr_1426__MACROEXPAND_TOPL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1426__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (cdat->dstr_1426__MACROEXPAND_TOPL.val)-1); + /*iniobj dsym_1427__PATTERNEXPAND_1*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1493*/ meltfptr[1492]) /*_.VALDATA___V1493*/ meltfptr[1492] = (void*)&cdat->dsym_1427__PATTERNEXPAND_1; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1427__PATTERNEXPAND_1", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1427__PATTERNEXPAND_1", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1427__PATTERNEXPAND_1.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1427__PATTERNEXPAND_1.obj_hash = 263501284; + cdat->dsym_1427__PATTERNEXPAND_1.obj_len = 3; + + /*inistring dstr_1428__PATTERNEXPAND_1*/ + /*_.VALSTR___V1494*/ meltfptr[1493] = (void*)&cdat->dstr_1428__PATTERNEXPAND_1; + cdat->dstr_1428__PATTERNEXPAND_1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1428__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (cdat->dstr_1428__PATTERNEXPAND_1.val)-1); + /*iniobj dsym_1429__PATTERNEXPAND_EXPR*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1495*/ meltfptr[1494]) /*_.VALDATA___V1495*/ meltfptr[1494] = (void*)&cdat->dsym_1429__PATTERNEXPAND_EXPR; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1429__PATTERNEXPAND_EXPR", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1429__PATTERNEXPAND_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1429__PATTERNEXPAND_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1429__PATTERNEXPAND_EXPR.obj_hash = 842722016; + cdat->dsym_1429__PATTERNEXPAND_EXPR.obj_len = 3; + + /*inistring dstr_1430__PATTERNEXPAND_EX*/ + /*_.VALSTR___V1496*/ meltfptr[1495] = (void*)&cdat->dstr_1430__PATTERNEXPAND_EX; + cdat->dstr_1430__PATTERNEXPAND_EX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1430__PATTERNEXPAND_EX.val, "PATTERNEXPAND_EXPR", sizeof (cdat->dstr_1430__PATTERNEXPAND_EX.val)-1); + /*iniobj dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1497*/ meltfptr[1496]) /*_.VALDATA___V1497*/ meltfptr[1496] = (void*)&cdat->dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; + cdat->dsym_1431__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; + + /*inistring dstr_1432__PATTERNEXPAND_PA*/ + /*_.VALSTR___V1498*/ meltfptr[1497] = (void*)&cdat->dstr_1432__PATTERNEXPAND_PA; + cdat->dstr_1432__PATTERNEXPAND_PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1432__PATTERNEXPAND_PA.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1432__PATTERNEXPAND_PA.val)-1); + /*iniobj dsym_1433__PATTERN_WEIGHT_TUPLE*/ +/*uniqueobj*/ if (!/*_.VALDATA___V1499*/ meltfptr[1498]) /*_.VALDATA___V1499*/ meltfptr[1498] = (void*)&cdat->dsym_1433__PATTERN_WEIGHT_TUPLE; + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1433__PATTERN_WEIGHT_TUPLE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_SYMBOL)))) == MELTOBMAG_OBJECT); + if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1433__PATTERN_WEIGHT_TUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1433__PATTERN_WEIGHT_TUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))); + cdat->dsym_1433__PATTERN_WEIGHT_TUPLE.obj_hash = 239554717; + cdat->dsym_1433__PATTERN_WEIGHT_TUPLE.obj_len = 3; + + /*inistring dstr_1434__PATTERN_WEIGHT_T*/ + /*_.VALSTR___V1500*/ meltfptr[1499] = (void*)&cdat->dstr_1434__PATTERN_WEIGHT_T; + cdat->dstr_1434__PATTERN_WEIGHT_T.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING)))); + /*small inistring*/ strncpy(cdat->dstr_1434__PATTERN_WEIGHT_T.val, "PATTERN_WEIGHT_TUPLE", sizeof (cdat->dstr_1434__PATTERN_WEIGHT_T.val)-1); cdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ @@ -12594,12 +12361,12 @@ void* start_module_melt(void* modargp_) { initial_frame_st meltfram__; #define meltframe meltfram__ memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 1650; + meltfram__.mcfr_nbvar = 1616; meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2584; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2455; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_macro; /**COMMENT: get previous environment **/; @@ -12760,2249 +12527,2200 @@ initial_frame_st meltfram__; /*^getnamedsymbol*/ - /*getnamedsym:CLASS_SOURCE_VARIADIC_APPLICATION*/ - { melt_ptr_t sy_CLASS_SOURCE_VARIADIC_APPLICATION = meltgc_named_symbol("CLASS_SOURCE_VARIADIC_APPLICATION", MELT_GET); - if (sy_CLASS_SOURCE_VARIADIC_APPLICATION && NULL == /*_.VALDATA___V137*/ meltfptr[136]) - /*_.VALDATA___V137*/ meltfptr[136] = (void*) sy_CLASS_SOURCE_VARIADIC_APPLICATION; } - - /*^getnamedsymbol*/ - - /*getnamedsym:SVARI_OPER*/ - { melt_ptr_t sy_SVARI_OPER = meltgc_named_symbol("SVARI_OPER", MELT_GET); - if (sy_SVARI_OPER && NULL == /*_.VALDATA___V145*/ meltfptr[144]) - /*_.VALDATA___V145*/ meltfptr[144] = (void*) sy_SVARI_OPER; } - - /*^getnamedsymbol*/ - /*getnamedsym:CLASS_SOURCE_CITERATION*/ { melt_ptr_t sy_CLASS_SOURCE_CITERATION = meltgc_named_symbol("CLASS_SOURCE_CITERATION", MELT_GET); - if (sy_CLASS_SOURCE_CITERATION && NULL == /*_.VALDATA___V147*/ meltfptr[146]) - /*_.VALDATA___V147*/ meltfptr[146] = (void*) sy_CLASS_SOURCE_CITERATION; } + if (sy_CLASS_SOURCE_CITERATION && NULL == /*_.VALDATA___V137*/ meltfptr[136]) + /*_.VALDATA___V137*/ meltfptr[136] = (void*) sy_CLASS_SOURCE_CITERATION; } /*^getnamedsymbol*/ /*getnamedsym:SCITER_OPER*/ { melt_ptr_t sy_SCITER_OPER = meltgc_named_symbol("SCITER_OPER", MELT_GET); - if (sy_SCITER_OPER && NULL == /*_.VALDATA___V159*/ meltfptr[158]) - /*_.VALDATA___V159*/ meltfptr[158] = (void*) sy_SCITER_OPER; } + if (sy_SCITER_OPER && NULL == /*_.VALDATA___V149*/ meltfptr[148]) + /*_.VALDATA___V149*/ meltfptr[148] = (void*) sy_SCITER_OPER; } /*^getnamedsymbol*/ /*getnamedsym:SCITER_VARBIND*/ { melt_ptr_t sy_SCITER_VARBIND = meltgc_named_symbol("SCITER_VARBIND", MELT_GET); - if (sy_SCITER_VARBIND && NULL == /*_.VALDATA___V161*/ meltfptr[160]) - /*_.VALDATA___V161*/ meltfptr[160] = (void*) sy_SCITER_VARBIND; } + if (sy_SCITER_VARBIND && NULL == /*_.VALDATA___V151*/ meltfptr[150]) + /*_.VALDATA___V151*/ meltfptr[150] = (void*) sy_SCITER_VARBIND; } /*^getnamedsymbol*/ /*getnamedsym:SCITER_BODY*/ { melt_ptr_t sy_SCITER_BODY = meltgc_named_symbol("SCITER_BODY", MELT_GET); - if (sy_SCITER_BODY && NULL == /*_.VALDATA___V163*/ meltfptr[162]) - /*_.VALDATA___V163*/ meltfptr[162] = (void*) sy_SCITER_BODY; } + if (sy_SCITER_BODY && NULL == /*_.VALDATA___V153*/ meltfptr[152]) + /*_.VALDATA___V153*/ meltfptr[152] = (void*) sy_SCITER_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CMATCHEXPR*/ { melt_ptr_t sy_CLASS_SOURCE_CMATCHEXPR = meltgc_named_symbol("CLASS_SOURCE_CMATCHEXPR", MELT_GET); - if (sy_CLASS_SOURCE_CMATCHEXPR && NULL == /*_.VALDATA___V165*/ meltfptr[164]) - /*_.VALDATA___V165*/ meltfptr[164] = (void*) sy_CLASS_SOURCE_CMATCHEXPR; } + if (sy_CLASS_SOURCE_CMATCHEXPR && NULL == /*_.VALDATA___V155*/ meltfptr[154]) + /*_.VALDATA___V155*/ meltfptr[154] = (void*) sy_CLASS_SOURCE_CMATCHEXPR; } /*^getnamedsymbol*/ /*getnamedsym:SCMATX_CMATCHER*/ { melt_ptr_t sy_SCMATX_CMATCHER = meltgc_named_symbol("SCMATX_CMATCHER", MELT_GET); - if (sy_SCMATX_CMATCHER && NULL == /*_.VALDATA___V173*/ meltfptr[172]) - /*_.VALDATA___V173*/ meltfptr[172] = (void*) sy_SCMATX_CMATCHER; } + if (sy_SCMATX_CMATCHER && NULL == /*_.VALDATA___V163*/ meltfptr[162]) + /*_.VALDATA___V163*/ meltfptr[162] = (void*) sy_SCMATX_CMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FUNMATCHEXPR*/ { melt_ptr_t sy_CLASS_SOURCE_FUNMATCHEXPR = meltgc_named_symbol("CLASS_SOURCE_FUNMATCHEXPR", MELT_GET); - if (sy_CLASS_SOURCE_FUNMATCHEXPR && NULL == /*_.VALDATA___V175*/ meltfptr[174]) - /*_.VALDATA___V175*/ meltfptr[174] = (void*) sy_CLASS_SOURCE_FUNMATCHEXPR; } + if (sy_CLASS_SOURCE_FUNMATCHEXPR && NULL == /*_.VALDATA___V165*/ meltfptr[164]) + /*_.VALDATA___V165*/ meltfptr[164] = (void*) sy_CLASS_SOURCE_FUNMATCHEXPR; } /*^getnamedsymbol*/ /*getnamedsym:SFMATX_FMATCHER*/ { melt_ptr_t sy_SFMATX_FMATCHER = meltgc_named_symbol("SFMATX_FMATCHER", MELT_GET); - if (sy_SFMATX_FMATCHER && NULL == /*_.VALDATA___V185*/ meltfptr[184]) - /*_.VALDATA___V185*/ meltfptr[184] = (void*) sy_SFMATX_FMATCHER; } + if (sy_SFMATX_FMATCHER && NULL == /*_.VALDATA___V175*/ meltfptr[174]) + /*_.VALDATA___V175*/ meltfptr[174] = (void*) sy_SFMATX_FMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:SFMATX_FMATBIND*/ { melt_ptr_t sy_SFMATX_FMATBIND = meltgc_named_symbol("SFMATX_FMATBIND", MELT_GET); - if (sy_SFMATX_FMATBIND && NULL == /*_.VALDATA___V187*/ meltfptr[186]) - /*_.VALDATA___V187*/ meltfptr[186] = (void*) sy_SFMATX_FMATBIND; } + if (sy_SFMATX_FMATBIND && NULL == /*_.VALDATA___V177*/ meltfptr[176]) + /*_.VALDATA___V177*/ meltfptr[176] = (void*) sy_SFMATX_FMATBIND; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_TUPLE*/ { melt_ptr_t sy_CLASS_SOURCE_TUPLE = meltgc_named_symbol("CLASS_SOURCE_TUPLE", MELT_GET); - if (sy_CLASS_SOURCE_TUPLE && NULL == /*_.VALDATA___V189*/ meltfptr[188]) - /*_.VALDATA___V189*/ meltfptr[188] = (void*) sy_CLASS_SOURCE_TUPLE; } + if (sy_CLASS_SOURCE_TUPLE && NULL == /*_.VALDATA___V179*/ meltfptr[178]) + /*_.VALDATA___V179*/ meltfptr[178] = (void*) sy_CLASS_SOURCE_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LIST*/ { melt_ptr_t sy_CLASS_SOURCE_LIST = meltgc_named_symbol("CLASS_SOURCE_LIST", MELT_GET); - if (sy_CLASS_SOURCE_LIST && NULL == /*_.VALDATA___V195*/ meltfptr[194]) - /*_.VALDATA___V195*/ meltfptr[194] = (void*) sy_CLASS_SOURCE_LIST; } + if (sy_CLASS_SOURCE_LIST && NULL == /*_.VALDATA___V185*/ meltfptr[184]) + /*_.VALDATA___V185*/ meltfptr[184] = (void*) sy_CLASS_SOURCE_LIST; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PROGN*/ { melt_ptr_t sy_CLASS_SOURCE_PROGN = meltgc_named_symbol("CLASS_SOURCE_PROGN", MELT_GET); - if (sy_CLASS_SOURCE_PROGN && NULL == /*_.VALDATA___V201*/ meltfptr[200]) - /*_.VALDATA___V201*/ meltfptr[200] = (void*) sy_CLASS_SOURCE_PROGN; } + if (sy_CLASS_SOURCE_PROGN && NULL == /*_.VALDATA___V191*/ meltfptr[190]) + /*_.VALDATA___V191*/ meltfptr[190] = (void*) sy_CLASS_SOURCE_PROGN; } /*^getnamedsymbol*/ /*getnamedsym:SPROGN_BODY*/ { melt_ptr_t sy_SPROGN_BODY = meltgc_named_symbol("SPROGN_BODY", MELT_GET); - if (sy_SPROGN_BODY && NULL == /*_.VALDATA___V209*/ meltfptr[208]) - /*_.VALDATA___V209*/ meltfptr[208] = (void*) sy_SPROGN_BODY; } + if (sy_SPROGN_BODY && NULL == /*_.VALDATA___V199*/ meltfptr[198]) + /*_.VALDATA___V199*/ meltfptr[198] = (void*) sy_SPROGN_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_RETURN*/ { melt_ptr_t sy_CLASS_SOURCE_RETURN = meltgc_named_symbol("CLASS_SOURCE_RETURN", MELT_GET); - if (sy_CLASS_SOURCE_RETURN && NULL == /*_.VALDATA___V211*/ meltfptr[210]) - /*_.VALDATA___V211*/ meltfptr[210] = (void*) sy_CLASS_SOURCE_RETURN; } + if (sy_CLASS_SOURCE_RETURN && NULL == /*_.VALDATA___V201*/ meltfptr[200]) + /*_.VALDATA___V201*/ meltfptr[200] = (void*) sy_CLASS_SOURCE_RETURN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_SETQ*/ { melt_ptr_t sy_CLASS_SOURCE_SETQ = meltgc_named_symbol("CLASS_SOURCE_SETQ", MELT_GET); - if (sy_CLASS_SOURCE_SETQ && NULL == /*_.VALDATA___V217*/ meltfptr[216]) - /*_.VALDATA___V217*/ meltfptr[216] = (void*) sy_CLASS_SOURCE_SETQ; } + if (sy_CLASS_SOURCE_SETQ && NULL == /*_.VALDATA___V207*/ meltfptr[206]) + /*_.VALDATA___V207*/ meltfptr[206] = (void*) sy_CLASS_SOURCE_SETQ; } /*^getnamedsymbol*/ /*getnamedsym:SSTQ_VAR*/ { melt_ptr_t sy_SSTQ_VAR = meltgc_named_symbol("SSTQ_VAR", MELT_GET); - if (sy_SSTQ_VAR && NULL == /*_.VALDATA___V227*/ meltfptr[226]) - /*_.VALDATA___V227*/ meltfptr[226] = (void*) sy_SSTQ_VAR; } + if (sy_SSTQ_VAR && NULL == /*_.VALDATA___V217*/ meltfptr[216]) + /*_.VALDATA___V217*/ meltfptr[216] = (void*) sy_SSTQ_VAR; } /*^getnamedsymbol*/ /*getnamedsym:SSTQ_EXPR*/ { melt_ptr_t sy_SSTQ_EXPR = meltgc_named_symbol("SSTQ_EXPR", MELT_GET); - if (sy_SSTQ_EXPR && NULL == /*_.VALDATA___V229*/ meltfptr[228]) - /*_.VALDATA___V229*/ meltfptr[228] = (void*) sy_SSTQ_EXPR; } + if (sy_SSTQ_EXPR && NULL == /*_.VALDATA___V219*/ meltfptr[218]) + /*_.VALDATA___V219*/ meltfptr[218] = (void*) sy_SSTQ_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMMENT*/ { melt_ptr_t sy_CLASS_SOURCE_COMMENT = meltgc_named_symbol("CLASS_SOURCE_COMMENT", MELT_GET); - if (sy_CLASS_SOURCE_COMMENT && NULL == /*_.VALDATA___V231*/ meltfptr[230]) - /*_.VALDATA___V231*/ meltfptr[230] = (void*) sy_CLASS_SOURCE_COMMENT; } + if (sy_CLASS_SOURCE_COMMENT && NULL == /*_.VALDATA___V221*/ meltfptr[220]) + /*_.VALDATA___V221*/ meltfptr[220] = (void*) sy_CLASS_SOURCE_COMMENT; } /*^getnamedsymbol*/ /*getnamedsym:SCOMM_STR*/ { melt_ptr_t sy_SCOMM_STR = meltgc_named_symbol("SCOMM_STR", MELT_GET); - if (sy_SCOMM_STR && NULL == /*_.VALDATA___V239*/ meltfptr[238]) - /*_.VALDATA___V239*/ meltfptr[238] = (void*) sy_SCOMM_STR; } + if (sy_SCOMM_STR && NULL == /*_.VALDATA___V229*/ meltfptr[228]) + /*_.VALDATA___V229*/ meltfptr[228] = (void*) sy_SCOMM_STR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_QUOTE*/ { melt_ptr_t sy_CLASS_SOURCE_QUOTE = meltgc_named_symbol("CLASS_SOURCE_QUOTE", MELT_GET); - if (sy_CLASS_SOURCE_QUOTE && NULL == /*_.VALDATA___V241*/ meltfptr[240]) - /*_.VALDATA___V241*/ meltfptr[240] = (void*) sy_CLASS_SOURCE_QUOTE; } + if (sy_CLASS_SOURCE_QUOTE && NULL == /*_.VALDATA___V231*/ meltfptr[230]) + /*_.VALDATA___V231*/ meltfptr[230] = (void*) sy_CLASS_SOURCE_QUOTE; } /*^getnamedsymbol*/ /*getnamedsym:SQUOTED*/ { melt_ptr_t sy_SQUOTED = meltgc_named_symbol("SQUOTED", MELT_GET); - if (sy_SQUOTED && NULL == /*_.VALDATA___V249*/ meltfptr[248]) - /*_.VALDATA___V249*/ meltfptr[248] = (void*) sy_SQUOTED; } + if (sy_SQUOTED && NULL == /*_.VALDATA___V239*/ meltfptr[238]) + /*_.VALDATA___V239*/ meltfptr[238] = (void*) sy_SQUOTED; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORTCOMMON*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORTCOMMON = meltgc_named_symbol("CLASS_SOURCE_EXPORTCOMMON", MELT_GET); - if (sy_CLASS_SOURCE_EXPORTCOMMON && NULL == /*_.VALDATA___V251*/ meltfptr[250]) - /*_.VALDATA___V251*/ meltfptr[250] = (void*) sy_CLASS_SOURCE_EXPORTCOMMON; } + if (sy_CLASS_SOURCE_EXPORTCOMMON && NULL == /*_.VALDATA___V241*/ meltfptr[240]) + /*_.VALDATA___V241*/ meltfptr[240] = (void*) sy_CLASS_SOURCE_EXPORTCOMMON; } /*^getnamedsymbol*/ /*getnamedsym:SEXPORT_NAMES*/ { melt_ptr_t sy_SEXPORT_NAMES = meltgc_named_symbol("SEXPORT_NAMES", MELT_GET); - if (sy_SEXPORT_NAMES && NULL == /*_.VALDATA___V259*/ meltfptr[258]) - /*_.VALDATA___V259*/ meltfptr[258] = (void*) sy_SEXPORT_NAMES; } + if (sy_SEXPORT_NAMES && NULL == /*_.VALDATA___V249*/ meltfptr[248]) + /*_.VALDATA___V249*/ meltfptr[248] = (void*) sy_SEXPORT_NAMES; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_VALUES*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_VALUES = meltgc_named_symbol("CLASS_SOURCE_EXPORT_VALUES", MELT_GET); - if (sy_CLASS_SOURCE_EXPORT_VALUES && NULL == /*_.VALDATA___V261*/ meltfptr[260]) - /*_.VALDATA___V261*/ meltfptr[260] = (void*) sy_CLASS_SOURCE_EXPORT_VALUES; } + if (sy_CLASS_SOURCE_EXPORT_VALUES && NULL == /*_.VALDATA___V251*/ meltfptr[250]) + /*_.VALDATA___V251*/ meltfptr[250] = (void*) sy_CLASS_SOURCE_EXPORT_VALUES; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_CLASS*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_CLASS = meltgc_named_symbol("CLASS_SOURCE_EXPORT_CLASS", MELT_GET); - if (sy_CLASS_SOURCE_EXPORT_CLASS && NULL == /*_.VALDATA___V267*/ meltfptr[266]) - /*_.VALDATA___V267*/ meltfptr[266] = (void*) sy_CLASS_SOURCE_EXPORT_CLASS; } + if (sy_CLASS_SOURCE_EXPORT_CLASS && NULL == /*_.VALDATA___V257*/ meltfptr[256]) + /*_.VALDATA___V257*/ meltfptr[256] = (void*) sy_CLASS_SOURCE_EXPORT_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_MACRO*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_MACRO = meltgc_named_symbol("CLASS_SOURCE_EXPORT_MACRO", MELT_GET); - if (sy_CLASS_SOURCE_EXPORT_MACRO && NULL == /*_.VALDATA___V273*/ meltfptr[272]) - /*_.VALDATA___V273*/ meltfptr[272] = (void*) sy_CLASS_SOURCE_EXPORT_MACRO; } + if (sy_CLASS_SOURCE_EXPORT_MACRO && NULL == /*_.VALDATA___V263*/ meltfptr[262]) + /*_.VALDATA___V263*/ meltfptr[262] = (void*) sy_CLASS_SOURCE_EXPORT_MACRO; } /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_MNAME*/ { melt_ptr_t sy_SEXPMAC_MNAME = meltgc_named_symbol("SEXPMAC_MNAME", MELT_GET); - if (sy_SEXPMAC_MNAME && NULL == /*_.VALDATA___V285*/ meltfptr[284]) - /*_.VALDATA___V285*/ meltfptr[284] = (void*) sy_SEXPMAC_MNAME; } + if (sy_SEXPMAC_MNAME && NULL == /*_.VALDATA___V275*/ meltfptr[274]) + /*_.VALDATA___V275*/ meltfptr[274] = (void*) sy_SEXPMAC_MNAME; } /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_MVAL*/ { melt_ptr_t sy_SEXPMAC_MVAL = meltgc_named_symbol("SEXPMAC_MVAL", MELT_GET); - if (sy_SEXPMAC_MVAL && NULL == /*_.VALDATA___V287*/ meltfptr[286]) - /*_.VALDATA___V287*/ meltfptr[286] = (void*) sy_SEXPMAC_MVAL; } + if (sy_SEXPMAC_MVAL && NULL == /*_.VALDATA___V277*/ meltfptr[276]) + /*_.VALDATA___V277*/ meltfptr[276] = (void*) sy_SEXPMAC_MVAL; } /*^getnamedsymbol*/ /*getnamedsym:SEXPMAC_DOC*/ { melt_ptr_t sy_SEXPMAC_DOC = meltgc_named_symbol("SEXPMAC_DOC", MELT_GET); - if (sy_SEXPMAC_DOC && NULL == /*_.VALDATA___V289*/ meltfptr[288]) - /*_.VALDATA___V289*/ meltfptr[288] = (void*) sy_SEXPMAC_DOC; } + if (sy_SEXPMAC_DOC && NULL == /*_.VALDATA___V279*/ meltfptr[278]) + /*_.VALDATA___V279*/ meltfptr[278] = (void*) sy_SEXPMAC_DOC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_PATMACRO*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_PATMACRO = meltgc_named_symbol("CLASS_SOURCE_EXPORT_PATMACRO", MELT_GET); - if (sy_CLASS_SOURCE_EXPORT_PATMACRO && NULL == /*_.VALDATA___V291*/ meltfptr[290]) - /*_.VALDATA___V291*/ meltfptr[290] = (void*) sy_CLASS_SOURCE_EXPORT_PATMACRO; } + if (sy_CLASS_SOURCE_EXPORT_PATMACRO && NULL == /*_.VALDATA___V281*/ meltfptr[280]) + /*_.VALDATA___V281*/ meltfptr[280] = (void*) sy_CLASS_SOURCE_EXPORT_PATMACRO; } /*^getnamedsymbol*/ /*getnamedsym:SEXPPAT_PVAL*/ { melt_ptr_t sy_SEXPPAT_PVAL = meltgc_named_symbol("SEXPPAT_PVAL", MELT_GET); - if (sy_SEXPPAT_PVAL && NULL == /*_.VALDATA___V299*/ meltfptr[298]) - /*_.VALDATA___V299*/ meltfptr[298] = (void*) sy_SEXPPAT_PVAL; } + if (sy_SEXPPAT_PVAL && NULL == /*_.VALDATA___V289*/ meltfptr[288]) + /*_.VALDATA___V289*/ meltfptr[288] = (void*) sy_SEXPPAT_PVAL; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXPORT_SYNONYM*/ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_SYNONYM = meltgc_named_symbol("CLASS_SOURCE_EXPORT_SYNONYM", MELT_GET); - if (sy_CLASS_SOURCE_EXPORT_SYNONYM && NULL == /*_.VALDATA___V301*/ meltfptr[300]) - /*_.VALDATA___V301*/ meltfptr[300] = (void*) sy_CLASS_SOURCE_EXPORT_SYNONYM; } + if (sy_CLASS_SOURCE_EXPORT_SYNONYM && NULL == /*_.VALDATA___V291*/ meltfptr[290]) + /*_.VALDATA___V291*/ meltfptr[290] = (void*) sy_CLASS_SOURCE_EXPORT_SYNONYM; } /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_NEWNAME*/ { melt_ptr_t sy_SEXPSYN_NEWNAME = meltgc_named_symbol("SEXPSYN_NEWNAME", MELT_GET); - if (sy_SEXPSYN_NEWNAME && NULL == /*_.VALDATA___V313*/ meltfptr[312]) - /*_.VALDATA___V313*/ meltfptr[312] = (void*) sy_SEXPSYN_NEWNAME; } + if (sy_SEXPSYN_NEWNAME && NULL == /*_.VALDATA___V303*/ meltfptr[302]) + /*_.VALDATA___V303*/ meltfptr[302] = (void*) sy_SEXPSYN_NEWNAME; } /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_OLDNAME*/ { melt_ptr_t sy_SEXPSYN_OLDNAME = meltgc_named_symbol("SEXPSYN_OLDNAME", MELT_GET); - if (sy_SEXPSYN_OLDNAME && NULL == /*_.VALDATA___V315*/ meltfptr[314]) - /*_.VALDATA___V315*/ meltfptr[314] = (void*) sy_SEXPSYN_OLDNAME; } + if (sy_SEXPSYN_OLDNAME && NULL == /*_.VALDATA___V305*/ meltfptr[304]) + /*_.VALDATA___V305*/ meltfptr[304] = (void*) sy_SEXPSYN_OLDNAME; } /*^getnamedsymbol*/ /*getnamedsym:SEXPSYN_DOC*/ { melt_ptr_t sy_SEXPSYN_DOC = meltgc_named_symbol("SEXPSYN_DOC", MELT_GET); - if (sy_SEXPSYN_DOC && NULL == /*_.VALDATA___V317*/ meltfptr[316]) - /*_.VALDATA___V317*/ meltfptr[316] = (void*) sy_SEXPSYN_DOC; } + if (sy_SEXPSYN_DOC && NULL == /*_.VALDATA___V307*/ meltfptr[306]) + /*_.VALDATA___V307*/ meltfptr[306] = (void*) sy_SEXPSYN_DOC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINITION*/ { melt_ptr_t sy_CLASS_SOURCE_DEFINITION = meltgc_named_symbol("CLASS_SOURCE_DEFINITION", MELT_GET); - if (sy_CLASS_SOURCE_DEFINITION && NULL == /*_.VALDATA___V319*/ meltfptr[318]) - /*_.VALDATA___V319*/ meltfptr[318] = (void*) sy_CLASS_SOURCE_DEFINITION; } + if (sy_CLASS_SOURCE_DEFINITION && NULL == /*_.VALDATA___V309*/ meltfptr[308]) + /*_.VALDATA___V309*/ meltfptr[308] = (void*) sy_CLASS_SOURCE_DEFINITION; } /*^getnamedsymbol*/ /*getnamedsym:SDEF_NAME*/ { melt_ptr_t sy_SDEF_NAME = meltgc_named_symbol("SDEF_NAME", MELT_GET); - if (sy_SDEF_NAME && NULL == /*_.VALDATA___V329*/ meltfptr[328]) - /*_.VALDATA___V329*/ meltfptr[328] = (void*) sy_SDEF_NAME; } + if (sy_SDEF_NAME && NULL == /*_.VALDATA___V319*/ meltfptr[318]) + /*_.VALDATA___V319*/ meltfptr[318] = (void*) sy_SDEF_NAME; } /*^getnamedsymbol*/ /*getnamedsym:SDEF_DOC*/ { melt_ptr_t sy_SDEF_DOC = meltgc_named_symbol("SDEF_DOC", MELT_GET); - if (sy_SDEF_DOC && NULL == /*_.VALDATA___V331*/ meltfptr[330]) - /*_.VALDATA___V331*/ meltfptr[330] = (void*) sy_SDEF_DOC; } + if (sy_SDEF_DOC && NULL == /*_.VALDATA___V321*/ meltfptr[320]) + /*_.VALDATA___V321*/ meltfptr[320] = (void*) sy_SDEF_DOC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINE*/ { melt_ptr_t sy_CLASS_SOURCE_DEFINE = meltgc_named_symbol("CLASS_SOURCE_DEFINE", MELT_GET); - if (sy_CLASS_SOURCE_DEFINE && NULL == /*_.VALDATA___V333*/ meltfptr[332]) - /*_.VALDATA___V333*/ meltfptr[332] = (void*) sy_CLASS_SOURCE_DEFINE; } + if (sy_CLASS_SOURCE_DEFINE && NULL == /*_.VALDATA___V323*/ meltfptr[322]) + /*_.VALDATA___V323*/ meltfptr[322] = (void*) sy_CLASS_SOURCE_DEFINE; } /*^getnamedsymbol*/ /*getnamedsym:SDEFINE_EXPR*/ { melt_ptr_t sy_SDEFINE_EXPR = meltgc_named_symbol("SDEFINE_EXPR", MELT_GET); - if (sy_SDEFINE_EXPR && NULL == /*_.VALDATA___V341*/ meltfptr[340]) - /*_.VALDATA___V341*/ meltfptr[340] = (void*) sy_SDEFINE_EXPR; } + if (sy_SDEFINE_EXPR && NULL == /*_.VALDATA___V331*/ meltfptr[330]) + /*_.VALDATA___V331*/ meltfptr[330] = (void*) sy_SDEFINE_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINITION_FORMAL*/ { melt_ptr_t sy_CLASS_SOURCE_DEFINITION_FORMAL = meltgc_named_symbol("CLASS_SOURCE_DEFINITION_FORMAL", MELT_GET); - if (sy_CLASS_SOURCE_DEFINITION_FORMAL && NULL == /*_.VALDATA___V343*/ meltfptr[342]) - /*_.VALDATA___V343*/ meltfptr[342] = (void*) sy_CLASS_SOURCE_DEFINITION_FORMAL; } + if (sy_CLASS_SOURCE_DEFINITION_FORMAL && NULL == /*_.VALDATA___V333*/ meltfptr[332]) + /*_.VALDATA___V333*/ meltfptr[332] = (void*) sy_CLASS_SOURCE_DEFINITION_FORMAL; } /*^getnamedsymbol*/ /*getnamedsym:SFORMAL_ARGS*/ { melt_ptr_t sy_SFORMAL_ARGS = meltgc_named_symbol("SFORMAL_ARGS", MELT_GET); - if (sy_SFORMAL_ARGS && NULL == /*_.VALDATA___V351*/ meltfptr[350]) - /*_.VALDATA___V351*/ meltfptr[350] = (void*) sy_SFORMAL_ARGS; } + if (sy_SFORMAL_ARGS && NULL == /*_.VALDATA___V341*/ meltfptr[340]) + /*_.VALDATA___V341*/ meltfptr[340] = (void*) sy_SFORMAL_ARGS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFUN*/ { melt_ptr_t sy_CLASS_SOURCE_DEFUN = meltgc_named_symbol("CLASS_SOURCE_DEFUN", MELT_GET); - if (sy_CLASS_SOURCE_DEFUN && NULL == /*_.VALDATA___V353*/ meltfptr[352]) - /*_.VALDATA___V353*/ meltfptr[352] = (void*) sy_CLASS_SOURCE_DEFUN; } + if (sy_CLASS_SOURCE_DEFUN && NULL == /*_.VALDATA___V343*/ meltfptr[342]) + /*_.VALDATA___V343*/ meltfptr[342] = (void*) sy_CLASS_SOURCE_DEFUN; } /*^getnamedsymbol*/ /*getnamedsym:SFUN_BODY*/ { melt_ptr_t sy_SFUN_BODY = meltgc_named_symbol("SFUN_BODY", MELT_GET); - if (sy_SFUN_BODY && NULL == /*_.VALDATA___V361*/ meltfptr[360]) - /*_.VALDATA___V361*/ meltfptr[360] = (void*) sy_SFUN_BODY; } + if (sy_SFUN_BODY && NULL == /*_.VALDATA___V351*/ meltfptr[350]) + /*_.VALDATA___V351*/ meltfptr[350] = (void*) sy_SFUN_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFPRIMITIVE*/ { melt_ptr_t sy_CLASS_SOURCE_DEFPRIMITIVE = meltgc_named_symbol("CLASS_SOURCE_DEFPRIMITIVE", MELT_GET); - if (sy_CLASS_SOURCE_DEFPRIMITIVE && NULL == /*_.VALDATA___V363*/ meltfptr[362]) - /*_.VALDATA___V363*/ meltfptr[362] = (void*) sy_CLASS_SOURCE_DEFPRIMITIVE; } + if (sy_CLASS_SOURCE_DEFPRIMITIVE && NULL == /*_.VALDATA___V353*/ meltfptr[352]) + /*_.VALDATA___V353*/ meltfptr[352] = (void*) sy_CLASS_SOURCE_DEFPRIMITIVE; } /*^getnamedsymbol*/ /*getnamedsym:SPRIM_TYPE*/ { melt_ptr_t sy_SPRIM_TYPE = meltgc_named_symbol("SPRIM_TYPE", MELT_GET); - if (sy_SPRIM_TYPE && NULL == /*_.VALDATA___V373*/ meltfptr[372]) - /*_.VALDATA___V373*/ meltfptr[372] = (void*) sy_SPRIM_TYPE; } + if (sy_SPRIM_TYPE && NULL == /*_.VALDATA___V363*/ meltfptr[362]) + /*_.VALDATA___V363*/ meltfptr[362] = (void*) sy_SPRIM_TYPE; } /*^getnamedsymbol*/ /*getnamedsym:SPRIM_EXPANSION*/ { melt_ptr_t sy_SPRIM_EXPANSION = meltgc_named_symbol("SPRIM_EXPANSION", MELT_GET); - if (sy_SPRIM_EXPANSION && NULL == /*_.VALDATA___V375*/ meltfptr[374]) - /*_.VALDATA___V375*/ meltfptr[374] = (void*) sy_SPRIM_EXPANSION; } - - /*^getnamedsymbol*/ - - /*getnamedsym:CLASS_SOURCE_DEFVARIADIC*/ - { melt_ptr_t sy_CLASS_SOURCE_DEFVARIADIC = meltgc_named_symbol("CLASS_SOURCE_DEFVARIADIC", MELT_GET); - if (sy_CLASS_SOURCE_DEFVARIADIC && NULL == /*_.VALDATA___V377*/ meltfptr[376]) - /*_.VALDATA___V377*/ meltfptr[376] = (void*) sy_CLASS_SOURCE_DEFVARIADIC; } - - /*^getnamedsymbol*/ - - /*getnamedsym:SVARIADIC_INITIAL*/ - { melt_ptr_t sy_SVARIADIC_INITIAL = meltgc_named_symbol("SVARIADIC_INITIAL", MELT_GET); - if (sy_SVARIADIC_INITIAL && NULL == /*_.VALDATA___V389*/ meltfptr[388]) - /*_.VALDATA___V389*/ meltfptr[388] = (void*) sy_SVARIADIC_INITIAL; } - - /*^getnamedsymbol*/ - - /*getnamedsym:SVARIADIC_CTYPEHANDLERMAP*/ - { melt_ptr_t sy_SVARIADIC_CTYPEHANDLERMAP = meltgc_named_symbol("SVARIADIC_CTYPEHANDLERMAP", MELT_GET); - if (sy_SVARIADIC_CTYPEHANDLERMAP && NULL == /*_.VALDATA___V391*/ meltfptr[390]) - /*_.VALDATA___V391*/ meltfptr[390] = (void*) sy_SVARIADIC_CTYPEHANDLERMAP; } - - /*^getnamedsymbol*/ - - /*getnamedsym:SVARIADIC_FINAL*/ - { melt_ptr_t sy_SVARIADIC_FINAL = meltgc_named_symbol("SVARIADIC_FINAL", MELT_GET); - if (sy_SVARIADIC_FINAL && NULL == /*_.VALDATA___V393*/ meltfptr[392]) - /*_.VALDATA___V393*/ meltfptr[392] = (void*) sy_SVARIADIC_FINAL; } + if (sy_SPRIM_EXPANSION && NULL == /*_.VALDATA___V365*/ meltfptr[364]) + /*_.VALDATA___V365*/ meltfptr[364] = (void*) sy_SPRIM_EXPANSION; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCITERATOR*/ { melt_ptr_t sy_CLASS_SOURCE_DEFCITERATOR = meltgc_named_symbol("CLASS_SOURCE_DEFCITERATOR", MELT_GET); - if (sy_CLASS_SOURCE_DEFCITERATOR && NULL == /*_.VALDATA___V395*/ meltfptr[394]) - /*_.VALDATA___V395*/ meltfptr[394] = (void*) sy_CLASS_SOURCE_DEFCITERATOR; } + if (sy_CLASS_SOURCE_DEFCITERATOR && NULL == /*_.VALDATA___V367*/ meltfptr[366]) + /*_.VALDATA___V367*/ meltfptr[366] = (void*) sy_CLASS_SOURCE_DEFCITERATOR; } /*^getnamedsymbol*/ /*getnamedsym:SCITERDEF_CITERATOR*/ { melt_ptr_t sy_SCITERDEF_CITERATOR = meltgc_named_symbol("SCITERDEF_CITERATOR", MELT_GET); - if (sy_SCITERDEF_CITERATOR && NULL == /*_.VALDATA___V403*/ meltfptr[402]) - /*_.VALDATA___V403*/ meltfptr[402] = (void*) sy_SCITERDEF_CITERATOR; } + if (sy_SCITERDEF_CITERATOR && NULL == /*_.VALDATA___V375*/ meltfptr[374]) + /*_.VALDATA___V375*/ meltfptr[374] = (void*) sy_SCITERDEF_CITERATOR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCMATCHER*/ { melt_ptr_t sy_CLASS_SOURCE_DEFCMATCHER = meltgc_named_symbol("CLASS_SOURCE_DEFCMATCHER", MELT_GET); - if (sy_CLASS_SOURCE_DEFCMATCHER && NULL == /*_.VALDATA___V405*/ meltfptr[404]) - /*_.VALDATA___V405*/ meltfptr[404] = (void*) sy_CLASS_SOURCE_DEFCMATCHER; } + if (sy_CLASS_SOURCE_DEFCMATCHER && NULL == /*_.VALDATA___V377*/ meltfptr[376]) + /*_.VALDATA___V377*/ meltfptr[376] = (void*) sy_CLASS_SOURCE_DEFCMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:SCMATDEF_CMATCHER*/ { melt_ptr_t sy_SCMATDEF_CMATCHER = meltgc_named_symbol("SCMATDEF_CMATCHER", MELT_GET); - if (sy_SCMATDEF_CMATCHER && NULL == /*_.VALDATA___V413*/ meltfptr[412]) - /*_.VALDATA___V413*/ meltfptr[412] = (void*) sy_SCMATDEF_CMATCHER; } + if (sy_SCMATDEF_CMATCHER && NULL == /*_.VALDATA___V385*/ meltfptr[384]) + /*_.VALDATA___V385*/ meltfptr[384] = (void*) sy_SCMATDEF_CMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFUNMATCHER*/ { melt_ptr_t sy_CLASS_SOURCE_DEFUNMATCHER = meltgc_named_symbol("CLASS_SOURCE_DEFUNMATCHER", MELT_GET); - if (sy_CLASS_SOURCE_DEFUNMATCHER && NULL == /*_.VALDATA___V415*/ meltfptr[414]) - /*_.VALDATA___V415*/ meltfptr[414] = (void*) sy_CLASS_SOURCE_DEFUNMATCHER; } + if (sy_CLASS_SOURCE_DEFUNMATCHER && NULL == /*_.VALDATA___V387*/ meltfptr[386]) + /*_.VALDATA___V387*/ meltfptr[386] = (void*) sy_CLASS_SOURCE_DEFUNMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_INS*/ { melt_ptr_t sy_SFUMATDEF_INS = meltgc_named_symbol("SFUMATDEF_INS", MELT_GET); - if (sy_SFUMATDEF_INS && NULL == /*_.VALDATA___V431*/ meltfptr[430]) - /*_.VALDATA___V431*/ meltfptr[430] = (void*) sy_SFUMATDEF_INS; } + if (sy_SFUMATDEF_INS && NULL == /*_.VALDATA___V403*/ meltfptr[402]) + /*_.VALDATA___V403*/ meltfptr[402] = (void*) sy_SFUMATDEF_INS; } /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_OUTS*/ { melt_ptr_t sy_SFUMATDEF_OUTS = meltgc_named_symbol("SFUMATDEF_OUTS", MELT_GET); - if (sy_SFUMATDEF_OUTS && NULL == /*_.VALDATA___V433*/ meltfptr[432]) - /*_.VALDATA___V433*/ meltfptr[432] = (void*) sy_SFUMATDEF_OUTS; } + if (sy_SFUMATDEF_OUTS && NULL == /*_.VALDATA___V405*/ meltfptr[404]) + /*_.VALDATA___V405*/ meltfptr[404] = (void*) sy_SFUMATDEF_OUTS; } /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_MATCHF*/ { melt_ptr_t sy_SFUMATDEF_MATCHF = meltgc_named_symbol("SFUMATDEF_MATCHF", MELT_GET); - if (sy_SFUMATDEF_MATCHF && NULL == /*_.VALDATA___V435*/ meltfptr[434]) - /*_.VALDATA___V435*/ meltfptr[434] = (void*) sy_SFUMATDEF_MATCHF; } + if (sy_SFUMATDEF_MATCHF && NULL == /*_.VALDATA___V407*/ meltfptr[406]) + /*_.VALDATA___V407*/ meltfptr[406] = (void*) sy_SFUMATDEF_MATCHF; } /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_APPLYF*/ { melt_ptr_t sy_SFUMATDEF_APPLYF = meltgc_named_symbol("SFUMATDEF_APPLYF", MELT_GET); - if (sy_SFUMATDEF_APPLYF && NULL == /*_.VALDATA___V437*/ meltfptr[436]) - /*_.VALDATA___V437*/ meltfptr[436] = (void*) sy_SFUMATDEF_APPLYF; } + if (sy_SFUMATDEF_APPLYF && NULL == /*_.VALDATA___V409*/ meltfptr[408]) + /*_.VALDATA___V409*/ meltfptr[408] = (void*) sy_SFUMATDEF_APPLYF; } /*^getnamedsymbol*/ /*getnamedsym:SFUMATDEF_DATA*/ { melt_ptr_t sy_SFUMATDEF_DATA = meltgc_named_symbol("SFUMATDEF_DATA", MELT_GET); - if (sy_SFUMATDEF_DATA && NULL == /*_.VALDATA___V439*/ meltfptr[438]) - /*_.VALDATA___V439*/ meltfptr[438] = (void*) sy_SFUMATDEF_DATA; } + if (sy_SFUMATDEF_DATA && NULL == /*_.VALDATA___V411*/ meltfptr[410]) + /*_.VALDATA___V411*/ meltfptr[410] = (void*) sy_SFUMATDEF_DATA; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFOBJCOMMON*/ { melt_ptr_t sy_CLASS_SOURCE_DEFOBJCOMMON = meltgc_named_symbol("CLASS_SOURCE_DEFOBJCOMMON", MELT_GET); - if (sy_CLASS_SOURCE_DEFOBJCOMMON && NULL == /*_.VALDATA___V441*/ meltfptr[440]) - /*_.VALDATA___V441*/ meltfptr[440] = (void*) sy_CLASS_SOURCE_DEFOBJCOMMON; } + if (sy_CLASS_SOURCE_DEFOBJCOMMON && NULL == /*_.VALDATA___V413*/ meltfptr[412]) + /*_.VALDATA___V413*/ meltfptr[412] = (void*) sy_CLASS_SOURCE_DEFOBJCOMMON; } /*^getnamedsymbol*/ /*getnamedsym:SOBJ_PREDEF*/ { melt_ptr_t sy_SOBJ_PREDEF = meltgc_named_symbol("SOBJ_PREDEF", MELT_GET); - if (sy_SOBJ_PREDEF && NULL == /*_.VALDATA___V449*/ meltfptr[448]) - /*_.VALDATA___V449*/ meltfptr[448] = (void*) sy_SOBJ_PREDEF; } + if (sy_SOBJ_PREDEF && NULL == /*_.VALDATA___V421*/ meltfptr[420]) + /*_.VALDATA___V421*/ meltfptr[420] = (void*) sy_SOBJ_PREDEF; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCLASS*/ { melt_ptr_t sy_CLASS_SOURCE_DEFCLASS = meltgc_named_symbol("CLASS_SOURCE_DEFCLASS", MELT_GET); - if (sy_CLASS_SOURCE_DEFCLASS && NULL == /*_.VALDATA___V451*/ meltfptr[450]) - /*_.VALDATA___V451*/ meltfptr[450] = (void*) sy_CLASS_SOURCE_DEFCLASS; } + if (sy_CLASS_SOURCE_DEFCLASS && NULL == /*_.VALDATA___V423*/ meltfptr[422]) + /*_.VALDATA___V423*/ meltfptr[422] = (void*) sy_CLASS_SOURCE_DEFCLASS; } /*^getnamedsymbol*/ /*getnamedsym:SCLASS_CLABIND*/ { melt_ptr_t sy_SCLASS_CLABIND = meltgc_named_symbol("SCLASS_CLABIND", MELT_GET); - if (sy_SCLASS_CLABIND && NULL == /*_.VALDATA___V463*/ meltfptr[462]) - /*_.VALDATA___V463*/ meltfptr[462] = (void*) sy_SCLASS_CLABIND; } + if (sy_SCLASS_CLABIND && NULL == /*_.VALDATA___V435*/ meltfptr[434]) + /*_.VALDATA___V435*/ meltfptr[434] = (void*) sy_SCLASS_CLABIND; } /*^getnamedsymbol*/ /*getnamedsym:SCLASS_SUPERBIND*/ { melt_ptr_t sy_SCLASS_SUPERBIND = meltgc_named_symbol("SCLASS_SUPERBIND", MELT_GET); - if (sy_SCLASS_SUPERBIND && NULL == /*_.VALDATA___V465*/ meltfptr[464]) - /*_.VALDATA___V465*/ meltfptr[464] = (void*) sy_SCLASS_SUPERBIND; } + if (sy_SCLASS_SUPERBIND && NULL == /*_.VALDATA___V437*/ meltfptr[436]) + /*_.VALDATA___V437*/ meltfptr[436] = (void*) sy_SCLASS_SUPERBIND; } /*^getnamedsymbol*/ /*getnamedsym:SCLASS_FLDBINDS*/ { melt_ptr_t sy_SCLASS_FLDBINDS = meltgc_named_symbol("SCLASS_FLDBINDS", MELT_GET); - if (sy_SCLASS_FLDBINDS && NULL == /*_.VALDATA___V467*/ meltfptr[466]) - /*_.VALDATA___V467*/ meltfptr[466] = (void*) sy_SCLASS_FLDBINDS; } + if (sy_SCLASS_FLDBINDS && NULL == /*_.VALDATA___V439*/ meltfptr[438]) + /*_.VALDATA___V439*/ meltfptr[438] = (void*) sy_SCLASS_FLDBINDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFINSTANCE*/ { melt_ptr_t sy_CLASS_SOURCE_DEFINSTANCE = meltgc_named_symbol("CLASS_SOURCE_DEFINSTANCE", MELT_GET); - if (sy_CLASS_SOURCE_DEFINSTANCE && NULL == /*_.VALDATA___V469*/ meltfptr[468]) - /*_.VALDATA___V469*/ meltfptr[468] = (void*) sy_CLASS_SOURCE_DEFINSTANCE; } + if (sy_CLASS_SOURCE_DEFINSTANCE && NULL == /*_.VALDATA___V441*/ meltfptr[440]) + /*_.VALDATA___V441*/ meltfptr[440] = (void*) sy_CLASS_SOURCE_DEFINSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:SINST_CLASS*/ { melt_ptr_t sy_SINST_CLASS = meltgc_named_symbol("SINST_CLASS", MELT_GET); - if (sy_SINST_CLASS && NULL == /*_.VALDATA___V483*/ meltfptr[482]) - /*_.VALDATA___V483*/ meltfptr[482] = (void*) sy_SINST_CLASS; } + if (sy_SINST_CLASS && NULL == /*_.VALDATA___V455*/ meltfptr[454]) + /*_.VALDATA___V455*/ meltfptr[454] = (void*) sy_SINST_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:SINST_CLABIND*/ { melt_ptr_t sy_SINST_CLABIND = meltgc_named_symbol("SINST_CLABIND", MELT_GET); - if (sy_SINST_CLABIND && NULL == /*_.VALDATA___V485*/ meltfptr[484]) - /*_.VALDATA___V485*/ meltfptr[484] = (void*) sy_SINST_CLABIND; } + if (sy_SINST_CLABIND && NULL == /*_.VALDATA___V457*/ meltfptr[456]) + /*_.VALDATA___V457*/ meltfptr[456] = (void*) sy_SINST_CLABIND; } /*^getnamedsymbol*/ /*getnamedsym:SINST_OBJNUM*/ { melt_ptr_t sy_SINST_OBJNUM = meltgc_named_symbol("SINST_OBJNUM", MELT_GET); - if (sy_SINST_OBJNUM && NULL == /*_.VALDATA___V487*/ meltfptr[486]) - /*_.VALDATA___V487*/ meltfptr[486] = (void*) sy_SINST_OBJNUM; } + if (sy_SINST_OBJNUM && NULL == /*_.VALDATA___V459*/ meltfptr[458]) + /*_.VALDATA___V459*/ meltfptr[458] = (void*) sy_SINST_OBJNUM; } /*^getnamedsymbol*/ /*getnamedsym:SINST_FIELDS*/ { melt_ptr_t sy_SINST_FIELDS = meltgc_named_symbol("SINST_FIELDS", MELT_GET); - if (sy_SINST_FIELDS && NULL == /*_.VALDATA___V489*/ meltfptr[488]) - /*_.VALDATA___V489*/ meltfptr[488] = (void*) sy_SINST_FIELDS; } + if (sy_SINST_FIELDS && NULL == /*_.VALDATA___V461*/ meltfptr[460]) + /*_.VALDATA___V461*/ meltfptr[460] = (void*) sy_SINST_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFSELECTOR*/ { melt_ptr_t sy_CLASS_SOURCE_DEFSELECTOR = meltgc_named_symbol("CLASS_SOURCE_DEFSELECTOR", MELT_GET); - if (sy_CLASS_SOURCE_DEFSELECTOR && NULL == /*_.VALDATA___V491*/ meltfptr[490]) - /*_.VALDATA___V491*/ meltfptr[490] = (void*) sy_CLASS_SOURCE_DEFSELECTOR; } + if (sy_CLASS_SOURCE_DEFSELECTOR && NULL == /*_.VALDATA___V463*/ meltfptr[462]) + /*_.VALDATA___V463*/ meltfptr[462] = (void*) sy_CLASS_SOURCE_DEFSELECTOR; } /*^getnamedsymbol*/ /*getnamedsym:SDEFSEL_FORMALS*/ { melt_ptr_t sy_SDEFSEL_FORMALS = meltgc_named_symbol("SDEFSEL_FORMALS", MELT_GET); - if (sy_SDEFSEL_FORMALS && NULL == /*_.VALDATA___V499*/ meltfptr[498]) - /*_.VALDATA___V499*/ meltfptr[498] = (void*) sy_SDEFSEL_FORMALS; } + if (sy_SDEFSEL_FORMALS && NULL == /*_.VALDATA___V471*/ meltfptr[470]) + /*_.VALDATA___V471*/ meltfptr[470] = (void*) sy_SDEFSEL_FORMALS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FIELDASSIGN*/ { melt_ptr_t sy_CLASS_SOURCE_FIELDASSIGN = meltgc_named_symbol("CLASS_SOURCE_FIELDASSIGN", MELT_GET); - if (sy_CLASS_SOURCE_FIELDASSIGN && NULL == /*_.VALDATA___V501*/ meltfptr[500]) - /*_.VALDATA___V501*/ meltfptr[500] = (void*) sy_CLASS_SOURCE_FIELDASSIGN; } + if (sy_CLASS_SOURCE_FIELDASSIGN && NULL == /*_.VALDATA___V473*/ meltfptr[472]) + /*_.VALDATA___V473*/ meltfptr[472] = (void*) sy_CLASS_SOURCE_FIELDASSIGN; } /*^getnamedsymbol*/ /*getnamedsym:SFLA_FIELD*/ { melt_ptr_t sy_SFLA_FIELD = meltgc_named_symbol("SFLA_FIELD", MELT_GET); - if (sy_SFLA_FIELD && NULL == /*_.VALDATA___V511*/ meltfptr[510]) - /*_.VALDATA___V511*/ meltfptr[510] = (void*) sy_SFLA_FIELD; } + if (sy_SFLA_FIELD && NULL == /*_.VALDATA___V483*/ meltfptr[482]) + /*_.VALDATA___V483*/ meltfptr[482] = (void*) sy_SFLA_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:SFLA_EXPR*/ { melt_ptr_t sy_SFLA_EXPR = meltgc_named_symbol("SFLA_EXPR", MELT_GET); - if (sy_SFLA_EXPR && NULL == /*_.VALDATA___V513*/ meltfptr[512]) - /*_.VALDATA___V513*/ meltfptr[512] = (void*) sy_SFLA_EXPR; } + if (sy_SFLA_EXPR && NULL == /*_.VALDATA___V485*/ meltfptr[484]) + /*_.VALDATA___V485*/ meltfptr[484] = (void*) sy_SFLA_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_INSTANCE*/ { melt_ptr_t sy_CLASS_SOURCE_INSTANCE = meltgc_named_symbol("CLASS_SOURCE_INSTANCE", MELT_GET); - if (sy_CLASS_SOURCE_INSTANCE && NULL == /*_.VALDATA___V515*/ meltfptr[514]) - /*_.VALDATA___V515*/ meltfptr[514] = (void*) sy_CLASS_SOURCE_INSTANCE; } + if (sy_CLASS_SOURCE_INSTANCE && NULL == /*_.VALDATA___V487*/ meltfptr[486]) + /*_.VALDATA___V487*/ meltfptr[486] = (void*) sy_CLASS_SOURCE_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:SMINS_CLASS*/ { melt_ptr_t sy_SMINS_CLASS = meltgc_named_symbol("SMINS_CLASS", MELT_GET); - if (sy_SMINS_CLASS && NULL == /*_.VALDATA___V527*/ meltfptr[526]) - /*_.VALDATA___V527*/ meltfptr[526] = (void*) sy_SMINS_CLASS; } + if (sy_SMINS_CLASS && NULL == /*_.VALDATA___V499*/ meltfptr[498]) + /*_.VALDATA___V499*/ meltfptr[498] = (void*) sy_SMINS_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:SMINS_CLABIND*/ { melt_ptr_t sy_SMINS_CLABIND = meltgc_named_symbol("SMINS_CLABIND", MELT_GET); - if (sy_SMINS_CLABIND && NULL == /*_.VALDATA___V529*/ meltfptr[528]) - /*_.VALDATA___V529*/ meltfptr[528] = (void*) sy_SMINS_CLABIND; } + if (sy_SMINS_CLABIND && NULL == /*_.VALDATA___V501*/ meltfptr[500]) + /*_.VALDATA___V501*/ meltfptr[500] = (void*) sy_SMINS_CLABIND; } /*^getnamedsymbol*/ /*getnamedsym:SMINS_FIELDS*/ { melt_ptr_t sy_SMINS_FIELDS = meltgc_named_symbol("SMINS_FIELDS", MELT_GET); - if (sy_SMINS_FIELDS && NULL == /*_.VALDATA___V531*/ meltfptr[530]) - /*_.VALDATA___V531*/ meltfptr[530] = (void*) sy_SMINS_FIELDS; } + if (sy_SMINS_FIELDS && NULL == /*_.VALDATA___V503*/ meltfptr[502]) + /*_.VALDATA___V503*/ meltfptr[502] = (void*) sy_SMINS_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_GET_FIELD*/ { melt_ptr_t sy_CLASS_SOURCE_GET_FIELD = meltgc_named_symbol("CLASS_SOURCE_GET_FIELD", MELT_GET); - if (sy_CLASS_SOURCE_GET_FIELD && NULL == /*_.VALDATA___V533*/ meltfptr[532]) - /*_.VALDATA___V533*/ meltfptr[532] = (void*) sy_CLASS_SOURCE_GET_FIELD; } + if (sy_CLASS_SOURCE_GET_FIELD && NULL == /*_.VALDATA___V505*/ meltfptr[504]) + /*_.VALDATA___V505*/ meltfptr[504] = (void*) sy_CLASS_SOURCE_GET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:SUGET_OBJ*/ { melt_ptr_t sy_SUGET_OBJ = meltgc_named_symbol("SUGET_OBJ", MELT_GET); - if (sy_SUGET_OBJ && NULL == /*_.VALDATA___V543*/ meltfptr[542]) - /*_.VALDATA___V543*/ meltfptr[542] = (void*) sy_SUGET_OBJ; } + if (sy_SUGET_OBJ && NULL == /*_.VALDATA___V515*/ meltfptr[514]) + /*_.VALDATA___V515*/ meltfptr[514] = (void*) sy_SUGET_OBJ; } /*^getnamedsymbol*/ /*getnamedsym:SUGET_FIELD*/ { melt_ptr_t sy_SUGET_FIELD = meltgc_named_symbol("SUGET_FIELD", MELT_GET); - if (sy_SUGET_FIELD && NULL == /*_.VALDATA___V545*/ meltfptr[544]) - /*_.VALDATA___V545*/ meltfptr[544] = (void*) sy_SUGET_FIELD; } + if (sy_SUGET_FIELD && NULL == /*_.VALDATA___V517*/ meltfptr[516]) + /*_.VALDATA___V517*/ meltfptr[516] = (void*) sy_SUGET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UNSAFE_GET_FIELD*/ { melt_ptr_t sy_CLASS_SOURCE_UNSAFE_GET_FIELD = meltgc_named_symbol("CLASS_SOURCE_UNSAFE_GET_FIELD", MELT_GET); - if (sy_CLASS_SOURCE_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V547*/ meltfptr[546]) - /*_.VALDATA___V547*/ meltfptr[546] = (void*) sy_CLASS_SOURCE_UNSAFE_GET_FIELD; } + if (sy_CLASS_SOURCE_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V519*/ meltfptr[518]) + /*_.VALDATA___V519*/ meltfptr[518] = (void*) sy_CLASS_SOURCE_UNSAFE_GET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PUT_FIELDS*/ { melt_ptr_t sy_CLASS_SOURCE_PUT_FIELDS = meltgc_named_symbol("CLASS_SOURCE_PUT_FIELDS", MELT_GET); - if (sy_CLASS_SOURCE_PUT_FIELDS && NULL == /*_.VALDATA___V553*/ meltfptr[552]) - /*_.VALDATA___V553*/ meltfptr[552] = (void*) sy_CLASS_SOURCE_PUT_FIELDS; } + if (sy_CLASS_SOURCE_PUT_FIELDS && NULL == /*_.VALDATA___V525*/ meltfptr[524]) + /*_.VALDATA___V525*/ meltfptr[524] = (void*) sy_CLASS_SOURCE_PUT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:SUPUT_OBJ*/ { melt_ptr_t sy_SUPUT_OBJ = meltgc_named_symbol("SUPUT_OBJ", MELT_GET); - if (sy_SUPUT_OBJ && NULL == /*_.VALDATA___V563*/ meltfptr[562]) - /*_.VALDATA___V563*/ meltfptr[562] = (void*) sy_SUPUT_OBJ; } + if (sy_SUPUT_OBJ && NULL == /*_.VALDATA___V535*/ meltfptr[534]) + /*_.VALDATA___V535*/ meltfptr[534] = (void*) sy_SUPUT_OBJ; } /*^getnamedsymbol*/ /*getnamedsym:SUPUT_FIELDS*/ { melt_ptr_t sy_SUPUT_FIELDS = meltgc_named_symbol("SUPUT_FIELDS", MELT_GET); - if (sy_SUPUT_FIELDS && NULL == /*_.VALDATA___V565*/ meltfptr[564]) - /*_.VALDATA___V565*/ meltfptr[564] = (void*) sy_SUPUT_FIELDS; } + if (sy_SUPUT_FIELDS && NULL == /*_.VALDATA___V537*/ meltfptr[536]) + /*_.VALDATA___V537*/ meltfptr[536] = (void*) sy_SUPUT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ { melt_ptr_t sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS = meltgc_named_symbol("CLASS_SOURCE_UNSAFE_PUT_FIELDS", MELT_GET); - if (sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V567*/ meltfptr[566]) - /*_.VALDATA___V567*/ meltfptr[566] = (void*) sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; } + if (sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V539*/ meltfptr[538]) + /*_.VALDATA___V539*/ meltfptr[538] = (void*) sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_IF*/ { melt_ptr_t sy_CLASS_SOURCE_IF = meltgc_named_symbol("CLASS_SOURCE_IF", MELT_GET); - if (sy_CLASS_SOURCE_IF && NULL == /*_.VALDATA___V573*/ meltfptr[572]) - /*_.VALDATA___V573*/ meltfptr[572] = (void*) sy_CLASS_SOURCE_IF; } + if (sy_CLASS_SOURCE_IF && NULL == /*_.VALDATA___V545*/ meltfptr[544]) + /*_.VALDATA___V545*/ meltfptr[544] = (void*) sy_CLASS_SOURCE_IF; } /*^getnamedsymbol*/ /*getnamedsym:SIF_TEST*/ { melt_ptr_t sy_SIF_TEST = meltgc_named_symbol("SIF_TEST", MELT_GET); - if (sy_SIF_TEST && NULL == /*_.VALDATA___V583*/ meltfptr[582]) - /*_.VALDATA___V583*/ meltfptr[582] = (void*) sy_SIF_TEST; } + if (sy_SIF_TEST && NULL == /*_.VALDATA___V555*/ meltfptr[554]) + /*_.VALDATA___V555*/ meltfptr[554] = (void*) sy_SIF_TEST; } /*^getnamedsymbol*/ /*getnamedsym:SIF_THEN*/ { melt_ptr_t sy_SIF_THEN = meltgc_named_symbol("SIF_THEN", MELT_GET); - if (sy_SIF_THEN && NULL == /*_.VALDATA___V585*/ meltfptr[584]) - /*_.VALDATA___V585*/ meltfptr[584] = (void*) sy_SIF_THEN; } + if (sy_SIF_THEN && NULL == /*_.VALDATA___V557*/ meltfptr[556]) + /*_.VALDATA___V557*/ meltfptr[556] = (void*) sy_SIF_THEN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_IFELSE*/ { melt_ptr_t sy_CLASS_SOURCE_IFELSE = meltgc_named_symbol("CLASS_SOURCE_IFELSE", MELT_GET); - if (sy_CLASS_SOURCE_IFELSE && NULL == /*_.VALDATA___V587*/ meltfptr[586]) - /*_.VALDATA___V587*/ meltfptr[586] = (void*) sy_CLASS_SOURCE_IFELSE; } + if (sy_CLASS_SOURCE_IFELSE && NULL == /*_.VALDATA___V559*/ meltfptr[558]) + /*_.VALDATA___V559*/ meltfptr[558] = (void*) sy_CLASS_SOURCE_IFELSE; } /*^getnamedsymbol*/ /*getnamedsym:SIF_ELSE*/ { melt_ptr_t sy_SIF_ELSE = meltgc_named_symbol("SIF_ELSE", MELT_GET); - if (sy_SIF_ELSE && NULL == /*_.VALDATA___V595*/ meltfptr[594]) - /*_.VALDATA___V595*/ meltfptr[594] = (void*) sy_SIF_ELSE; } + if (sy_SIF_ELSE && NULL == /*_.VALDATA___V567*/ meltfptr[566]) + /*_.VALDATA___V567*/ meltfptr[566] = (void*) sy_SIF_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_OR*/ { melt_ptr_t sy_CLASS_SOURCE_OR = meltgc_named_symbol("CLASS_SOURCE_OR", MELT_GET); - if (sy_CLASS_SOURCE_OR && NULL == /*_.VALDATA___V597*/ meltfptr[596]) - /*_.VALDATA___V597*/ meltfptr[596] = (void*) sy_CLASS_SOURCE_OR; } + if (sy_CLASS_SOURCE_OR && NULL == /*_.VALDATA___V569*/ meltfptr[568]) + /*_.VALDATA___V569*/ meltfptr[568] = (void*) sy_CLASS_SOURCE_OR; } /*^getnamedsymbol*/ /*getnamedsym:SOR_DISJ*/ { melt_ptr_t sy_SOR_DISJ = meltgc_named_symbol("SOR_DISJ", MELT_GET); - if (sy_SOR_DISJ && NULL == /*_.VALDATA___V605*/ meltfptr[604]) - /*_.VALDATA___V605*/ meltfptr[604] = (void*) sy_SOR_DISJ; } + if (sy_SOR_DISJ && NULL == /*_.VALDATA___V577*/ meltfptr[576]) + /*_.VALDATA___V577*/ meltfptr[576] = (void*) sy_SOR_DISJ; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CPPIF*/ { melt_ptr_t sy_CLASS_SOURCE_CPPIF = meltgc_named_symbol("CLASS_SOURCE_CPPIF", MELT_GET); - if (sy_CLASS_SOURCE_CPPIF && NULL == /*_.VALDATA___V607*/ meltfptr[606]) - /*_.VALDATA___V607*/ meltfptr[606] = (void*) sy_CLASS_SOURCE_CPPIF; } + if (sy_CLASS_SOURCE_CPPIF && NULL == /*_.VALDATA___V579*/ meltfptr[578]) + /*_.VALDATA___V579*/ meltfptr[578] = (void*) sy_CLASS_SOURCE_CPPIF; } /*^getnamedsymbol*/ /*getnamedsym:SIFP_COND*/ { melt_ptr_t sy_SIFP_COND = meltgc_named_symbol("SIFP_COND", MELT_GET); - if (sy_SIFP_COND && NULL == /*_.VALDATA___V619*/ meltfptr[618]) - /*_.VALDATA___V619*/ meltfptr[618] = (void*) sy_SIFP_COND; } + if (sy_SIFP_COND && NULL == /*_.VALDATA___V591*/ meltfptr[590]) + /*_.VALDATA___V591*/ meltfptr[590] = (void*) sy_SIFP_COND; } /*^getnamedsymbol*/ /*getnamedsym:SIFP_THEN*/ { melt_ptr_t sy_SIFP_THEN = meltgc_named_symbol("SIFP_THEN", MELT_GET); - if (sy_SIFP_THEN && NULL == /*_.VALDATA___V621*/ meltfptr[620]) - /*_.VALDATA___V621*/ meltfptr[620] = (void*) sy_SIFP_THEN; } + if (sy_SIFP_THEN && NULL == /*_.VALDATA___V593*/ meltfptr[592]) + /*_.VALDATA___V593*/ meltfptr[592] = (void*) sy_SIFP_THEN; } /*^getnamedsymbol*/ /*getnamedsym:SIFP_ELSE*/ { melt_ptr_t sy_SIFP_ELSE = meltgc_named_symbol("SIFP_ELSE", MELT_GET); - if (sy_SIFP_ELSE && NULL == /*_.VALDATA___V623*/ meltfptr[622]) - /*_.VALDATA___V623*/ meltfptr[622] = (void*) sy_SIFP_ELSE; } + if (sy_SIFP_ELSE && NULL == /*_.VALDATA___V595*/ meltfptr[594]) + /*_.VALDATA___V595*/ meltfptr[594] = (void*) sy_SIFP_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH*/ { melt_ptr_t sy_CLASS_SOURCE_MATCH = meltgc_named_symbol("CLASS_SOURCE_MATCH", MELT_GET); - if (sy_CLASS_SOURCE_MATCH && NULL == /*_.VALDATA___V625*/ meltfptr[624]) - /*_.VALDATA___V625*/ meltfptr[624] = (void*) sy_CLASS_SOURCE_MATCH; } + if (sy_CLASS_SOURCE_MATCH && NULL == /*_.VALDATA___V597*/ meltfptr[596]) + /*_.VALDATA___V597*/ meltfptr[596] = (void*) sy_CLASS_SOURCE_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:SMAT_MATCHEDX*/ { melt_ptr_t sy_SMAT_MATCHEDX = meltgc_named_symbol("SMAT_MATCHEDX", MELT_GET); - if (sy_SMAT_MATCHEDX && NULL == /*_.VALDATA___V635*/ meltfptr[634]) - /*_.VALDATA___V635*/ meltfptr[634] = (void*) sy_SMAT_MATCHEDX; } + if (sy_SMAT_MATCHEDX && NULL == /*_.VALDATA___V607*/ meltfptr[606]) + /*_.VALDATA___V607*/ meltfptr[606] = (void*) sy_SMAT_MATCHEDX; } /*^getnamedsymbol*/ /*getnamedsym:SMAT_CASES*/ { melt_ptr_t sy_SMAT_CASES = meltgc_named_symbol("SMAT_CASES", MELT_GET); - if (sy_SMAT_CASES && NULL == /*_.VALDATA___V637*/ meltfptr[636]) - /*_.VALDATA___V637*/ meltfptr[636] = (void*) sy_SMAT_CASES; } + if (sy_SMAT_CASES && NULL == /*_.VALDATA___V609*/ meltfptr[608]) + /*_.VALDATA___V609*/ meltfptr[608] = (void*) sy_SMAT_CASES; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MATCH_CASE*/ { melt_ptr_t sy_CLASS_SOURCE_MATCH_CASE = meltgc_named_symbol("CLASS_SOURCE_MATCH_CASE", MELT_GET); - if (sy_CLASS_SOURCE_MATCH_CASE && NULL == /*_.VALDATA___V639*/ meltfptr[638]) - /*_.VALDATA___V639*/ meltfptr[638] = (void*) sy_CLASS_SOURCE_MATCH_CASE; } + if (sy_CLASS_SOURCE_MATCH_CASE && NULL == /*_.VALDATA___V611*/ meltfptr[610]) + /*_.VALDATA___V611*/ meltfptr[610] = (void*) sy_CLASS_SOURCE_MATCH_CASE; } /*^getnamedsymbol*/ /*getnamedsym:SCAM_PATT*/ { melt_ptr_t sy_SCAM_PATT = meltgc_named_symbol("SCAM_PATT", MELT_GET); - if (sy_SCAM_PATT && NULL == /*_.VALDATA___V649*/ meltfptr[648]) - /*_.VALDATA___V649*/ meltfptr[648] = (void*) sy_SCAM_PATT; } + if (sy_SCAM_PATT && NULL == /*_.VALDATA___V621*/ meltfptr[620]) + /*_.VALDATA___V621*/ meltfptr[620] = (void*) sy_SCAM_PATT; } /*^getnamedsymbol*/ /*getnamedsym:SCAM_BODY*/ { melt_ptr_t sy_SCAM_BODY = meltgc_named_symbol("SCAM_BODY", MELT_GET); - if (sy_SCAM_BODY && NULL == /*_.VALDATA___V651*/ meltfptr[650]) - /*_.VALDATA___V651*/ meltfptr[650] = (void*) sy_SCAM_BODY; } + if (sy_SCAM_BODY && NULL == /*_.VALDATA___V623*/ meltfptr[622]) + /*_.VALDATA___V623*/ meltfptr[622] = (void*) sy_SCAM_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LET_BINDING*/ { melt_ptr_t sy_CLASS_SOURCE_LET_BINDING = meltgc_named_symbol("CLASS_SOURCE_LET_BINDING", MELT_GET); - if (sy_CLASS_SOURCE_LET_BINDING && NULL == /*_.VALDATA___V653*/ meltfptr[652]) - /*_.VALDATA___V653*/ meltfptr[652] = (void*) sy_CLASS_SOURCE_LET_BINDING; } + if (sy_CLASS_SOURCE_LET_BINDING && NULL == /*_.VALDATA___V625*/ meltfptr[624]) + /*_.VALDATA___V625*/ meltfptr[624] = (void*) sy_CLASS_SOURCE_LET_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:SLETB_TYPE*/ { melt_ptr_t sy_SLETB_TYPE = meltgc_named_symbol("SLETB_TYPE", MELT_GET); - if (sy_SLETB_TYPE && NULL == /*_.VALDATA___V665*/ meltfptr[664]) - /*_.VALDATA___V665*/ meltfptr[664] = (void*) sy_SLETB_TYPE; } + if (sy_SLETB_TYPE && NULL == /*_.VALDATA___V637*/ meltfptr[636]) + /*_.VALDATA___V637*/ meltfptr[636] = (void*) sy_SLETB_TYPE; } /*^getnamedsymbol*/ /*getnamedsym:SLETB_BINDER*/ { melt_ptr_t sy_SLETB_BINDER = meltgc_named_symbol("SLETB_BINDER", MELT_GET); - if (sy_SLETB_BINDER && NULL == /*_.VALDATA___V667*/ meltfptr[666]) - /*_.VALDATA___V667*/ meltfptr[666] = (void*) sy_SLETB_BINDER; } + if (sy_SLETB_BINDER && NULL == /*_.VALDATA___V639*/ meltfptr[638]) + /*_.VALDATA___V639*/ meltfptr[638] = (void*) sy_SLETB_BINDER; } /*^getnamedsymbol*/ /*getnamedsym:SLETB_EXPR*/ { melt_ptr_t sy_SLETB_EXPR = meltgc_named_symbol("SLETB_EXPR", MELT_GET); - if (sy_SLETB_EXPR && NULL == /*_.VALDATA___V669*/ meltfptr[668]) - /*_.VALDATA___V669*/ meltfptr[668] = (void*) sy_SLETB_EXPR; } + if (sy_SLETB_EXPR && NULL == /*_.VALDATA___V641*/ meltfptr[640]) + /*_.VALDATA___V641*/ meltfptr[640] = (void*) sy_SLETB_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LETREC_BINDING*/ { melt_ptr_t sy_CLASS_SOURCE_LETREC_BINDING = meltgc_named_symbol("CLASS_SOURCE_LETREC_BINDING", MELT_GET); - if (sy_CLASS_SOURCE_LETREC_BINDING && NULL == /*_.VALDATA___V671*/ meltfptr[670]) - /*_.VALDATA___V671*/ meltfptr[670] = (void*) sy_CLASS_SOURCE_LETREC_BINDING; } + if (sy_CLASS_SOURCE_LETREC_BINDING && NULL == /*_.VALDATA___V643*/ meltfptr[642]) + /*_.VALDATA___V643*/ meltfptr[642] = (void*) sy_CLASS_SOURCE_LETREC_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LET*/ { melt_ptr_t sy_CLASS_SOURCE_LET = meltgc_named_symbol("CLASS_SOURCE_LET", MELT_GET); - if (sy_CLASS_SOURCE_LET && NULL == /*_.VALDATA___V677*/ meltfptr[676]) - /*_.VALDATA___V677*/ meltfptr[676] = (void*) sy_CLASS_SOURCE_LET; } + if (sy_CLASS_SOURCE_LET && NULL == /*_.VALDATA___V649*/ meltfptr[648]) + /*_.VALDATA___V649*/ meltfptr[648] = (void*) sy_CLASS_SOURCE_LET; } /*^getnamedsymbol*/ /*getnamedsym:SLET_BINDINGS*/ { melt_ptr_t sy_SLET_BINDINGS = meltgc_named_symbol("SLET_BINDINGS", MELT_GET); - if (sy_SLET_BINDINGS && NULL == /*_.VALDATA___V687*/ meltfptr[686]) - /*_.VALDATA___V687*/ meltfptr[686] = (void*) sy_SLET_BINDINGS; } + if (sy_SLET_BINDINGS && NULL == /*_.VALDATA___V659*/ meltfptr[658]) + /*_.VALDATA___V659*/ meltfptr[658] = (void*) sy_SLET_BINDINGS; } /*^getnamedsymbol*/ /*getnamedsym:SLET_BODY*/ { melt_ptr_t sy_SLET_BODY = meltgc_named_symbol("SLET_BODY", MELT_GET); - if (sy_SLET_BODY && NULL == /*_.VALDATA___V689*/ meltfptr[688]) - /*_.VALDATA___V689*/ meltfptr[688] = (void*) sy_SLET_BODY; } + if (sy_SLET_BODY && NULL == /*_.VALDATA___V661*/ meltfptr[660]) + /*_.VALDATA___V661*/ meltfptr[660] = (void*) sy_SLET_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LETREC*/ { melt_ptr_t sy_CLASS_SOURCE_LETREC = meltgc_named_symbol("CLASS_SOURCE_LETREC", MELT_GET); - if (sy_CLASS_SOURCE_LETREC && NULL == /*_.VALDATA___V691*/ meltfptr[690]) - /*_.VALDATA___V691*/ meltfptr[690] = (void*) sy_CLASS_SOURCE_LETREC; } + if (sy_CLASS_SOURCE_LETREC && NULL == /*_.VALDATA___V663*/ meltfptr[662]) + /*_.VALDATA___V663*/ meltfptr[662] = (void*) sy_CLASS_SOURCE_LETREC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LAMBDA*/ { melt_ptr_t sy_CLASS_SOURCE_LAMBDA = meltgc_named_symbol("CLASS_SOURCE_LAMBDA", MELT_GET); - if (sy_CLASS_SOURCE_LAMBDA && NULL == /*_.VALDATA___V697*/ meltfptr[696]) - /*_.VALDATA___V697*/ meltfptr[696] = (void*) sy_CLASS_SOURCE_LAMBDA; } + if (sy_CLASS_SOURCE_LAMBDA && NULL == /*_.VALDATA___V669*/ meltfptr[668]) + /*_.VALDATA___V669*/ meltfptr[668] = (void*) sy_CLASS_SOURCE_LAMBDA; } /*^getnamedsymbol*/ /*getnamedsym:SLAM_ARGBIND*/ { melt_ptr_t sy_SLAM_ARGBIND = meltgc_named_symbol("SLAM_ARGBIND", MELT_GET); - if (sy_SLAM_ARGBIND && NULL == /*_.VALDATA___V707*/ meltfptr[706]) - /*_.VALDATA___V707*/ meltfptr[706] = (void*) sy_SLAM_ARGBIND; } + if (sy_SLAM_ARGBIND && NULL == /*_.VALDATA___V679*/ meltfptr[678]) + /*_.VALDATA___V679*/ meltfptr[678] = (void*) sy_SLAM_ARGBIND; } /*^getnamedsymbol*/ /*getnamedsym:SLAM_BODY*/ { melt_ptr_t sy_SLAM_BODY = meltgc_named_symbol("SLAM_BODY", MELT_GET); - if (sy_SLAM_BODY && NULL == /*_.VALDATA___V709*/ meltfptr[708]) - /*_.VALDATA___V709*/ meltfptr[708] = (void*) sy_SLAM_BODY; } + if (sy_SLAM_BODY && NULL == /*_.VALDATA___V681*/ meltfptr[680]) + /*_.VALDATA___V681*/ meltfptr[680] = (void*) sy_SLAM_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_MULTICALL*/ { melt_ptr_t sy_CLASS_SOURCE_MULTICALL = meltgc_named_symbol("CLASS_SOURCE_MULTICALL", MELT_GET); - if (sy_CLASS_SOURCE_MULTICALL && NULL == /*_.VALDATA___V711*/ meltfptr[710]) - /*_.VALDATA___V711*/ meltfptr[710] = (void*) sy_CLASS_SOURCE_MULTICALL; } + if (sy_CLASS_SOURCE_MULTICALL && NULL == /*_.VALDATA___V683*/ meltfptr[682]) + /*_.VALDATA___V683*/ meltfptr[682] = (void*) sy_CLASS_SOURCE_MULTICALL; } /*^getnamedsymbol*/ /*getnamedsym:SMULC_RESBIND*/ { melt_ptr_t sy_SMULC_RESBIND = meltgc_named_symbol("SMULC_RESBIND", MELT_GET); - if (sy_SMULC_RESBIND && NULL == /*_.VALDATA___V723*/ meltfptr[722]) - /*_.VALDATA___V723*/ meltfptr[722] = (void*) sy_SMULC_RESBIND; } + if (sy_SMULC_RESBIND && NULL == /*_.VALDATA___V695*/ meltfptr[694]) + /*_.VALDATA___V695*/ meltfptr[694] = (void*) sy_SMULC_RESBIND; } /*^getnamedsymbol*/ /*getnamedsym:SMULC_CALL*/ { melt_ptr_t sy_SMULC_CALL = meltgc_named_symbol("SMULC_CALL", MELT_GET); - if (sy_SMULC_CALL && NULL == /*_.VALDATA___V725*/ meltfptr[724]) - /*_.VALDATA___V725*/ meltfptr[724] = (void*) sy_SMULC_CALL; } + if (sy_SMULC_CALL && NULL == /*_.VALDATA___V697*/ meltfptr[696]) + /*_.VALDATA___V697*/ meltfptr[696] = (void*) sy_SMULC_CALL; } /*^getnamedsymbol*/ /*getnamedsym:SMULC_BODY*/ { melt_ptr_t sy_SMULC_BODY = meltgc_named_symbol("SMULC_BODY", MELT_GET); - if (sy_SMULC_BODY && NULL == /*_.VALDATA___V727*/ meltfptr[726]) - /*_.VALDATA___V727*/ meltfptr[726] = (void*) sy_SMULC_BODY; } + if (sy_SMULC_BODY && NULL == /*_.VALDATA___V699*/ meltfptr[698]) + /*_.VALDATA___V699*/ meltfptr[698] = (void*) sy_SMULC_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_LABELLED*/ { melt_ptr_t sy_CLASS_SOURCE_LABELLED = meltgc_named_symbol("CLASS_SOURCE_LABELLED", MELT_GET); - if (sy_CLASS_SOURCE_LABELLED && NULL == /*_.VALDATA___V729*/ meltfptr[728]) - /*_.VALDATA___V729*/ meltfptr[728] = (void*) sy_CLASS_SOURCE_LABELLED; } + if (sy_CLASS_SOURCE_LABELLED && NULL == /*_.VALDATA___V701*/ meltfptr[700]) + /*_.VALDATA___V701*/ meltfptr[700] = (void*) sy_CLASS_SOURCE_LABELLED; } /*^getnamedsymbol*/ /*getnamedsym:SLABEL_BIND*/ { melt_ptr_t sy_SLABEL_BIND = meltgc_named_symbol("SLABEL_BIND", MELT_GET); - if (sy_SLABEL_BIND && NULL == /*_.VALDATA___V737*/ meltfptr[736]) - /*_.VALDATA___V737*/ meltfptr[736] = (void*) sy_SLABEL_BIND; } + if (sy_SLABEL_BIND && NULL == /*_.VALDATA___V709*/ meltfptr[708]) + /*_.VALDATA___V709*/ meltfptr[708] = (void*) sy_SLABEL_BIND; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FOREVER*/ { melt_ptr_t sy_CLASS_SOURCE_FOREVER = meltgc_named_symbol("CLASS_SOURCE_FOREVER", MELT_GET); - if (sy_CLASS_SOURCE_FOREVER && NULL == /*_.VALDATA___V739*/ meltfptr[738]) - /*_.VALDATA___V739*/ meltfptr[738] = (void*) sy_CLASS_SOURCE_FOREVER; } + if (sy_CLASS_SOURCE_FOREVER && NULL == /*_.VALDATA___V711*/ meltfptr[710]) + /*_.VALDATA___V711*/ meltfptr[710] = (void*) sy_CLASS_SOURCE_FOREVER; } /*^getnamedsymbol*/ /*getnamedsym:SFRV_BODY*/ { melt_ptr_t sy_SFRV_BODY = meltgc_named_symbol("SFRV_BODY", MELT_GET); - if (sy_SFRV_BODY && NULL == /*_.VALDATA___V747*/ meltfptr[746]) - /*_.VALDATA___V747*/ meltfptr[746] = (void*) sy_SFRV_BODY; } + if (sy_SFRV_BODY && NULL == /*_.VALDATA___V719*/ meltfptr[718]) + /*_.VALDATA___V719*/ meltfptr[718] = (void*) sy_SFRV_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_EXIT*/ { melt_ptr_t sy_CLASS_SOURCE_EXIT = meltgc_named_symbol("CLASS_SOURCE_EXIT", MELT_GET); - if (sy_CLASS_SOURCE_EXIT && NULL == /*_.VALDATA___V749*/ meltfptr[748]) - /*_.VALDATA___V749*/ meltfptr[748] = (void*) sy_CLASS_SOURCE_EXIT; } + if (sy_CLASS_SOURCE_EXIT && NULL == /*_.VALDATA___V721*/ meltfptr[720]) + /*_.VALDATA___V721*/ meltfptr[720] = (void*) sy_CLASS_SOURCE_EXIT; } /*^getnamedsymbol*/ /*getnamedsym:SEXI_BODY*/ { melt_ptr_t sy_SEXI_BODY = meltgc_named_symbol("SEXI_BODY", MELT_GET); - if (sy_SEXI_BODY && NULL == /*_.VALDATA___V757*/ meltfptr[756]) - /*_.VALDATA___V757*/ meltfptr[756] = (void*) sy_SEXI_BODY; } + if (sy_SEXI_BODY && NULL == /*_.VALDATA___V729*/ meltfptr[728]) + /*_.VALDATA___V729*/ meltfptr[728] = (void*) sy_SEXI_BODY; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMPILEWARNING*/ { melt_ptr_t sy_CLASS_SOURCE_COMPILEWARNING = meltgc_named_symbol("CLASS_SOURCE_COMPILEWARNING", MELT_GET); - if (sy_CLASS_SOURCE_COMPILEWARNING && NULL == /*_.VALDATA___V759*/ meltfptr[758]) - /*_.VALDATA___V759*/ meltfptr[758] = (void*) sy_CLASS_SOURCE_COMPILEWARNING; } + if (sy_CLASS_SOURCE_COMPILEWARNING && NULL == /*_.VALDATA___V731*/ meltfptr[730]) + /*_.VALDATA___V731*/ meltfptr[730] = (void*) sy_CLASS_SOURCE_COMPILEWARNING; } /*^getnamedsymbol*/ /*getnamedsym:SCWARN_MSG*/ { melt_ptr_t sy_SCWARN_MSG = meltgc_named_symbol("SCWARN_MSG", MELT_GET); - if (sy_SCWARN_MSG && NULL == /*_.VALDATA___V769*/ meltfptr[768]) - /*_.VALDATA___V769*/ meltfptr[768] = (void*) sy_SCWARN_MSG; } + if (sy_SCWARN_MSG && NULL == /*_.VALDATA___V741*/ meltfptr[740]) + /*_.VALDATA___V741*/ meltfptr[740] = (void*) sy_SCWARN_MSG; } /*^getnamedsymbol*/ /*getnamedsym:SCWARN_EXPR*/ { melt_ptr_t sy_SCWARN_EXPR = meltgc_named_symbol("SCWARN_EXPR", MELT_GET); - if (sy_SCWARN_EXPR && NULL == /*_.VALDATA___V771*/ meltfptr[770]) - /*_.VALDATA___V771*/ meltfptr[770] = (void*) sy_SCWARN_EXPR; } + if (sy_SCWARN_EXPR && NULL == /*_.VALDATA___V743*/ meltfptr[742]) + /*_.VALDATA___V743*/ meltfptr[742] = (void*) sy_SCWARN_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ { melt_ptr_t sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); - if (sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V773*/ meltfptr[772]) - /*_.VALDATA___V773*/ meltfptr[772] = (void*) sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V745*/ meltfptr[744]) + /*_.VALDATA___V745*/ meltfptr[744] = (void*) sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:CMEC_COMMENT*/ { melt_ptr_t sy_CMEC_COMMENT = meltgc_named_symbol("CMEC_COMMENT", MELT_GET); - if (sy_CMEC_COMMENT && NULL == /*_.VALDATA___V781*/ meltfptr[780]) - /*_.VALDATA___V781*/ meltfptr[780] = (void*) sy_CMEC_COMMENT; } + if (sy_CMEC_COMMENT && NULL == /*_.VALDATA___V753*/ meltfptr[752]) + /*_.VALDATA___V753*/ meltfptr[752] = (void*) sy_CMEC_COMMENT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ { melt_ptr_t sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = meltgc_named_symbol("CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", MELT_GET); - if (sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V783*/ meltfptr[782]) - /*_.VALDATA___V783*/ meltfptr[782] = (void*) sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; } + if (sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V755*/ meltfptr[754]) + /*_.VALDATA___V755*/ meltfptr[754] = (void*) sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ { melt_ptr_t sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); - if (sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V789*/ meltfptr[788]) - /*_.VALDATA___V789*/ meltfptr[788] = (void*) sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V761*/ meltfptr[760]) + /*_.VALDATA___V761*/ meltfptr[760] = (void*) sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:SUCME_COMMENT*/ { melt_ptr_t sy_SUCME_COMMENT = meltgc_named_symbol("SUCME_COMMENT", MELT_GET); - if (sy_SUCME_COMMENT && NULL == /*_.VALDATA___V797*/ meltfptr[796]) - /*_.VALDATA___V797*/ meltfptr[796] = (void*) sy_SUCME_COMMENT; } + if (sy_SUCME_COMMENT && NULL == /*_.VALDATA___V769*/ meltfptr[768]) + /*_.VALDATA___V769*/ meltfptr[768] = (void*) sy_SUCME_COMMENT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FETCH_PREDEFINED*/ { melt_ptr_t sy_CLASS_SOURCE_FETCH_PREDEFINED = meltgc_named_symbol("CLASS_SOURCE_FETCH_PREDEFINED", MELT_GET); - if (sy_CLASS_SOURCE_FETCH_PREDEFINED && NULL == /*_.VALDATA___V799*/ meltfptr[798]) - /*_.VALDATA___V799*/ meltfptr[798] = (void*) sy_CLASS_SOURCE_FETCH_PREDEFINED; } + if (sy_CLASS_SOURCE_FETCH_PREDEFINED && NULL == /*_.VALDATA___V771*/ meltfptr[770]) + /*_.VALDATA___V771*/ meltfptr[770] = (void*) sy_CLASS_SOURCE_FETCH_PREDEFINED; } /*^getnamedsymbol*/ /*getnamedsym:SFEPD_PREDEF*/ { melt_ptr_t sy_SFEPD_PREDEF = meltgc_named_symbol("SFEPD_PREDEF", MELT_GET); - if (sy_SFEPD_PREDEF && NULL == /*_.VALDATA___V807*/ meltfptr[806]) - /*_.VALDATA___V807*/ meltfptr[806] = (void*) sy_SFEPD_PREDEF; } + if (sy_SFEPD_PREDEF && NULL == /*_.VALDATA___V779*/ meltfptr[778]) + /*_.VALDATA___V779*/ meltfptr[778] = (void*) sy_SFEPD_PREDEF; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_STORE_PREDEFINED*/ { melt_ptr_t sy_CLASS_SOURCE_STORE_PREDEFINED = meltgc_named_symbol("CLASS_SOURCE_STORE_PREDEFINED", MELT_GET); - if (sy_CLASS_SOURCE_STORE_PREDEFINED && NULL == /*_.VALDATA___V809*/ meltfptr[808]) - /*_.VALDATA___V809*/ meltfptr[808] = (void*) sy_CLASS_SOURCE_STORE_PREDEFINED; } + if (sy_CLASS_SOURCE_STORE_PREDEFINED && NULL == /*_.VALDATA___V781*/ meltfptr[780]) + /*_.VALDATA___V781*/ meltfptr[780] = (void*) sy_CLASS_SOURCE_STORE_PREDEFINED; } /*^getnamedsymbol*/ /*getnamedsym:SSTPD_PREDEF*/ { melt_ptr_t sy_SSTPD_PREDEF = meltgc_named_symbol("SSTPD_PREDEF", MELT_GET); - if (sy_SSTPD_PREDEF && NULL == /*_.VALDATA___V819*/ meltfptr[818]) - /*_.VALDATA___V819*/ meltfptr[818] = (void*) sy_SSTPD_PREDEF; } + if (sy_SSTPD_PREDEF && NULL == /*_.VALDATA___V791*/ meltfptr[790]) + /*_.VALDATA___V791*/ meltfptr[790] = (void*) sy_SSTPD_PREDEF; } /*^getnamedsymbol*/ /*getnamedsym:SSTPD_VALUE*/ { melt_ptr_t sy_SSTPD_VALUE = meltgc_named_symbol("SSTPD_VALUE", MELT_GET); - if (sy_SSTPD_VALUE && NULL == /*_.VALDATA___V821*/ meltfptr[820]) - /*_.VALDATA___V821*/ meltfptr[820] = (void*) sy_SSTPD_VALUE; } + if (sy_SSTPD_VALUE && NULL == /*_.VALDATA___V793*/ meltfptr[792]) + /*_.VALDATA___V793*/ meltfptr[792] = (void*) sy_SSTPD_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CODECHUNK*/ { melt_ptr_t sy_CLASS_SOURCE_CODECHUNK = meltgc_named_symbol("CLASS_SOURCE_CODECHUNK", MELT_GET); - if (sy_CLASS_SOURCE_CODECHUNK && NULL == /*_.VALDATA___V823*/ meltfptr[822]) - /*_.VALDATA___V823*/ meltfptr[822] = (void*) sy_CLASS_SOURCE_CODECHUNK; } + if (sy_CLASS_SOURCE_CODECHUNK && NULL == /*_.VALDATA___V795*/ meltfptr[794]) + /*_.VALDATA___V795*/ meltfptr[794] = (void*) sy_CLASS_SOURCE_CODECHUNK; } /*^getnamedsymbol*/ /*getnamedsym:SCH_GENSYM*/ { melt_ptr_t sy_SCH_GENSYM = meltgc_named_symbol("SCH_GENSYM", MELT_GET); - if (sy_SCH_GENSYM && NULL == /*_.VALDATA___V833*/ meltfptr[832]) - /*_.VALDATA___V833*/ meltfptr[832] = (void*) sy_SCH_GENSYM; } + if (sy_SCH_GENSYM && NULL == /*_.VALDATA___V805*/ meltfptr[804]) + /*_.VALDATA___V805*/ meltfptr[804] = (void*) sy_SCH_GENSYM; } /*^getnamedsymbol*/ /*getnamedsym:SCH_CHUNKS*/ { melt_ptr_t sy_SCH_CHUNKS = meltgc_named_symbol("SCH_CHUNKS", MELT_GET); - if (sy_SCH_CHUNKS && NULL == /*_.VALDATA___V835*/ meltfptr[834]) - /*_.VALDATA___V835*/ meltfptr[834] = (void*) sy_SCH_CHUNKS; } + if (sy_SCH_CHUNKS && NULL == /*_.VALDATA___V807*/ meltfptr[806]) + /*_.VALDATA___V807*/ meltfptr[806] = (void*) sy_SCH_CHUNKS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN = meltgc_named_symbol("CLASS_SOURCE_PATTERN", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN && NULL == /*_.VALDATA___V837*/ meltfptr[836]) - /*_.VALDATA___V837*/ meltfptr[836] = (void*) sy_CLASS_SOURCE_PATTERN; } + if (sy_CLASS_SOURCE_PATTERN && NULL == /*_.VALDATA___V809*/ meltfptr[808]) + /*_.VALDATA___V809*/ meltfptr[808] = (void*) sy_CLASS_SOURCE_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:PAT_WEIGHT*/ { melt_ptr_t sy_PAT_WEIGHT = meltgc_named_symbol("PAT_WEIGHT", MELT_GET); - if (sy_PAT_WEIGHT && NULL == /*_.VALDATA___V845*/ meltfptr[844]) - /*_.VALDATA___V845*/ meltfptr[844] = (void*) sy_PAT_WEIGHT; } + if (sy_PAT_WEIGHT && NULL == /*_.VALDATA___V817*/ meltfptr[816]) + /*_.VALDATA___V817*/ meltfptr[816] = (void*) sy_PAT_WEIGHT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OR*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OR = meltgc_named_symbol("CLASS_SOURCE_PATTERN_OR", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_OR && NULL == /*_.VALDATA___V847*/ meltfptr[846]) - /*_.VALDATA___V847*/ meltfptr[846] = (void*) sy_CLASS_SOURCE_PATTERN_OR; } + if (sy_CLASS_SOURCE_PATTERN_OR && NULL == /*_.VALDATA___V819*/ meltfptr[818]) + /*_.VALDATA___V819*/ meltfptr[818] = (void*) sy_CLASS_SOURCE_PATTERN_OR; } /*^getnamedsymbol*/ /*getnamedsym:ORPAT_DISJ*/ { melt_ptr_t sy_ORPAT_DISJ = meltgc_named_symbol("ORPAT_DISJ", MELT_GET); - if (sy_ORPAT_DISJ && NULL == /*_.VALDATA___V855*/ meltfptr[854]) - /*_.VALDATA___V855*/ meltfptr[854] = (void*) sy_ORPAT_DISJ; } + if (sy_ORPAT_DISJ && NULL == /*_.VALDATA___V827*/ meltfptr[826]) + /*_.VALDATA___V827*/ meltfptr[826] = (void*) sy_ORPAT_DISJ; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_AND*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_AND = meltgc_named_symbol("CLASS_SOURCE_PATTERN_AND", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_AND && NULL == /*_.VALDATA___V857*/ meltfptr[856]) - /*_.VALDATA___V857*/ meltfptr[856] = (void*) sy_CLASS_SOURCE_PATTERN_AND; } + if (sy_CLASS_SOURCE_PATTERN_AND && NULL == /*_.VALDATA___V829*/ meltfptr[828]) + /*_.VALDATA___V829*/ meltfptr[828] = (void*) sy_CLASS_SOURCE_PATTERN_AND; } /*^getnamedsymbol*/ /*getnamedsym:ANDPAT_CONJ*/ { melt_ptr_t sy_ANDPAT_CONJ = meltgc_named_symbol("ANDPAT_CONJ", MELT_GET); - if (sy_ANDPAT_CONJ && NULL == /*_.VALDATA___V865*/ meltfptr[864]) - /*_.VALDATA___V865*/ meltfptr[864] = (void*) sy_ANDPAT_CONJ; } + if (sy_ANDPAT_CONJ && NULL == /*_.VALDATA___V837*/ meltfptr[836]) + /*_.VALDATA___V837*/ meltfptr[836] = (void*) sy_ANDPAT_CONJ; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_WHEN*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_WHEN = meltgc_named_symbol("CLASS_SOURCE_PATTERN_WHEN", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_WHEN && NULL == /*_.VALDATA___V867*/ meltfptr[866]) - /*_.VALDATA___V867*/ meltfptr[866] = (void*) sy_CLASS_SOURCE_PATTERN_WHEN; } + if (sy_CLASS_SOURCE_PATTERN_WHEN && NULL == /*_.VALDATA___V839*/ meltfptr[838]) + /*_.VALDATA___V839*/ meltfptr[838] = (void*) sy_CLASS_SOURCE_PATTERN_WHEN; } /*^getnamedsymbol*/ /*getnamedsym:WHENPAT_SUBPAT*/ { melt_ptr_t sy_WHENPAT_SUBPAT = meltgc_named_symbol("WHENPAT_SUBPAT", MELT_GET); - if (sy_WHENPAT_SUBPAT && NULL == /*_.VALDATA___V877*/ meltfptr[876]) - /*_.VALDATA___V877*/ meltfptr[876] = (void*) sy_WHENPAT_SUBPAT; } + if (sy_WHENPAT_SUBPAT && NULL == /*_.VALDATA___V849*/ meltfptr[848]) + /*_.VALDATA___V849*/ meltfptr[848] = (void*) sy_WHENPAT_SUBPAT; } /*^getnamedsymbol*/ /*getnamedsym:WHENPAT_COND*/ { melt_ptr_t sy_WHENPAT_COND = meltgc_named_symbol("WHENPAT_COND", MELT_GET); - if (sy_WHENPAT_COND && NULL == /*_.VALDATA___V879*/ meltfptr[878]) - /*_.VALDATA___V879*/ meltfptr[878] = (void*) sy_WHENPAT_COND; } + if (sy_WHENPAT_COND && NULL == /*_.VALDATA___V851*/ meltfptr[850]) + /*_.VALDATA___V851*/ meltfptr[850] = (void*) sy_WHENPAT_COND; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_VARIABLE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_VARIABLE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_VARIABLE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_VARIABLE && NULL == /*_.VALDATA___V881*/ meltfptr[880]) - /*_.VALDATA___V881*/ meltfptr[880] = (void*) sy_CLASS_SOURCE_PATTERN_VARIABLE; } + if (sy_CLASS_SOURCE_PATTERN_VARIABLE && NULL == /*_.VALDATA___V853*/ meltfptr[852]) + /*_.VALDATA___V853*/ meltfptr[852] = (void*) sy_CLASS_SOURCE_PATTERN_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:SPATVAR_SYMB*/ { melt_ptr_t sy_SPATVAR_SYMB = meltgc_named_symbol("SPATVAR_SYMB", MELT_GET); - if (sy_SPATVAR_SYMB && NULL == /*_.VALDATA___V891*/ meltfptr[890]) - /*_.VALDATA___V891*/ meltfptr[890] = (void*) sy_SPATVAR_SYMB; } + if (sy_SPATVAR_SYMB && NULL == /*_.VALDATA___V863*/ meltfptr[862]) + /*_.VALDATA___V863*/ meltfptr[862] = (void*) sy_SPATVAR_SYMB; } /*^getnamedsymbol*/ /*getnamedsym:SPATVAR_NBOCC*/ { melt_ptr_t sy_SPATVAR_NBOCC = meltgc_named_symbol("SPATVAR_NBOCC", MELT_GET); - if (sy_SPATVAR_NBOCC && NULL == /*_.VALDATA___V893*/ meltfptr[892]) - /*_.VALDATA___V893*/ meltfptr[892] = (void*) sy_SPATVAR_NBOCC; } + if (sy_SPATVAR_NBOCC && NULL == /*_.VALDATA___V865*/ meltfptr[864]) + /*_.VALDATA___V865*/ meltfptr[864] = (void*) sy_SPATVAR_NBOCC; } /*^getnamedsymbol*/ /*getnamedsym:SPAT_VAR*/ { melt_ptr_t sy_SPAT_VAR = meltgc_named_symbol("SPAT_VAR", MELT_GET); - if (sy_SPAT_VAR && NULL == /*_.VALDATA___V895*/ meltfptr[894]) - /*_.VALDATA___V895*/ meltfptr[894] = (void*) sy_SPAT_VAR; } + if (sy_SPAT_VAR && NULL == /*_.VALDATA___V867*/ meltfptr[866]) + /*_.VALDATA___V867*/ meltfptr[866] = (void*) sy_SPAT_VAR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_JOKER_VARIABLE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE && NULL == /*_.VALDATA___V897*/ meltfptr[896]) - /*_.VALDATA___V897*/ meltfptr[896] = (void*) sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } + if (sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE && NULL == /*_.VALDATA___V869*/ meltfptr[868]) + /*_.VALDATA___V869*/ meltfptr[868] = (void*) sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTANT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTANT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_CONSTANT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_CONSTANT && NULL == /*_.VALDATA___V903*/ meltfptr[902]) - /*_.VALDATA___V903*/ meltfptr[902] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTANT; } + if (sy_CLASS_SOURCE_PATTERN_CONSTANT && NULL == /*_.VALDATA___V875*/ meltfptr[874]) + /*_.VALDATA___V875*/ meltfptr[874] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTANT; } /*^getnamedsymbol*/ /*getnamedsym:SPAT_CONSTX*/ { melt_ptr_t sy_SPAT_CONSTX = meltgc_named_symbol("SPAT_CONSTX", MELT_GET); - if (sy_SPAT_CONSTX && NULL == /*_.VALDATA___V911*/ meltfptr[910]) - /*_.VALDATA___V911*/ meltfptr[910] = (void*) sy_SPAT_CONSTX; } + if (sy_SPAT_CONSTX && NULL == /*_.VALDATA___V883*/ meltfptr[882]) + /*_.VALDATA___V883*/ meltfptr[882] = (void*) sy_SPAT_CONSTX; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTRUCT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_CONSTRUCT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_CONSTRUCT && NULL == /*_.VALDATA___V913*/ meltfptr[912]) - /*_.VALDATA___V913*/ meltfptr[912] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTRUCT; } + if (sy_CLASS_SOURCE_PATTERN_CONSTRUCT && NULL == /*_.VALDATA___V885*/ meltfptr[884]) + /*_.VALDATA___V885*/ meltfptr[884] = (void*) sy_CLASS_SOURCE_PATTERN_CONSTRUCT; } /*^getnamedsymbol*/ /*getnamedsym:CTPAT_SUBPA*/ { melt_ptr_t sy_CTPAT_SUBPA = meltgc_named_symbol("CTPAT_SUBPA", MELT_GET); - if (sy_CTPAT_SUBPA && NULL == /*_.VALDATA___V921*/ meltfptr[920]) - /*_.VALDATA___V921*/ meltfptr[920] = (void*) sy_CTPAT_SUBPA; } + if (sy_CTPAT_SUBPA && NULL == /*_.VALDATA___V893*/ meltfptr[892]) + /*_.VALDATA___V893*/ meltfptr[892] = (void*) sy_CTPAT_SUBPA; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_TUPLE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_TUPLE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_TUPLE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_TUPLE && NULL == /*_.VALDATA___V923*/ meltfptr[922]) - /*_.VALDATA___V923*/ meltfptr[922] = (void*) sy_CLASS_SOURCE_PATTERN_TUPLE; } + if (sy_CLASS_SOURCE_PATTERN_TUPLE && NULL == /*_.VALDATA___V895*/ meltfptr[894]) + /*_.VALDATA___V895*/ meltfptr[894] = (void*) sy_CLASS_SOURCE_PATTERN_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_LIST*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_LIST = meltgc_named_symbol("CLASS_SOURCE_PATTERN_LIST", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_LIST && NULL == /*_.VALDATA___V929*/ meltfptr[928]) - /*_.VALDATA___V929*/ meltfptr[928] = (void*) sy_CLASS_SOURCE_PATTERN_LIST; } + if (sy_CLASS_SOURCE_PATTERN_LIST && NULL == /*_.VALDATA___V901*/ meltfptr[900]) + /*_.VALDATA___V901*/ meltfptr[900] = (void*) sy_CLASS_SOURCE_PATTERN_LIST; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_OBJECT*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OBJECT = meltgc_named_symbol("CLASS_SOURCE_PATTERN_OBJECT", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_OBJECT && NULL == /*_.VALDATA___V935*/ meltfptr[934]) - /*_.VALDATA___V935*/ meltfptr[934] = (void*) sy_CLASS_SOURCE_PATTERN_OBJECT; } + if (sy_CLASS_SOURCE_PATTERN_OBJECT && NULL == /*_.VALDATA___V907*/ meltfptr[906]) + /*_.VALDATA___V907*/ meltfptr[906] = (void*) sy_CLASS_SOURCE_PATTERN_OBJECT; } /*^getnamedsymbol*/ /*getnamedsym:SPAT_CLASS*/ { melt_ptr_t sy_SPAT_CLASS = meltgc_named_symbol("SPAT_CLASS", MELT_GET); - if (sy_SPAT_CLASS && NULL == /*_.VALDATA___V945*/ meltfptr[944]) - /*_.VALDATA___V945*/ meltfptr[944] = (void*) sy_SPAT_CLASS; } + if (sy_SPAT_CLASS && NULL == /*_.VALDATA___V917*/ meltfptr[916]) + /*_.VALDATA___V917*/ meltfptr[916] = (void*) sy_SPAT_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:SPAT_FIELDS*/ { melt_ptr_t sy_SPAT_FIELDS = meltgc_named_symbol("SPAT_FIELDS", MELT_GET); - if (sy_SPAT_FIELDS && NULL == /*_.VALDATA___V947*/ meltfptr[946]) - /*_.VALDATA___V947*/ meltfptr[946] = (void*) sy_SPAT_FIELDS; } + if (sy_SPAT_FIELDS && NULL == /*_.VALDATA___V919*/ meltfptr[918]) + /*_.VALDATA___V919*/ meltfptr[918] = (void*) sy_SPAT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_INSTANCE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_INSTANCE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_INSTANCE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_INSTANCE && NULL == /*_.VALDATA___V949*/ meltfptr[948]) - /*_.VALDATA___V949*/ meltfptr[948] = (void*) sy_CLASS_SOURCE_PATTERN_INSTANCE; } + if (sy_CLASS_SOURCE_PATTERN_INSTANCE && NULL == /*_.VALDATA___V921*/ meltfptr[920]) + /*_.VALDATA___V921*/ meltfptr[920] = (void*) sy_CLASS_SOURCE_PATTERN_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_FIELD_PATTERN*/ { melt_ptr_t sy_CLASS_SOURCE_FIELD_PATTERN = meltgc_named_symbol("CLASS_SOURCE_FIELD_PATTERN", MELT_GET); - if (sy_CLASS_SOURCE_FIELD_PATTERN && NULL == /*_.VALDATA___V955*/ meltfptr[954]) - /*_.VALDATA___V955*/ meltfptr[954] = (void*) sy_CLASS_SOURCE_FIELD_PATTERN; } + if (sy_CLASS_SOURCE_FIELD_PATTERN && NULL == /*_.VALDATA___V927*/ meltfptr[926]) + /*_.VALDATA___V927*/ meltfptr[926] = (void*) sy_CLASS_SOURCE_FIELD_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:SPAF_FIELD*/ { melt_ptr_t sy_SPAF_FIELD = meltgc_named_symbol("SPAF_FIELD", MELT_GET); - if (sy_SPAF_FIELD && NULL == /*_.VALDATA___V965*/ meltfptr[964]) - /*_.VALDATA___V965*/ meltfptr[964] = (void*) sy_SPAF_FIELD; } + if (sy_SPAF_FIELD && NULL == /*_.VALDATA___V937*/ meltfptr[936]) + /*_.VALDATA___V937*/ meltfptr[936] = (void*) sy_SPAF_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:SPAF_PATTERN*/ { melt_ptr_t sy_SPAF_PATTERN = meltgc_named_symbol("SPAF_PATTERN", MELT_GET); - if (sy_SPAF_PATTERN && NULL == /*_.VALDATA___V967*/ meltfptr[966]) - /*_.VALDATA___V967*/ meltfptr[966] = (void*) sy_SPAF_PATTERN; } + if (sy_SPAF_PATTERN && NULL == /*_.VALDATA___V939*/ meltfptr[938]) + /*_.VALDATA___V939*/ meltfptr[938] = (void*) sy_SPAF_PATTERN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_COMPOSITE = meltgc_named_symbol("CLASS_SOURCE_PATTERN_COMPOSITE", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_COMPOSITE && NULL == /*_.VALDATA___V969*/ meltfptr[968]) - /*_.VALDATA___V969*/ meltfptr[968] = (void*) sy_CLASS_SOURCE_PATTERN_COMPOSITE; } + if (sy_CLASS_SOURCE_PATTERN_COMPOSITE && NULL == /*_.VALDATA___V941*/ meltfptr[940]) + /*_.VALDATA___V941*/ meltfptr[940] = (void*) sy_CLASS_SOURCE_PATTERN_COMPOSITE; } /*^getnamedsymbol*/ /*getnamedsym:SPAC_OPERATOR*/ { melt_ptr_t sy_SPAC_OPERATOR = meltgc_named_symbol("SPAC_OPERATOR", MELT_GET); - if (sy_SPAC_OPERATOR && NULL == /*_.VALDATA___V983*/ meltfptr[982]) - /*_.VALDATA___V983*/ meltfptr[982] = (void*) sy_SPAC_OPERATOR; } + if (sy_SPAC_OPERATOR && NULL == /*_.VALDATA___V955*/ meltfptr[954]) + /*_.VALDATA___V955*/ meltfptr[954] = (void*) sy_SPAC_OPERATOR; } /*^getnamedsymbol*/ /*getnamedsym:SPAC_OPERBIND*/ { melt_ptr_t sy_SPAC_OPERBIND = meltgc_named_symbol("SPAC_OPERBIND", MELT_GET); - if (sy_SPAC_OPERBIND && NULL == /*_.VALDATA___V985*/ meltfptr[984]) - /*_.VALDATA___V985*/ meltfptr[984] = (void*) sy_SPAC_OPERBIND; } + if (sy_SPAC_OPERBIND && NULL == /*_.VALDATA___V957*/ meltfptr[956]) + /*_.VALDATA___V957*/ meltfptr[956] = (void*) sy_SPAC_OPERBIND; } /*^getnamedsymbol*/ /*getnamedsym:SPAC_INARGS*/ { melt_ptr_t sy_SPAC_INARGS = meltgc_named_symbol("SPAC_INARGS", MELT_GET); - if (sy_SPAC_INARGS && NULL == /*_.VALDATA___V987*/ meltfptr[986]) - /*_.VALDATA___V987*/ meltfptr[986] = (void*) sy_SPAC_INARGS; } + if (sy_SPAC_INARGS && NULL == /*_.VALDATA___V959*/ meltfptr[958]) + /*_.VALDATA___V959*/ meltfptr[958] = (void*) sy_SPAC_INARGS; } /*^getnamedsymbol*/ /*getnamedsym:SPAC_OUTARGS*/ { melt_ptr_t sy_SPAC_OUTARGS = meltgc_named_symbol("SPAC_OUTARGS", MELT_GET); - if (sy_SPAC_OUTARGS && NULL == /*_.VALDATA___V989*/ meltfptr[988]) - /*_.VALDATA___V989*/ meltfptr[988] = (void*) sy_SPAC_OUTARGS; } + if (sy_SPAC_OUTARGS && NULL == /*_.VALDATA___V961*/ meltfptr[960]) + /*_.VALDATA___V961*/ meltfptr[960] = (void*) sy_SPAC_OUTARGS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_MATCHER*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_MATCHER = meltgc_named_symbol("CLASS_SOURCE_PATTERN_MATCHER", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_MATCHER && NULL == /*_.VALDATA___V991*/ meltfptr[990]) - /*_.VALDATA___V991*/ meltfptr[990] = (void*) sy_CLASS_SOURCE_PATTERN_MATCHER; } + if (sy_CLASS_SOURCE_PATTERN_MATCHER && NULL == /*_.VALDATA___V963*/ meltfptr[962]) + /*_.VALDATA___V963*/ meltfptr[962] = (void*) sy_CLASS_SOURCE_PATTERN_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_C_MATCH*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_C_MATCH = meltgc_named_symbol("CLASS_SOURCE_PATTERN_C_MATCH", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_C_MATCH && NULL == /*_.VALDATA___V997*/ meltfptr[996]) - /*_.VALDATA___V997*/ meltfptr[996] = (void*) sy_CLASS_SOURCE_PATTERN_C_MATCH; } + if (sy_CLASS_SOURCE_PATTERN_C_MATCH && NULL == /*_.VALDATA___V969*/ meltfptr[968]) + /*_.VALDATA___V969*/ meltfptr[968] = (void*) sy_CLASS_SOURCE_PATTERN_C_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_PATTERN_FUN_MATCH*/ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_FUN_MATCH = meltgc_named_symbol("CLASS_SOURCE_PATTERN_FUN_MATCH", MELT_GET); - if (sy_CLASS_SOURCE_PATTERN_FUN_MATCH && NULL == /*_.VALDATA___V1003*/ meltfptr[1002]) - /*_.VALDATA___V1003*/ meltfptr[1002] = (void*) sy_CLASS_SOURCE_PATTERN_FUN_MATCH; } + if (sy_CLASS_SOURCE_PATTERN_FUN_MATCH && NULL == /*_.VALDATA___V975*/ meltfptr[974]) + /*_.VALDATA___V975*/ meltfptr[974] = (void*) sy_CLASS_SOURCE_PATTERN_FUN_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ENVIRONMENT*/ { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol("CLASS_ENVIRONMENT", MELT_GET); - if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V1038*/ meltfptr[1037]) - /*_.VALDATA___V1038*/ meltfptr[1037] = (void*) sy_CLASS_ENVIRONMENT; } + if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V1010*/ meltfptr[1009]) + /*_.VALDATA___V1010*/ meltfptr[1009] = (void*) sy_CLASS_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:LIST_TO_MULTIPLE*/ { melt_ptr_t sy_LIST_TO_MULTIPLE = meltgc_named_symbol("LIST_TO_MULTIPLE", MELT_GET); - if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1040*/ meltfptr[1039]) - /*_.VALDATA___V1040*/ meltfptr[1039] = (void*) sy_LIST_TO_MULTIPLE; } + if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1012*/ meltfptr[1011]) + /*_.VALDATA___V1012*/ meltfptr[1011] = (void*) sy_LIST_TO_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MULTIPLE*/ { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol("DISCR_MULTIPLE", MELT_GET); - if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V1042*/ meltfptr[1041]) - /*_.VALDATA___V1042*/ meltfptr[1041] = (void*) sy_DISCR_MULTIPLE; } + if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V1014*/ meltfptr[1013]) + /*_.VALDATA___V1014*/ meltfptr[1013] = (void*) sy_DISCR_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SEXPR*/ { melt_ptr_t sy_CLASS_SEXPR = meltgc_named_symbol("CLASS_SEXPR", MELT_GET); - if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V1044*/ meltfptr[1043]) - /*_.VALDATA___V1044*/ meltfptr[1043] = (void*) sy_CLASS_SEXPR; } + if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V1016*/ meltfptr[1015]) + /*_.VALDATA___V1016*/ meltfptr[1015] = (void*) sy_CLASS_SEXPR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SYMBOL*/ { melt_ptr_t sy_CLASS_SYMBOL = meltgc_named_symbol("CLASS_SYMBOL", MELT_GET); - if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V1046*/ meltfptr[1045]) - /*_.VALDATA___V1046*/ meltfptr[1045] = (void*) sy_CLASS_SYMBOL; } + if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V1018*/ meltfptr[1017]) + /*_.VALDATA___V1018*/ meltfptr[1017] = (void*) sy_CLASS_SYMBOL; } /*^getnamedsymbol*/ /*getnamedsym:DEBUG_MSG_FUN*/ { melt_ptr_t sy_DEBUG_MSG_FUN = meltgc_named_symbol("DEBUG_MSG_FUN", MELT_GET); - if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V1048*/ meltfptr[1047]) - /*_.VALDATA___V1048*/ meltfptr[1047] = (void*) sy_DEBUG_MSG_FUN; } + if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V1020*/ meltfptr[1019]) + /*_.VALDATA___V1020*/ meltfptr[1019] = (void*) sy_DEBUG_MSG_FUN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD*/ { melt_ptr_t sy_CLASS_FIELD = meltgc_named_symbol("CLASS_FIELD", MELT_GET); - if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1050*/ meltfptr[1049]) - /*_.VALDATA___V1050*/ meltfptr[1049] = (void*) sy_CLASS_FIELD; } + if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1022*/ meltfptr[1021]) + /*_.VALDATA___V1022*/ meltfptr[1021] = (void*) sy_CLASS_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_KEYWORD*/ { melt_ptr_t sy_CLASS_KEYWORD = meltgc_named_symbol("CLASS_KEYWORD", MELT_GET); - if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V1052*/ meltfptr[1051]) - /*_.VALDATA___V1052*/ meltfptr[1051] = (void*) sy_CLASS_KEYWORD; } + if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V1024*/ meltfptr[1023]) + /*_.VALDATA___V1024*/ meltfptr[1023] = (void*) sy_CLASS_KEYWORD; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_NAMED*/ { melt_ptr_t sy_CLASS_NAMED = meltgc_named_symbol("CLASS_NAMED", MELT_GET); - if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V1054*/ meltfptr[1053]) - /*_.VALDATA___V1054*/ meltfptr[1053] = (void*) sy_CLASS_NAMED; } + if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V1026*/ meltfptr[1025]) + /*_.VALDATA___V1026*/ meltfptr[1025] = (void*) sy_CLASS_NAMED; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CITERATOR*/ { melt_ptr_t sy_CLASS_CITERATOR = meltgc_named_symbol("CLASS_CITERATOR", MELT_GET); - if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V1056*/ meltfptr[1055]) - /*_.VALDATA___V1056*/ meltfptr[1055] = (void*) sy_CLASS_CITERATOR; } + if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V1028*/ meltfptr[1027]) + /*_.VALDATA___V1028*/ meltfptr[1027] = (void*) sy_CLASS_CITERATOR; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CMATCHER*/ { melt_ptr_t sy_CLASS_CMATCHER = meltgc_named_symbol("CLASS_CMATCHER", MELT_GET); - if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V1058*/ meltfptr[1057]) - /*_.VALDATA___V1058*/ meltfptr[1057] = (void*) sy_CLASS_CMATCHER; } + if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V1030*/ meltfptr[1029]) + /*_.VALDATA___V1030*/ meltfptr[1029] = (void*) sy_CLASS_CMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNMATCHER*/ { melt_ptr_t sy_CLASS_FUNMATCHER = meltgc_named_symbol("CLASS_FUNMATCHER", MELT_GET); - if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V1060*/ meltfptr[1059]) - /*_.VALDATA___V1060*/ meltfptr[1059] = (void*) sy_CLASS_FUNMATCHER; } + if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V1032*/ meltfptr[1031]) + /*_.VALDATA___V1032*/ meltfptr[1031] = (void*) sy_CLASS_FUNMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV*/ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol("FIND_ENV", MELT_GET); - if (sy_FIND_ENV && NULL == /*_.VALDATA___V1062*/ meltfptr[1061]) - /*_.VALDATA___V1062*/ meltfptr[1061] = (void*) sy_FIND_ENV; } + if (sy_FIND_ENV && NULL == /*_.VALDATA___V1034*/ meltfptr[1033]) + /*_.VALDATA___V1034*/ meltfptr[1033] = (void*) sy_FIND_ENV; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_MACRO_BINDING*/ { melt_ptr_t sy_CLASS_MACRO_BINDING = meltgc_named_symbol("CLASS_MACRO_BINDING", MELT_GET); - if (sy_CLASS_MACRO_BINDING && NULL == /*_.VALDATA___V1064*/ meltfptr[1063]) - /*_.VALDATA___V1064*/ meltfptr[1063] = (void*) sy_CLASS_MACRO_BINDING; } + if (sy_CLASS_MACRO_BINDING && NULL == /*_.VALDATA___V1036*/ meltfptr[1035]) + /*_.VALDATA___V1036*/ meltfptr[1035] = (void*) sy_CLASS_MACRO_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_SELECTOR_BINDING*/ { melt_ptr_t sy_CLASS_SELECTOR_BINDING = meltgc_named_symbol("CLASS_SELECTOR_BINDING", MELT_GET); - if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V1066*/ meltfptr[1065]) - /*_.VALDATA___V1066*/ meltfptr[1065] = (void*) sy_CLASS_SELECTOR_BINDING; } + if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V1038*/ meltfptr[1037]) + /*_.VALDATA___V1038*/ meltfptr[1037] = (void*) sy_CLASS_SELECTOR_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_PRIMITIVE_BINDING*/ { melt_ptr_t sy_CLASS_PRIMITIVE_BINDING = meltgc_named_symbol("CLASS_PRIMITIVE_BINDING", MELT_GET); - if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V1068*/ meltfptr[1067]) - /*_.VALDATA___V1068*/ meltfptr[1067] = (void*) sy_CLASS_PRIMITIVE_BINDING; } + if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V1040*/ meltfptr[1039]) + /*_.VALDATA___V1040*/ meltfptr[1039] = (void*) sy_CLASS_PRIMITIVE_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CITERATOR_BINDING*/ { melt_ptr_t sy_CLASS_CITERATOR_BINDING = meltgc_named_symbol("CLASS_CITERATOR_BINDING", MELT_GET); - if (sy_CLASS_CITERATOR_BINDING && NULL == /*_.VALDATA___V1070*/ meltfptr[1069]) - /*_.VALDATA___V1070*/ meltfptr[1069] = (void*) sy_CLASS_CITERATOR_BINDING; } + if (sy_CLASS_CITERATOR_BINDING && NULL == /*_.VALDATA___V1042*/ meltfptr[1041]) + /*_.VALDATA___V1042*/ meltfptr[1041] = (void*) sy_CLASS_CITERATOR_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CMATCHER_BINDING*/ { melt_ptr_t sy_CLASS_CMATCHER_BINDING = meltgc_named_symbol("CLASS_CMATCHER_BINDING", MELT_GET); - if (sy_CLASS_CMATCHER_BINDING && NULL == /*_.VALDATA___V1072*/ meltfptr[1071]) - /*_.VALDATA___V1072*/ meltfptr[1071] = (void*) sy_CLASS_CMATCHER_BINDING; } + if (sy_CLASS_CMATCHER_BINDING && NULL == /*_.VALDATA___V1044*/ meltfptr[1043]) + /*_.VALDATA___V1044*/ meltfptr[1043] = (void*) sy_CLASS_CMATCHER_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNMATCHER_BINDING*/ { melt_ptr_t sy_CLASS_FUNMATCHER_BINDING = meltgc_named_symbol("CLASS_FUNMATCHER_BINDING", MELT_GET); - if (sy_CLASS_FUNMATCHER_BINDING && NULL == /*_.VALDATA___V1074*/ meltfptr[1073]) - /*_.VALDATA___V1074*/ meltfptr[1073] = (void*) sy_CLASS_FUNMATCHER_BINDING; } + if (sy_CLASS_FUNMATCHER_BINDING && NULL == /*_.VALDATA___V1046*/ meltfptr[1045]) + /*_.VALDATA___V1046*/ meltfptr[1045] = (void*) sy_CLASS_FUNMATCHER_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD_BINDING*/ { melt_ptr_t sy_CLASS_FIELD_BINDING = meltgc_named_symbol("CLASS_FIELD_BINDING", MELT_GET); - if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1076*/ meltfptr[1075]) - /*_.VALDATA___V1076*/ meltfptr[1075] = (void*) sy_CLASS_FIELD_BINDING; } + if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1048*/ meltfptr[1047]) + /*_.VALDATA___V1048*/ meltfptr[1047] = (void*) sy_CLASS_FIELD_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_VALUE_BINDING*/ { melt_ptr_t sy_CLASS_VALUE_BINDING = meltgc_named_symbol("CLASS_VALUE_BINDING", MELT_GET); - if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V1078*/ meltfptr[1077]) - /*_.VALDATA___V1078*/ meltfptr[1077] = (void*) sy_CLASS_VALUE_BINDING; } + if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V1050*/ meltfptr[1049]) + /*_.VALDATA___V1050*/ meltfptr[1049] = (void*) sy_CLASS_VALUE_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_PRIMITIVE*/ { melt_ptr_t sy_CLASS_PRIMITIVE = meltgc_named_symbol("CLASS_PRIMITIVE", MELT_GET); - if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1080*/ meltfptr[1079]) - /*_.VALDATA___V1080*/ meltfptr[1079] = (void*) sy_CLASS_PRIMITIVE; } + if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1052*/ meltfptr[1051]) + /*_.VALDATA___V1052*/ meltfptr[1051] = (void*) sy_CLASS_PRIMITIVE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_PATTERN_EXPANSION_CONTEXT*/ { melt_ptr_t sy_CLASS_PATTERN_EXPANSION_CONTEXT = meltgc_named_symbol("CLASS_PATTERN_EXPANSION_CONTEXT", MELT_GET); - if (sy_CLASS_PATTERN_EXPANSION_CONTEXT && NULL == /*_.VALDATA___V1082*/ meltfptr[1081]) - /*_.VALDATA___V1082*/ meltfptr[1081] = (void*) sy_CLASS_PATTERN_EXPANSION_CONTEXT; } + if (sy_CLASS_PATTERN_EXPANSION_CONTEXT && NULL == /*_.VALDATA___V1054*/ meltfptr[1053]) + /*_.VALDATA___V1054*/ meltfptr[1053] = (void*) sy_CLASS_PATTERN_EXPANSION_CONTEXT; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ROOT*/ { melt_ptr_t sy_CLASS_ROOT = meltgc_named_symbol("CLASS_ROOT", MELT_GET); - if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V1084*/ meltfptr[1083]) - /*_.VALDATA___V1084*/ meltfptr[1083] = (void*) sy_CLASS_ROOT; } + if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V1056*/ meltfptr[1055]) + /*_.VALDATA___V1056*/ meltfptr[1055] = (void*) sy_CLASS_ROOT; } /*^getnamedsymbol*/ /*getnamedsym:PCTX_MEXPANDER*/ { melt_ptr_t sy_PCTX_MEXPANDER = meltgc_named_symbol("PCTX_MEXPANDER", MELT_GET); - if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V1096*/ meltfptr[1095]) - /*_.VALDATA___V1096*/ meltfptr[1095] = (void*) sy_PCTX_MEXPANDER; } + if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V1068*/ meltfptr[1067]) + /*_.VALDATA___V1068*/ meltfptr[1067] = (void*) sy_PCTX_MEXPANDER; } /*^getnamedsymbol*/ /*getnamedsym:PCTX_PEXPANDER*/ { melt_ptr_t sy_PCTX_PEXPANDER = meltgc_named_symbol("PCTX_PEXPANDER", MELT_GET); - if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V1098*/ meltfptr[1097]) - /*_.VALDATA___V1098*/ meltfptr[1097] = (void*) sy_PCTX_PEXPANDER; } + if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V1070*/ meltfptr[1069]) + /*_.VALDATA___V1070*/ meltfptr[1069] = (void*) sy_PCTX_PEXPANDER; } /*^getnamedsymbol*/ /*getnamedsym:PCTX_VARMAP*/ { melt_ptr_t sy_PCTX_VARMAP = meltgc_named_symbol("PCTX_VARMAP", MELT_GET); - if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V1100*/ meltfptr[1099]) - /*_.VALDATA___V1100*/ meltfptr[1099] = (void*) sy_PCTX_VARMAP; } + if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V1072*/ meltfptr[1071]) + /*_.VALDATA___V1072*/ meltfptr[1071] = (void*) sy_PCTX_VARMAP; } /*^getnamedsymbol*/ /*getnamedsym:PAIRLIST_TO_MULTIPLE*/ { melt_ptr_t sy_PAIRLIST_TO_MULTIPLE = meltgc_named_symbol("PAIRLIST_TO_MULTIPLE", MELT_GET); - if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1124*/ meltfptr[1123]) - /*_.VALDATA___V1124*/ meltfptr[1123] = (void*) sy_PAIRLIST_TO_MULTIPLE; } + if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1096*/ meltfptr[1095]) + /*_.VALDATA___V1096*/ meltfptr[1095] = (void*) sy_PAIRLIST_TO_MULTIPLE; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MATCHER*/ { melt_ptr_t sy_CLASS_ANY_MATCHER = meltgc_named_symbol("CLASS_ANY_MATCHER", MELT_GET); - if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V1126*/ meltfptr[1125]) - /*_.VALDATA___V1126*/ meltfptr[1125] = (void*) sy_CLASS_ANY_MATCHER; } + if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V1098*/ meltfptr[1097]) + /*_.VALDATA___V1098*/ meltfptr[1097] = (void*) sy_CLASS_ANY_MATCHER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_BOX*/ { melt_ptr_t sy_DISCR_BOX = meltgc_named_symbol("DISCR_BOX", MELT_GET); - if (sy_DISCR_BOX && NULL == /*_.VALDATA___V1128*/ meltfptr[1127]) - /*_.VALDATA___V1128*/ meltfptr[1127] = (void*) sy_DISCR_BOX; } + if (sy_DISCR_BOX && NULL == /*_.VALDATA___V1100*/ meltfptr[1099]) + /*_.VALDATA___V1100*/ meltfptr[1099] = (void*) sy_DISCR_BOX; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_MAP*/ { melt_ptr_t sy_MULTIPLE_MAP = meltgc_named_symbol("MULTIPLE_MAP", MELT_GET); - if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V1130*/ meltfptr[1129]) - /*_.VALDATA___V1130*/ meltfptr[1129] = (void*) sy_MULTIPLE_MAP; } + if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V1102*/ meltfptr[1101]) + /*_.VALDATA___V1102*/ meltfptr[1101] = (void*) sy_MULTIPLE_MAP; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FORMAL_BINDING*/ { melt_ptr_t sy_CLASS_FORMAL_BINDING = meltgc_named_symbol("CLASS_FORMAL_BINDING", MELT_GET); - if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V1132*/ meltfptr[1131]) - /*_.VALDATA___V1132*/ meltfptr[1131] = (void*) sy_CLASS_FORMAL_BINDING; } + if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V1104*/ meltfptr[1103]) + /*_.VALDATA___V1104*/ meltfptr[1103] = (void*) sy_CLASS_FORMAL_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_INTEGER*/ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol("DISCR_INTEGER", MELT_GET); - if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V1134*/ meltfptr[1133]) - /*_.VALDATA___V1134*/ meltfptr[1133] = (void*) sy_DISCR_INTEGER; } + if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V1106*/ meltfptr[1105]) + /*_.VALDATA___V1106*/ meltfptr[1105] = (void*) sy_DISCR_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CONSTANT_INTEGER*/ { melt_ptr_t sy_DISCR_CONSTANT_INTEGER = meltgc_named_symbol("DISCR_CONSTANT_INTEGER", MELT_GET); - if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V1136*/ meltfptr[1135]) - /*_.VALDATA___V1136*/ meltfptr[1135] = (void*) sy_DISCR_CONSTANT_INTEGER; } + if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V1108*/ meltfptr[1107]) + /*_.VALDATA___V1108*/ meltfptr[1107] = (void*) sy_DISCR_CONSTANT_INTEGER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_PATMACRO_BINDING*/ { melt_ptr_t sy_CLASS_PATMACRO_BINDING = meltgc_named_symbol("CLASS_PATMACRO_BINDING", MELT_GET); - if (sy_CLASS_PATMACRO_BINDING && NULL == /*_.VALDATA___V1138*/ meltfptr[1137]) - /*_.VALDATA___V1138*/ meltfptr[1137] = (void*) sy_CLASS_PATMACRO_BINDING; } + if (sy_CLASS_PATMACRO_BINDING && NULL == /*_.VALDATA___V1110*/ meltfptr[1109]) + /*_.VALDATA___V1110*/ meltfptr[1109] = (void*) sy_CLASS_PATMACRO_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:QUESTION*/ { melt_ptr_t sy_QUESTION = meltgc_named_symbol("QUESTION", MELT_GET); - if (sy_QUESTION && NULL == /*_.VALDATA___V1105*/ meltfptr[1104]) - /*_.VALDATA___V1105*/ meltfptr[1104] = (void*) sy_QUESTION; } + if (sy_QUESTION && NULL == /*_.VALDATA___V1077*/ meltfptr[1076]) + /*_.VALDATA___V1077*/ meltfptr[1076] = (void*) sy_QUESTION; } /*^getnamedsymbol*/ /*getnamedsym:_*/ { melt_ptr_t sy_ = meltgc_named_symbol("_", MELT_GET); - if (sy_ && NULL == /*_.VALDATA___V1108*/ meltfptr[1107]) - /*_.VALDATA___V1108*/ meltfptr[1107] = (void*) sy_; } + if (sy_ && NULL == /*_.VALDATA___V1080*/ meltfptr[1079]) + /*_.VALDATA___V1080*/ meltfptr[1079] = (void*) sy_; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_LIST*/ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol("DISCR_LIST", MELT_GET); - if (sy_DISCR_LIST && NULL == /*_.VALDATA___V1142*/ meltfptr[1141]) - /*_.VALDATA___V1142*/ meltfptr[1141] = (void*) sy_DISCR_LIST; } + if (sy_DISCR_LIST && NULL == /*_.VALDATA___V1114*/ meltfptr[1113]) + /*_.VALDATA___V1114*/ meltfptr[1113] = (void*) sy_DISCR_LIST; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LOCATED*/ { melt_ptr_t sy_CLASS_LOCATED = meltgc_named_symbol("CLASS_LOCATED", MELT_GET); - if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V1144*/ meltfptr[1143]) - /*_.VALDATA___V1144*/ meltfptr[1143] = (void*) sy_CLASS_LOCATED; } + if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V1116*/ meltfptr[1115]) + /*_.VALDATA___V1116*/ meltfptr[1115] = (void*) sy_CLASS_LOCATED; } /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VALUE*/ { melt_ptr_t sy_CTYPE_VALUE = meltgc_named_symbol("CTYPE_VALUE", MELT_GET); - if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V1146*/ meltfptr[1145]) - /*_.VALDATA___V1146*/ meltfptr[1145] = (void*) sy_CTYPE_VALUE; } + if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V1118*/ meltfptr[1117]) + /*_.VALDATA___V1118*/ meltfptr[1117] = (void*) sy_CTYPE_VALUE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_OBJECTS*/ { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol("DISCR_MAP_OBJECTS", MELT_GET); - if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V1148*/ meltfptr[1147]) - /*_.VALDATA___V1148*/ meltfptr[1147] = (void*) sy_DISCR_MAP_OBJECTS; } + if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V1120*/ meltfptr[1119]) + /*_.VALDATA___V1120*/ meltfptr[1119] = (void*) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CTYPE*/ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol("CLASS_CTYPE", MELT_GET); - if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V1150*/ meltfptr[1149]) - /*_.VALDATA___V1150*/ meltfptr[1149] = (void*) sy_CLASS_CTYPE; } + if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V1122*/ meltfptr[1121]) + /*_.VALDATA___V1122*/ meltfptr[1121] = (void*) sy_CLASS_CTYPE; } /*^getnamedsymbol*/ /*getnamedsym:PUT_ENV*/ { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol("PUT_ENV", MELT_GET); - if (sy_PUT_ENV && NULL == /*_.VALDATA___V1154*/ meltfptr[1153]) - /*_.VALDATA___V1154*/ meltfptr[1153] = (void*) sy_PUT_ENV; } + if (sy_PUT_ENV && NULL == /*_.VALDATA___V1126*/ meltfptr[1125]) + /*_.VALDATA___V1126*/ meltfptr[1125] = (void*) sy_PUT_ENV; } /*^getnamedsymbol*/ /*getnamedsym:INITIAL_ENVIRONMENT*/ { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol("INITIAL_ENVIRONMENT", MELT_GET); - if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V1156*/ meltfptr[1155]) - /*_.VALDATA___V1156*/ meltfptr[1155] = (void*) sy_INITIAL_ENVIRONMENT; } + if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V1128*/ meltfptr[1127]) + /*_.VALDATA___V1128*/ meltfptr[1127] = (void*) sy_INITIAL_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:WARN_SHADOW*/ { melt_ptr_t sy_WARN_SHADOW = meltgc_named_symbol("WARN_SHADOW", MELT_GET); - if (sy_WARN_SHADOW && NULL == /*_.VALDATA___V1160*/ meltfptr[1159]) - /*_.VALDATA___V1160*/ meltfptr[1159] = (void*) sy_WARN_SHADOW; } + if (sy_WARN_SHADOW && NULL == /*_.VALDATA___V1132*/ meltfptr[1131]) + /*_.VALDATA___V1132*/ meltfptr[1131] = (void*) sy_WARN_SHADOW; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_VERBATIM_STRING*/ { melt_ptr_t sy_DISCR_VERBATIM_STRING = meltgc_named_symbol("DISCR_VERBATIM_STRING", MELT_GET); - if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V1171*/ meltfptr[1170]) - /*_.VALDATA___V1171*/ meltfptr[1170] = (void*) sy_DISCR_VERBATIM_STRING; } + if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V1143*/ meltfptr[1142]) + /*_.VALDATA___V1143*/ meltfptr[1142] = (void*) sy_DISCR_VERBATIM_STRING; } /*^getnamedkeyword*/ /*getnamedkeyw:DOC*/ { melt_ptr_t kw_DOC = meltgc_named_keyword("DOC", MELT_GET); - if (kw_DOC) /*_.VALDATA___V1178*/ meltfptr[1177] = (void*) kw_DOC; } + if (kw_DOC) /*_.VALDATA___V1150*/ meltfptr[1149] = (void*) kw_DOC; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_BINDING*/ { melt_ptr_t sy_CLASS_ANY_BINDING = meltgc_named_symbol("CLASS_ANY_BINDING", MELT_GET); - if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V1181*/ meltfptr[1180]) - /*_.VALDATA___V1181*/ meltfptr[1180] = (void*) sy_CLASS_ANY_BINDING; } + if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V1153*/ meltfptr[1152]) + /*_.VALDATA___V1153*/ meltfptr[1152] = (void*) sy_CLASS_ANY_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:DEFPRIMITIVE*/ { melt_ptr_t sy_DEFPRIMITIVE = meltgc_named_symbol("DEFPRIMITIVE", MELT_GET); - if (sy_DEFPRIMITIVE && NULL == /*_.VALDATA___V1183*/ meltfptr[1182]) - /*_.VALDATA___V1183*/ meltfptr[1182] = (void*) sy_DEFPRIMITIVE; } + if (sy_DEFPRIMITIVE && NULL == /*_.VALDATA___V1155*/ meltfptr[1154]) + /*_.VALDATA___V1155*/ meltfptr[1154] = (void*) sy_DEFPRIMITIVE; } /*^getnamedsymbol*/ /*getnamedsym:DEFCITERATOR*/ { melt_ptr_t sy_DEFCITERATOR = meltgc_named_symbol("DEFCITERATOR", MELT_GET); - if (sy_DEFCITERATOR && NULL == /*_.VALDATA___V1187*/ meltfptr[1186]) - /*_.VALDATA___V1187*/ meltfptr[1186] = (void*) sy_DEFCITERATOR; } - - /*^getnamedsymbol*/ - - /*getnamedsym:DEFVARIADIC*/ - { melt_ptr_t sy_DEFVARIADIC = meltgc_named_symbol("DEFVARIADIC", MELT_GET); - if (sy_DEFVARIADIC && NULL == /*_.VALDATA___V1191*/ meltfptr[1190]) - /*_.VALDATA___V1191*/ meltfptr[1190] = (void*) sy_DEFVARIADIC; } + if (sy_DEFCITERATOR && NULL == /*_.VALDATA___V1159*/ meltfptr[1158]) + /*_.VALDATA___V1159*/ meltfptr[1158] = (void*) sy_DEFCITERATOR; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_EVERY*/ { melt_ptr_t sy_MULTIPLE_EVERY = meltgc_named_symbol("MULTIPLE_EVERY", MELT_GET); - if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V1196*/ meltfptr[1195]) - /*_.VALDATA___V1196*/ meltfptr[1195] = (void*) sy_MULTIPLE_EVERY; } + if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V1164*/ meltfptr[1163]) + /*_.VALDATA___V1164*/ meltfptr[1163] = (void*) sy_MULTIPLE_EVERY; } /*^getnamedsymbol*/ /*getnamedsym:DEFCMATCHER*/ { melt_ptr_t sy_DEFCMATCHER = meltgc_named_symbol("DEFCMATCHER", MELT_GET); - if (sy_DEFCMATCHER && NULL == /*_.VALDATA___V1198*/ meltfptr[1197]) - /*_.VALDATA___V1198*/ meltfptr[1197] = (void*) sy_DEFCMATCHER; } + if (sy_DEFCMATCHER && NULL == /*_.VALDATA___V1166*/ meltfptr[1165]) + /*_.VALDATA___V1166*/ meltfptr[1165] = (void*) sy_DEFCMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:DEFUNMATCHER*/ { melt_ptr_t sy_DEFUNMATCHER = meltgc_named_symbol("DEFUNMATCHER", MELT_GET); - if (sy_DEFUNMATCHER && NULL == /*_.VALDATA___V1203*/ meltfptr[1202]) - /*_.VALDATA___V1203*/ meltfptr[1202] = (void*) sy_DEFUNMATCHER; } + if (sy_DEFUNMATCHER && NULL == /*_.VALDATA___V1171*/ meltfptr[1170]) + /*_.VALDATA___V1171*/ meltfptr[1170] = (void*) sy_DEFUNMATCHER; } /*^getnamedsymbol*/ /*getnamedsym:FRESH_ENV*/ { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol("FRESH_ENV", MELT_GET); - if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1208*/ meltfptr[1207]) - /*_.VALDATA___V1208*/ meltfptr[1207] = (void*) sy_FRESH_ENV; } + if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1176*/ meltfptr[1175]) + /*_.VALDATA___V1176*/ meltfptr[1175] = (void*) sy_FRESH_ENV; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FUNCTION_BINDING*/ { melt_ptr_t sy_CLASS_FUNCTION_BINDING = meltgc_named_symbol("CLASS_FUNCTION_BINDING", MELT_GET); - if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1210*/ meltfptr[1209]) - /*_.VALDATA___V1210*/ meltfptr[1209] = (void*) sy_CLASS_FUNCTION_BINDING; } + if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1178*/ meltfptr[1177]) + /*_.VALDATA___V1178*/ meltfptr[1177] = (void*) sy_CLASS_FUNCTION_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:DEFUN*/ { melt_ptr_t sy_DEFUN = meltgc_named_symbol("DEFUN", MELT_GET); - if (sy_DEFUN && NULL == /*_.VALDATA___V1212*/ meltfptr[1211]) - /*_.VALDATA___V1212*/ meltfptr[1211] = (void*) sy_DEFUN; } + if (sy_DEFUN && NULL == /*_.VALDATA___V1180*/ meltfptr[1179]) + /*_.VALDATA___V1180*/ meltfptr[1179] = (void*) sy_DEFUN; } /*^getnamedsymbol*/ /*getnamedsym:DEFINE*/ { melt_ptr_t sy_DEFINE = meltgc_named_symbol("DEFINE", MELT_GET); - if (sy_DEFINE && NULL == /*_.VALDATA___V1216*/ meltfptr[1215]) - /*_.VALDATA___V1216*/ meltfptr[1215] = (void*) sy_DEFINE; } + if (sy_DEFINE && NULL == /*_.VALDATA___V1184*/ meltfptr[1183]) + /*_.VALDATA___V1184*/ meltfptr[1183] = (void*) sy_DEFINE; } /*^getnamedkeyword*/ /*getnamedkeyw:SUPER*/ { melt_ptr_t kw_SUPER = meltgc_named_keyword("SUPER", MELT_GET); - if (kw_SUPER) /*_.VALDATA___V1219*/ meltfptr[1218] = (void*) kw_SUPER; } + if (kw_SUPER) /*_.VALDATA___V1187*/ meltfptr[1186] = (void*) kw_SUPER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS_BINDING*/ { melt_ptr_t sy_CLASS_CLASS_BINDING = meltgc_named_symbol("CLASS_CLASS_BINDING", MELT_GET); - if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V1226*/ meltfptr[1225]) - /*_.VALDATA___V1226*/ meltfptr[1225] = (void*) sy_CLASS_CLASS_BINDING; } + if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V1194*/ meltfptr[1193]) + /*_.VALDATA___V1194*/ meltfptr[1193] = (void*) sy_CLASS_CLASS_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS*/ { melt_ptr_t sy_CLASS_CLASS = meltgc_named_symbol("CLASS_CLASS", MELT_GET); - if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V1228*/ meltfptr[1227]) - /*_.VALDATA___V1228*/ meltfptr[1227] = (void*) sy_CLASS_CLASS; } + if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V1196*/ meltfptr[1195]) + /*_.VALDATA___V1196*/ meltfptr[1195] = (void*) sy_CLASS_CLASS; } /*^getnamedkeyword*/ /*getnamedkeyw:FIELDS*/ { melt_ptr_t kw_FIELDS = meltgc_named_keyword("FIELDS", MELT_GET); - if (kw_FIELDS) /*_.VALDATA___V1221*/ meltfptr[1220] = (void*) kw_FIELDS; } + if (kw_FIELDS) /*_.VALDATA___V1189*/ meltfptr[1188] = (void*) kw_FIELDS; } /*^getnamedkeyword*/ /*getnamedkeyw:PREDEF*/ { melt_ptr_t kw_PREDEF = meltgc_named_keyword("PREDEF", MELT_GET); - if (kw_PREDEF) /*_.VALDATA___V1223*/ meltfptr[1222] = (void*) kw_PREDEF; } + if (kw_PREDEF) /*_.VALDATA___V1191*/ meltfptr[1190] = (void*) kw_PREDEF; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_CLASS_SEQUENCE*/ { melt_ptr_t sy_DISCR_CLASS_SEQUENCE = meltgc_named_symbol("DISCR_CLASS_SEQUENCE", MELT_GET); - if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V1234*/ meltfptr[1233]) - /*_.VALDATA___V1234*/ meltfptr[1233] = (void*) sy_DISCR_CLASS_SEQUENCE; } + if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V1202*/ meltfptr[1201]) + /*_.VALDATA___V1202*/ meltfptr[1201] = (void*) sy_DISCR_CLASS_SEQUENCE; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_STRINGS*/ { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol("DISCR_MAP_STRINGS", MELT_GET); - if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V1236*/ meltfptr[1235]) - /*_.VALDATA___V1236*/ meltfptr[1235] = (void*) sy_DISCR_MAP_STRINGS; } + if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V1204*/ meltfptr[1203]) + /*_.VALDATA___V1204*/ meltfptr[1203] = (void*) sy_DISCR_MAP_STRINGS; } /*^getnamedsymbol*/ /*getnamedsym:DISCR_FIELD_SEQUENCE*/ { melt_ptr_t sy_DISCR_FIELD_SEQUENCE = meltgc_named_symbol("DISCR_FIELD_SEQUENCE", MELT_GET); - if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V1238*/ meltfptr[1237]) - /*_.VALDATA___V1238*/ meltfptr[1237] = (void*) sy_DISCR_FIELD_SEQUENCE; } + if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V1206*/ meltfptr[1205]) + /*_.VALDATA___V1206*/ meltfptr[1205] = (void*) sy_DISCR_FIELD_SEQUENCE; } /*^getnamedsymbol*/ /*getnamedsym:DEFCLASS*/ { melt_ptr_t sy_DEFCLASS = meltgc_named_symbol("DEFCLASS", MELT_GET); - if (sy_DEFCLASS && NULL == /*_.VALDATA___V1240*/ meltfptr[1239]) - /*_.VALDATA___V1240*/ meltfptr[1239] = (void*) sy_DEFCLASS; } + if (sy_DEFCLASS && NULL == /*_.VALDATA___V1208*/ meltfptr[1207]) + /*_.VALDATA___V1208*/ meltfptr[1207] = (void*) sy_DEFCLASS; } /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_ITERATE_TEST*/ { melt_ptr_t sy_MULTIPLE_ITERATE_TEST = meltgc_named_symbol("MULTIPLE_ITERATE_TEST", MELT_GET); - if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V1247*/ meltfptr[1246]) - /*_.VALDATA___V1247*/ meltfptr[1246] = (void*) sy_MULTIPLE_ITERATE_TEST; } + if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V1215*/ meltfptr[1214]) + /*_.VALDATA___V1215*/ meltfptr[1214] = (void*) sy_MULTIPLE_ITERATE_TEST; } /*^getnamedkeyword*/ /*getnamedkeyw:TRUE*/ { melt_ptr_t kw_TRUE = meltgc_named_keyword("TRUE", MELT_GET); - if (kw_TRUE) /*_.VALDATA___V1244*/ meltfptr[1243] = (void*) kw_TRUE; } + if (kw_TRUE) /*_.VALDATA___V1212*/ meltfptr[1211] = (void*) kw_TRUE; } /*^getnamedkeyword*/ /*getnamedkeyw:OBJ_NUM*/ { melt_ptr_t kw_OBJ_NUM = meltgc_named_keyword("OBJ_NUM", MELT_GET); - if (kw_OBJ_NUM) /*_.VALDATA___V1250*/ meltfptr[1249] = (void*) kw_OBJ_NUM; } + if (kw_OBJ_NUM) /*_.VALDATA___V1218*/ meltfptr[1217] = (void*) kw_OBJ_NUM; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_INSTANCE_BINDING*/ { melt_ptr_t sy_CLASS_INSTANCE_BINDING = meltgc_named_symbol("CLASS_INSTANCE_BINDING", MELT_GET); - if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1253*/ meltfptr[1252]) - /*_.VALDATA___V1253*/ meltfptr[1252] = (void*) sy_CLASS_INSTANCE_BINDING; } + if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1221*/ meltfptr[1220]) + /*_.VALDATA___V1221*/ meltfptr[1220] = (void*) sy_CLASS_INSTANCE_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:DEFINSTANCE*/ { melt_ptr_t sy_DEFINSTANCE = meltgc_named_symbol("DEFINSTANCE", MELT_GET); - if (sy_DEFINSTANCE && NULL == /*_.VALDATA___V1255*/ meltfptr[1254]) - /*_.VALDATA___V1255*/ meltfptr[1254] = (void*) sy_DEFINSTANCE; } + if (sy_DEFINSTANCE && NULL == /*_.VALDATA___V1223*/ meltfptr[1222]) + /*_.VALDATA___V1223*/ meltfptr[1222] = (void*) sy_DEFINSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:MELT_MODE_CONTAINER*/ { melt_ptr_t sy_MELT_MODE_CONTAINER = meltgc_named_symbol("MELT_MODE_CONTAINER", MELT_GET); - if (sy_MELT_MODE_CONTAINER && NULL == /*_.VALDATA___V1261*/ meltfptr[1260]) - /*_.VALDATA___V1261*/ meltfptr[1260] = (void*) sy_MELT_MODE_CONTAINER; } + if (sy_MELT_MODE_CONTAINER && NULL == /*_.VALDATA___V1229*/ meltfptr[1228]) + /*_.VALDATA___V1229*/ meltfptr[1228] = (void*) sy_MELT_MODE_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_CONTAINER*/ { melt_ptr_t sy_CLASS_CONTAINER = meltgc_named_symbol("CLASS_CONTAINER", MELT_GET); - if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V1263*/ meltfptr[1262]) - /*_.VALDATA___V1263*/ meltfptr[1262] = (void*) sy_CLASS_CONTAINER; } + if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V1231*/ meltfptr[1230]) + /*_.VALDATA___V1231*/ meltfptr[1230] = (void*) sy_CLASS_CONTAINER; } /*^getnamedkeyword*/ /*getnamedkeyw:FORMALS*/ { melt_ptr_t kw_FORMALS = meltgc_named_keyword("FORMALS", MELT_GET); - if (kw_FORMALS) /*_.VALDATA___V1258*/ meltfptr[1257] = (void*) kw_FORMALS; } + if (kw_FORMALS) /*_.VALDATA___V1226*/ meltfptr[1225] = (void*) kw_FORMALS; } /*^getnamedsymbol*/ /*getnamedsym:DEFSELECTOR*/ { melt_ptr_t sy_DEFSELECTOR = meltgc_named_symbol("DEFSELECTOR", MELT_GET); - if (sy_DEFSELECTOR && NULL == /*_.VALDATA___V1265*/ meltfptr[1264]) - /*_.VALDATA___V1265*/ meltfptr[1264] = (void*) sy_DEFSELECTOR; } + if (sy_DEFSELECTOR && NULL == /*_.VALDATA___V1233*/ meltfptr[1232]) + /*_.VALDATA___V1233*/ meltfptr[1232] = (void*) sy_DEFSELECTOR; } /*^getnamedsymbol*/ /*getnamedsym:INSTANCE*/ { melt_ptr_t sy_INSTANCE = meltgc_named_symbol("INSTANCE", MELT_GET); - if (sy_INSTANCE && NULL == /*_.VALDATA___V1269*/ meltfptr[1268]) - /*_.VALDATA___V1269*/ meltfptr[1268] = (void*) sy_INSTANCE; } + if (sy_INSTANCE && NULL == /*_.VALDATA___V1237*/ meltfptr[1236]) + /*_.VALDATA___V1237*/ meltfptr[1236] = (void*) sy_INSTANCE; } /*^getnamedsymbol*/ /*getnamedsym:LOAD*/ { melt_ptr_t sy_LOAD = meltgc_named_symbol("LOAD", MELT_GET); - if (sy_LOAD && NULL == /*_.VALDATA___V1273*/ meltfptr[1272]) - /*_.VALDATA___V1273*/ meltfptr[1272] = (void*) sy_LOAD; } + if (sy_LOAD && NULL == /*_.VALDATA___V1241*/ meltfptr[1240]) + /*_.VALDATA___V1241*/ meltfptr[1240] = (void*) sy_LOAD; } /*^getnamedsymbol*/ /*getnamedsym:OBJECT*/ { melt_ptr_t sy_OBJECT = meltgc_named_symbol("OBJECT", MELT_GET); - if (sy_OBJECT && NULL == /*_.VALDATA___V1286*/ meltfptr[1285]) - /*_.VALDATA___V1286*/ meltfptr[1285] = (void*) sy_OBJECT; } + if (sy_OBJECT && NULL == /*_.VALDATA___V1254*/ meltfptr[1253]) + /*_.VALDATA___V1254*/ meltfptr[1253] = (void*) sy_OBJECT; } /*^getnamedsymbol*/ /*getnamedsym:CODE_CHUNK*/ { melt_ptr_t sy_CODE_CHUNK = meltgc_named_symbol("CODE_CHUNK", MELT_GET); - if (sy_CODE_CHUNK && NULL == /*_.VALDATA___V1290*/ meltfptr[1289]) - /*_.VALDATA___V1290*/ meltfptr[1289] = (void*) sy_CODE_CHUNK; } + if (sy_CODE_CHUNK && NULL == /*_.VALDATA___V1258*/ meltfptr[1257]) + /*_.VALDATA___V1258*/ meltfptr[1257] = (void*) sy_CODE_CHUNK; } /*^getnamedsymbol*/ /*getnamedsym:UNSAFE_PUT_FIELDS*/ { melt_ptr_t sy_UNSAFE_PUT_FIELDS = meltgc_named_symbol("UNSAFE_PUT_FIELDS", MELT_GET); - if (sy_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1294*/ meltfptr[1293]) - /*_.VALDATA___V1294*/ meltfptr[1293] = (void*) sy_UNSAFE_PUT_FIELDS; } + if (sy_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1262*/ meltfptr[1261]) + /*_.VALDATA___V1262*/ meltfptr[1261] = (void*) sy_UNSAFE_PUT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:PUT_FIELDS*/ { melt_ptr_t sy_PUT_FIELDS = meltgc_named_symbol("PUT_FIELDS", MELT_GET); - if (sy_PUT_FIELDS && NULL == /*_.VALDATA___V1298*/ meltfptr[1297]) - /*_.VALDATA___V1298*/ meltfptr[1297] = (void*) sy_PUT_FIELDS; } + if (sy_PUT_FIELDS && NULL == /*_.VALDATA___V1266*/ meltfptr[1265]) + /*_.VALDATA___V1266*/ meltfptr[1265] = (void*) sy_PUT_FIELDS; } /*^getnamedsymbol*/ /*getnamedsym:UNSAFE_GET_FIELD*/ { melt_ptr_t sy_UNSAFE_GET_FIELD = meltgc_named_symbol("UNSAFE_GET_FIELD", MELT_GET); - if (sy_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1302*/ meltfptr[1301]) - /*_.VALDATA___V1302*/ meltfptr[1301] = (void*) sy_UNSAFE_GET_FIELD; } + if (sy_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1270*/ meltfptr[1269]) + /*_.VALDATA___V1270*/ meltfptr[1269] = (void*) sy_UNSAFE_GET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:GET_FIELD*/ { melt_ptr_t sy_GET_FIELD = meltgc_named_symbol("GET_FIELD", MELT_GET); - if (sy_GET_FIELD && NULL == /*_.VALDATA___V1306*/ meltfptr[1305]) - /*_.VALDATA___V1306*/ meltfptr[1305] = (void*) sy_GET_FIELD; } + if (sy_GET_FIELD && NULL == /*_.VALDATA___V1274*/ meltfptr[1273]) + /*_.VALDATA___V1274*/ meltfptr[1273] = (void*) sy_GET_FIELD; } /*^getnamedsymbol*/ /*getnamedsym:SETQ*/ { melt_ptr_t sy_SETQ = meltgc_named_symbol("SETQ", MELT_GET); - if (sy_SETQ && NULL == /*_.VALDATA___V1310*/ meltfptr[1309]) - /*_.VALDATA___V1310*/ meltfptr[1309] = (void*) sy_SETQ; } + if (sy_SETQ && NULL == /*_.VALDATA___V1278*/ meltfptr[1277]) + /*_.VALDATA___V1278*/ meltfptr[1277] = (void*) sy_SETQ; } /*^getnamedsymbol*/ /*getnamedsym:IF*/ { melt_ptr_t sy_IF = meltgc_named_symbol("IF", MELT_GET); - if (sy_IF && NULL == /*_.VALDATA___V1314*/ meltfptr[1313]) - /*_.VALDATA___V1314*/ meltfptr[1313] = (void*) sy_IF; } + if (sy_IF && NULL == /*_.VALDATA___V1282*/ meltfptr[1281]) + /*_.VALDATA___V1282*/ meltfptr[1281] = (void*) sy_IF; } /*^getnamedsymbol*/ /*getnamedsym:CPPIF*/ { melt_ptr_t sy_CPPIF = meltgc_named_symbol("CPPIF", MELT_GET); - if (sy_CPPIF && NULL == /*_.VALDATA___V1318*/ meltfptr[1317]) - /*_.VALDATA___V1318*/ meltfptr[1317] = (void*) sy_CPPIF; } + if (sy_CPPIF && NULL == /*_.VALDATA___V1286*/ meltfptr[1285]) + /*_.VALDATA___V1286*/ meltfptr[1285] = (void*) sy_CPPIF; } /*^getnamedsymbol*/ /*getnamedsym:GCCIF*/ { melt_ptr_t sy_GCCIF = meltgc_named_symbol("GCCIF", MELT_GET); - if (sy_GCCIF && NULL == /*_.VALDATA___V1324*/ meltfptr[1323]) - /*_.VALDATA___V1324*/ meltfptr[1323] = (void*) sy_GCCIF; } + if (sy_GCCIF && NULL == /*_.VALDATA___V1292*/ meltfptr[1291]) + /*_.VALDATA___V1292*/ meltfptr[1291] = (void*) sy_GCCIF; } /*^getnamedkeyword*/ /*getnamedkeyw:ELSE*/ { melt_ptr_t kw_ELSE = meltgc_named_keyword("ELSE", MELT_GET); - if (kw_ELSE) /*_.VALDATA___V1328*/ meltfptr[1327] = (void*) kw_ELSE; } + if (kw_ELSE) /*_.VALDATA___V1296*/ meltfptr[1295] = (void*) kw_ELSE; } /*^getnamedsymbol*/ /*getnamedsym:COND*/ { melt_ptr_t sy_COND = meltgc_named_symbol("COND", MELT_GET); - if (sy_COND && NULL == /*_.VALDATA___V1334*/ meltfptr[1333]) - /*_.VALDATA___V1334*/ meltfptr[1333] = (void*) sy_COND; } + if (sy_COND && NULL == /*_.VALDATA___V1302*/ meltfptr[1301]) + /*_.VALDATA___V1302*/ meltfptr[1301] = (void*) sy_COND; } /*^getnamedsymbol*/ /*getnamedsym:AS*/ { melt_ptr_t sy_AS = meltgc_named_symbol("AS", MELT_GET); - if (sy_AS && NULL == /*_.VALDATA___V1343*/ meltfptr[1342]) - /*_.VALDATA___V1343*/ meltfptr[1342] = (void*) sy_AS; } + if (sy_AS && NULL == /*_.VALDATA___V1311*/ meltfptr[1310]) + /*_.VALDATA___V1311*/ meltfptr[1310] = (void*) sy_AS; } /*^getnamedsymbol*/ /*getnamedsym:WHEN*/ { melt_ptr_t sy_WHEN = meltgc_named_symbol("WHEN", MELT_GET); - if (sy_WHEN && NULL == /*_.VALDATA___V1349*/ meltfptr[1348]) - /*_.VALDATA___V1349*/ meltfptr[1348] = (void*) sy_WHEN; } + if (sy_WHEN && NULL == /*_.VALDATA___V1317*/ meltfptr[1316]) + /*_.VALDATA___V1317*/ meltfptr[1316] = (void*) sy_WHEN; } /*^getnamedsymbol*/ /*getnamedsym:AND*/ { melt_ptr_t sy_AND = meltgc_named_symbol("AND", MELT_GET); - if (sy_AND && NULL == /*_.VALDATA___V1353*/ meltfptr[1352]) - /*_.VALDATA___V1353*/ meltfptr[1352] = (void*) sy_AND; } + if (sy_AND && NULL == /*_.VALDATA___V1321*/ meltfptr[1320]) + /*_.VALDATA___V1321*/ meltfptr[1320] = (void*) sy_AND; } /*^getnamedsymbol*/ /*getnamedsym:OR*/ { melt_ptr_t sy_OR = meltgc_named_symbol("OR", MELT_GET); - if (sy_OR && NULL == /*_.VALDATA___V1360*/ meltfptr[1359]) - /*_.VALDATA___V1360*/ meltfptr[1359] = (void*) sy_OR; } + if (sy_OR && NULL == /*_.VALDATA___V1328*/ meltfptr[1327]) + /*_.VALDATA___V1328*/ meltfptr[1327] = (void*) sy_OR; } /*^getnamedsymbol*/ /*getnamedsym:TUPLE*/ { melt_ptr_t sy_TUPLE = meltgc_named_symbol("TUPLE", MELT_GET); - if (sy_TUPLE && NULL == /*_.VALDATA___V1366*/ meltfptr[1365]) - /*_.VALDATA___V1366*/ meltfptr[1365] = (void*) sy_TUPLE; } + if (sy_TUPLE && NULL == /*_.VALDATA___V1334*/ meltfptr[1333]) + /*_.VALDATA___V1334*/ meltfptr[1333] = (void*) sy_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:LIST*/ { melt_ptr_t sy_LIST = meltgc_named_symbol("LIST", MELT_GET); - if (sy_LIST && NULL == /*_.VALDATA___V1372*/ meltfptr[1371]) - /*_.VALDATA___V1372*/ meltfptr[1371] = (void*) sy_LIST; } + if (sy_LIST && NULL == /*_.VALDATA___V1340*/ meltfptr[1339]) + /*_.VALDATA___V1340*/ meltfptr[1339] = (void*) sy_LIST; } /*^getnamedsymbol*/ /*getnamedsym:MATCH*/ { melt_ptr_t sy_MATCH = meltgc_named_symbol("MATCH", MELT_GET); - if (sy_MATCH && NULL == /*_.VALDATA___V1377*/ meltfptr[1376]) - /*_.VALDATA___V1377*/ meltfptr[1376] = (void*) sy_MATCH; } + if (sy_MATCH && NULL == /*_.VALDATA___V1345*/ meltfptr[1344]) + /*_.VALDATA___V1345*/ meltfptr[1344] = (void*) sy_MATCH; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LET_BINDING*/ { melt_ptr_t sy_CLASS_LET_BINDING = meltgc_named_symbol("CLASS_LET_BINDING", MELT_GET); - if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1381*/ meltfptr[1380]) - /*_.VALDATA___V1381*/ meltfptr[1380] = (void*) sy_CLASS_LET_BINDING; } + if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1349*/ meltfptr[1348]) + /*_.VALDATA___V1349*/ meltfptr[1348] = (void*) sy_CLASS_LET_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIXED_BINDING*/ { melt_ptr_t sy_CLASS_FIXED_BINDING = meltgc_named_symbol("CLASS_FIXED_BINDING", MELT_GET); - if (sy_CLASS_FIXED_BINDING && NULL == /*_.VALDATA___V1383*/ meltfptr[1382]) - /*_.VALDATA___V1383*/ meltfptr[1382] = (void*) sy_CLASS_FIXED_BINDING; } + if (sy_CLASS_FIXED_BINDING && NULL == /*_.VALDATA___V1351*/ meltfptr[1350]) + /*_.VALDATA___V1351*/ meltfptr[1350] = (void*) sy_CLASS_FIXED_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:LET*/ { melt_ptr_t sy_LET = meltgc_named_symbol("LET", MELT_GET); - if (sy_LET && NULL == /*_.VALDATA___V1390*/ meltfptr[1389]) - /*_.VALDATA___V1390*/ meltfptr[1389] = (void*) sy_LET; } + if (sy_LET && NULL == /*_.VALDATA___V1358*/ meltfptr[1357]) + /*_.VALDATA___V1358*/ meltfptr[1357] = (void*) sy_LET; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_METHOD*/ { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol("INSTALL_METHOD", MELT_GET); - if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V1394*/ meltfptr[1393]) - /*_.VALDATA___V1394*/ meltfptr[1393] = (void*) sy_INSTALL_METHOD; } + if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V1362*/ meltfptr[1361]) + /*_.VALDATA___V1362*/ meltfptr[1361] = (void*) sy_INSTALL_METHOD; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LETREC_BINDING*/ { melt_ptr_t sy_CLASS_LETREC_BINDING = meltgc_named_symbol("CLASS_LETREC_BINDING", MELT_GET); - if (sy_CLASS_LETREC_BINDING && NULL == /*_.VALDATA___V1400*/ meltfptr[1399]) - /*_.VALDATA___V1400*/ meltfptr[1399] = (void*) sy_CLASS_LETREC_BINDING; } + if (sy_CLASS_LETREC_BINDING && NULL == /*_.VALDATA___V1368*/ meltfptr[1367]) + /*_.VALDATA___V1368*/ meltfptr[1367] = (void*) sy_CLASS_LETREC_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:LETREC*/ { melt_ptr_t sy_LETREC = meltgc_named_symbol("LETREC", MELT_GET); - if (sy_LETREC && NULL == /*_.VALDATA___V1402*/ meltfptr[1401]) - /*_.VALDATA___V1402*/ meltfptr[1401] = (void*) sy_LETREC; } + if (sy_LETREC && NULL == /*_.VALDATA___V1370*/ meltfptr[1369]) + /*_.VALDATA___V1370*/ meltfptr[1369] = (void*) sy_LETREC; } /*^getnamedsymbol*/ /*getnamedsym:LAMBDA*/ { melt_ptr_t sy_LAMBDA = meltgc_named_symbol("LAMBDA", MELT_GET); - if (sy_LAMBDA && NULL == /*_.VALDATA___V1408*/ meltfptr[1407]) - /*_.VALDATA___V1408*/ meltfptr[1407] = (void*) sy_LAMBDA; } + if (sy_LAMBDA && NULL == /*_.VALDATA___V1376*/ meltfptr[1375]) + /*_.VALDATA___V1376*/ meltfptr[1375] = (void*) sy_LAMBDA; } /*^getnamedsymbol*/ /*getnamedsym:MULTICALL*/ { melt_ptr_t sy_MULTICALL = meltgc_named_symbol("MULTICALL", MELT_GET); - if (sy_MULTICALL && NULL == /*_.VALDATA___V1414*/ meltfptr[1413]) - /*_.VALDATA___V1414*/ meltfptr[1413] = (void*) sy_MULTICALL; } + if (sy_MULTICALL && NULL == /*_.VALDATA___V1382*/ meltfptr[1381]) + /*_.VALDATA___V1382*/ meltfptr[1381] = (void*) sy_MULTICALL; } /*^getnamedsymbol*/ /*getnamedsym:QUOTE*/ { melt_ptr_t sy_QUOTE = meltgc_named_symbol("QUOTE", MELT_GET); - if (sy_QUOTE && NULL == /*_.VALDATA___V1418*/ meltfptr[1417]) - /*_.VALDATA___V1418*/ meltfptr[1417] = (void*) sy_QUOTE; } + if (sy_QUOTE && NULL == /*_.VALDATA___V1386*/ meltfptr[1385]) + /*_.VALDATA___V1386*/ meltfptr[1385] = (void*) sy_QUOTE; } /*^getnamedsymbol*/ /*getnamedsym:COMMENT*/ { melt_ptr_t sy_COMMENT = meltgc_named_symbol("COMMENT", MELT_GET); - if (sy_COMMENT && NULL == /*_.VALDATA___V1422*/ meltfptr[1421]) - /*_.VALDATA___V1422*/ meltfptr[1421] = (void*) sy_COMMENT; } + if (sy_COMMENT && NULL == /*_.VALDATA___V1390*/ meltfptr[1389]) + /*_.VALDATA___V1390*/ meltfptr[1389] = (void*) sy_COMMENT; } /*^getnamedsymbol*/ /*getnamedsym:PROGN*/ { melt_ptr_t sy_PROGN = meltgc_named_symbol("PROGN", MELT_GET); - if (sy_PROGN && NULL == /*_.VALDATA___V1429*/ meltfptr[1428]) - /*_.VALDATA___V1429*/ meltfptr[1428] = (void*) sy_PROGN; } + if (sy_PROGN && NULL == /*_.VALDATA___V1397*/ meltfptr[1396]) + /*_.VALDATA___V1397*/ meltfptr[1396] = (void*) sy_PROGN; } /*^getnamedsymbol*/ /*getnamedsym:RETURN*/ { melt_ptr_t sy_RETURN = meltgc_named_symbol("RETURN", MELT_GET); - if (sy_RETURN && NULL == /*_.VALDATA___V1433*/ meltfptr[1432]) - /*_.VALDATA___V1433*/ meltfptr[1432] = (void*) sy_RETURN; } + if (sy_RETURN && NULL == /*_.VALDATA___V1401*/ meltfptr[1400]) + /*_.VALDATA___V1401*/ meltfptr[1400] = (void*) sy_RETURN; } /*^getnamedsymbol*/ /*getnamedsym:CLASS_LABEL_BINDING*/ { melt_ptr_t sy_CLASS_LABEL_BINDING = meltgc_named_symbol("CLASS_LABEL_BINDING", MELT_GET); - if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1438*/ meltfptr[1437]) - /*_.VALDATA___V1438*/ meltfptr[1437] = (void*) sy_CLASS_LABEL_BINDING; } + if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1406*/ meltfptr[1405]) + /*_.VALDATA___V1406*/ meltfptr[1405] = (void*) sy_CLASS_LABEL_BINDING; } /*^getnamedsymbol*/ /*getnamedsym:FOREVER*/ { melt_ptr_t sy_FOREVER = meltgc_named_symbol("FOREVER", MELT_GET); - if (sy_FOREVER && NULL == /*_.VALDATA___V1440*/ meltfptr[1439]) - /*_.VALDATA___V1440*/ meltfptr[1439] = (void*) sy_FOREVER; } + if (sy_FOREVER && NULL == /*_.VALDATA___V1408*/ meltfptr[1407]) + /*_.VALDATA___V1408*/ meltfptr[1407] = (void*) sy_FOREVER; } /*^getnamedsymbol*/ /*getnamedsym:EXIT*/ { melt_ptr_t sy_EXIT = meltgc_named_symbol("EXIT", MELT_GET); - if (sy_EXIT && NULL == /*_.VALDATA___V1445*/ meltfptr[1444]) - /*_.VALDATA___V1445*/ meltfptr[1444] = (void*) sy_EXIT; } + if (sy_EXIT && NULL == /*_.VALDATA___V1413*/ meltfptr[1412]) + /*_.VALDATA___V1413*/ meltfptr[1412] = (void*) sy_EXIT; } /*^getnamedsymbol*/ /*getnamedsym:COMPILE_WARNING*/ { melt_ptr_t sy_COMPILE_WARNING = meltgc_named_symbol("COMPILE_WARNING", MELT_GET); - if (sy_COMPILE_WARNING && NULL == /*_.VALDATA___V1449*/ meltfptr[1448]) - /*_.VALDATA___V1449*/ meltfptr[1448] = (void*) sy_COMPILE_WARNING; } + if (sy_COMPILE_WARNING && NULL == /*_.VALDATA___V1417*/ meltfptr[1416]) + /*_.VALDATA___V1417*/ meltfptr[1416] = (void*) sy_COMPILE_WARNING; } /*^getnamedsymbol*/ /*getnamedsym:ASSERT_FAILED*/ { melt_ptr_t sy_ASSERT_FAILED = meltgc_named_symbol("ASSERT_FAILED", MELT_GET); - if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1452*/ meltfptr[1451]) - /*_.VALDATA___V1452*/ meltfptr[1451] = (void*) sy_ASSERT_FAILED; } + if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1420*/ meltfptr[1419]) + /*_.VALDATA___V1420*/ meltfptr[1419] = (void*) sy_ASSERT_FAILED; } /*^getnamedsymbol*/ /*getnamedsym:FIND_ENV_DEBUG*/ { melt_ptr_t sy_FIND_ENV_DEBUG = meltgc_named_symbol("FIND_ENV_DEBUG", MELT_GET); - if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V1457*/ meltfptr[1456]) - /*_.VALDATA___V1457*/ meltfptr[1456] = (void*) sy_FIND_ENV_DEBUG; } + if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V1425*/ meltfptr[1424]) + /*_.VALDATA___V1425*/ meltfptr[1424] = (void*) sy_FIND_ENV_DEBUG; } /*^getnamedsymbol*/ /*getnamedsym:ENABLE_CHECKING*/ { melt_ptr_t sy_ENABLE_CHECKING = meltgc_named_symbol("ENABLE_CHECKING", MELT_GET); - if (sy_ENABLE_CHECKING && NULL == /*_.VALDATA___V1454*/ meltfptr[1453]) - /*_.VALDATA___V1454*/ meltfptr[1453] = (void*) sy_ENABLE_CHECKING; } + if (sy_ENABLE_CHECKING && NULL == /*_.VALDATA___V1422*/ meltfptr[1421]) + /*_.VALDATA___V1422*/ meltfptr[1421] = (void*) sy_ENABLE_CHECKING; } /*^getnamedsymbol*/ /*getnamedsym:ASSERT_MSG*/ { melt_ptr_t sy_ASSERT_MSG = meltgc_named_symbol("ASSERT_MSG", MELT_GET); - if (sy_ASSERT_MSG && NULL == /*_.VALDATA___V1459*/ meltfptr[1458]) - /*_.VALDATA___V1459*/ meltfptr[1458] = (void*) sy_ASSERT_MSG; } + if (sy_ASSERT_MSG && NULL == /*_.VALDATA___V1427*/ meltfptr[1426]) + /*_.VALDATA___V1427*/ meltfptr[1426] = (void*) sy_ASSERT_MSG; } /*^getnamedsymbol*/ /*getnamedsym:THE_MELTCALLCOUNT*/ { melt_ptr_t sy_THE_MELTCALLCOUNT = meltgc_named_symbol("THE_MELTCALLCOUNT", MELT_GET); - if (sy_THE_MELTCALLCOUNT && NULL == /*_.VALDATA___V1462*/ meltfptr[1461]) - /*_.VALDATA___V1462*/ meltfptr[1461] = (void*) sy_THE_MELTCALLCOUNT; } + if (sy_THE_MELTCALLCOUNT && NULL == /*_.VALDATA___V1430*/ meltfptr[1429]) + /*_.VALDATA___V1430*/ meltfptr[1429] = (void*) sy_THE_MELTCALLCOUNT; } /*^getnamedsymbol*/ /*getnamedsym:DEBUG_MSG*/ { melt_ptr_t sy_DEBUG_MSG = meltgc_named_symbol("DEBUG_MSG", MELT_GET); - if (sy_DEBUG_MSG && NULL == /*_.VALDATA___V1465*/ meltfptr[1464]) - /*_.VALDATA___V1465*/ meltfptr[1464] = (void*) sy_DEBUG_MSG; } + if (sy_DEBUG_MSG && NULL == /*_.VALDATA___V1433*/ meltfptr[1432]) + /*_.VALDATA___V1433*/ meltfptr[1432] = (void*) sy_DEBUG_MSG; } /*^getnamedsymbol*/ /*getnamedsym:EXPORT_VALUES*/ { melt_ptr_t sy_EXPORT_VALUES = meltgc_named_symbol("EXPORT_VALUES", MELT_GET); - if (sy_EXPORT_VALUES && NULL == /*_.VALDATA___V1470*/ meltfptr[1469]) - /*_.VALDATA___V1470*/ meltfptr[1469] = (void*) sy_EXPORT_VALUES; } + if (sy_EXPORT_VALUES && NULL == /*_.VALDATA___V1438*/ meltfptr[1437]) + /*_.VALDATA___V1438*/ meltfptr[1437] = (void*) sy_EXPORT_VALUES; } /*^getnamedsymbol*/ /*getnamedsym:EXPORT_MACRO*/ { melt_ptr_t sy_EXPORT_MACRO = meltgc_named_symbol("EXPORT_MACRO", MELT_GET); - if (sy_EXPORT_MACRO && NULL == /*_.VALDATA___V1474*/ meltfptr[1473]) - /*_.VALDATA___V1474*/ meltfptr[1473] = (void*) sy_EXPORT_MACRO; } + if (sy_EXPORT_MACRO && NULL == /*_.VALDATA___V1442*/ meltfptr[1441]) + /*_.VALDATA___V1442*/ meltfptr[1441] = (void*) sy_EXPORT_MACRO; } /*^getnamedsymbol*/ /*getnamedsym:EXPORT_PATMACRO*/ { melt_ptr_t sy_EXPORT_PATMACRO = meltgc_named_symbol("EXPORT_PATMACRO", MELT_GET); - if (sy_EXPORT_PATMACRO && NULL == /*_.VALDATA___V1478*/ meltfptr[1477]) - /*_.VALDATA___V1478*/ meltfptr[1477] = (void*) sy_EXPORT_PATMACRO; } + if (sy_EXPORT_PATMACRO && NULL == /*_.VALDATA___V1446*/ meltfptr[1445]) + /*_.VALDATA___V1446*/ meltfptr[1445] = (void*) sy_EXPORT_PATMACRO; } /*^getnamedsymbol*/ /*getnamedsym:EXPORT_CLASS*/ { melt_ptr_t sy_EXPORT_CLASS = meltgc_named_symbol("EXPORT_CLASS", MELT_GET); - if (sy_EXPORT_CLASS && NULL == /*_.VALDATA___V1483*/ meltfptr[1482]) - /*_.VALDATA___V1483*/ meltfptr[1482] = (void*) sy_EXPORT_CLASS; } + if (sy_EXPORT_CLASS && NULL == /*_.VALDATA___V1451*/ meltfptr[1450]) + /*_.VALDATA___V1451*/ meltfptr[1450] = (void*) sy_EXPORT_CLASS; } /*^getnamedsymbol*/ /*getnamedsym:EXPORT_SYNONYM*/ { melt_ptr_t sy_EXPORT_SYNONYM = meltgc_named_symbol("EXPORT_SYNONYM", MELT_GET); - if (sy_EXPORT_SYNONYM && NULL == /*_.VALDATA___V1487*/ meltfptr[1486]) - /*_.VALDATA___V1487*/ meltfptr[1486] = (void*) sy_EXPORT_SYNONYM; } + if (sy_EXPORT_SYNONYM && NULL == /*_.VALDATA___V1455*/ meltfptr[1454]) + /*_.VALDATA___V1455*/ meltfptr[1454] = (void*) sy_EXPORT_SYNONYM; } /*^getnamedsymbol*/ /*getnamedsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ { melt_ptr_t sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol("CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); - if (sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1491*/ meltfptr[1490]) - /*_.VALDATA___V1491*/ meltfptr[1490] = (void*) sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1459*/ meltfptr[1458]) + /*_.VALDATA___V1459*/ meltfptr[1458] = (void*) sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:PARENT_MODULE_ENVIRONMENT*/ { melt_ptr_t sy_PARENT_MODULE_ENVIRONMENT = meltgc_named_symbol("PARENT_MODULE_ENVIRONMENT", MELT_GET); - if (sy_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1495*/ meltfptr[1494]) - /*_.VALDATA___V1495*/ meltfptr[1494] = (void*) sy_PARENT_MODULE_ENVIRONMENT; } + if (sy_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1463*/ meltfptr[1462]) + /*_.VALDATA___V1463*/ meltfptr[1462] = (void*) sy_PARENT_MODULE_ENVIRONMENT; } /*^getnamedsymbol*/ /*getnamedsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ { melt_ptr_t sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol("UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); - if (sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1499*/ meltfptr[1498]) - /*_.VALDATA___V1499*/ meltfptr[1498] = (void*) sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } + if (sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1467*/ meltfptr[1466]) + /*_.VALDATA___V1467*/ meltfptr[1466] = (void*) sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol*/ /*getnamedsym:FETCH_PREDEFINED*/ { melt_ptr_t sy_FETCH_PREDEFINED = meltgc_named_symbol("FETCH_PREDEFINED", MELT_GET); - if (sy_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1503*/ meltfptr[1502]) - /*_.VALDATA___V1503*/ meltfptr[1502] = (void*) sy_FETCH_PREDEFINED; } + if (sy_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1471*/ meltfptr[1470]) + /*_.VALDATA___V1471*/ meltfptr[1470] = (void*) sy_FETCH_PREDEFINED; } /*^getnamedsymbol*/ /*getnamedsym:STORE_PREDEFINED*/ { melt_ptr_t sy_STORE_PREDEFINED = meltgc_named_symbol("STORE_PREDEFINED", MELT_GET); - if (sy_STORE_PREDEFINED && NULL == /*_.VALDATA___V1507*/ meltfptr[1506]) - /*_.VALDATA___V1507*/ meltfptr[1506] = (void*) sy_STORE_PREDEFINED; } + if (sy_STORE_PREDEFINED && NULL == /*_.VALDATA___V1475*/ meltfptr[1474]) + /*_.VALDATA___V1475*/ meltfptr[1474] = (void*) sy_STORE_PREDEFINED; } /*^getnamedsymbol*/ /*getnamedsym:EXPAND_APPLY*/ { melt_ptr_t sy_EXPAND_APPLY = meltgc_named_symbol("EXPAND_APPLY", MELT_GET); - if (sy_EXPAND_APPLY && NULL == /*_.VALDATA___V1509*/ meltfptr[1508]) - /*_.VALDATA___V1509*/ meltfptr[1508] = (void*) sy_EXPAND_APPLY; } + if (sy_EXPAND_APPLY && NULL == /*_.VALDATA___V1477*/ meltfptr[1476]) + /*_.VALDATA___V1477*/ meltfptr[1476] = (void*) sy_EXPAND_APPLY; } /*^getnamedsymbol*/ /*getnamedsym:EXPAND_MSEND*/ { melt_ptr_t sy_EXPAND_MSEND = meltgc_named_symbol("EXPAND_MSEND", MELT_GET); - if (sy_EXPAND_MSEND && NULL == /*_.VALDATA___V1511*/ meltfptr[1510]) - /*_.VALDATA___V1511*/ meltfptr[1510] = (void*) sy_EXPAND_MSEND; } + if (sy_EXPAND_MSEND && NULL == /*_.VALDATA___V1479*/ meltfptr[1478]) + /*_.VALDATA___V1479*/ meltfptr[1478] = (void*) sy_EXPAND_MSEND; } /*^getnamedsymbol*/ /*getnamedsym:EXPAND_PAIRLIST_AS_TUPLE*/ { melt_ptr_t sy_EXPAND_PAIRLIST_AS_TUPLE = meltgc_named_symbol("EXPAND_PAIRLIST_AS_TUPLE", MELT_GET); - if (sy_EXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1513*/ meltfptr[1512]) - /*_.VALDATA___V1513*/ meltfptr[1512] = (void*) sy_EXPAND_PAIRLIST_AS_TUPLE; } + if (sy_EXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1481*/ meltfptr[1480]) + /*_.VALDATA___V1481*/ meltfptr[1480] = (void*) sy_EXPAND_PAIRLIST_AS_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:EXPAND_PRIMITIVE*/ { melt_ptr_t sy_EXPAND_PRIMITIVE = meltgc_named_symbol("EXPAND_PRIMITIVE", MELT_GET); - if (sy_EXPAND_PRIMITIVE && NULL == /*_.VALDATA___V1515*/ meltfptr[1514]) - /*_.VALDATA___V1515*/ meltfptr[1514] = (void*) sy_EXPAND_PRIMITIVE; } + if (sy_EXPAND_PRIMITIVE && NULL == /*_.VALDATA___V1483*/ meltfptr[1482]) + /*_.VALDATA___V1483*/ meltfptr[1482] = (void*) sy_EXPAND_PRIMITIVE; } /*^getnamedsymbol*/ /*getnamedsym:INSTALL_INITIAL_MACRO*/ { melt_ptr_t sy_INSTALL_INITIAL_MACRO = meltgc_named_symbol("INSTALL_INITIAL_MACRO", MELT_GET); - if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V1517*/ meltfptr[1516]) - /*_.VALDATA___V1517*/ meltfptr[1516] = (void*) sy_INSTALL_INITIAL_MACRO; } + if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V1485*/ meltfptr[1484]) + /*_.VALDATA___V1485*/ meltfptr[1484] = (void*) sy_INSTALL_INITIAL_MACRO; } /*^getnamedsymbol*/ /*getnamedsym:LAMBDA_ARG_BINDINGS*/ { melt_ptr_t sy_LAMBDA_ARG_BINDINGS = meltgc_named_symbol("LAMBDA_ARG_BINDINGS", MELT_GET); - if (sy_LAMBDA_ARG_BINDINGS && NULL == /*_.VALDATA___V1519*/ meltfptr[1518]) - /*_.VALDATA___V1519*/ meltfptr[1518] = (void*) sy_LAMBDA_ARG_BINDINGS; } + if (sy_LAMBDA_ARG_BINDINGS && NULL == /*_.VALDATA___V1487*/ meltfptr[1486]) + /*_.VALDATA___V1487*/ meltfptr[1486] = (void*) sy_LAMBDA_ARG_BINDINGS; } /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_1*/ { melt_ptr_t sy_MACROEXPAND_1 = meltgc_named_symbol("MACROEXPAND_1", MELT_GET); - if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V1521*/ meltfptr[1520]) - /*_.VALDATA___V1521*/ meltfptr[1520] = (void*) sy_MACROEXPAND_1; } + if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V1489*/ meltfptr[1488]) + /*_.VALDATA___V1489*/ meltfptr[1488] = (void*) sy_MACROEXPAND_1; } /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/ { melt_ptr_t sy_MACROEXPAND_TOPLEVEL_LIST = meltgc_named_symbol("MACROEXPAND_TOPLEVEL_LIST", MELT_GET); - if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V1523*/ meltfptr[1522]) - /*_.VALDATA___V1523*/ meltfptr[1522] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; } + if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V1491*/ meltfptr[1490]) + /*_.VALDATA___V1491*/ meltfptr[1490] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; } /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_1*/ { melt_ptr_t sy_PATTERNEXPAND_1 = meltgc_named_symbol("PATTERNEXPAND_1", MELT_GET); - if (sy_PATTERNEXPAND_1 && NULL == /*_.VALDATA___V1525*/ meltfptr[1524]) - /*_.VALDATA___V1525*/ meltfptr[1524] = (void*) sy_PATTERNEXPAND_1; } + if (sy_PATTERNEXPAND_1 && NULL == /*_.VALDATA___V1493*/ meltfptr[1492]) + /*_.VALDATA___V1493*/ meltfptr[1492] = (void*) sy_PATTERNEXPAND_1; } /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_EXPR*/ { melt_ptr_t sy_PATTERNEXPAND_EXPR = meltgc_named_symbol("PATTERNEXPAND_EXPR", MELT_GET); - if (sy_PATTERNEXPAND_EXPR && NULL == /*_.VALDATA___V1527*/ meltfptr[1526]) - /*_.VALDATA___V1527*/ meltfptr[1526] = (void*) sy_PATTERNEXPAND_EXPR; } + if (sy_PATTERNEXPAND_EXPR && NULL == /*_.VALDATA___V1495*/ meltfptr[1494]) + /*_.VALDATA___V1495*/ meltfptr[1494] = (void*) sy_PATTERNEXPAND_EXPR; } /*^getnamedsymbol*/ /*getnamedsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ { melt_ptr_t sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE = meltgc_named_symbol("PATTERNEXPAND_PAIRLIST_AS_TUPLE", MELT_GET); - if (sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1529*/ meltfptr[1528]) - /*_.VALDATA___V1529*/ meltfptr[1528] = (void*) sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } + if (sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1497*/ meltfptr[1496]) + /*_.VALDATA___V1497*/ meltfptr[1496] = (void*) sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } /*^getnamedsymbol*/ /*getnamedsym:PATTERN_WEIGHT_TUPLE*/ { melt_ptr_t sy_PATTERN_WEIGHT_TUPLE = meltgc_named_symbol("PATTERN_WEIGHT_TUPLE", MELT_GET); - if (sy_PATTERN_WEIGHT_TUPLE && NULL == /*_.VALDATA___V1531*/ meltfptr[1530]) - /*_.VALDATA___V1531*/ meltfptr[1530] = (void*) sy_PATTERN_WEIGHT_TUPLE; } + if (sy_PATTERN_WEIGHT_TUPLE && NULL == /*_.VALDATA___V1499*/ meltfptr[1498]) + /*_.VALDATA___V1499*/ meltfptr[1498] = (void*) sy_PATTERN_WEIGHT_TUPLE; } /*^comment*/ @@ -15065,7 +14783,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1010*/ meltfptr[1009]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15082,7 +14800,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1012*/ meltfptr[1011]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15099,7 +14817,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_MULTIPLE__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_MULTIPLE__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1014*/ meltfptr[1013]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15116,7 +14834,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_SEXPR__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SEXPR__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15133,7 +14851,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_SYMBOL__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SYMBOL__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1018*/ meltfptr[1017]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15150,7 +14868,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15167,7 +14885,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FIELD__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FIELD__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1022*/ meltfptr[1021]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15184,7 +14902,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_KEYWORD__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_KEYWORD__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1024*/ meltfptr[1023]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15201,7 +14919,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_NAMED__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_NAMED__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1026*/ meltfptr[1025]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15218,7 +14936,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CITERATOR__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CITERATOR__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1028*/ meltfptr[1027]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15235,7 +14953,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CMATCHER__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CMATCHER__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1030*/ meltfptr[1029]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15252,7 +14970,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FUNMATCHER__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1060*/ meltfptr[1059]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FUNMATCHER__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1032*/ meltfptr[1031]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15269,7 +14987,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.FIND_ENV__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1062*/ meltfptr[1061]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1034*/ meltfptr[1033]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15286,7 +15004,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1064*/ meltfptr[1063]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15303,7 +15021,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1066*/ meltfptr[1065]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15320,7 +15038,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15337,7 +15055,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15354,7 +15072,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15371,7 +15089,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1074*/ meltfptr[1073]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15388,7 +15106,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1076*/ meltfptr[1075]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15405,7 +15123,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1078*/ meltfptr[1077]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15422,7 +15140,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_PRIMITIVE__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_PRIMITIVE__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15439,7 +15157,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ROOT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ROOT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15456,7 +15174,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1124*/ meltfptr[1123]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15473,7 +15191,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15490,7 +15208,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_BOX__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_BOX__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15507,7 +15225,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.MULTIPLE_MAP__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1130*/ meltfptr[1129]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_MAP__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1102*/ meltfptr[1101]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15524,7 +15242,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1104*/ meltfptr[1103]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15541,7 +15259,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_INTEGER__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_INTEGER__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1106*/ meltfptr[1105]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15558,7 +15276,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15575,7 +15293,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1138*/ meltfptr[1137]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15592,7 +15310,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_LIST__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1142*/ meltfptr[1141]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_LIST__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1114*/ meltfptr[1113]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15609,7 +15327,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_LOCATED__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1144*/ meltfptr[1143]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LOCATED__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15626,7 +15344,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CTYPE_VALUE__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1146*/ meltfptr[1145]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CTYPE_VALUE__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1118*/ meltfptr[1117]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15643,7 +15361,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1148*/ meltfptr[1147]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1120*/ meltfptr[1119]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15660,7 +15378,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CTYPE__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CTYPE__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1122*/ meltfptr[1121]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15677,7 +15395,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.PUT_ENV__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15694,7 +15412,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1156*/ meltfptr[1155]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15711,7 +15429,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1143*/ meltfptr[1142]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15728,7 +15446,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ANY_BINDING__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1181*/ meltfptr[1180]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_ANY_BINDING__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1153*/ meltfptr[1152]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15745,7 +15463,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.MULTIPLE_EVERY__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_EVERY__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1164*/ meltfptr[1163]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15762,7 +15480,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.FRESH_ENV__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FRESH_ENV__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1176*/ meltfptr[1175]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15779,7 +15497,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1210*/ meltfptr[1209]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15796,7 +15514,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1194*/ meltfptr[1193]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15813,7 +15531,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CLASS__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1228*/ meltfptr[1227]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CLASS__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15830,7 +15548,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1234*/ meltfptr[1233]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1202*/ meltfptr[1201]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15847,7 +15565,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1236*/ meltfptr[1235]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1204*/ meltfptr[1203]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15864,7 +15582,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1238*/ meltfptr[1237]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1206*/ meltfptr[1205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15881,7 +15599,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1247*/ meltfptr[1246]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1215*/ meltfptr[1214]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15898,7 +15616,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1253*/ meltfptr[1252]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15915,7 +15633,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1261*/ meltfptr[1260]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1229*/ meltfptr[1228]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15932,7 +15650,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CONTAINER__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_CONTAINER__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1231*/ meltfptr[1230]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15949,7 +15667,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_LET_BINDING__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LET_BINDING__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15966,7 +15684,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1383*/ meltfptr[1382]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1351*/ meltfptr[1350]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -15983,7 +15701,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.INSTALL_METHOD__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1394*/ meltfptr[1393]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_METHOD__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1362*/ meltfptr[1361]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -16000,7 +15718,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1400*/ meltfptr[1399]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1368*/ meltfptr[1367]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -16017,7 +15735,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1406*/ meltfptr[1405]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^apply*/ @@ -16034,7 +15752,7 @@ initial_frame_st meltfram__; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.FIND_ENV_DEBUG__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1457*/ meltfptr[1456]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV_DEBUG__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t)(/*_.VALDATA___V1425*/ meltfptr[1424]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } /*^comment*/ @@ -16909,7 +16627,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V137*/ meltfptr[136]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); @@ -16918,7 +16636,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V140*/ meltfptr[139]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); @@ -16955,7 +16673,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V141*/ meltfptr[140]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); @@ -16964,7 +16682,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V141*/ meltfptr[140]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); @@ -16973,7 +16691,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V143*/ meltfptr[142]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); @@ -16982,258 +16700,258 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V139*/ meltfptr[138]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V142*/ meltfptr[141]); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])))); + ((meltobject_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V145*/ meltfptr[144]); + + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143])))); + ((meltobject_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V139*/ meltfptr[138]); + + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V144*/ meltfptr[143]); + + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145])))); + ((meltobject_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V147*/ meltfptr[146]); + + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145])))); + ((meltobject_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V139*/ meltfptr[138]); + + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V146*/ meltfptr[145]); + /*putupl#65*/ - melt_assertmsg("putupl #65 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #65 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #65 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #65 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#66*/ - melt_assertmsg("putupl #66 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #66 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #66 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #66 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#67*/ - melt_assertmsg("putupl #67 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #67 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl #67 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #67 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*putupl#68*/ - melt_assertmsg("putupl #68 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #68 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V144*/ meltfptr[143]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141]); + melt_assertmsg("putupl #68 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #68 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V142*/ meltfptr[141]); + + /*putupl#69*/ + melt_assertmsg("putupl #69 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #69 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V144*/ meltfptr[143]); + + /*putupl#70*/ + melt_assertmsg("putupl #70 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #70 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V148*/ meltfptr[147]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V146*/ meltfptr[145]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V144*/ meltfptr[143]); + meltgc_touch(/*_.VALTUP___V148*/ meltfptr[147]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138])))); ((meltobject_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V144*/ meltfptr[143]); + /*_.VALTUP___V148*/ meltfptr[147]); - MELT_LOCATION("warmelt-macro.melt:97:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:98:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V139*/ meltfptr[138]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V145*/ meltfptr[144])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V145*/ meltfptr[144])))); - ((meltobject_ptr_t)(/*_.VALDATA___V145*/ meltfptr[144]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V146*/ meltfptr[145]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])))); + ((meltobject_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V150*/ meltfptr[149]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V145*/ meltfptr[144]); + meltgc_touch(/*_.VALDATA___V149*/ meltfptr[148]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])))); - ((meltobject_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V148*/ meltfptr[147]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])))); + ((meltobject_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V152*/ meltfptr[151]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V147*/ meltfptr[146]); - - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); + meltgc_touch(/*_.VALDATA___V151*/ meltfptr[150]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])))); - ((meltobject_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V150*/ meltfptr[149]); - - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])))); - ((meltobject_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152])) == MELTOBMAG_OBJECT); - /*putupl#69*/ - melt_assertmsg("putupl #69 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #69 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#70*/ - melt_assertmsg("putupl #70 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #70 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152])))); + ((meltobject_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V154*/ meltfptr[153]); - /*putupl#71*/ - melt_assertmsg("putupl #71 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #71 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V153*/ meltfptr[152]); - /*putupl#72*/ - melt_assertmsg("putupl #72 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #72 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])) == MELTOBMAG_OBJECT); - /*putupl#73*/ - melt_assertmsg("putupl #73 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #73 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V151*/ meltfptr[150]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])))); + ((meltobject_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V156*/ meltfptr[155]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V151*/ meltfptr[150]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V155*/ meltfptr[154]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])))); - ((meltobject_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V151*/ meltfptr[150]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V158*/ meltfptr[157]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V95*/ meltfptr[94]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])))); - ((meltobject_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V153*/ meltfptr[152]); + /*putupl#71*/ + melt_assertmsg("putupl #71 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #71 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); + /*putupl#72*/ + melt_assertmsg("putupl #72 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #72 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151])))); - ((meltobject_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V149*/ meltfptr[148]); + /*putupl#73*/ + melt_assertmsg("putupl #73 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #73 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V152*/ meltfptr[151]); + /*putupl#74*/ + melt_assertmsg("putupl #74 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #74 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); + /*putupl#75*/ + melt_assertmsg("putupl #75 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #75 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V159*/ meltfptr[158]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153])))); - ((meltobject_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V155*/ meltfptr[154]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V159*/ meltfptr[158]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153])))); - ((meltobject_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V149*/ meltfptr[148]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V154*/ meltfptr[153]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V159*/ meltfptr[158]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])))); - ((meltobject_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V157*/ meltfptr[156]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])))); + ((meltobject_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V161*/ meltfptr[160]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155])))); - ((meltobject_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V149*/ meltfptr[148]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159])))); + ((meltobject_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V157*/ meltfptr[156]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V156*/ meltfptr[155]); - - /*putupl#74*/ - melt_assertmsg("putupl #74 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #74 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#75*/ - melt_assertmsg("putupl #75 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #75 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + meltgc_touch(/*_.VALDATA___V160*/ meltfptr[159]); /*putupl#76*/ - melt_assertmsg("putupl #76 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #76 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl #76 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #76 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#77*/ - melt_assertmsg("putupl #77 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #77 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V152*/ meltfptr[151]); + melt_assertmsg("putupl #77 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #77 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#78*/ - melt_assertmsg("putupl #78 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #78 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V154*/ meltfptr[153]); + melt_assertmsg("putupl #78 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #78 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*putupl#79*/ - melt_assertmsg("putupl #79 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #79 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V158*/ meltfptr[157]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V156*/ meltfptr[155]); + melt_assertmsg("putupl #79 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #79 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V162*/ meltfptr[161]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V160*/ meltfptr[159]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V158*/ meltfptr[157]); + meltgc_touch(/*_.VALTUP___V162*/ meltfptr[161]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])))); - ((meltobject_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V158*/ meltfptr[157]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156])))); + ((meltobject_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V162*/ meltfptr[161]); - MELT_LOCATION("warmelt-macro.melt:107:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:110:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V149*/ meltfptr[148]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])))); - ((meltobject_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V160*/ meltfptr[159]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V159*/ meltfptr[158]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])))); - ((meltobject_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V162*/ meltfptr[161]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V161*/ meltfptr[160]); + meltgc_touch(/*_.VALDATA___V157*/ meltfptr[156]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])) == MELTOBMAG_OBJECT); @@ -17333,28 +17051,56 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V170*/ meltfptr[169]); + MELT_LOCATION("warmelt-macro.melt:119:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])))); + ((meltobject_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V173*/ meltfptr[172]); + + MELT_LOCATION("warmelt-macro.melt:119:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171])))); + ((meltobject_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V167*/ meltfptr[166]); + + MELT_LOCATION("warmelt-macro.melt:119:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V172*/ meltfptr[171]); + /*putupl#85*/ - melt_assertmsg("putupl #85 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #85 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #85 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #85 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#86*/ - melt_assertmsg("putupl #86 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #86 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #86 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #86 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#87*/ - melt_assertmsg("putupl #87 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #87 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl #87 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #87 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*putupl#88*/ - melt_assertmsg("putupl #88 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #88 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V172*/ meltfptr[171]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169]); + melt_assertmsg("putupl #88 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #88 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V170*/ meltfptr[169]); + + /*putupl#89*/ + melt_assertmsg("putupl #89 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #89 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V174*/ meltfptr[173]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V172*/ meltfptr[171]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V172*/ meltfptr[171]); + meltgc_touch(/*_.VALTUP___V174*/ meltfptr[173]); MELT_LOCATION("warmelt-macro.melt:119:/ initchunk"); /*^putslot*/ @@ -17363,23 +17109,13 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166])))); ((meltobject_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V172*/ meltfptr[171]); + /*_.VALTUP___V174*/ meltfptr[173]); MELT_LOCATION("warmelt-macro.melt:119:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V167*/ meltfptr[166]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])))); - ((meltobject_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V174*/ meltfptr[173]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V173*/ meltfptr[172]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])) == MELTOBMAG_OBJECT); @@ -17390,8 +17126,6 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V175*/ meltfptr[174]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])) == MELTOBMAG_OBJECT); @@ -17399,139 +17133,105 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V178*/ meltfptr[177]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])))); - ((meltobject_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V95*/ meltfptr[94]); - - /*putupl#89*/ - melt_assertmsg("putupl #89 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #89 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#90*/ - melt_assertmsg("putupl #90 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #90 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - - /*putupl#91*/ - melt_assertmsg("putupl #91 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #91 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V177*/ meltfptr[176]); - /*putupl#92*/ - melt_assertmsg("putupl #92 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #92 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])) == MELTOBMAG_OBJECT); - /*putupl#93*/ - melt_assertmsg("putupl #93 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #93 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V179*/ meltfptr[178]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])))); + ((meltobject_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V180*/ meltfptr[179]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V179*/ meltfptr[178]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V179*/ meltfptr[178]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:130:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])))); - ((meltobject_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V179*/ meltfptr[178]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V182*/ meltfptr[181]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:130:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])))); - ((meltobject_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V181*/ meltfptr[180]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V95*/ meltfptr[94]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); + /*putupl#90*/ + melt_assertmsg("putupl #90 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #90 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179])))); - ((meltobject_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V177*/ meltfptr[176]); + /*putupl#91*/ + melt_assertmsg("putupl #91 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #91 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V180*/ meltfptr[179]); + /*putupl#92*/ + melt_assertmsg("putupl #92 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #92 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT); + /*putupl#93*/ + melt_assertmsg("putupl #93 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #93 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#94*/ + melt_assertmsg("putupl #94 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #94 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V183*/ meltfptr[182]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])))); - ((meltobject_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V183*/ meltfptr[182]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V183*/ meltfptr[182]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:130:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181])))); - ((meltobject_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V177*/ meltfptr[176]); - - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V182*/ meltfptr[181]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])) == MELTOBMAG_OBJECT); - /*putupl#94*/ - melt_assertmsg("putupl #94 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #94 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V183*/ meltfptr[182]); /*putupl#95*/ melt_assertmsg("putupl #95 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #95 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #95 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#96*/ melt_assertmsg("putupl #96 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #96 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl #96 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#97*/ melt_assertmsg("putupl #97 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #97 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V180*/ meltfptr[179]); - - /*putupl#98*/ - melt_assertmsg("putupl #98 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #98 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V182*/ meltfptr[181]); + melt_assertmsg("putupl #97 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V184*/ meltfptr[183]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V184*/ meltfptr[183]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:130:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])))); - ((meltobject_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]))->obj_vartab[6] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180])))); + ((meltobject_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V184*/ meltfptr[183]); - MELT_LOCATION("warmelt-macro.melt:128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:130:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V177*/ meltfptr[176]); + meltgc_touch(/*_.VALDATA___V181*/ meltfptr[180]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])) == MELTOBMAG_OBJECT); @@ -17543,6 +17243,8 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V185*/ meltfptr[184]); + MELT_LOCATION("warmelt-macro.melt:137:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])) == MELTOBMAG_OBJECT); @@ -17550,210 +17252,216 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_0 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V188*/ meltfptr[187]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V187*/ meltfptr[186]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188])))); - ((meltobject_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V190*/ meltfptr[189]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V189*/ meltfptr[188]); - - MELT_LOCATION("warmelt-macro.melt:139:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V192*/ meltfptr[191]); - - MELT_LOCATION("warmelt-macro.melt:139:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:137:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])))); + ((meltobject_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]))->obj_vartab[4] = (melt_ptr_t)( /*_.VALDATA___V95*/ meltfptr[94]); + /*putupl#98*/ + melt_assertmsg("putupl #98 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #98 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#99*/ - melt_assertmsg("putupl #99 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #99 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #99 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #99 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#100*/ - melt_assertmsg("putupl #100 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #100 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #100 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #100 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#101*/ - melt_assertmsg("putupl #101 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #101 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #101 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #101 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_0*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putupl#102*/ - melt_assertmsg("putupl #102 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #102 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#103*/ - melt_assertmsg("putupl #103 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #103 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V193*/ meltfptr[192]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + /*putupl#102*/ + melt_assertmsg("putupl #102 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #102 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V189*/ meltfptr[188]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V193*/ meltfptr[192]); + meltgc_touch(/*_.VALTUP___V189*/ meltfptr[188]); - MELT_LOCATION("warmelt-macro.melt:139:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:137:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V193*/ meltfptr[192]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])))); + ((meltobject_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V189*/ meltfptr[188]); + + /*putupl#103*/ + melt_assertmsg("putupl #103 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #103 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#104*/ - melt_assertmsg("putupl #104 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #104 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #104 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #104 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#105*/ - melt_assertmsg("putupl #105 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #105 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#106*/ - melt_assertmsg("putupl #106 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #106 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V194*/ meltfptr[193]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_0*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putupl#105*/ + melt_assertmsg("putupl #105 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #105 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V190*/ meltfptr[189]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V194*/ meltfptr[193]); + meltgc_touch(/*_.VALTUP___V190*/ meltfptr[189]); - MELT_LOCATION("warmelt-macro.melt:139:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:137:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V194*/ meltfptr[193]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])))); + ((meltobject_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V190*/ meltfptr[189]); - MELT_LOCATION("warmelt-macro.melt:139:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:137:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V191*/ meltfptr[190]); + meltgc_touch(/*_.VALDATA___V187*/ meltfptr[186]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])))); - ((meltobject_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V196*/ meltfptr[195]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])))); + ((meltobject_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V192*/ meltfptr[191]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V195*/ meltfptr[194]); + meltgc_touch(/*_.VALDATA___V191*/ meltfptr[190]); - MELT_LOCATION("warmelt-macro.melt:146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])))); - ((meltobject_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V198*/ meltfptr[197]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V194*/ meltfptr[193]); - MELT_LOCATION("warmelt-macro.melt:146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])))); - ((meltobject_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#106*/ + melt_assertmsg("putupl #106 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #106 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#107*/ - melt_assertmsg("putupl #107 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #107 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #107 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #107 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#108*/ - melt_assertmsg("putupl #108 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #108 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #108 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #108 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#109*/ - melt_assertmsg("putupl #109 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #109 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #109 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #109 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V195*/ meltfptr[194]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#110*/ - melt_assertmsg("putupl #110 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #110 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V195*/ meltfptr[194]); - /*putupl#111*/ - melt_assertmsg("putupl #111 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #111 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V199*/ meltfptr[198]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V199*/ meltfptr[198]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V195*/ meltfptr[194]); - MELT_LOCATION("warmelt-macro.melt:146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])))); - ((meltobject_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V199*/ meltfptr[198]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195])))); + ((meltobject_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V197*/ meltfptr[196]); - /*putupl#112*/ - melt_assertmsg("putupl #112 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #112 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195])) == MELTOBMAG_OBJECT); - /*putupl#113*/ - melt_assertmsg("putupl #113 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #113 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195])))); + ((meltobject_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V193*/ meltfptr[192]); - /*putupl#114*/ - melt_assertmsg("putupl #114 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #114 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V200*/ meltfptr[199]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V196*/ meltfptr[195]); + + /*putupl#110*/ + melt_assertmsg("putupl #110 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #110 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#111*/ + melt_assertmsg("putupl #111 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #111 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#112*/ + melt_assertmsg("putupl #112 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #112 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V198*/ meltfptr[197]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V196*/ meltfptr[195]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V200*/ meltfptr[199]); + meltgc_touch(/*_.VALTUP___V198*/ meltfptr[197]); - MELT_LOCATION("warmelt-macro.melt:146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196])))); - ((meltobject_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V200*/ meltfptr[199]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192])))); + ((meltobject_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V198*/ meltfptr[197]); - MELT_LOCATION("warmelt-macro.melt:146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:144:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V197*/ meltfptr[196]); + meltgc_touch(/*_.VALDATA___V193*/ meltfptr[192]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])))); + ((meltobject_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V200*/ meltfptr[199]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V199*/ meltfptr[198]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])) == MELTOBMAG_OBJECT); @@ -17765,7 +17473,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V201*/ meltfptr[200]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:152:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); @@ -17774,39 +17482,44 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V204*/ meltfptr[203]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:152:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])))); ((meltobject_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*_.VALDATA___V95*/ meltfptr[94]); + + /*putupl#113*/ + melt_assertmsg("putupl #113 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #113 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#114*/ + melt_assertmsg("putupl #114 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #114 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#115*/ melt_assertmsg("putupl #115 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #115 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #115 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#116*/ melt_assertmsg("putupl #116 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #116 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #116 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#117*/ melt_assertmsg("putupl #117 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #117 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#118*/ - melt_assertmsg("putupl #118 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #118 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #117 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V205*/ meltfptr[204]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V205*/ meltfptr[204]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:152:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); @@ -17815,61 +17528,50 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V205*/ meltfptr[204]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V207*/ meltfptr[206]); - - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205])))); - ((meltobject_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V203*/ meltfptr[202]); - - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V206*/ meltfptr[205]); + /*putupl#118*/ + melt_assertmsg("putupl #118 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #118 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#119*/ - melt_assertmsg("putupl #119 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #119 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #119 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #119 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#120*/ - melt_assertmsg("putupl #120 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #120 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#121*/ - melt_assertmsg("putupl #121 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #121 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V208*/ meltfptr[207]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V206*/ meltfptr[205]); + melt_assertmsg("putupl #120 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #120 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V206*/ meltfptr[205]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V208*/ meltfptr[207]); + meltgc_touch(/*_.VALTUP___V206*/ meltfptr[205]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:152:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202])))); ((meltobject_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V208*/ meltfptr[207]); + /*_.VALTUP___V206*/ meltfptr[205]); - MELT_LOCATION("warmelt-macro.melt:153:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:152:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V203*/ meltfptr[202]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])))); + ((meltobject_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V208*/ meltfptr[207]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V207*/ meltfptr[206]); + + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); @@ -17877,105 +17579,129 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V210*/ meltfptr[209]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V209*/ meltfptr[208]); - + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])))); + ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])))); - ((meltobject_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V212*/ meltfptr[211]); + /*putupl#121*/ + melt_assertmsg("putupl #121 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #121 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V211*/ meltfptr[210]); + /*putupl#122*/ + melt_assertmsg("putupl #122 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #122 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - MELT_LOCATION("warmelt-macro.melt:161:/ initchunk"); + /*putupl#123*/ + melt_assertmsg("putupl #123 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #123 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#124*/ + melt_assertmsg("putupl #124 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #124 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V211*/ meltfptr[210]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V211*/ meltfptr[210]); + + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V214*/ meltfptr[213]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])))); + ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V211*/ meltfptr[210]); - MELT_LOCATION("warmelt-macro.melt:161:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V95*/ meltfptr[94]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])) == MELTOBMAG_OBJECT); - /*putupl#122*/ - melt_assertmsg("putupl #122 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #122 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])))); + ((meltobject_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V213*/ meltfptr[212]); - /*putupl#123*/ - melt_assertmsg("putupl #123 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #123 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])) == MELTOBMAG_OBJECT); - /*putupl#124*/ - melt_assertmsg("putupl #124 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #124 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211])))); + ((meltobject_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V209*/ meltfptr[208]); - /*putupl#125*/ - melt_assertmsg("putupl #125 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #125 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V212*/ meltfptr[211]); - /*putupl#126*/ - melt_assertmsg("putupl #126 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #126 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V215*/ meltfptr[214]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V95*/ meltfptr[94]); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V215*/ meltfptr[214]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])))); + ((meltobject_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V215*/ meltfptr[214]); - MELT_LOCATION("warmelt-macro.melt:161:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213])))); + ((meltobject_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V209*/ meltfptr[208]); + + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V214*/ meltfptr[213]); + + /*putupl#125*/ + melt_assertmsg("putupl #125 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #125 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V215*/ meltfptr[214]); + /*putupl#126*/ + melt_assertmsg("putupl #126 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #126 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#127*/ melt_assertmsg("putupl #127 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #127 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #127 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V212*/ meltfptr[211]); /*putupl#128*/ melt_assertmsg("putupl #128 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #128 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#129*/ - melt_assertmsg("putupl #129 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #129 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V98*/ meltfptr[97]); + melt_assertmsg("putupl #128 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V216*/ meltfptr[215]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V214*/ meltfptr[213]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V216*/ meltfptr[215]); - MELT_LOCATION("warmelt-macro.melt:161:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212])))); - ((meltobject_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[6] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])))); + ((meltobject_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V216*/ meltfptr[215]); - MELT_LOCATION("warmelt-macro.melt:161:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:159:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V213*/ meltfptr[212]); + meltgc_touch(/*_.VALDATA___V209*/ meltfptr[208]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V217*/ meltfptr[216])) == MELTOBMAG_OBJECT); @@ -17987,8 +17713,6 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V217*/ meltfptr[216]); - MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); @@ -17996,139 +17720,123 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V220*/ meltfptr[219]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V219*/ meltfptr[218]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])))); + ((meltobject_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V222*/ meltfptr[221]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V221*/ meltfptr[220]); + MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V224*/ meltfptr[223]); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[4] = (melt_ptr_t)( + MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#129*/ + melt_assertmsg("putupl #129 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #129 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#130*/ - melt_assertmsg("putupl #130 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #130 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #130 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #130 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#131*/ - melt_assertmsg("putupl #131 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #131 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #131 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #131 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#132*/ - melt_assertmsg("putupl #132 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #132 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#133*/ - melt_assertmsg("putupl #133 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #133 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V221*/ meltfptr[220]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #132 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #132 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V225*/ meltfptr[224]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V221*/ meltfptr[220]); + meltgc_touch(/*_.VALTUP___V225*/ meltfptr[224]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V221*/ meltfptr[220]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V225*/ meltfptr[224]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])))); - ((meltobject_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V223*/ meltfptr[222]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])))); + ((meltobject_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V227*/ meltfptr[226]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221])))); - ((meltobject_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V219*/ meltfptr[218]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225])))); + ((meltobject_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V223*/ meltfptr[222]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V222*/ meltfptr[221]); - - MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])))); - ((meltobject_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V225*/ meltfptr[224]); - - MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); + meltgc_touch(/*_.VALDATA___V226*/ meltfptr[225]); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223])))); - ((meltobject_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V219*/ meltfptr[218]); - - MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V224*/ meltfptr[223]); + /*putupl#133*/ + melt_assertmsg("putupl #133 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #133 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#134*/ - melt_assertmsg("putupl #134 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #134 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #134 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #134 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#135*/ - melt_assertmsg("putupl #135 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #135 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#136*/ - melt_assertmsg("putupl #136 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #136 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V222*/ meltfptr[221]); - - /*putupl#137*/ - melt_assertmsg("putupl #137 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #137 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V226*/ meltfptr[225]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V224*/ meltfptr[223]); + melt_assertmsg("putupl #135 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #135 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V228*/ meltfptr[227]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V226*/ meltfptr[225]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V226*/ meltfptr[225]); + meltgc_touch(/*_.VALTUP___V228*/ meltfptr[227]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V226*/ meltfptr[225]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V228*/ meltfptr[227]); MELT_LOCATION("warmelt-macro.melt:168:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V219*/ meltfptr[218]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])))); - ((meltobject_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V228*/ meltfptr[227]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V227*/ meltfptr[226]); + meltgc_touch(/*_.VALDATA___V223*/ meltfptr[222]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])) == MELTOBMAG_OBJECT); @@ -18150,7 +17858,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V231*/ meltfptr[230]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); @@ -18159,7 +17867,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V234*/ meltfptr[233]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); @@ -18168,30 +17876,30 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#138*/ - melt_assertmsg("putupl #138 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #138 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); + /*putupl#136*/ + melt_assertmsg("putupl #136 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #136 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#139*/ - melt_assertmsg("putupl #139 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #139 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); + /*putupl#137*/ + melt_assertmsg("putupl #137 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #137 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#140*/ - melt_assertmsg("putupl #140 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #140 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); + /*putupl#138*/ + melt_assertmsg("putupl #138 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #138 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#141*/ - melt_assertmsg("putupl #141 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #141 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); + /*putupl#139*/ + melt_assertmsg("putupl #139 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #139 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V235*/ meltfptr[234]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V235*/ meltfptr[234]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); @@ -18200,7 +17908,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V235*/ meltfptr[234]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT); @@ -18209,7 +17917,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V237*/ meltfptr[236]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT); @@ -18218,30 +17926,30 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V233*/ meltfptr[232]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V236*/ meltfptr[235]); - /*putupl#142*/ - melt_assertmsg("putupl #142 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #142 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); + /*putupl#140*/ + melt_assertmsg("putupl #140 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #140 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#143*/ - melt_assertmsg("putupl #143 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #143 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); + /*putupl#141*/ + melt_assertmsg("putupl #141 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #141 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#144*/ - melt_assertmsg("putupl #144 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #144 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); + /*putupl#142*/ + melt_assertmsg("putupl #142 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #142 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V238*/ meltfptr[237]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V236*/ meltfptr[235]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V238*/ meltfptr[237]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); @@ -18250,7 +17958,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V238*/ meltfptr[237]); - MELT_LOCATION("warmelt-macro.melt:177:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:176:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V233*/ meltfptr[232]); @@ -18275,7 +17983,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V241*/ meltfptr[240]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == MELTOBMAG_OBJECT); @@ -18284,7 +17992,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V244*/ meltfptr[243]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == MELTOBMAG_OBJECT); @@ -18293,30 +18001,30 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#145*/ - melt_assertmsg("putupl #145 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #145 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); + /*putupl#143*/ + melt_assertmsg("putupl #143 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #143 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#146*/ - melt_assertmsg("putupl #146 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #146 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); + /*putupl#144*/ + melt_assertmsg("putupl #144 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #144 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#147*/ - melt_assertmsg("putupl #147 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #147 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); + /*putupl#145*/ + melt_assertmsg("putupl #145 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #145 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#148*/ - melt_assertmsg("putupl #148 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #148 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); + /*putupl#146*/ + melt_assertmsg("putupl #146 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #146 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V245*/ meltfptr[244]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V245*/ meltfptr[244]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == MELTOBMAG_OBJECT); @@ -18325,7 +18033,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V245*/ meltfptr[244]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); @@ -18334,7 +18042,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V247*/ meltfptr[246]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); @@ -18343,30 +18051,30 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V243*/ meltfptr[242]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V246*/ meltfptr[245]); - /*putupl#149*/ - melt_assertmsg("putupl #149 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #149 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); + /*putupl#147*/ + melt_assertmsg("putupl #147 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #147 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#150*/ - melt_assertmsg("putupl #150 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #150 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); + /*putupl#148*/ + melt_assertmsg("putupl #148 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #148 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#151*/ - melt_assertmsg("putupl #151 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #151 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); + /*putupl#149*/ + melt_assertmsg("putupl #149 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #149 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V248*/ meltfptr[247]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V248*/ meltfptr[247]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242])) == MELTOBMAG_OBJECT); @@ -18375,7 +18083,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V248*/ meltfptr[247]); - MELT_LOCATION("warmelt-macro.melt:185:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:183:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V243*/ meltfptr[242]); @@ -18416,27 +18124,32 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252])))); ((meltobject_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*_.VALDATA___V243*/ meltfptr[242]); + + /*putupl#150*/ + melt_assertmsg("putupl #150 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #150 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#151*/ + melt_assertmsg("putupl #151 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #151 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#152*/ melt_assertmsg("putupl #152 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #152 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #152 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#153*/ melt_assertmsg("putupl #153 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #153 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #153 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#154*/ melt_assertmsg("putupl #154 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #154 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#155*/ - melt_assertmsg("putupl #155 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #155 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #154 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V255*/ meltfptr[254]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V255*/ meltfptr[254]); @@ -18450,46 +18163,23 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V255*/ meltfptr[254]); - MELT_LOCATION("warmelt-macro.melt:192:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])))); - ((meltobject_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V257*/ meltfptr[256]); - - MELT_LOCATION("warmelt-macro.melt:192:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255])))); - ((meltobject_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V253*/ meltfptr[252]); - - MELT_LOCATION("warmelt-macro.melt:192:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V256*/ meltfptr[255]); + /*putupl#155*/ + melt_assertmsg("putupl #155 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #155 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#156*/ - melt_assertmsg("putupl #156 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #156 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #156 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #156 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#157*/ - melt_assertmsg("putupl #157 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #157 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#158*/ - melt_assertmsg("putupl #158 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #158 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V258*/ meltfptr[257]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]); + melt_assertmsg("putupl #157 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #157 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V256*/ meltfptr[255]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V258*/ meltfptr[257]); + meltgc_touch(/*_.VALTUP___V256*/ meltfptr[255]); MELT_LOCATION("warmelt-macro.melt:192:/ initchunk"); /*^putslot*/ @@ -18498,7 +18188,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252])))); ((meltobject_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V258*/ meltfptr[257]); + /*_.VALTUP___V256*/ meltfptr[255]); MELT_LOCATION("warmelt-macro.melt:192:/ initchunk"); /*^touch*/ @@ -18506,399 +18196,437 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start meltgc_touch(/*_.VALDATA___V253*/ meltfptr[252]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); - ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V260*/ meltfptr[259]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V259*/ meltfptr[258]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])))); - ((meltobject_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V262*/ meltfptr[261]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])))); + ((meltobject_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V258*/ meltfptr[257]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V261*/ meltfptr[260]); + meltgc_touch(/*_.VALDATA___V257*/ meltfptr[256]); - MELT_LOCATION("warmelt-macro.melt:201:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:199:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V264*/ meltfptr[263]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V260*/ meltfptr[259]); - MELT_LOCATION("warmelt-macro.melt:201:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:199:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V243*/ meltfptr[242]); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V253*/ meltfptr[252]); + /*putupl#158*/ + melt_assertmsg("putupl #158 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #158 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#159*/ - melt_assertmsg("putupl #159 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #159 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #159 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #159 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#160*/ - melt_assertmsg("putupl #160 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #160 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #160 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #160 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#161*/ - melt_assertmsg("putupl #161 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #161 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #161 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #161 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#162*/ - melt_assertmsg("putupl #162 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #162 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#163*/ - melt_assertmsg("putupl #163 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #163 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V265*/ meltfptr[264]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]); + melt_assertmsg("putupl #162 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #162 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V261*/ meltfptr[260]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V265*/ meltfptr[264]); + meltgc_touch(/*_.VALTUP___V261*/ meltfptr[260]); - MELT_LOCATION("warmelt-macro.melt:201:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:199:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V261*/ meltfptr[260]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V265*/ meltfptr[264]); + /*putupl#163*/ + melt_assertmsg("putupl #163 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #163 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#164*/ - melt_assertmsg("putupl #164 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #164 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #164 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #164 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#165*/ - melt_assertmsg("putupl #165 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #165 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#166*/ - melt_assertmsg("putupl #166 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #166 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V266*/ meltfptr[265]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]); + melt_assertmsg("putupl #165 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #165 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V262*/ meltfptr[261]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V246*/ meltfptr[245]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V266*/ meltfptr[265]); + meltgc_touch(/*_.VALTUP___V262*/ meltfptr[261]); - MELT_LOCATION("warmelt-macro.melt:201:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:199:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V266*/ meltfptr[265]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])))); + ((meltobject_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V262*/ meltfptr[261]); - MELT_LOCATION("warmelt-macro.melt:201:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:199:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V263*/ meltfptr[262]); + meltgc_touch(/*_.VALDATA___V259*/ meltfptr[258]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])))); - ((meltobject_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V268*/ meltfptr[267]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])))); + ((meltobject_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V264*/ meltfptr[263]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V267*/ meltfptr[266]); + meltgc_touch(/*_.VALDATA___V263*/ meltfptr[262]); MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V270*/ meltfptr[269]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V266*/ meltfptr[265]); MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V253*/ meltfptr[252]); + /*putupl#166*/ + melt_assertmsg("putupl #166 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #166 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#167*/ - melt_assertmsg("putupl #167 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #167 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #167 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #167 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#168*/ - melt_assertmsg("putupl #168 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #168 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #168 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #168 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#169*/ - melt_assertmsg("putupl #169 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #169 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#170*/ - melt_assertmsg("putupl #170 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #170 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#171*/ - melt_assertmsg("putupl #171 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #171 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V271*/ meltfptr[270]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]); + melt_assertmsg("putupl #169 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #169 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V267*/ meltfptr[266]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V271*/ meltfptr[270]); + meltgc_touch(/*_.VALTUP___V267*/ meltfptr[266]); MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V271*/ meltfptr[270]); - - /*putupl#172*/ - melt_assertmsg("putupl #172 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #172 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); - /*putupl#173*/ - melt_assertmsg("putupl #173 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #173 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V267*/ meltfptr[266]); - /*putupl#174*/ - melt_assertmsg("putupl #174 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #174 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V272*/ meltfptr[271]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V256*/ meltfptr[255]); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V272*/ meltfptr[271]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])))); + ((meltobject_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V269*/ meltfptr[268]); MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V272*/ meltfptr[271]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267])))); + ((meltobject_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V265*/ meltfptr[264]); MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V269*/ meltfptr[268]); + meltgc_touch(/*_.VALDATA___V268*/ meltfptr[267]); + + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); + ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V271*/ meltfptr[270]); + + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])))); - ((meltobject_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V274*/ meltfptr[273]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269])))); + ((meltobject_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V265*/ meltfptr[264]); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V273*/ meltfptr[272]); + meltgc_touch(/*_.VALDATA___V270*/ meltfptr[269]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])))); - ((meltobject_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V276*/ meltfptr[275]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271])))); + ((meltobject_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V273*/ meltfptr[272]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])))); - ((meltobject_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271])))); + ((meltobject_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V265*/ meltfptr[264]); - /*putupl#175*/ - melt_assertmsg("putupl #175 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #175 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V272*/ meltfptr[271]); - /*putupl#176*/ - melt_assertmsg("putupl #176 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #176 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#170*/ + melt_assertmsg("putupl #170 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #170 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#177*/ - melt_assertmsg("putupl #177 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #177 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#171*/ + melt_assertmsg("putupl #171 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #171 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#178*/ - melt_assertmsg("putupl #178 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #178 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V277*/ meltfptr[276]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#172*/ + melt_assertmsg("putupl #172 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #172 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]); + + /*putupl#173*/ + melt_assertmsg("putupl #173 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #173 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]); + + /*putupl#174*/ + melt_assertmsg("putupl #174 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #174 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V274*/ meltfptr[273]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V277*/ meltfptr[276]); + meltgc_touch(/*_.VALTUP___V274*/ meltfptr[273]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])))); - ((meltobject_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V277*/ meltfptr[276]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264])))); + ((meltobject_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V274*/ meltfptr[273]); + + MELT_LOCATION("warmelt-macro.melt:208:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V265*/ meltfptr[264]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])))); + ((meltobject_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V276*/ meltfptr[275]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])))); - ((meltobject_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V279*/ meltfptr[278]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V275*/ meltfptr[274]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277])))); - ((meltobject_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V275*/ meltfptr[274]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])))); + ((meltobject_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V278*/ meltfptr[277]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V278*/ meltfptr[277]); + meltgc_touch(/*_.VALDATA___V277*/ meltfptr[276]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V281*/ meltfptr[280]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])))); + ((meltobject_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V280*/ meltfptr[279]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V279*/ meltfptr[278]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279])))); - ((meltobject_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V275*/ meltfptr[274]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])))); + ((meltobject_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V282*/ meltfptr[281]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V280*/ meltfptr[279]); + meltgc_touch(/*_.VALDATA___V281*/ meltfptr[280]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281])))); - ((meltobject_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V283*/ meltfptr[282]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])))); + ((meltobject_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V284*/ meltfptr[283]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281])))); - ((meltobject_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V275*/ meltfptr[274]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])))); + ((meltobject_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V265*/ meltfptr[264]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V282*/ meltfptr[281]); + /*putupl#175*/ + melt_assertmsg("putupl #175 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #175 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#176*/ + melt_assertmsg("putupl #176 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #176 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + + /*putupl#177*/ + melt_assertmsg("putupl #177 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #177 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#178*/ + melt_assertmsg("putupl #178 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #178 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#179*/ - melt_assertmsg("putupl #179 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #179 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #179 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #179 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V285*/ meltfptr[284]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]); - /*putupl#180*/ - melt_assertmsg("putupl #180 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #180 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V285*/ meltfptr[284]); - /*putupl#181*/ - melt_assertmsg("putupl #181 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #181 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); - /*putupl#182*/ - melt_assertmsg("putupl #182 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #182 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])))); + ((meltobject_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V285*/ meltfptr[284]); - /*putupl#183*/ - melt_assertmsg("putupl #183 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #183 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V284*/ meltfptr[283]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281]); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V284*/ meltfptr[283]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); + ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V287*/ meltfptr[286]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])))); - ((meltobject_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V284*/ meltfptr[283]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285])))); + ((meltobject_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V283*/ meltfptr[282]); - MELT_LOCATION("warmelt-macro.melt:217:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V275*/ meltfptr[274]); + meltgc_touch(/*_.VALDATA___V286*/ meltfptr[285]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])) == MELTOBMAG_OBJECT); + /*putupl#180*/ + melt_assertmsg("putupl #180 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #180 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])))); - ((meltobject_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V286*/ meltfptr[285]); + /*putupl#181*/ + melt_assertmsg("putupl #181 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #181 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V285*/ meltfptr[284]); + /*putupl#182*/ + melt_assertmsg("putupl #182 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #182 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V268*/ meltfptr[267]); + + /*putupl#183*/ + melt_assertmsg("putupl #183 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #183 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V270*/ meltfptr[269]); + + /*putupl#184*/ + melt_assertmsg("putupl #184 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #184 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V272*/ meltfptr[271]); + + /*putupl#185*/ + melt_assertmsg("putupl #185 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #185 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V288*/ meltfptr[287]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V286*/ meltfptr[285]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V288*/ meltfptr[287]); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])))); - ((meltobject_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V288*/ meltfptr[287]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282])))); + ((meltobject_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V288*/ meltfptr[287]); + MELT_LOCATION("warmelt-macro.melt:221:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V287*/ meltfptr[286]); + meltgc_touch(/*_.VALDATA___V283*/ meltfptr[282]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])) == MELTOBMAG_OBJECT); @@ -18920,7 +18648,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V291*/ meltfptr[290]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); @@ -18929,44 +18657,39 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V294*/ meltfptr[293]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])))); ((meltobject_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V275*/ meltfptr[274]); - - /*putupl#184*/ - melt_assertmsg("putupl #184 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #184 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#185*/ - melt_assertmsg("putupl #185 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #185 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#186*/ melt_assertmsg("putupl #186 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #186 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #186 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#187*/ melt_assertmsg("putupl #187 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #187 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #187 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#188*/ melt_assertmsg("putupl #188 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #188 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]); + melt_assertmsg("putupl #188 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#189*/ + melt_assertmsg("putupl #189 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #189 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V295*/ meltfptr[294]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V295*/ meltfptr[294]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); @@ -18975,7 +18698,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V295*/ meltfptr[294]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); @@ -18984,7 +18707,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V297*/ meltfptr[296]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); @@ -18993,80 +18716,99 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V293*/ meltfptr[292]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V296*/ meltfptr[295]); - /*putupl#189*/ - melt_assertmsg("putupl #189 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #189 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])))); + ((meltobject_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V299*/ meltfptr[298]); + + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297])))); + ((meltobject_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V293*/ meltfptr[292]); + + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V298*/ meltfptr[297]); + + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); + ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V301*/ meltfptr[300]); + + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299])))); + ((meltobject_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V293*/ meltfptr[292]); + + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V300*/ meltfptr[299]); /*putupl#190*/ - melt_assertmsg("putupl #190 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #190 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #190 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #190 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#191*/ - melt_assertmsg("putupl #191 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #191 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V278*/ meltfptr[277]); + melt_assertmsg("putupl #191 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #191 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#192*/ - melt_assertmsg("putupl #192 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #192 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V280*/ meltfptr[279]); + melt_assertmsg("putupl #192 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #192 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]); /*putupl#193*/ - melt_assertmsg("putupl #193 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #193 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V282*/ meltfptr[281]); + melt_assertmsg("putupl #193 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #193 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V298*/ meltfptr[297]); /*putupl#194*/ - melt_assertmsg("putupl #194 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #194 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V298*/ meltfptr[297]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V296*/ meltfptr[295]); + melt_assertmsg("putupl #194 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #194 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V302*/ meltfptr[301]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V300*/ meltfptr[299]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V298*/ meltfptr[297]); + meltgc_touch(/*_.VALTUP___V302*/ meltfptr[301]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292])))); ((meltobject_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V298*/ meltfptr[297]); + /*_.VALTUP___V302*/ meltfptr[301]); - MELT_LOCATION("warmelt-macro.melt:230:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:233:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V293*/ meltfptr[292]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])))); - ((meltobject_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V300*/ meltfptr[299]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V299*/ meltfptr[298]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])))); - ((meltobject_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V302*/ meltfptr[301]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V301*/ meltfptr[300]); - - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); @@ -19074,37 +18816,25 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_1 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V304*/ meltfptr[303]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])))); - ((meltobject_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V303*/ meltfptr[302]); - /*putupl#195*/ - melt_assertmsg("putupl #195 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #195 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])) == MELTOBMAG_OBJECT); - /*putupl#196*/ - melt_assertmsg("putupl #196 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #196 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])))); + ((meltobject_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V306*/ meltfptr[305]); - /*putupl#197*/ - melt_assertmsg("putupl #197 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #197 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V305*/ meltfptr[304]); - /*putupl#198*/ - melt_assertmsg("putupl #198 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #198 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V305*/ meltfptr[304]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V305*/ meltfptr[304]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])))); + ((meltobject_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V308*/ meltfptr[307]); #undef meltfram__ @@ -19114,308 +18844,301 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_2 (struct frame_start #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); - /*^putslot*/ +/*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V307*/ meltfptr[306]); + /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])))); - ((meltobject_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V305*/ meltfptr[304]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])))); + ((meltobject_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V310*/ meltfptr[309]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V309*/ meltfptr[308]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V307*/ meltfptr[306]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); + ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V312*/ meltfptr[311]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V303*/ meltfptr[302]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); + ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V306*/ meltfptr[305]); + /*putupl#195*/ + melt_assertmsg("putupl #195 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #195 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#196*/ + melt_assertmsg("putupl #196 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #196 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + + /*putupl#197*/ + melt_assertmsg("putupl #197 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #197 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + /*putupl#198*/ + melt_assertmsg("putupl #198 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #198 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V313*/ meltfptr[312]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V313*/ meltfptr[312]); + + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); + ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V313*/ meltfptr[312]); + + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307])))); - ((meltobject_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V309*/ meltfptr[308]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])))); + ((meltobject_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V315*/ meltfptr[314]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307])))); - ((meltobject_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V303*/ meltfptr[302]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313])))); + ((meltobject_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V311*/ meltfptr[310]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V308*/ meltfptr[307]); + meltgc_touch(/*_.VALDATA___V314*/ meltfptr[313]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])))); - ((meltobject_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V311*/ meltfptr[310]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])))); + ((meltobject_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V317*/ meltfptr[316]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309])))); - ((meltobject_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V303*/ meltfptr[302]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315])))); + ((meltobject_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V311*/ meltfptr[310]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V310*/ meltfptr[309]); + meltgc_touch(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#199*/ - melt_assertmsg("putupl #199 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #199 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #199 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #199 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#200*/ - melt_assertmsg("putupl #200 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #200 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #200 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #200 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#201*/ - melt_assertmsg("putupl #201 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #201 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V306*/ meltfptr[305]); + melt_assertmsg("putupl #201 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #201 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#202*/ - melt_assertmsg("putupl #202 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #202 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V308*/ meltfptr[307]); - - /*putupl#203*/ - melt_assertmsg("putupl #203 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #203 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V312*/ meltfptr[311]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V310*/ meltfptr[309]); + melt_assertmsg("putupl #202 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #202 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V318*/ meltfptr[317]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V312*/ meltfptr[311]); + meltgc_touch(/*_.VALTUP___V318*/ meltfptr[317]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])))); - ((meltobject_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V312*/ meltfptr[311]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310])))); + ((meltobject_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V318*/ meltfptr[317]); - MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:244:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V303*/ meltfptr[302]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])))); - ((meltobject_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V314*/ meltfptr[313]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V313*/ meltfptr[312]); + meltgc_touch(/*_.VALDATA___V311*/ meltfptr[310]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V315*/ meltfptr[314])))); - ((meltobject_ptr_t)(/*_.VALDATA___V315*/ meltfptr[314]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V316*/ meltfptr[315]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])))); + ((meltobject_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V320*/ meltfptr[319]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V315*/ meltfptr[314]); + meltgc_touch(/*_.VALDATA___V319*/ meltfptr[318]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])))); - ((meltobject_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V318*/ meltfptr[317]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); + ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V322*/ meltfptr[321]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V317*/ meltfptr[316]); + meltgc_touch(/*_.VALDATA___V321*/ meltfptr[320]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])))); - ((meltobject_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V320*/ meltfptr[319]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])))); + ((meltobject_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V324*/ meltfptr[323]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V319*/ meltfptr[318]); + meltgc_touch(/*_.VALDATA___V323*/ meltfptr[322]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); - ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V322*/ meltfptr[321]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V326*/ meltfptr[325]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); - ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#203*/ + melt_assertmsg("putupl #203 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #203 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#204*/ - melt_assertmsg("putupl #204 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #204 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #204 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #204 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#205*/ - melt_assertmsg("putupl #205 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #205 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #205 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #205 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#206*/ - melt_assertmsg("putupl #206 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #206 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #206 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #206 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#207*/ - melt_assertmsg("putupl #207 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #207 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V323*/ meltfptr[322]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #207 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #207 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V327*/ meltfptr[326]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V323*/ meltfptr[322]); - - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); - ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V323*/ meltfptr[322]); - - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == MELTOBMAG_OBJECT); + meltgc_touch(/*_.VALTUP___V327*/ meltfptr[326]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V325*/ meltfptr[324]); - - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V327*/ meltfptr[326]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325])))); - ((meltobject_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V327*/ meltfptr[326]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])))); + ((meltobject_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V329*/ meltfptr[328]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325])))); - ((meltobject_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327])))); + ((meltobject_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V325*/ meltfptr[324]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V326*/ meltfptr[325]); + meltgc_touch(/*_.VALDATA___V328*/ meltfptr[327]); /*putupl#208*/ - melt_assertmsg("putupl #208 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #208 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #208 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #208 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#209*/ - melt_assertmsg("putupl #209 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #209 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #209 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #209 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#210*/ - melt_assertmsg("putupl #210 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #210 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putupl #210 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #210 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#211*/ - melt_assertmsg("putupl #211 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #211 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V328*/ meltfptr[327]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #211 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #211 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); + + /*putupl#212*/ + melt_assertmsg("putupl #212 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #212 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V330*/ meltfptr[329]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V328*/ meltfptr[327]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V328*/ meltfptr[327]); + meltgc_touch(/*_.VALTUP___V330*/ meltfptr[329]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])))); - ((meltobject_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V328*/ meltfptr[327]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324])))); + ((meltobject_ptr_t)(/*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V330*/ meltfptr[329]); - MELT_LOCATION("warmelt-macro.melt:253:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:254:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V321*/ meltfptr[320]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V329*/ meltfptr[328])))); - ((meltobject_ptr_t)(/*_.VALDATA___V329*/ meltfptr[328]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V330*/ meltfptr[329]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V329*/ meltfptr[328]); + meltgc_touch(/*_.VALDATA___V325*/ meltfptr[324]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); @@ -19437,7 +19160,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V333*/ meltfptr[332]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); @@ -19446,44 +19169,44 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V336*/ meltfptr[335]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V321*/ meltfptr[320]); - - /*putupl#212*/ - melt_assertmsg("putupl #212 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #212 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*_.VALDATA___V311*/ meltfptr[310]); /*putupl#213*/ melt_assertmsg("putupl #213 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #213 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #213 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#214*/ melt_assertmsg("putupl #214 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #214 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #214 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#215*/ melt_assertmsg("putupl #215 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #215 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #215 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#216*/ melt_assertmsg("putupl #216 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #216 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #216 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#217*/ + melt_assertmsg("putupl #217 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #217 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V337*/ meltfptr[336]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V337*/ meltfptr[336]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); @@ -19492,7 +19215,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V337*/ meltfptr[336]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])) == MELTOBMAG_OBJECT); @@ -19501,7 +19224,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V339*/ meltfptr[338]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337])) == MELTOBMAG_OBJECT); @@ -19510,40 +19233,40 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V335*/ meltfptr[334]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V338*/ meltfptr[337]); - /*putupl#217*/ - melt_assertmsg("putupl #217 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #217 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#218*/ melt_assertmsg("putupl #218 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #218 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #218 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#219*/ melt_assertmsg("putupl #219 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #219 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putupl #219 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#220*/ melt_assertmsg("putupl #220 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #220 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #220 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#221*/ melt_assertmsg("putupl #221 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #221 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); + melt_assertmsg("putupl #221 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); + + /*putupl#222*/ + melt_assertmsg("putupl #222 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #222 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V340*/ meltfptr[339]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V340*/ meltfptr[339]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); @@ -19552,7 +19275,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V340*/ meltfptr[339]); - MELT_LOCATION("warmelt-macro.melt:263:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:261:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V335*/ meltfptr[334]); @@ -19577,7 +19300,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V343*/ meltfptr[342]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); @@ -19586,44 +19309,49 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V346*/ meltfptr[345]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344])))); ((meltobject_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V321*/ meltfptr[320]); - - /*putupl#222*/ - melt_assertmsg("putupl #222 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #222 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*_.VALDATA___V335*/ meltfptr[334]); /*putupl#223*/ melt_assertmsg("putupl #223 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #223 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #223 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#224*/ melt_assertmsg("putupl #224 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #224 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #224 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#225*/ melt_assertmsg("putupl #225 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #225 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #225 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#226*/ melt_assertmsg("putupl #226 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #226 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #226 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#227*/ + melt_assertmsg("putupl #227 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #227 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#228*/ + melt_assertmsg("putupl #228 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #228 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V347*/ meltfptr[346]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V347*/ meltfptr[346]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); @@ -19632,7 +19360,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V347*/ meltfptr[346]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347])) == MELTOBMAG_OBJECT); @@ -19641,7 +19369,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V349*/ meltfptr[348]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347])) == MELTOBMAG_OBJECT); @@ -19650,40 +19378,45 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V345*/ meltfptr[344]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V348*/ meltfptr[347]); - /*putupl#227*/ - melt_assertmsg("putupl #227 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #227 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#228*/ - melt_assertmsg("putupl #228 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #228 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#229*/ melt_assertmsg("putupl #229 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #229 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putupl #229 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#230*/ melt_assertmsg("putupl #230 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #230 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #230 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#231*/ melt_assertmsg("putupl #231 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #231 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + melt_assertmsg("putupl #231 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); + + /*putupl#232*/ + melt_assertmsg("putupl #232 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #232 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); + + /*putupl#233*/ + melt_assertmsg("putupl #233 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #233 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); + + /*putupl#234*/ + melt_assertmsg("putupl #234 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #234 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V350*/ meltfptr[349]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V350*/ meltfptr[349]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); @@ -19692,7 +19425,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V350*/ meltfptr[349]); - MELT_LOCATION("warmelt-macro.melt:270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:269:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V345*/ meltfptr[344]); @@ -19717,7 +19450,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V353*/ meltfptr[352]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])) == MELTOBMAG_OBJECT); @@ -19726,49 +19459,49 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V356*/ meltfptr[355]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])))); ((meltobject_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + /*_.VALDATA___V335*/ meltfptr[334]); - /*putupl#232*/ - melt_assertmsg("putupl #232 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #232 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + /*putupl#235*/ + melt_assertmsg("putupl #235 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #235 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#233*/ - melt_assertmsg("putupl #233 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #233 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + /*putupl#236*/ + melt_assertmsg("putupl #236 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #236 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#234*/ - melt_assertmsg("putupl #234 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #234 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + /*putupl#237*/ + melt_assertmsg("putupl #237 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #237 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#235*/ - melt_assertmsg("putupl #235 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #235 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + /*putupl#238*/ + melt_assertmsg("putupl #238 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #238 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#236*/ - melt_assertmsg("putupl #236 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #236 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + /*putupl#239*/ + melt_assertmsg("putupl #239 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #239 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); - /*putupl#237*/ - melt_assertmsg("putupl #237 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #237 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); + /*putupl#240*/ + melt_assertmsg("putupl #240 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #240 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V357*/ meltfptr[356]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V357*/ meltfptr[356]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])) == MELTOBMAG_OBJECT); @@ -19777,7 +19510,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V357*/ meltfptr[356]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357])) == MELTOBMAG_OBJECT); @@ -19786,7 +19519,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V359*/ meltfptr[358]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357])) == MELTOBMAG_OBJECT); @@ -19795,68 +19528,86 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V355*/ meltfptr[354]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V358*/ meltfptr[357]); - /*putupl#238*/ - melt_assertmsg("putupl #238 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #238 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])) == MELTOBMAG_OBJECT); - /*putupl#239*/ - melt_assertmsg("putupl #239 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #239 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])))); + ((meltobject_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V361*/ meltfptr[360]); - /*putupl#240*/ - melt_assertmsg("putupl #240 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #240 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359])))); + ((meltobject_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V355*/ meltfptr[354]); + + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V360*/ meltfptr[359]); /*putupl#241*/ - melt_assertmsg("putupl #241 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #241 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #241 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #241 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#242*/ - melt_assertmsg("putupl #242 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #242 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + melt_assertmsg("putupl #242 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #242 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#243*/ - melt_assertmsg("putupl #243 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #243 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V360*/ meltfptr[359]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357]); + melt_assertmsg("putupl #243 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #243 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); + + /*putupl#244*/ + melt_assertmsg("putupl #244 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #244 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); + + /*putupl#245*/ + melt_assertmsg("putupl #245 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #245 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); + + /*putupl#246*/ + melt_assertmsg("putupl #246 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #246 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V358*/ meltfptr[357]); + + /*putupl#247*/ + melt_assertmsg("putupl #247 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #247 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V362*/ meltfptr[361]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V360*/ meltfptr[359]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V360*/ meltfptr[359]); + meltgc_touch(/*_.VALTUP___V362*/ meltfptr[361]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354])))); ((meltobject_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V360*/ meltfptr[359]); + /*_.VALTUP___V362*/ meltfptr[361]); - MELT_LOCATION("warmelt-macro.melt:278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:276:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V355*/ meltfptr[354]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])))); - ((meltobject_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V362*/ meltfptr[361]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V361*/ meltfptr[360]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); @@ -19867,8 +19618,6 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V363*/ meltfptr[362]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])) == MELTOBMAG_OBJECT); @@ -19876,164 +19625,148 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V366*/ meltfptr[365]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^putslot*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V365*/ meltfptr[364]); + /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])))); - ((meltobject_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])))); + ((meltobject_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V368*/ meltfptr[367]); - /*putupl#244*/ - melt_assertmsg("putupl #244 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #244 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V367*/ meltfptr[366]); - /*putupl#245*/ - melt_assertmsg("putupl #245 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #245 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); - /*putupl#246*/ - melt_assertmsg("putupl #246 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #246 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])))); + ((meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V370*/ meltfptr[369]); - /*putupl#247*/ - melt_assertmsg("putupl #247 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #247 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])))); + ((meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); /*putupl#248*/ - melt_assertmsg("putupl #248 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #248 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #248 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #248 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#249*/ - melt_assertmsg("putupl #249 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #249 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V367*/ meltfptr[366]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putupl #249 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #249 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V367*/ meltfptr[366]); + /*putupl#250*/ + melt_assertmsg("putupl #250 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #250 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])) == MELTOBMAG_OBJECT); + /*putupl#251*/ + melt_assertmsg("putupl #251 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #251 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])))); - ((meltobject_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V367*/ meltfptr[366]); + /*putupl#252*/ + melt_assertmsg("putupl #252 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #252 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); + /*putupl#253*/ + melt_assertmsg("putupl #253 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #253 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V371*/ meltfptr[370]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])))); - ((meltobject_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V369*/ meltfptr[368]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V371*/ meltfptr[370]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367])))); - ((meltobject_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V365*/ meltfptr[364]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])))); + ((meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V371*/ meltfptr[370]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V368*/ meltfptr[367]); - - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])))); - ((meltobject_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V371*/ meltfptr[370]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); + ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V373*/ meltfptr[372]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369])))); - ((meltobject_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V365*/ meltfptr[364]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371])))); + ((meltobject_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V370*/ meltfptr[369]); - - /*putupl#250*/ - melt_assertmsg("putupl #250 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #250 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#251*/ - melt_assertmsg("putupl #251 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #251 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#252*/ - melt_assertmsg("putupl #252 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #252 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); - - /*putupl#253*/ - melt_assertmsg("putupl #253 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #253 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + meltgc_touch(/*_.VALDATA___V372*/ meltfptr[371]); /*putupl#254*/ - melt_assertmsg("putupl #254 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #254 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + melt_assertmsg("putupl #254 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #254 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#255*/ - melt_assertmsg("putupl #255 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #255 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V368*/ meltfptr[367]); + melt_assertmsg("putupl #255 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #255 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#256*/ - melt_assertmsg("putupl #256 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #256 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V372*/ meltfptr[371]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V370*/ meltfptr[369]); + melt_assertmsg("putupl #256 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #256 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V372*/ meltfptr[371]); + /*putupl#257*/ + melt_assertmsg("putupl #257 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #257 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])) == MELTOBMAG_OBJECT); + /*putupl#258*/ + melt_assertmsg("putupl #258 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #258 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])))); - ((meltobject_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V372*/ meltfptr[371]); + /*putupl#259*/ + melt_assertmsg("putupl #259 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #259 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V374*/ meltfptr[373]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V372*/ meltfptr[371]); - MELT_LOCATION("warmelt-macro.melt:285:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V365*/ meltfptr[364]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V374*/ meltfptr[373]); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])))); - ((meltobject_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V374*/ meltfptr[373]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368])))); + ((meltobject_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V374*/ meltfptr[373]); + MELT_LOCATION("warmelt-macro.melt:287:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V373*/ meltfptr[372]); + meltgc_touch(/*_.VALDATA___V369*/ meltfptr[368]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])) == MELTOBMAG_OBJECT); @@ -20071,37 +19804,37 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])))); ((meltobject_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + /*_.VALDATA___V335*/ meltfptr[334]); - /*putupl#257*/ - melt_assertmsg("putupl #257 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #257 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + /*putupl#260*/ + melt_assertmsg("putupl #260 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #260 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#258*/ - melt_assertmsg("putupl #258 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #258 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + /*putupl#261*/ + melt_assertmsg("putupl #261 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #261 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#259*/ - melt_assertmsg("putupl #259 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #259 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + /*putupl#262*/ + melt_assertmsg("putupl #262 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #262 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#260*/ - melt_assertmsg("putupl #260 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #260 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + /*putupl#263*/ + melt_assertmsg("putupl #263 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #263 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#261*/ - melt_assertmsg("putupl #261 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #261 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + /*putupl#264*/ + melt_assertmsg("putupl #264 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #264 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); - /*putupl#262*/ - melt_assertmsg("putupl #262 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #262 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); + /*putupl#265*/ + melt_assertmsg("putupl #265 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #265 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V381*/ meltfptr[380]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V381*/ meltfptr[380]); @@ -20138,94 +19871,38 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V382*/ meltfptr[381]); - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])))); - ((meltobject_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V385*/ meltfptr[384]); - - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383])))); - ((meltobject_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V379*/ meltfptr[378]); - - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V384*/ meltfptr[383]); - - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])))); - ((meltobject_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V387*/ meltfptr[386]); - - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385])))); - ((meltobject_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V379*/ meltfptr[378]); - - MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V386*/ meltfptr[385]); - - /*putupl#263*/ - melt_assertmsg("putupl #263 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #263 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#264*/ - melt_assertmsg("putupl #264 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #264 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#265*/ - melt_assertmsg("putupl #265 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #265 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); - /*putupl#266*/ - melt_assertmsg("putupl #266 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #266 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #266 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #266 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#267*/ - melt_assertmsg("putupl #267 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #267 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + melt_assertmsg("putupl #267 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #267 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#268*/ - melt_assertmsg("putupl #268 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #268 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381]); + melt_assertmsg("putupl #268 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #268 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#269*/ - melt_assertmsg("putupl #269 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #269 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V384*/ meltfptr[383]); + melt_assertmsg("putupl #269 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #269 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#270*/ - melt_assertmsg("putupl #270 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #270 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V388*/ meltfptr[387]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V386*/ meltfptr[385]); + melt_assertmsg("putupl #270 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #270 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); + + /*putupl#271*/ + melt_assertmsg("putupl #271 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #271 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V384*/ meltfptr[383]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V382*/ meltfptr[381]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V388*/ meltfptr[387]); + meltgc_touch(/*_.VALTUP___V384*/ meltfptr[383]); MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); /*^putslot*/ @@ -20234,7 +19911,7 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378])))); ((meltobject_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V388*/ meltfptr[387]); + /*_.VALTUP___V384*/ meltfptr[383]); MELT_LOCATION("warmelt-macro.melt:295:/ initchunk"); /*^touch*/ @@ -20242,324 +19919,316 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); meltgc_touch(/*_.VALDATA___V379*/ meltfptr[378]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])))); - ((meltobject_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V390*/ meltfptr[389]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V389*/ meltfptr[388]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])))); - ((meltobject_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V392*/ meltfptr[391]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V391*/ meltfptr[390]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V393*/ meltfptr[392])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V393*/ meltfptr[392])))); - ((meltobject_ptr_t)(/*_.VALDATA___V393*/ meltfptr[392]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V394*/ meltfptr[393]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])))); + ((meltobject_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V386*/ meltfptr[385]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V393*/ meltfptr[392]); + meltgc_touch(/*_.VALDATA___V385*/ meltfptr[384]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V395*/ meltfptr[394])))); - ((meltobject_ptr_t)(/*_.VALDATA___V395*/ meltfptr[394]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V396*/ meltfptr[395]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])))); + ((meltobject_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V388*/ meltfptr[387]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V395*/ meltfptr[394]); + meltgc_touch(/*_.VALDATA___V387*/ meltfptr[386]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])))); - ((meltobject_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V398*/ meltfptr[397]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])))); + ((meltobject_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V390*/ meltfptr[389]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])))); - ((meltobject_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); - /*putupl#271*/ - melt_assertmsg("putupl #271 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #271 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])))); + ((meltobject_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V335*/ meltfptr[334]); /*putupl#272*/ - melt_assertmsg("putupl #272 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #272 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #272 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #272 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#273*/ - melt_assertmsg("putupl #273 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #273 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #273 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #273 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#274*/ - melt_assertmsg("putupl #274 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #274 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #274 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #274 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#275*/ - melt_assertmsg("putupl #275 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #275 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #275 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #275 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#276*/ - melt_assertmsg("putupl #276 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #276 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V399*/ meltfptr[398]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putupl #276 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #276 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#277*/ + melt_assertmsg("putupl #277 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #277 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V391*/ meltfptr[390]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V335*/ meltfptr[334]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V399*/ meltfptr[398]); + meltgc_touch(/*_.VALTUP___V391*/ meltfptr[390]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])))); - ((meltobject_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V399*/ meltfptr[398]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])))); + ((meltobject_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V391*/ meltfptr[390]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])))); - ((meltobject_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V401*/ meltfptr[400]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V393*/ meltfptr[392]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])))); - ((meltobject_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V397*/ meltfptr[396]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391])))); + ((meltobject_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V400*/ meltfptr[399]); + meltgc_touch(/*_.VALDATA___V392*/ meltfptr[391]); - /*putupl#277*/ - melt_assertmsg("putupl #277 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #277 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393])) == MELTOBMAG_OBJECT); - /*putupl#278*/ - melt_assertmsg("putupl #278 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #278 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393])))); + ((meltobject_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V395*/ meltfptr[394]); - /*putupl#279*/ - melt_assertmsg("putupl #279 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #279 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393])) == MELTOBMAG_OBJECT); - /*putupl#280*/ - melt_assertmsg("putupl #280 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #280 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393])))); + ((meltobject_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V389*/ meltfptr[388]); - /*putupl#281*/ - melt_assertmsg("putupl #281 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #281 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V394*/ meltfptr[393]); - /*putupl#282*/ - melt_assertmsg("putupl #282 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #282 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V402*/ meltfptr[401]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])))); + ((meltobject_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V397*/ meltfptr[396]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396])))); - ((meltobject_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V402*/ meltfptr[401]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395])))); + ((meltobject_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION("warmelt-macro.melt:308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V397*/ meltfptr[396]); + meltgc_touch(/*_.VALDATA___V396*/ meltfptr[395]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])))); - ((meltobject_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V404*/ meltfptr[403]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V403*/ meltfptr[402]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397])))); + ((meltobject_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V399*/ meltfptr[398]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])))); - ((meltobject_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V406*/ meltfptr[405]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397])))); + ((meltobject_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V389*/ meltfptr[388]); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V405*/ meltfptr[404]); + meltgc_touch(/*_.VALDATA___V398*/ meltfptr[397]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V408*/ meltfptr[407]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])))); + ((meltobject_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V401*/ meltfptr[400]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399])))); + ((meltobject_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V389*/ meltfptr[388]); + + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V400*/ meltfptr[399]); + + /*putupl#278*/ + melt_assertmsg("putupl #278 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #278 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#279*/ + melt_assertmsg("putupl #279 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #279 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#280*/ + melt_assertmsg("putupl #280 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #280 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); + + /*putupl#281*/ + melt_assertmsg("putupl #281 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #281 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); + + /*putupl#282*/ + melt_assertmsg("putupl #282 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #282 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V338*/ meltfptr[337]); /*putupl#283*/ - melt_assertmsg("putupl #283 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #283 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #283 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #283 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V392*/ meltfptr[391]); /*putupl#284*/ - melt_assertmsg("putupl #284 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #284 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #284 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #284 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V394*/ meltfptr[393]); /*putupl#285*/ - melt_assertmsg("putupl #285 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #285 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #285 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #285 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V396*/ meltfptr[395]); /*putupl#286*/ - melt_assertmsg("putupl #286 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #286 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #286 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #286 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V398*/ meltfptr[397]); /*putupl#287*/ - melt_assertmsg("putupl #287 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #287 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); - - /*putupl#288*/ - melt_assertmsg("putupl #288 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #288 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V409*/ meltfptr[408]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putupl #287 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #287 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V402*/ meltfptr[401]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V400*/ meltfptr[399]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V409*/ meltfptr[408]); + meltgc_touch(/*_.VALTUP___V402*/ meltfptr[401]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V409*/ meltfptr[408]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])))); + ((meltobject_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V402*/ meltfptr[401]); + + MELT_LOCATION("warmelt-macro.melt:307:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])))); - ((meltobject_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V411*/ meltfptr[410]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])))); + ((meltobject_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V404*/ meltfptr[403]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V403*/ meltfptr[402]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409])))); - ((meltobject_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V407*/ meltfptr[406]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])))); + ((meltobject_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V406*/ meltfptr[405]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V410*/ meltfptr[409]); - - /*putupl#289*/ - melt_assertmsg("putupl #289 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #289 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + meltgc_touch(/*_.VALDATA___V405*/ meltfptr[404]); - /*putupl#290*/ - melt_assertmsg("putupl #290 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #290 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); - /*putupl#291*/ - melt_assertmsg("putupl #291 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #291 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])))); + ((meltobject_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V408*/ meltfptr[407]); - /*putupl#292*/ - melt_assertmsg("putupl #292 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #292 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V407*/ meltfptr[406]); - /*putupl#293*/ - melt_assertmsg("putupl #293 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #293 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])) == MELTOBMAG_OBJECT); - /*putupl#294*/ - melt_assertmsg("putupl #294 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #294 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V412*/ meltfptr[411]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V410*/ meltfptr[409]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])))); + ((meltobject_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V410*/ meltfptr[409]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V412*/ meltfptr[411]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V409*/ meltfptr[408]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V411*/ meltfptr[410])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])))); - ((meltobject_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V412*/ meltfptr[411]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V411*/ meltfptr[410])))); + ((meltobject_ptr_t)(/*_.VALDATA___V411*/ meltfptr[410]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V412*/ meltfptr[411]); - MELT_LOCATION("warmelt-macro.melt:316:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V407*/ meltfptr[406]); + meltgc_touch(/*_.VALDATA___V411*/ meltfptr[410]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])) == MELTOBMAG_OBJECT); @@ -20571,6 +20240,8 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V413*/ meltfptr[412]); + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); @@ -20578,51 +20249,102 @@ MELT_LOCATION("warmelt-macro.melt:242:/ initchunk"); ((meltobject_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V416*/ meltfptr[415]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V415*/ meltfptr[414]); + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])))); + ((meltobject_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#288*/ + melt_assertmsg("putupl #288 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #288 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#289*/ + melt_assertmsg("putupl #289 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #289 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + + /*putupl#290*/ + melt_assertmsg("putupl #290 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #290 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#291*/ + melt_assertmsg("putupl #291 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #291 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#292*/ + melt_assertmsg("putupl #292 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #292 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V417*/ meltfptr[416]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V417*/ meltfptr[416]); + + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])))); + ((meltobject_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V417*/ meltfptr[416]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])))); - ((meltobject_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V418*/ meltfptr[417]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417])))); + ((meltobject_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V419*/ meltfptr[418]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])))); - ((meltobject_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V345*/ meltfptr[344]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417])))); + ((meltobject_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V415*/ meltfptr[414]); + + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V418*/ meltfptr[417]); + + /*putupl#293*/ + melt_assertmsg("putupl #293 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #293 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#294*/ + melt_assertmsg("putupl #294 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #294 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#295*/ - melt_assertmsg("putupl #295 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #295 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #295 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #295 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#296*/ - melt_assertmsg("putupl #296 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #296 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #296 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #296 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#297*/ - melt_assertmsg("putupl #297 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #297 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #297 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #297 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V420*/ meltfptr[419]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]); - /*putupl#298*/ - melt_assertmsg("putupl #298 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #298 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#299*/ - melt_assertmsg("putupl #299 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #299 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V420*/ meltfptr[419]); #undef meltfram__ @@ -20632,224 +20354,225 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L -/*putupl#300*/ - melt_assertmsg("putupl #300 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #300 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V419*/ meltfptr[418]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V419*/ meltfptr[418]); - - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); +MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])))); - ((meltobject_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V419*/ meltfptr[418]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])))); + ((meltobject_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V420*/ meltfptr[419]); + + MELT_LOCATION("warmelt-macro.melt:327:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V415*/ meltfptr[414]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V421*/ meltfptr[420])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419])))); - ((meltobject_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V421*/ meltfptr[420]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V421*/ meltfptr[420])))); + ((meltobject_ptr_t)(/*_.VALDATA___V421*/ meltfptr[420]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V422*/ meltfptr[421]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V421*/ meltfptr[420]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419])))); - ((meltobject_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])))); + ((meltobject_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V424*/ meltfptr[423]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V420*/ meltfptr[419]); + meltgc_touch(/*_.VALDATA___V423*/ meltfptr[422]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421])))); - ((meltobject_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V423*/ meltfptr[422]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V426*/ meltfptr[425]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421])))); - ((meltobject_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V415*/ meltfptr[414]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V422*/ meltfptr[421]); + /*putupl#298*/ + melt_assertmsg("putupl #298 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #298 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + + /*putupl#299*/ + melt_assertmsg("putupl #299 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #299 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + + /*putupl#300*/ + melt_assertmsg("putupl #300 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #300 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#301*/ + melt_assertmsg("putupl #301 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #301 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#302*/ + melt_assertmsg("putupl #302 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #302 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#303*/ + melt_assertmsg("putupl #303 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #303 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V427*/ meltfptr[426]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V427*/ meltfptr[426]); + + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V427*/ meltfptr[426]); + + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])))); - ((meltobject_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V425*/ meltfptr[424]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])))); + ((meltobject_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V429*/ meltfptr[428]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423])))); - ((meltobject_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])))); + ((meltobject_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V425*/ meltfptr[424]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V424*/ meltfptr[423]); + meltgc_touch(/*_.VALDATA___V428*/ meltfptr[427]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])))); - ((meltobject_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V427*/ meltfptr[426]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])))); + ((meltobject_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V431*/ meltfptr[430]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425])))); - ((meltobject_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429])))); + ((meltobject_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V425*/ meltfptr[424]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V426*/ meltfptr[425]); + meltgc_touch(/*_.VALDATA___V430*/ meltfptr[429]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])))); - ((meltobject_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V429*/ meltfptr[428]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V433*/ meltfptr[432]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427])))); - ((meltobject_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431])))); + ((meltobject_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V425*/ meltfptr[424]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V428*/ meltfptr[427]); - - /*putupl#301*/ - melt_assertmsg("putupl #301 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #301 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#302*/ - melt_assertmsg("putupl #302 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #302 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#303*/ - melt_assertmsg("putupl #303 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #303 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + meltgc_touch(/*_.VALDATA___V432*/ meltfptr[431]); /*putupl#304*/ - melt_assertmsg("putupl #304 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #304 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #304 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #304 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#305*/ - melt_assertmsg("putupl #305 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #305 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V348*/ meltfptr[347]); + melt_assertmsg("putupl #305 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #305 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#306*/ - melt_assertmsg("putupl #306 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #306 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V420*/ meltfptr[419]); + melt_assertmsg("putupl #306 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #306 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#307*/ - melt_assertmsg("putupl #307 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #307 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V422*/ meltfptr[421]); + melt_assertmsg("putupl #307 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #307 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#308*/ - melt_assertmsg("putupl #308 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #308 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V424*/ meltfptr[423]); + melt_assertmsg("putupl #308 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #308 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]); /*putupl#309*/ - melt_assertmsg("putupl #309 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #309 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V426*/ meltfptr[425]); + melt_assertmsg("putupl #309 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #309 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]); /*putupl#310*/ - melt_assertmsg("putupl #310 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #310 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V430*/ meltfptr[429]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V428*/ meltfptr[427]); + melt_assertmsg("putupl #310 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #310 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V430*/ meltfptr[429]); + + /*putupl#311*/ + melt_assertmsg("putupl #311 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #311 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V434*/ meltfptr[433]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V432*/ meltfptr[431]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V430*/ meltfptr[429]); + meltgc_touch(/*_.VALTUP___V434*/ meltfptr[433]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416])))); - ((meltobject_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V430*/ meltfptr[429]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V434*/ meltfptr[433]); - MELT_LOCATION("warmelt-macro.melt:328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:337:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V417*/ meltfptr[416]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])))); - ((meltobject_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V432*/ meltfptr[431]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V431*/ meltfptr[430]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])))); - ((meltobject_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V434*/ meltfptr[433]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V433*/ meltfptr[432]); + meltgc_touch(/*_.VALDATA___V425*/ meltfptr[424]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434])) == MELTOBMAG_OBJECT); @@ -20891,7 +20614,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V441*/ meltfptr[440]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); @@ -20900,44 +20623,49 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V444*/ meltfptr[443]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])))); ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V321*/ meltfptr[320]); - - /*putupl#311*/ - melt_assertmsg("putupl #311 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #311 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*_.VALDATA___V415*/ meltfptr[414]); /*putupl#312*/ melt_assertmsg("putupl #312 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #312 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #312 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#313*/ melt_assertmsg("putupl #313 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #313 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #313 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#314*/ melt_assertmsg("putupl #314 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #314 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #314 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#315*/ melt_assertmsg("putupl #315 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #315 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #315 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#316*/ + melt_assertmsg("putupl #316 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #316 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); + + /*putupl#317*/ + melt_assertmsg("putupl #317 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #317 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V445*/ meltfptr[444]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V445*/ meltfptr[444]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); @@ -20946,7 +20674,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V445*/ meltfptr[444]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445])) == MELTOBMAG_OBJECT); @@ -20955,7 +20683,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V447*/ meltfptr[446]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445])) == MELTOBMAG_OBJECT); @@ -20964,406 +20692,418 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V443*/ meltfptr[442]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V446*/ meltfptr[445]); - /*putupl#316*/ - melt_assertmsg("putupl #316 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #316 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#317*/ - melt_assertmsg("putupl #317 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #317 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#318*/ - melt_assertmsg("putupl #318 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #318 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); - - /*putupl#319*/ - melt_assertmsg("putupl #319 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #319 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); - - /*putupl#320*/ - melt_assertmsg("putupl #320 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #320 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V448*/ meltfptr[447]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V448*/ meltfptr[447]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])))); + ((meltobject_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V449*/ meltfptr[448]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])))); - ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V448*/ meltfptr[447]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447])))); + ((meltobject_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V443*/ meltfptr[442]); - MELT_LOCATION("warmelt-macro.melt:348:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V443*/ meltfptr[442]); + meltgc_touch(/*_.VALDATA___V448*/ meltfptr[447]); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])))); - ((meltobject_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V450*/ meltfptr[449]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])) == MELTOBMAG_OBJECT); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V449*/ meltfptr[448]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])))); + ((meltobject_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V451*/ meltfptr[450]); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])))); - ((meltobject_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V452*/ meltfptr[451]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449])))); + ((meltobject_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V443*/ meltfptr[442]); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V451*/ meltfptr[450]); + meltgc_touch(/*_.VALDATA___V450*/ meltfptr[449]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])))); - ((meltobject_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V454*/ meltfptr[453]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])))); + ((meltobject_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V453*/ meltfptr[452]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])))); - ((meltobject_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451])))); + ((meltobject_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V443*/ meltfptr[442]); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V452*/ meltfptr[451]); + + /*putupl#318*/ + melt_assertmsg("putupl #318 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #318 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#319*/ + melt_assertmsg("putupl #319 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #319 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#320*/ + melt_assertmsg("putupl #320 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #320 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); + /*putupl#321*/ - melt_assertmsg("putupl #321 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #321 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #321 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #321 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#322*/ - melt_assertmsg("putupl #322 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #322 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #322 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #322 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]); /*putupl#323*/ - melt_assertmsg("putupl #323 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #323 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #323 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #323 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); /*putupl#324*/ - melt_assertmsg("putupl #324 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #324 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #324 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #324 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]); /*putupl#325*/ - melt_assertmsg("putupl #325 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #325 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #325 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #325 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]); /*putupl#326*/ - melt_assertmsg("putupl #326 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #326 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V455*/ meltfptr[454]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]); + melt_assertmsg("putupl #326 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #326 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V454*/ meltfptr[453]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V455*/ meltfptr[454]); + meltgc_touch(/*_.VALTUP___V454*/ meltfptr[453]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])))); - ((meltobject_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V455*/ meltfptr[454]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442])))); + ((meltobject_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V454*/ meltfptr[453]); + + MELT_LOCATION("warmelt-macro.melt:350:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V443*/ meltfptr[442]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455])))); - ((meltobject_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V457*/ meltfptr[456]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V456*/ meltfptr[455]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V455*/ meltfptr[454]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455])))); - ((meltobject_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V453*/ meltfptr[452]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456])))); + ((meltobject_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V458*/ meltfptr[457]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V456*/ meltfptr[455]); + meltgc_touch(/*_.VALDATA___V457*/ meltfptr[456]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457])))); - ((meltobject_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V459*/ meltfptr[458]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])))); + ((meltobject_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V460*/ meltfptr[459]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V459*/ meltfptr[458]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457])))); - ((meltobject_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V453*/ meltfptr[452]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])))); + ((meltobject_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V462*/ meltfptr[461]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V458*/ meltfptr[457]); + meltgc_touch(/*_.VALDATA___V461*/ meltfptr[460]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])))); + ((meltobject_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V464*/ meltfptr[463]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])))); - ((meltobject_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V461*/ meltfptr[460]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V463*/ meltfptr[462]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459])))); - ((meltobject_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V453*/ meltfptr[452]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); + ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V466*/ meltfptr[465]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V460*/ meltfptr[459]); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); + ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V443*/ meltfptr[442]); /*putupl#327*/ - melt_assertmsg("putupl #327 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #327 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #327 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #327 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); /*putupl#328*/ - melt_assertmsg("putupl #328 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #328 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #328 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #328 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); /*putupl#329*/ - melt_assertmsg("putupl #329 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #329 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putupl #329 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #329 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); /*putupl#330*/ - melt_assertmsg("putupl #330 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #330 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); + melt_assertmsg("putupl #330 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #330 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#331*/ - melt_assertmsg("putupl #331 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #331 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); + melt_assertmsg("putupl #331 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #331 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V311*/ meltfptr[310]); /*putupl#332*/ - melt_assertmsg("putupl #332 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #332 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V456*/ meltfptr[455]); + melt_assertmsg("putupl #332 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #332 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]); /*putupl#333*/ - melt_assertmsg("putupl #333 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #333 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V458*/ meltfptr[457]); - - /*putupl#334*/ - melt_assertmsg("putupl #334 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #334 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V462*/ meltfptr[461]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V460*/ meltfptr[459]); + melt_assertmsg("putupl #333 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #333 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V467*/ meltfptr[466]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V462*/ meltfptr[461]); + meltgc_touch(/*_.VALTUP___V467*/ meltfptr[466]); - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452])))); - ((meltobject_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V462*/ meltfptr[461]); - - MELT_LOCATION("warmelt-macro.melt:358:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V453*/ meltfptr[452]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])))); - ((meltobject_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V464*/ meltfptr[463]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V463*/ meltfptr[462]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); - ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V466*/ meltfptr[465]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V465*/ meltfptr[464]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])))); - ((meltobject_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V468*/ meltfptr[467]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V467*/ meltfptr[466]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); + ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V467*/ meltfptr[466]); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])))); - ((meltobject_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V470*/ meltfptr[469]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])) == MELTOBMAG_OBJECT); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V469*/ meltfptr[468]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])))); + ((meltobject_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V469*/ meltfptr[468]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])))); - ((meltobject_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V472*/ meltfptr[471]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467])))); + ((meltobject_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V465*/ meltfptr[464]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V468*/ meltfptr[467]); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])))); - ((meltobject_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V443*/ meltfptr[442]); + /*putupl#334*/ + melt_assertmsg("putupl #334 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #334 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#335*/ - melt_assertmsg("putupl #335 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #335 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putupl #335 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #335 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#336*/ - melt_assertmsg("putupl #336 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #336 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + melt_assertmsg("putupl #336 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #336 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V314*/ meltfptr[313]); /*putupl#337*/ - melt_assertmsg("putupl #337 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #337 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putupl #337 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #337 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V316*/ meltfptr[315]); /*putupl#338*/ - melt_assertmsg("putupl #338 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #338 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putupl #338 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #338 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V418*/ meltfptr[417]); /*putupl#339*/ - melt_assertmsg("putupl #339 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #339 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putupl #339 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #339 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); /*putupl#340*/ - melt_assertmsg("putupl #340 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #340 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V473*/ meltfptr[472]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]); + melt_assertmsg("putupl #340 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #340 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V448*/ meltfptr[447]); + + /*putupl#341*/ + melt_assertmsg("putupl #341 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #341 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V450*/ meltfptr[449]); + + /*putupl#342*/ + melt_assertmsg("putupl #342 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #342 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V452*/ meltfptr[451]); + + /*putupl#343*/ + melt_assertmsg("putupl #343 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #343 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V470*/ meltfptr[469]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V468*/ meltfptr[467]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V473*/ meltfptr[472]); + meltgc_touch(/*_.VALTUP___V470*/ meltfptr[469]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])))); - ((meltobject_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V473*/ meltfptr[472]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])))); + ((meltobject_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V470*/ meltfptr[469]); + + MELT_LOCATION("warmelt-macro.melt:364:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V465*/ meltfptr[464]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])))); - ((meltobject_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V475*/ meltfptr[474]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])))); + ((meltobject_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V472*/ meltfptr[471]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V471*/ meltfptr[470]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473])))); - ((meltobject_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V471*/ meltfptr[470]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472])))); + ((meltobject_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V474*/ meltfptr[473]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V474*/ meltfptr[473]); + meltgc_touch(/*_.VALDATA___V473*/ meltfptr[472]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])))); - ((meltobject_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V477*/ meltfptr[476]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V476*/ meltfptr[475]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475])))); - ((meltobject_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V471*/ meltfptr[470]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V476*/ meltfptr[475]); + /*putupl#344*/ + melt_assertmsg("putupl #344 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #344 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + /*putupl#345*/ + melt_assertmsg("putupl #345 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #345 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + + /*putupl#346*/ + melt_assertmsg("putupl #346 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #346 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#347*/ + melt_assertmsg("putupl #347 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #347 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V477*/ meltfptr[476]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V477*/ meltfptr[476]); + + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V477*/ meltfptr[476]); + + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477])) == MELTOBMAG_OBJECT); @@ -21372,21 +21112,21 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V479*/ meltfptr[478]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477])))); ((meltobject_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V471*/ meltfptr[470]); + /*_.VALDATA___V475*/ meltfptr[474]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V478*/ meltfptr[477]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])) == MELTOBMAG_OBJECT); @@ -21395,81 +21135,56 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V481*/ meltfptr[480]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479])))); ((meltobject_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V471*/ meltfptr[470]); + /*_.VALDATA___V475*/ meltfptr[474]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V480*/ meltfptr[479]); - /*putupl#341*/ - melt_assertmsg("putupl #341 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #341 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#342*/ - melt_assertmsg("putupl #342 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #342 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#343*/ - melt_assertmsg("putupl #343 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #343 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); - - /*putupl#344*/ - melt_assertmsg("putupl #344 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #344 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); - - /*putupl#345*/ - melt_assertmsg("putupl #345 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #345 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); - - /*putupl#346*/ - melt_assertmsg("putupl #346 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #346 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473]); - - /*putupl#347*/ - melt_assertmsg("putupl #347 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #347 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]); - /*putupl#348*/ melt_assertmsg("putupl #348 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #348 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477]); + melt_assertmsg("putupl #348 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); /*putupl#349*/ melt_assertmsg("putupl #349 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #349 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]); + melt_assertmsg("putupl #349 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#350*/ + melt_assertmsg("putupl #350 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #350 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477]); + + /*putupl#351*/ + melt_assertmsg("putupl #351 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #351 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V482*/ meltfptr[481]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V482*/ meltfptr[481]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])))); - ((meltobject_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]))->obj_vartab[6] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V482*/ meltfptr[481]); - MELT_LOCATION("warmelt-macro.melt:371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:373:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V471*/ meltfptr[470]); + meltgc_touch(/*_.VALDATA___V475*/ meltfptr[474]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])) == MELTOBMAG_OBJECT); @@ -21501,6 +21216,8 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V487*/ meltfptr[486]); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])) == MELTOBMAG_OBJECT); @@ -21508,85 +21225,94 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V490*/ meltfptr[489]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V489*/ meltfptr[488]); - + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])))); - ((meltobject_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V492*/ meltfptr[491]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])))); + ((meltobject_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V491*/ meltfptr[490]); + /*putupl#352*/ + melt_assertmsg("putupl #352 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #352 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); + /*putupl#353*/ + melt_assertmsg("putupl #353 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #353 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V494*/ meltfptr[493]); + /*putupl#354*/ + melt_assertmsg("putupl #354 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #354 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + + /*putupl#355*/ + melt_assertmsg("putupl #355 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #355 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V491*/ meltfptr[490]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V491*/ meltfptr[490]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V471*/ meltfptr[470]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])) == MELTOBMAG_OBJECT); - /*putupl#350*/ - melt_assertmsg("putupl #350 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #350 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])))); + ((meltobject_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V491*/ meltfptr[490]); - /*putupl#351*/ - melt_assertmsg("putupl #351 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #351 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); - /*putupl#352*/ - melt_assertmsg("putupl #352 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #352 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491])))); + ((meltobject_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V493*/ meltfptr[492]); - /*putupl#353*/ - melt_assertmsg("putupl #353 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #353 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); - /*putupl#354*/ - melt_assertmsg("putupl #354 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #354 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491])))); + ((meltobject_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V489*/ meltfptr[488]); - /*putupl#355*/ - melt_assertmsg("putupl #355 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #355 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V492*/ meltfptr[491]); - /*putupl#356*/ - melt_assertmsg("putupl #356 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #356 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V495*/ meltfptr[494]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V495*/ meltfptr[494]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])))); + ((meltobject_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V495*/ meltfptr[494]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493])))); + ((meltobject_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V489*/ meltfptr[488]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V495*/ meltfptr[494]); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V494*/ meltfptr[493]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])) == MELTOBMAG_OBJECT); @@ -21595,86 +21321,61 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V497*/ meltfptr[496]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495])))); ((meltobject_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V493*/ meltfptr[492]); + /*_.VALDATA___V489*/ meltfptr[488]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V496*/ meltfptr[495]); + /*putupl#356*/ + melt_assertmsg("putupl #356 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #356 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#357*/ melt_assertmsg("putupl #357 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #357 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + melt_assertmsg("putupl #357 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*putupl#358*/ melt_assertmsg("putupl #358 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #358 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putupl #358 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V492*/ meltfptr[491]); /*putupl#359*/ melt_assertmsg("putupl #359 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #359 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V324*/ meltfptr[323]); + melt_assertmsg("putupl #359 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V494*/ meltfptr[493]); /*putupl#360*/ melt_assertmsg("putupl #360 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #360 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V326*/ meltfptr[325]); - - /*putupl#361*/ - melt_assertmsg("putupl #361 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #361 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V446*/ meltfptr[445]); - - /*putupl#362*/ - melt_assertmsg("putupl #362 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #362 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V474*/ meltfptr[473]); - - /*putupl#363*/ - melt_assertmsg("putupl #363 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #363 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V476*/ meltfptr[475]); - - /*putupl#364*/ - melt_assertmsg("putupl #364 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #364 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V478*/ meltfptr[477]); - - /*putupl#365*/ - melt_assertmsg("putupl #365 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #365 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V480*/ meltfptr[479]); - - /*putupl#366*/ - melt_assertmsg("putupl #366 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #366 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]); + melt_assertmsg("putupl #360 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V498*/ meltfptr[497]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V496*/ meltfptr[495]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V498*/ meltfptr[497]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492])))); - ((meltobject_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[6] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])))); + ((meltobject_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]))->obj_vartab[6] = (melt_ptr_t)( /*_.VALTUP___V498*/ meltfptr[497]); - MELT_LOCATION("warmelt-macro.melt:385:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:384:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V493*/ meltfptr[492]); + meltgc_touch(/*_.VALDATA___V489*/ meltfptr[488]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])) == MELTOBMAG_OBJECT); @@ -21696,8 +21397,6 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V501*/ meltfptr[500]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); @@ -21705,321 +21404,286 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V504*/ meltfptr[503]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V503*/ meltfptr[502]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])))); + ((meltobject_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V506*/ meltfptr[505]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V505*/ meltfptr[504]); + + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])))); - ((meltobject_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])))); + ((meltobject_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V508*/ meltfptr[507]); + + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])))); + ((meltobject_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#367*/ - melt_assertmsg("putupl #367 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #367 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#361*/ + melt_assertmsg("putupl #361 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #361 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#368*/ - melt_assertmsg("putupl #368 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #368 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#362*/ + melt_assertmsg("putupl #362 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #362 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#369*/ - melt_assertmsg("putupl #369 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #369 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#363*/ + melt_assertmsg("putupl #363 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #363 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#370*/ - melt_assertmsg("putupl #370 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #370 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V505*/ meltfptr[504]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#364*/ + melt_assertmsg("putupl #364 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #364 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V509*/ meltfptr[508]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V505*/ meltfptr[504]); + meltgc_touch(/*_.VALTUP___V509*/ meltfptr[508]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])))); - ((meltobject_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V505*/ meltfptr[504]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])))); + ((meltobject_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V509*/ meltfptr[508]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])))); - ((meltobject_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V507*/ meltfptr[506]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])))); + ((meltobject_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V511*/ meltfptr[510]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505])))); - ((meltobject_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V503*/ meltfptr[502]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509])))); + ((meltobject_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V506*/ meltfptr[505]); + meltgc_touch(/*_.VALDATA___V510*/ meltfptr[509]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])))); - ((meltobject_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V509*/ meltfptr[508]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])))); + ((meltobject_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V513*/ meltfptr[512]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507])))); - ((meltobject_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V503*/ meltfptr[502]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511])))); + ((meltobject_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V508*/ meltfptr[507]); + meltgc_touch(/*_.VALDATA___V512*/ meltfptr[511]); - /*putupl#371*/ - melt_assertmsg("putupl #371 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #371 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#365*/ + melt_assertmsg("putupl #365 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #365 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#372*/ - melt_assertmsg("putupl #372 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #372 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#366*/ + melt_assertmsg("putupl #366 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #366 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#373*/ - melt_assertmsg("putupl #373 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #373 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V506*/ meltfptr[505]); + /*putupl#367*/ + melt_assertmsg("putupl #367 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #367 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); - /*putupl#374*/ - melt_assertmsg("putupl #374 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #374 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V510*/ meltfptr[509]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V508*/ meltfptr[507]); + /*putupl#368*/ + melt_assertmsg("putupl #368 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #368 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V514*/ meltfptr[513]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V510*/ meltfptr[509]); + meltgc_touch(/*_.VALTUP___V514*/ meltfptr[513]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])))); - ((meltobject_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V510*/ meltfptr[509]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506])))); + ((meltobject_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V514*/ meltfptr[513]); - MELT_LOCATION("warmelt-macro.melt:394:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:396:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V503*/ meltfptr[502]); + meltgc_touch(/*_.VALDATA___V507*/ meltfptr[506]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])))); - ((meltobject_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V512*/ meltfptr[511]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])))); + ((meltobject_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V516*/ meltfptr[515]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V511*/ meltfptr[510]); + meltgc_touch(/*_.VALDATA___V515*/ meltfptr[514]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])))); - ((meltobject_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V514*/ meltfptr[513]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); + ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V518*/ meltfptr[517]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V513*/ meltfptr[512]); + meltgc_touch(/*_.VALDATA___V517*/ meltfptr[516]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])))); - ((meltobject_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V516*/ meltfptr[515]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518])))); + ((meltobject_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V520*/ meltfptr[519]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V515*/ meltfptr[514]); + meltgc_touch(/*_.VALDATA___V519*/ meltfptr[518]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:407:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V518*/ meltfptr[517]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])))); + ((meltobject_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V522*/ meltfptr[521]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:407:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])))); + ((meltobject_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V507*/ meltfptr[506]); - /*putupl#375*/ - melt_assertmsg("putupl #375 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #375 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#369*/ + melt_assertmsg("putupl #369 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #369 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#376*/ - melt_assertmsg("putupl #376 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #376 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#370*/ + melt_assertmsg("putupl #370 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #370 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#377*/ - melt_assertmsg("putupl #377 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #377 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#371*/ + melt_assertmsg("putupl #371 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #371 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#378*/ - melt_assertmsg("putupl #378 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #378 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V519*/ meltfptr[518]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#372*/ + melt_assertmsg("putupl #372 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #372 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#373*/ + melt_assertmsg("putupl #373 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #373 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V523*/ meltfptr[522]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V519*/ meltfptr[518]); + meltgc_touch(/*_.VALTUP___V523*/ meltfptr[522]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:407:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V519*/ meltfptr[518]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])))); + ((meltobject_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V523*/ meltfptr[522]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519])))); - ((meltobject_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V521*/ meltfptr[520]); - - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519])) == MELTOBMAG_OBJECT); + /*putupl#374*/ + melt_assertmsg("putupl #374 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #374 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519])))); - ((meltobject_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V517*/ meltfptr[516]); + /*putupl#375*/ + melt_assertmsg("putupl #375 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #375 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V520*/ meltfptr[519]); + /*putupl#376*/ + melt_assertmsg("putupl #376 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #376 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V510*/ meltfptr[509]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])) == MELTOBMAG_OBJECT); + /*putupl#377*/ + melt_assertmsg("putupl #377 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #377 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V524*/ meltfptr[523]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V512*/ meltfptr[511]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])))); - ((meltobject_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V523*/ meltfptr[522]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V524*/ meltfptr[523]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:407:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521])))); - ((meltobject_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V517*/ meltfptr[516]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520])))); + ((meltobject_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V524*/ meltfptr[523]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:407:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V522*/ meltfptr[521]); - - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523])))); - ((meltobject_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V525*/ meltfptr[524]); + meltgc_touch(/*_.VALDATA___V521*/ meltfptr[520]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523])))); - ((meltobject_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V517*/ meltfptr[516]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V525*/ meltfptr[524])))); + ((meltobject_ptr_t)(/*_.VALDATA___V525*/ meltfptr[524]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V526*/ meltfptr[525]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V524*/ meltfptr[523]); - - /*putupl#379*/ - melt_assertmsg("putupl #379 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #379 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#380*/ - melt_assertmsg("putupl #380 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #380 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#381*/ - melt_assertmsg("putupl #381 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #381 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V520*/ meltfptr[519]); - - /*putupl#382*/ - melt_assertmsg("putupl #382 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #382 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V522*/ meltfptr[521]); - - /*putupl#383*/ - melt_assertmsg("putupl #383 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #383 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V526*/ meltfptr[525]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V524*/ meltfptr[523]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V526*/ meltfptr[525]); + meltgc_touch(/*_.VALDATA___V525*/ meltfptr[524]); - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V526*/ meltfptr[525]); - - MELT_LOCATION("warmelt-macro.melt:405:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V517*/ meltfptr[516]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])) == MELTOBMAG_OBJECT); @@ -22027,859 +21691,878 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_3 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V528*/ meltfptr[527]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V527*/ meltfptr[526]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528])))); - ((meltobject_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V530*/ meltfptr[529]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V529*/ meltfptr[528]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530])))); - ((meltobject_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V532*/ meltfptr[531]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V531*/ meltfptr[530]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])))); - ((meltobject_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V534*/ meltfptr[533]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V533*/ meltfptr[532]); - - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); - ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V536*/ meltfptr[535]); - - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); - ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])))); + ((meltobject_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#384*/ - melt_assertmsg("putupl #384 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #384 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#378*/ + melt_assertmsg("putupl #378 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #378 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#385*/ - melt_assertmsg("putupl #385 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #385 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#379*/ + melt_assertmsg("putupl #379 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #379 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#386*/ - melt_assertmsg("putupl #386 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #386 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#380*/ + melt_assertmsg("putupl #380 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #380 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#387*/ - melt_assertmsg("putupl #387 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #387 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V537*/ meltfptr[536]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#381*/ + melt_assertmsg("putupl #381 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #381 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V529*/ meltfptr[528]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V537*/ meltfptr[536]); + meltgc_touch(/*_.VALTUP___V529*/ meltfptr[528]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); - ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V537*/ meltfptr[536]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])))); + ((meltobject_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V529*/ meltfptr[528]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])))); - ((meltobject_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V539*/ meltfptr[538]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529])))); + ((meltobject_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V531*/ meltfptr[530]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537])))); - ((meltobject_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529])))); + ((meltobject_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V527*/ meltfptr[526]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V538*/ meltfptr[537]); + meltgc_touch(/*_.VALDATA___V530*/ meltfptr[529]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539])))); - ((meltobject_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V541*/ meltfptr[540]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])))); + ((meltobject_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V533*/ meltfptr[532]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539])))); - ((meltobject_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531])))); + ((meltobject_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V527*/ meltfptr[526]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V540*/ meltfptr[539]); - - /*putupl#388*/ - melt_assertmsg("putupl #388 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #388 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + meltgc_touch(/*_.VALDATA___V532*/ meltfptr[531]); - /*putupl#389*/ - melt_assertmsg("putupl #389 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #389 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#382*/ + melt_assertmsg("putupl #382 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #382 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#383*/ + melt_assertmsg("putupl #383 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #383 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_3*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putupl#390*/ - melt_assertmsg("putupl #390 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #390 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]); + /*putupl#384*/ + melt_assertmsg("putupl #384 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #384 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529]); - /*putupl#391*/ - melt_assertmsg("putupl #391 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #391 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V542*/ meltfptr[541]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539]); + /*putupl#385*/ + melt_assertmsg("putupl #385 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #385 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V534*/ meltfptr[533]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V542*/ meltfptr[541]); + meltgc_touch(/*_.VALTUP___V534*/ meltfptr[533]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); - ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V542*/ meltfptr[541]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])))); + ((meltobject_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V534*/ meltfptr[533]); - MELT_LOCATION("warmelt-macro.melt:417:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:416:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V535*/ meltfptr[534]); + meltgc_touch(/*_.VALDATA___V527*/ meltfptr[526]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])))); - ((meltobject_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V544*/ meltfptr[543]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])))); + ((meltobject_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V536*/ meltfptr[535]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V543*/ meltfptr[542]); + meltgc_touch(/*_.VALDATA___V535*/ meltfptr[534]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V537*/ meltfptr[536])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])))); - ((meltobject_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V546*/ meltfptr[545]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V537*/ meltfptr[536])))); + ((meltobject_ptr_t)(/*_.VALDATA___V537*/ meltfptr[536]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V538*/ meltfptr[537]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V545*/ meltfptr[544]); + meltgc_touch(/*_.VALDATA___V537*/ meltfptr[536]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); - ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V548*/ meltfptr[547]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])))); + ((meltobject_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V540*/ meltfptr[539]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V547*/ meltfptr[546]); + meltgc_touch(/*_.VALDATA___V539*/ meltfptr[538]); - MELT_LOCATION("warmelt-macro.melt:428:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:426:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])))); - ((meltobject_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V550*/ meltfptr[549]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])))); + ((meltobject_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V542*/ meltfptr[541]); - MELT_LOCATION("warmelt-macro.melt:428:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:426:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])))); - ((meltobject_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])))); + ((meltobject_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V527*/ meltfptr[526]); - /*putupl#392*/ - melt_assertmsg("putupl #392 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #392 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#386*/ + melt_assertmsg("putupl #386 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #386 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#393*/ - melt_assertmsg("putupl #393 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #393 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#387*/ + melt_assertmsg("putupl #387 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #387 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#394*/ - melt_assertmsg("putupl #394 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #394 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#388*/ + melt_assertmsg("putupl #388 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #388 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#395*/ - melt_assertmsg("putupl #395 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #395 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#396*/ - melt_assertmsg("putupl #396 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #396 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V551*/ meltfptr[550]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_3*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putupl#389*/ + melt_assertmsg("putupl #389 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #389 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#390*/ + melt_assertmsg("putupl #390 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #390 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V543*/ meltfptr[542]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V551*/ meltfptr[550]); + meltgc_touch(/*_.VALTUP___V543*/ meltfptr[542]); - MELT_LOCATION("warmelt-macro.melt:428:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:426:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])))); - ((meltobject_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V551*/ meltfptr[550]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])))); + ((meltobject_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V543*/ meltfptr[542]); - /*putupl#397*/ - melt_assertmsg("putupl #397 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #397 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#391*/ + melt_assertmsg("putupl #391 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #391 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#398*/ - melt_assertmsg("putupl #398 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #398 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#392*/ + melt_assertmsg("putupl #392 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #392 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#399*/ - melt_assertmsg("putupl #399 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #399 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V538*/ meltfptr[537]); + /*putupl#393*/ + melt_assertmsg("putupl #393 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #393 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V530*/ meltfptr[529]); - /*putupl#400*/ - melt_assertmsg("putupl #400 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #400 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V552*/ meltfptr[551]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V540*/ meltfptr[539]); + /*putupl#394*/ + melt_assertmsg("putupl #394 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #394 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V544*/ meltfptr[543]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V532*/ meltfptr[531]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V552*/ meltfptr[551]); + meltgc_touch(/*_.VALTUP___V544*/ meltfptr[543]); - MELT_LOCATION("warmelt-macro.melt:428:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:426:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548])))); - ((meltobject_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V552*/ meltfptr[551]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540])))); + ((meltobject_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V544*/ meltfptr[543]); - MELT_LOCATION("warmelt-macro.melt:428:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:426:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V549*/ meltfptr[548]); + meltgc_touch(/*_.VALDATA___V541*/ meltfptr[540]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])))); - ((meltobject_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V554*/ meltfptr[553]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])))); + ((meltobject_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V546*/ meltfptr[545]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V553*/ meltfptr[552]); + meltgc_touch(/*_.VALDATA___V545*/ meltfptr[544]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])))); - ((meltobject_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V556*/ meltfptr[555]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); + ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V548*/ meltfptr[547]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])))); - ((meltobject_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); + ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#401*/ - melt_assertmsg("putupl #401 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #401 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#395*/ + melt_assertmsg("putupl #395 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #395 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#402*/ - melt_assertmsg("putupl #402 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #402 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#396*/ + melt_assertmsg("putupl #396 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #396 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#403*/ - melt_assertmsg("putupl #403 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #403 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#397*/ + melt_assertmsg("putupl #397 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #397 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#404*/ - melt_assertmsg("putupl #404 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #404 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V557*/ meltfptr[556]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#398*/ + melt_assertmsg("putupl #398 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #398 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V549*/ meltfptr[548]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V557*/ meltfptr[556]); + meltgc_touch(/*_.VALTUP___V549*/ meltfptr[548]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])))); - ((meltobject_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V557*/ meltfptr[556]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); + ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V549*/ meltfptr[548]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])))); - ((meltobject_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V559*/ meltfptr[558]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])))); + ((meltobject_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V551*/ meltfptr[550]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557])))); - ((meltobject_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V555*/ meltfptr[554]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549])))); + ((meltobject_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V547*/ meltfptr[546]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V558*/ meltfptr[557]); + meltgc_touch(/*_.VALDATA___V550*/ meltfptr[549]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])))); - ((meltobject_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V561*/ meltfptr[560]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])))); + ((meltobject_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V553*/ meltfptr[552]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559])))); - ((meltobject_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V555*/ meltfptr[554]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551])))); + ((meltobject_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V547*/ meltfptr[546]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V560*/ meltfptr[559]); + meltgc_touch(/*_.VALDATA___V552*/ meltfptr[551]); - /*putupl#405*/ - melt_assertmsg("putupl #405 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #405 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#399*/ + melt_assertmsg("putupl #399 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #399 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#406*/ - melt_assertmsg("putupl #406 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #406 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#400*/ + melt_assertmsg("putupl #400 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #400 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#407*/ - melt_assertmsg("putupl #407 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #407 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]); + /*putupl#401*/ + melt_assertmsg("putupl #401 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #401 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]); - /*putupl#408*/ - melt_assertmsg("putupl #408 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #408 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V562*/ meltfptr[561]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]); + /*putupl#402*/ + melt_assertmsg("putupl #402 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #402 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V554*/ meltfptr[553]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V562*/ meltfptr[561]); + meltgc_touch(/*_.VALTUP___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])))); - ((meltobject_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V562*/ meltfptr[561]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])))); + ((meltobject_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V554*/ meltfptr[553]); - MELT_LOCATION("warmelt-macro.melt:437:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:435:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V555*/ meltfptr[554]); + meltgc_touch(/*_.VALDATA___V547*/ meltfptr[546]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])))); - ((meltobject_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V564*/ meltfptr[563]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])))); + ((meltobject_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V556*/ meltfptr[555]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V563*/ meltfptr[562]); + meltgc_touch(/*_.VALDATA___V555*/ meltfptr[554]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])))); - ((meltobject_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V566*/ meltfptr[565]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])))); + ((meltobject_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V558*/ meltfptr[557]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V565*/ meltfptr[564]); + meltgc_touch(/*_.VALDATA___V557*/ meltfptr[556]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])))); - ((meltobject_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V568*/ meltfptr[567]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])))); + ((meltobject_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V560*/ meltfptr[559]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V567*/ meltfptr[566]); + meltgc_touch(/*_.VALDATA___V559*/ meltfptr[558]); - MELT_LOCATION("warmelt-macro.melt:447:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); - ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V570*/ meltfptr[569]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V562*/ meltfptr[561]); - MELT_LOCATION("warmelt-macro.melt:447:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); - ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V555*/ meltfptr[554]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V547*/ meltfptr[546]); - /*putupl#409*/ - melt_assertmsg("putupl #409 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #409 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#403*/ + melt_assertmsg("putupl #403 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #403 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#410*/ - melt_assertmsg("putupl #410 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #410 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#404*/ + melt_assertmsg("putupl #404 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #404 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#411*/ - melt_assertmsg("putupl #411 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #411 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#405*/ + melt_assertmsg("putupl #405 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #405 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#412*/ - melt_assertmsg("putupl #412 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #412 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#406*/ + melt_assertmsg("putupl #406 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #406 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#413*/ - melt_assertmsg("putupl #413 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #413 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V571*/ meltfptr[570]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]); + /*putupl#407*/ + melt_assertmsg("putupl #407 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #407 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V563*/ meltfptr[562]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V571*/ meltfptr[570]); + meltgc_touch(/*_.VALTUP___V563*/ meltfptr[562]); - MELT_LOCATION("warmelt-macro.melt:447:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); - ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V571*/ meltfptr[570]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V563*/ meltfptr[562]); - /*putupl#414*/ - melt_assertmsg("putupl #414 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #414 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])) == MELTOBMAG_OBJECT); - /*putupl#415*/ - melt_assertmsg("putupl #415 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #415 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])))); + ((meltobject_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V565*/ meltfptr[564]); - /*putupl#416*/ - melt_assertmsg("putupl #416 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #416 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V558*/ meltfptr[557]); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])) == MELTOBMAG_OBJECT); - /*putupl#417*/ - melt_assertmsg("putupl #417 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #417 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ meltfptr[571]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V560*/ meltfptr[559]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563])))); + ((meltobject_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V561*/ meltfptr[560]); + + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V564*/ meltfptr[563]); + + /*putupl#408*/ + melt_assertmsg("putupl #408 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #408 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#409*/ + melt_assertmsg("putupl #409 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #409 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#410*/ + melt_assertmsg("putupl #410 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #410 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V550*/ meltfptr[549]); + + /*putupl#411*/ + melt_assertmsg("putupl #411 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #411 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V552*/ meltfptr[551]); + + /*putupl#412*/ + melt_assertmsg("putupl #412 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #412 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V566*/ meltfptr[565]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V564*/ meltfptr[563]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V572*/ meltfptr[571]); + meltgc_touch(/*_.VALTUP___V566*/ meltfptr[565]); - MELT_LOCATION("warmelt-macro.melt:447:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); - ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V572*/ meltfptr[571]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560])))); + ((meltobject_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V566*/ meltfptr[565]); - MELT_LOCATION("warmelt-macro.melt:447:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:444:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V569*/ meltfptr[568]); + meltgc_touch(/*_.VALDATA___V561*/ meltfptr[560]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])))); + ((meltobject_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V568*/ meltfptr[567]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V567*/ meltfptr[566]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])))); - ((meltobject_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V574*/ meltfptr[573]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])))); + ((meltobject_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V570*/ meltfptr[569]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V573*/ meltfptr[572]); + meltgc_touch(/*_.VALDATA___V569*/ meltfptr[568]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V576*/ meltfptr[575]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V572*/ meltfptr[571]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#418*/ - melt_assertmsg("putupl #418 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #418 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#413*/ + melt_assertmsg("putupl #413 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #413 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#419*/ - melt_assertmsg("putupl #419 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #419 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#414*/ + melt_assertmsg("putupl #414 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #414 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#420*/ - melt_assertmsg("putupl #420 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #420 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#415*/ + melt_assertmsg("putupl #415 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #415 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#421*/ - melt_assertmsg("putupl #421 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #421 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V577*/ meltfptr[576]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#416*/ + melt_assertmsg("putupl #416 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #416 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V573*/ meltfptr[572]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V577*/ meltfptr[576]); + meltgc_touch(/*_.VALTUP___V573*/ meltfptr[572]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V577*/ meltfptr[576]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V573*/ meltfptr[572]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])))); - ((meltobject_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V579*/ meltfptr[578]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])))); + ((meltobject_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V575*/ meltfptr[574]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577])))); - ((meltobject_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V575*/ meltfptr[574]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573])))); + ((meltobject_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V571*/ meltfptr[570]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V578*/ meltfptr[577]); + meltgc_touch(/*_.VALDATA___V574*/ meltfptr[573]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])) == MELTOBMAG_OBJECT); + /*putupl#417*/ + melt_assertmsg("putupl #417 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #417 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#418*/ + melt_assertmsg("putupl #418 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #418 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#419*/ + melt_assertmsg("putupl #419 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #419 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V576*/ meltfptr[575]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V574*/ meltfptr[573]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])))); - ((meltobject_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V581*/ meltfptr[580]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V576*/ meltfptr[575]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579])))); - ((meltobject_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V575*/ meltfptr[574]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570])))); + ((meltobject_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V576*/ meltfptr[575]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:455:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V580*/ meltfptr[579]); + meltgc_touch(/*_.VALDATA___V571*/ meltfptr[570]); - /*putupl#422*/ - melt_assertmsg("putupl #422 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #422 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])) == MELTOBMAG_OBJECT); - /*putupl#423*/ - melt_assertmsg("putupl #423 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #423 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])))); + ((meltobject_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V578*/ meltfptr[577]); - /*putupl#424*/ - melt_assertmsg("putupl #424 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #424 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]); - - /*putupl#425*/ - melt_assertmsg("putupl #425 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #425 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V582*/ meltfptr[581]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V582*/ meltfptr[581]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V577*/ meltfptr[576]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); - /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574])))); - ((meltobject_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V582*/ meltfptr[581]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])))); + ((meltobject_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V580*/ meltfptr[579]); - MELT_LOCATION("warmelt-macro.melt:456:/ initchunk"); - /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V575*/ meltfptr[574]); + meltgc_touch(/*_.VALDATA___V579*/ meltfptr[578]); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])))); - ((meltobject_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V584*/ meltfptr[583]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])) == MELTOBMAG_OBJECT); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V583*/ meltfptr[582]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])))); + ((meltobject_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V582*/ meltfptr[581]); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])))); - ((meltobject_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V586*/ meltfptr[585]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])))); + ((meltobject_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V585*/ meltfptr[584]); + /*putupl#420*/ + melt_assertmsg("putupl #420 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #420 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])) == MELTOBMAG_OBJECT); + /*putupl#421*/ + melt_assertmsg("putupl #421 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #421 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])))); - ((meltobject_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V588*/ meltfptr[587]); + /*putupl#422*/ + melt_assertmsg("putupl #422 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #422 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V587*/ meltfptr[586]); + /*putupl#423*/ + melt_assertmsg("putupl #423 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #423 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V583*/ meltfptr[582]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V583*/ meltfptr[582]); + + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])))); - ((meltobject_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V590*/ meltfptr[589]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])))); + ((meltobject_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V583*/ meltfptr[582]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])))); - ((meltobject_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V575*/ meltfptr[574]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])) == MELTOBMAG_OBJECT); - /*putupl#426*/ - melt_assertmsg("putupl #426 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #426 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])))); + ((meltobject_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V585*/ meltfptr[584]); - /*putupl#427*/ - melt_assertmsg("putupl #427 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #427 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])) == MELTOBMAG_OBJECT); - /*putupl#428*/ - melt_assertmsg("putupl #428 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #428 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583])))); + ((meltobject_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V581*/ meltfptr[580]); - /*putupl#429*/ - melt_assertmsg("putupl #429 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #429 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V584*/ meltfptr[583]); - /*putupl#430*/ - melt_assertmsg("putupl #430 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #430 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V591*/ meltfptr[590]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V591*/ meltfptr[590]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])))); + ((meltobject_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V587*/ meltfptr[586]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585])))); + ((meltobject_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V581*/ meltfptr[580]); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])))); - ((meltobject_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V591*/ meltfptr[590]); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V586*/ meltfptr[585]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); - ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V593*/ meltfptr[592]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V589*/ meltfptr[588]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591])))); - ((meltobject_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V589*/ meltfptr[588]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587])))); + ((meltobject_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V581*/ meltfptr[580]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V592*/ meltfptr[591]); + meltgc_touch(/*_.VALDATA___V588*/ meltfptr[587]); - /*putupl#431*/ - melt_assertmsg("putupl #431 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #431 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#424*/ + melt_assertmsg("putupl #424 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #424 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#432*/ - melt_assertmsg("putupl #432 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #432 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#425*/ + melt_assertmsg("putupl #425 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #425 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#433*/ - melt_assertmsg("putupl #433 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #433 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V578*/ meltfptr[577]); + /*putupl#426*/ + melt_assertmsg("putupl #426 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #426 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V584*/ meltfptr[583]); - /*putupl#434*/ - melt_assertmsg("putupl #434 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #434 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V580*/ meltfptr[579]); + /*putupl#427*/ + melt_assertmsg("putupl #427 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #427 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V586*/ meltfptr[585]); - /*putupl#435*/ - melt_assertmsg("putupl #435 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #435 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V594*/ meltfptr[593]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V592*/ meltfptr[591]); + /*putupl#428*/ + melt_assertmsg("putupl #428 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #428 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V590*/ meltfptr[589]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V588*/ meltfptr[587]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V594*/ meltfptr[593]); + meltgc_touch(/*_.VALTUP___V590*/ meltfptr[589]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588])))); - ((meltobject_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V594*/ meltfptr[593]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580])))); + ((meltobject_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V590*/ meltfptr[589]); - MELT_LOCATION("warmelt-macro.melt:465:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:467:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V589*/ meltfptr[588]); + meltgc_touch(/*_.VALDATA___V581*/ meltfptr[580]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590])))); + ((meltobject_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V592*/ meltfptr[591]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V591*/ meltfptr[590]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592])))); + ((meltobject_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V594*/ meltfptr[593]); + + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V593*/ meltfptr[592]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); @@ -22901,7 +22584,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V597*/ meltfptr[596]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); @@ -22910,7 +22593,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V600*/ meltfptr[599]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); @@ -22919,30 +22602,30 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#436*/ - melt_assertmsg("putupl #436 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #436 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); + /*putupl#429*/ + melt_assertmsg("putupl #429 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #429 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#437*/ - melt_assertmsg("putupl #437 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #437 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); + /*putupl#430*/ + melt_assertmsg("putupl #430 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #430 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#438*/ - melt_assertmsg("putupl #438 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #438 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); + /*putupl#431*/ + melt_assertmsg("putupl #431 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #431 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#439*/ - melt_assertmsg("putupl #439 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #439 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); + /*putupl#432*/ + melt_assertmsg("putupl #432 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #432 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V601*/ meltfptr[600]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ meltgc_touch(/*_.VALTUP___V601*/ meltfptr[600]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); @@ -22951,7 +22634,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[5] = (melt_ptr_t)( /*_.VALTUP___V601*/ meltfptr[600]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601])) == MELTOBMAG_OBJECT); @@ -22960,7 +22643,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V603*/ meltfptr[602]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601])) == MELTOBMAG_OBJECT); @@ -22969,53 +22652,71 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601]))->obj_vartab[2] = (melt_ptr_t)( /*_.VALDATA___V599*/ meltfptr[598]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V602*/ meltfptr[601]); - /*putupl#440*/ - melt_assertmsg("putupl #440 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #440 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])) == MELTOBMAG_OBJECT); - /*putupl#441*/ - melt_assertmsg("putupl #441 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #441 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])))); + ((meltobject_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V605*/ meltfptr[604]); - /*putupl#442*/ - melt_assertmsg("putupl #442 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #442 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V604*/ meltfptr[603]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601]); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603])))); + ((meltobject_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V599*/ meltfptr[598]); + + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V604*/ meltfptr[603]); + + /*putupl#433*/ + melt_assertmsg("putupl #433 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #433 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#434*/ + melt_assertmsg("putupl #434 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #434 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#435*/ + melt_assertmsg("putupl #435 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #435 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V602*/ meltfptr[601]); + + /*putupl#436*/ + melt_assertmsg("putupl #436 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #436 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V606*/ meltfptr[605]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V604*/ meltfptr[603]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V604*/ meltfptr[603]); + meltgc_touch(/*_.VALTUP___V606*/ meltfptr[605]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598])))); ((meltobject_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V604*/ meltfptr[603]); + /*_.VALTUP___V606*/ meltfptr[605]); - MELT_LOCATION("warmelt-macro.melt:476:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:478:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V599*/ meltfptr[598]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])))); - ((meltobject_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V606*/ meltfptr[605]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V605*/ meltfptr[604]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])) == MELTOBMAG_OBJECT); @@ -23026,8 +22727,6 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V607*/ meltfptr[606]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); @@ -23035,94 +22734,70 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V610*/ meltfptr[609]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#443*/ - melt_assertmsg("putupl #443 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #443 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#444*/ - melt_assertmsg("putupl #444 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #444 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V609*/ meltfptr[608]); - /*putupl#445*/ - melt_assertmsg("putupl #445 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #445 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610])) == MELTOBMAG_OBJECT); - /*putupl#446*/ - melt_assertmsg("putupl #446 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #446 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V611*/ meltfptr[610]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610])))); + ((meltobject_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V612*/ meltfptr[611]); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V611*/ meltfptr[610]); + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V611*/ meltfptr[610]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V611*/ meltfptr[610]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])))); + ((meltobject_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V614*/ meltfptr[613]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])))); - ((meltobject_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V613*/ meltfptr[612]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])))); + ((meltobject_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612]))->obj_vartab[4] = (melt_ptr_t)( + /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])) == MELTOBMAG_OBJECT); + /*putupl#437*/ + melt_assertmsg("putupl #437 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #437 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611])))); - ((meltobject_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + /*putupl#438*/ + melt_assertmsg("putupl #438 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #438 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V612*/ meltfptr[611]); + /*putupl#439*/ + melt_assertmsg("putupl #439 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #439 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); + /*putupl#440*/ + melt_assertmsg("putupl #440 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #440 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V615*/ meltfptr[614]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); - ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V615*/ meltfptr[614]); + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V615*/ meltfptr[614]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613])))); - ((meltobject_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])) == MELTOBMAG_OBJECT); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V614*/ meltfptr[613]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])))); + ((meltobject_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V615*/ meltfptr[614]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])) == MELTOBMAG_OBJECT); @@ -23131,71 +22806,79 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]))->obj_vartab[1] = (melt_ptr_t)( /*_.VALSTR___V617*/ meltfptr[616]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615])))); ((meltobject_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V609*/ meltfptr[608]); + /*_.VALDATA___V613*/ meltfptr[612]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V616*/ meltfptr[615]); - /*putupl#447*/ - melt_assertmsg("putupl #447 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #447 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#448*/ - melt_assertmsg("putupl #448 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #448 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#449*/ - melt_assertmsg("putupl #449 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #449 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V612*/ meltfptr[611]); - - /*putupl#450*/ - melt_assertmsg("putupl #450 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #450 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V614*/ meltfptr[613]); - - /*putupl#451*/ - melt_assertmsg("putupl #451 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #451 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V618*/ meltfptr[617]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])) == MELTOBMAG_OBJECT); - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V618*/ meltfptr[617]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])))); + ((meltobject_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V619*/ meltfptr[618]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])))); - ((meltobject_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V618*/ meltfptr[617]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617])))); + ((meltobject_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V613*/ meltfptr[612]); - MELT_LOCATION("warmelt-macro.melt:488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V609*/ meltfptr[608]); + meltgc_touch(/*_.VALDATA___V618*/ meltfptr[617]); + /*putupl#441*/ + melt_assertmsg("putupl #441 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #441 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#442*/ + melt_assertmsg("putupl #442 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #442 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#443*/ + melt_assertmsg("putupl #443 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #443 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V616*/ meltfptr[615]); + + /*putupl#444*/ + melt_assertmsg("putupl #444 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #444 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V620*/ meltfptr[619]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V618*/ meltfptr[617]); + + /*touch:INITUP_*/ + meltgc_touch(/*_.VALTUP___V620*/ meltfptr[619]); + + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); + /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])))); - ((meltobject_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V620*/ meltfptr[619]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612])))); + ((meltobject_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V620*/ meltfptr[619]); + MELT_LOCATION("warmelt-macro.melt:489:/ initchunk"); + /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V619*/ meltfptr[618]); + meltgc_touch(/*_.VALDATA___V613*/ meltfptr[612]); /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])) == MELTOBMAG_OBJECT); @@ -23245,24 +22928,24 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start ((meltobject_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#452*/ - melt_assertmsg("putupl #452 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #452 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); + /*putupl#445*/ + melt_assertmsg("putupl #445 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #445 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#453*/ - melt_assertmsg("putupl #453 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #453 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); + /*putupl#446*/ + melt_assertmsg("putupl #446 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #446 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#454*/ - melt_assertmsg("putupl #454 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #454 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); + /*putupl#447*/ + melt_assertmsg("putupl #447 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #447 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#455*/ - melt_assertmsg("putupl #455 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #455 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); + /*putupl#448*/ + melt_assertmsg("putupl #448 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #448 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628])))); ((meltmultiple_ptr_t)(/*_.VALTUP___V629*/ meltfptr[628]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ @@ -23323,28 +23006,56 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V632*/ meltfptr[631]); - /*putupl#456*/ - melt_assertmsg("putupl #456 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #456 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + MELT_LOCATION("warmelt-macro.melt:499:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])) == MELTOBMAG_OBJECT); - /*putupl#457*/ - melt_assertmsg("putupl #457 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #457 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])))); + ((meltobject_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V635*/ meltfptr[634]); - /*putupl#458*/ - melt_assertmsg("putupl #458 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #458 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629]); + MELT_LOCATION("warmelt-macro.melt:499:/ initchunk"); + /*^putslot*/ + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])) == MELTOBMAG_OBJECT); - /*putupl#459*/ - melt_assertmsg("putupl #459 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #459 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V634*/ meltfptr[633]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633])))); + ((meltobject_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V627*/ meltfptr[626]); + + MELT_LOCATION("warmelt-macro.melt:499:/ initchunk"); + /*^touch*/ + /*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V634*/ meltfptr[633]); + + /*putupl#449*/ + melt_assertmsg("putupl #449 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #449 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + + /*putupl#450*/ + melt_assertmsg("putupl #450 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #450 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + + /*putupl#451*/ + melt_assertmsg("putupl #451 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #451 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629]); + + /*putupl#452*/ + melt_assertmsg("putupl #452 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #452 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631]); + + /*putupl#453*/ + melt_assertmsg("putupl #453 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #453 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V636*/ meltfptr[635]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V634*/ meltfptr[633]); + meltgc_touch(/*_.VALTUP___V636*/ meltfptr[635]); MELT_LOCATION("warmelt-macro.melt:499:/ initchunk"); /*^putslot*/ @@ -23353,23 +23064,13 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626])))); ((meltobject_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V634*/ meltfptr[633]); + /*_.VALTUP___V636*/ meltfptr[635]); MELT_LOCATION("warmelt-macro.melt:499:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V627*/ meltfptr[626]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634])))); - ((meltobject_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V636*/ meltfptr[635]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V635*/ meltfptr[634]); - /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V637*/ meltfptr[636])) == MELTOBMAG_OBJECT); @@ -23390,14347 +23091,13951 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_4 (struct frame_start /*touch:VALUEDATA_*/ meltgc_touch(/*_.VALDATA___V639*/ meltfptr[638]); - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); - ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V642*/ meltfptr[641]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); - ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#460*/ - melt_assertmsg("putupl #460 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #460 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#461*/ - melt_assertmsg("putupl #461 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #461 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - - /*putupl#462*/ - melt_assertmsg("putupl #462 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #462 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#463*/ - melt_assertmsg("putupl #463 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #463 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V643*/ meltfptr[642]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V643*/ meltfptr[642]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); - ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V643*/ meltfptr[642]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])))); - ((meltobject_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V645*/ meltfptr[644]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643])))); - ((meltobject_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V641*/ meltfptr[640]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V644*/ meltfptr[643]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])))); - ((meltobject_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V647*/ meltfptr[646]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645])))); - ((meltobject_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V641*/ meltfptr[640]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V646*/ meltfptr[645]); - - /*putupl#464*/ - melt_assertmsg("putupl #464 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #464 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#465*/ - melt_assertmsg("putupl #465 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #465 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#466*/ - melt_assertmsg("putupl #466 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #466 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V644*/ meltfptr[643]); - - /*putupl#467*/ - melt_assertmsg("putupl #467 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #467 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V646*/ meltfptr[645]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V648*/ meltfptr[647]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])))); - ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V648*/ meltfptr[647]); - - MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V641*/ meltfptr[640]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); - ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V650*/ meltfptr[649]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V649*/ meltfptr[648]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])))); - ((meltobject_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V652*/ meltfptr[651]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V651*/ meltfptr[650]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V653*/ meltfptr[652])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V653*/ meltfptr[652])))); - ((meltobject_ptr_t)(/*_.VALDATA___V653*/ meltfptr[652]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V654*/ meltfptr[653]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V653*/ meltfptr[652]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])))); - ((meltobject_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V656*/ meltfptr[655]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])))); - ((meltobject_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[4] = (melt_ptr_t)( - /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*putupl#468*/ - melt_assertmsg("putupl #468 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #468 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - - /*putupl#469*/ - melt_assertmsg("putupl #469 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #469 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - - /*putupl#470*/ - melt_assertmsg("putupl #470 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #470 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - - /*putupl#471*/ - melt_assertmsg("putupl #471 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #471 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V657*/ meltfptr[656]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V657*/ meltfptr[656]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])))); - ((meltobject_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V657*/ meltfptr[656]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657])))); - ((meltobject_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V659*/ meltfptr[658]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657])))); - ((meltobject_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V655*/ meltfptr[654]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V658*/ meltfptr[657]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])))); - ((meltobject_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V661*/ meltfptr[660]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659])))); - ((meltobject_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V655*/ meltfptr[654]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V660*/ meltfptr[659]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])))); - ((meltobject_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V663*/ meltfptr[662]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661])))); - ((meltobject_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V655*/ meltfptr[654]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V662*/ meltfptr[661]); - - /*putupl#472*/ - melt_assertmsg("putupl #472 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #472 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - - /*putupl#473*/ - melt_assertmsg("putupl #473 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #473 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - - /*putupl#474*/ - melt_assertmsg("putupl #474 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #474 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657]); - - /*putupl#475*/ - melt_assertmsg("putupl #475 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #475 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659]); - - /*putupl#476*/ - melt_assertmsg("putupl #476 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #476 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V664*/ meltfptr[663]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); - - /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V664*/ meltfptr[663]); - - -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_4*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_5 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654])))); - ((meltobject_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V664*/ meltfptr[663]); - - MELT_LOCATION("warmelt-macro.melt:520:/ initchunk"); - /*^touch*/ - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V655*/ meltfptr[654]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); - ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V666*/ meltfptr[665]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V665*/ meltfptr[664]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])))); - ((meltobject_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V668*/ meltfptr[667]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V667*/ meltfptr[666]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); - ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V670*/ meltfptr[669]); + ((meltobject_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V642*/ meltfptr[641]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V669*/ meltfptr[668]); + meltgc_touch(/*_.VALDATA___V641*/ meltfptr[640]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); - ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V672*/ meltfptr[671]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642])))); + ((meltobject_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V644*/ meltfptr[643]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V671*/ meltfptr[670]); + meltgc_touch(/*_.VALDATA___V643*/ meltfptr[642]); - MELT_LOCATION("warmelt-macro.melt:531:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); - ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V674*/ meltfptr[673]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])))); + ((meltobject_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V646*/ meltfptr[645]); - MELT_LOCATION("warmelt-macro.melt:531:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); - ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V655*/ meltfptr[654]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])))); + ((meltobject_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V627*/ meltfptr[626]); - /*putupl#477*/ - melt_assertmsg("putupl #477 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #477 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#454*/ + melt_assertmsg("putupl #454 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #454 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#478*/ - melt_assertmsg("putupl #478 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #478 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#455*/ + melt_assertmsg("putupl #455 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #455 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#479*/ - melt_assertmsg("putupl #479 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #479 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#456*/ + melt_assertmsg("putupl #456 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #456 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#480*/ - melt_assertmsg("putupl #480 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #480 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#457*/ + melt_assertmsg("putupl #457 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #457 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#481*/ - melt_assertmsg("putupl #481 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #481 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V675*/ meltfptr[674]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]); + /*putupl#458*/ + melt_assertmsg("putupl #458 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #458 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V647*/ meltfptr[646]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V675*/ meltfptr[674]); + meltgc_touch(/*_.VALTUP___V647*/ meltfptr[646]); - MELT_LOCATION("warmelt-macro.melt:531:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); - ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V675*/ meltfptr[674]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])))); + ((meltobject_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V647*/ meltfptr[646]); - /*putupl#482*/ - melt_assertmsg("putupl #482 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #482 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#459*/ + melt_assertmsg("putupl #459 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #459 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#483*/ - melt_assertmsg("putupl #483 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #483 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#460*/ + melt_assertmsg("putupl #460 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #460 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#484*/ - melt_assertmsg("putupl #484 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #484 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V658*/ meltfptr[657]); + /*putupl#461*/ + melt_assertmsg("putupl #461 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #461 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V630*/ meltfptr[629]); - /*putupl#485*/ - melt_assertmsg("putupl #485 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #485 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V660*/ meltfptr[659]); + /*putupl#462*/ + melt_assertmsg("putupl #462 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #462 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V632*/ meltfptr[631]); - /*putupl#486*/ - melt_assertmsg("putupl #486 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #486 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V676*/ meltfptr[675]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V662*/ meltfptr[661]); + /*putupl#463*/ + melt_assertmsg("putupl #463 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #463 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ meltfptr[647]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V634*/ meltfptr[633]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V676*/ meltfptr[675]); + meltgc_touch(/*_.VALTUP___V648*/ meltfptr[647]); - MELT_LOCATION("warmelt-macro.melt:531:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672])))); - ((meltobject_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V676*/ meltfptr[675]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644])))); + ((meltobject_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V648*/ meltfptr[647]); - MELT_LOCATION("warmelt-macro.melt:531:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:510:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V673*/ meltfptr[672]); + meltgc_touch(/*_.VALDATA___V645*/ meltfptr[644]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])))); - ((meltobject_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V678*/ meltfptr[677]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])))); + ((meltobject_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V650*/ meltfptr[649]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V677*/ meltfptr[676]); + meltgc_touch(/*_.VALDATA___V649*/ meltfptr[648]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V680*/ meltfptr[679]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])))); + ((meltobject_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V652*/ meltfptr[651]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])))); + ((meltobject_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#487*/ - melt_assertmsg("putupl #487 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #487 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#464*/ + melt_assertmsg("putupl #464 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #464 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#488*/ - melt_assertmsg("putupl #488 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #488 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#465*/ + melt_assertmsg("putupl #465 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #465 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#489*/ - melt_assertmsg("putupl #489 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #489 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#466*/ + melt_assertmsg("putupl #466 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #466 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#490*/ - melt_assertmsg("putupl #490 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #490 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V681*/ meltfptr[680]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#467*/ + melt_assertmsg("putupl #467 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #467 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V653*/ meltfptr[652]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V681*/ meltfptr[680]); + meltgc_touch(/*_.VALTUP___V653*/ meltfptr[652]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V681*/ meltfptr[680]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])))); + ((meltobject_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V653*/ meltfptr[652]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])))); - ((meltobject_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V683*/ meltfptr[682]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V655*/ meltfptr[654]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681])))); - ((meltobject_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653])))); + ((meltobject_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V651*/ meltfptr[650]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V682*/ meltfptr[681]); + meltgc_touch(/*_.VALDATA___V654*/ meltfptr[653]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])))); - ((meltobject_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V685*/ meltfptr[684]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655])))); + ((meltobject_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V657*/ meltfptr[656]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683])))); - ((meltobject_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655])))); + ((meltobject_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V651*/ meltfptr[650]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V684*/ meltfptr[683]); + meltgc_touch(/*_.VALDATA___V656*/ meltfptr[655]); - /*putupl#491*/ - melt_assertmsg("putupl #491 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #491 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#468*/ + melt_assertmsg("putupl #468 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #468 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#492*/ - melt_assertmsg("putupl #492 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #492 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#469*/ + melt_assertmsg("putupl #469 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #469 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#493*/ - melt_assertmsg("putupl #493 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #493 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]); + /*putupl#470*/ + melt_assertmsg("putupl #470 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #470 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - /*putupl#494*/ - melt_assertmsg("putupl #494 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #494 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V686*/ meltfptr[685]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]); + /*putupl#471*/ + melt_assertmsg("putupl #471 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #471 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V658*/ meltfptr[657]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V686*/ meltfptr[685]); + meltgc_touch(/*_.VALTUP___V658*/ meltfptr[657]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); - ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V686*/ meltfptr[685]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])))); + ((meltobject_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V658*/ meltfptr[657]); - MELT_LOCATION("warmelt-macro.melt:537:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:516:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V679*/ meltfptr[678]); + meltgc_touch(/*_.VALDATA___V651*/ meltfptr[650]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V687*/ meltfptr[686])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V687*/ meltfptr[686])))); - ((meltobject_ptr_t)(/*_.VALDATA___V687*/ meltfptr[686]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V688*/ meltfptr[687]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])))); + ((meltobject_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V660*/ meltfptr[659]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V687*/ meltfptr[686]); + meltgc_touch(/*_.VALDATA___V659*/ meltfptr[658]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ meltfptr[660])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])))); - ((meltobject_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V690*/ meltfptr[689]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ meltfptr[660])))); + ((meltobject_ptr_t)(/*_.VALDATA___V661*/ meltfptr[660]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V662*/ meltfptr[661]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V689*/ meltfptr[688]); + meltgc_touch(/*_.VALDATA___V661*/ meltfptr[660]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V663*/ meltfptr[662])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])))); - ((meltobject_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V692*/ meltfptr[691]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V663*/ meltfptr[662])))); + ((meltobject_ptr_t)(/*_.VALDATA___V663*/ meltfptr[662]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V664*/ meltfptr[663]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V691*/ meltfptr[690]); + meltgc_touch(/*_.VALDATA___V663*/ meltfptr[662]); - MELT_LOCATION("warmelt-macro.melt:547:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:526:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])))); - ((meltobject_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V694*/ meltfptr[693]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); + ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V666*/ meltfptr[665]); - MELT_LOCATION("warmelt-macro.melt:547:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:526:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])))); - ((meltobject_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); + ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V651*/ meltfptr[650]); - /*putupl#495*/ - melt_assertmsg("putupl #495 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #495 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#472*/ + melt_assertmsg("putupl #472 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #472 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#496*/ - melt_assertmsg("putupl #496 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #496 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#473*/ + melt_assertmsg("putupl #473 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #473 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#497*/ - melt_assertmsg("putupl #497 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #497 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#474*/ + melt_assertmsg("putupl #474 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #474 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#498*/ - melt_assertmsg("putupl #498 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #498 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#499*/ - melt_assertmsg("putupl #499 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #499 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V695*/ meltfptr[694]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_4*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_5 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putupl#475*/ + melt_assertmsg("putupl #475 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #475 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + + /*putupl#476*/ + melt_assertmsg("putupl #476 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #476 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V667*/ meltfptr[666]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V695*/ meltfptr[694]); + meltgc_touch(/*_.VALTUP___V667*/ meltfptr[666]); - MELT_LOCATION("warmelt-macro.melt:547:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:526:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])))); - ((meltobject_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V695*/ meltfptr[694]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); + ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V667*/ meltfptr[666]); - /*putupl#500*/ - melt_assertmsg("putupl #500 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #500 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#477*/ + melt_assertmsg("putupl #477 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #477 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#501*/ - melt_assertmsg("putupl #501 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #501 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#478*/ + melt_assertmsg("putupl #478 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #478 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#502*/ - melt_assertmsg("putupl #502 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #502 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V682*/ meltfptr[681]); + /*putupl#479*/ + melt_assertmsg("putupl #479 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #479 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V654*/ meltfptr[653]); - /*putupl#503*/ - melt_assertmsg("putupl #503 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #503 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V696*/ meltfptr[695]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V684*/ meltfptr[683]); + /*putupl#480*/ + melt_assertmsg("putupl #480 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #480 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V668*/ meltfptr[667]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V656*/ meltfptr[655]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V696*/ meltfptr[695]); + meltgc_touch(/*_.VALTUP___V668*/ meltfptr[667]); - MELT_LOCATION("warmelt-macro.melt:547:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:526:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692])))); - ((meltobject_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V696*/ meltfptr[695]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])))); + ((meltobject_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V668*/ meltfptr[667]); - MELT_LOCATION("warmelt-macro.melt:547:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:526:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V693*/ meltfptr[692]); + meltgc_touch(/*_.VALDATA___V665*/ meltfptr[664]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); - ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V698*/ meltfptr[697]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])))); + ((meltobject_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V670*/ meltfptr[669]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V697*/ meltfptr[696]); + meltgc_touch(/*_.VALDATA___V669*/ meltfptr[668]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); - ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V700*/ meltfptr[699]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V672*/ meltfptr[671]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); - ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#504*/ - melt_assertmsg("putupl #504 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #504 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#481*/ + melt_assertmsg("putupl #481 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #481 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#505*/ - melt_assertmsg("putupl #505 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #505 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#482*/ + melt_assertmsg("putupl #482 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #482 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#506*/ - melt_assertmsg("putupl #506 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #506 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#483*/ + melt_assertmsg("putupl #483 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #483 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#507*/ - melt_assertmsg("putupl #507 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #507 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V701*/ meltfptr[700]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#484*/ + melt_assertmsg("putupl #484 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #484 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V673*/ meltfptr[672]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V701*/ meltfptr[700]); + meltgc_touch(/*_.VALTUP___V673*/ meltfptr[672]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); - ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V701*/ meltfptr[700]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V673*/ meltfptr[672]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])))); - ((meltobject_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V703*/ meltfptr[702]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673])))); + ((meltobject_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V675*/ meltfptr[674]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701])))); - ((meltobject_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V699*/ meltfptr[698]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673])))); + ((meltobject_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V671*/ meltfptr[670]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V702*/ meltfptr[701]); + meltgc_touch(/*_.VALDATA___V674*/ meltfptr[673]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])))); - ((meltobject_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V705*/ meltfptr[704]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])))); + ((meltobject_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V677*/ meltfptr[676]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703])))); - ((meltobject_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V699*/ meltfptr[698]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675])))); + ((meltobject_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V671*/ meltfptr[670]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V704*/ meltfptr[703]); + meltgc_touch(/*_.VALDATA___V676*/ meltfptr[675]); - /*putupl#508*/ - melt_assertmsg("putupl #508 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #508 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#485*/ + melt_assertmsg("putupl #485 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #485 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#509*/ - melt_assertmsg("putupl #509 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #509 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#486*/ + melt_assertmsg("putupl #486 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #486 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#510*/ - melt_assertmsg("putupl #510 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #510 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V702*/ meltfptr[701]); + /*putupl#487*/ + melt_assertmsg("putupl #487 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #487 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V674*/ meltfptr[673]); - /*putupl#511*/ - melt_assertmsg("putupl #511 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #511 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V706*/ meltfptr[705]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V704*/ meltfptr[703]); + /*putupl#488*/ + melt_assertmsg("putupl #488 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #488 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ meltfptr[677]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V676*/ meltfptr[675]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V706*/ meltfptr[705]); + meltgc_touch(/*_.VALTUP___V678*/ meltfptr[677]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); - ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V706*/ meltfptr[705]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])))); + ((meltobject_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V678*/ meltfptr[677]); - MELT_LOCATION("warmelt-macro.melt:555:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:534:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V699*/ meltfptr[698]); + meltgc_touch(/*_.VALDATA___V671*/ meltfptr[670]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])))); - ((meltobject_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V708*/ meltfptr[707]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])))); + ((meltobject_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V680*/ meltfptr[679]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V707*/ meltfptr[706]); + meltgc_touch(/*_.VALDATA___V679*/ meltfptr[678]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])))); - ((meltobject_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V710*/ meltfptr[709]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680])))); + ((meltobject_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V682*/ meltfptr[681]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V709*/ meltfptr[708]); + meltgc_touch(/*_.VALDATA___V681*/ meltfptr[680]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V683*/ meltfptr[682])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])))); - ((meltobject_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V712*/ meltfptr[711]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V683*/ meltfptr[682])))); + ((meltobject_ptr_t)(/*_.VALDATA___V683*/ meltfptr[682]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V684*/ meltfptr[683]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V711*/ meltfptr[710]); + meltgc_touch(/*_.VALDATA___V683*/ meltfptr[682]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); - ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V714*/ meltfptr[713]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])))); + ((meltobject_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V686*/ meltfptr[685]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); - ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])))); + ((meltobject_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#512*/ - melt_assertmsg("putupl #512 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #512 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#489*/ + melt_assertmsg("putupl #489 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #489 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#513*/ - melt_assertmsg("putupl #513 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #513 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#490*/ + melt_assertmsg("putupl #490 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #490 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#514*/ - melt_assertmsg("putupl #514 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #514 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#491*/ + melt_assertmsg("putupl #491 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #491 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#515*/ - melt_assertmsg("putupl #515 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #515 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#492*/ + melt_assertmsg("putupl #492 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #492 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V687*/ meltfptr[686]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V715*/ meltfptr[714]); + meltgc_touch(/*_.VALTUP___V687*/ meltfptr[686]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); - ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V715*/ meltfptr[714]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])))); + ((meltobject_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V687*/ meltfptr[686]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])))); - ((meltobject_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V717*/ meltfptr[716]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687])))); + ((meltobject_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V689*/ meltfptr[688]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])))); - ((meltobject_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V713*/ meltfptr[712]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687])))); + ((meltobject_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V685*/ meltfptr[684]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V716*/ meltfptr[715]); + meltgc_touch(/*_.VALDATA___V688*/ meltfptr[687]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])))); - ((meltobject_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V719*/ meltfptr[718]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689])))); + ((meltobject_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V691*/ meltfptr[690]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717])))); - ((meltobject_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V713*/ meltfptr[712]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689])))); + ((meltobject_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V685*/ meltfptr[684]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V718*/ meltfptr[717]); + meltgc_touch(/*_.VALDATA___V690*/ meltfptr[689]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])))); - ((meltobject_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V721*/ meltfptr[720]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])))); + ((meltobject_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V693*/ meltfptr[692]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719])))); - ((meltobject_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V713*/ meltfptr[712]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691])))); + ((meltobject_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V685*/ meltfptr[684]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V720*/ meltfptr[719]); + meltgc_touch(/*_.VALDATA___V692*/ meltfptr[691]); - /*putupl#516*/ - melt_assertmsg("putupl #516 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #516 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#493*/ + melt_assertmsg("putupl #493 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #493 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#517*/ - melt_assertmsg("putupl #517 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #517 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#494*/ + melt_assertmsg("putupl #494 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #494 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#518*/ - melt_assertmsg("putupl #518 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #518 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]); + /*putupl#495*/ + melt_assertmsg("putupl #495 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #495 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V688*/ meltfptr[687]); - /*putupl#519*/ - melt_assertmsg("putupl #519 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #519 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V718*/ meltfptr[717]); + /*putupl#496*/ + melt_assertmsg("putupl #496 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #496 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V690*/ meltfptr[689]); - /*putupl#520*/ - melt_assertmsg("putupl #520 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #520 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V722*/ meltfptr[721]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V720*/ meltfptr[719]); + /*putupl#497*/ + melt_assertmsg("putupl #497 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #497 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V694*/ meltfptr[693]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V692*/ meltfptr[691]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V722*/ meltfptr[721]); + meltgc_touch(/*_.VALTUP___V694*/ meltfptr[693]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); - ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V722*/ meltfptr[721]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684])))); + ((meltobject_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V694*/ meltfptr[693]); - MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:546:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V713*/ meltfptr[712]); + meltgc_touch(/*_.VALDATA___V685*/ meltfptr[684]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])))); - ((meltobject_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V724*/ meltfptr[723]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])))); + ((meltobject_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V696*/ meltfptr[695]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V723*/ meltfptr[722]); + meltgc_touch(/*_.VALDATA___V695*/ meltfptr[694]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724])))); - ((meltobject_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V726*/ meltfptr[725]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])))); + ((meltobject_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V698*/ meltfptr[697]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V725*/ meltfptr[724]); + meltgc_touch(/*_.VALDATA___V697*/ meltfptr[696]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])))); - ((meltobject_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V728*/ meltfptr[727]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])))); + ((meltobject_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V700*/ meltfptr[699]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V727*/ meltfptr[726]); + meltgc_touch(/*_.VALDATA___V699*/ meltfptr[698]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V701*/ meltfptr[700])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])))); - ((meltobject_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V730*/ meltfptr[729]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V701*/ meltfptr[700])))); + ((meltobject_ptr_t)(/*_.VALDATA___V701*/ meltfptr[700]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V702*/ meltfptr[701]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V729*/ meltfptr[728]); + meltgc_touch(/*_.VALDATA___V701*/ meltfptr[700]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); - ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V732*/ meltfptr[731]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])))); + ((meltobject_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V704*/ meltfptr[703]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); - ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])))); + ((meltobject_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#521*/ - melt_assertmsg("putupl #521 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #521 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#498*/ + melt_assertmsg("putupl #498 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #498 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#522*/ - melt_assertmsg("putupl #522 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #522 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#499*/ + melt_assertmsg("putupl #499 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #499 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#523*/ - melt_assertmsg("putupl #523 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #523 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#500*/ + melt_assertmsg("putupl #500 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #500 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#524*/ - melt_assertmsg("putupl #524 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #524 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V733*/ meltfptr[732]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#501*/ + melt_assertmsg("putupl #501 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #501 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V705*/ meltfptr[704]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V733*/ meltfptr[732]); + meltgc_touch(/*_.VALTUP___V705*/ meltfptr[704]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); - ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V733*/ meltfptr[732]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])))); + ((meltobject_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V705*/ meltfptr[704]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); - ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V735*/ meltfptr[734]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V707*/ meltfptr[706]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733])))); - ((meltobject_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V731*/ meltfptr[730]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705])))); + ((meltobject_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V703*/ meltfptr[702]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V734*/ meltfptr[733]); + meltgc_touch(/*_.VALDATA___V706*/ meltfptr[705]); - /*putupl#525*/ - melt_assertmsg("putupl #525 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #525 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#502*/ + melt_assertmsg("putupl #502 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #502 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#526*/ - melt_assertmsg("putupl #526 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #526 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#503*/ + melt_assertmsg("putupl #503 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #503 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#527*/ - melt_assertmsg("putupl #527 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #527 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V736*/ meltfptr[735]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); + /*putupl#504*/ + melt_assertmsg("putupl #504 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #504 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V708*/ meltfptr[707]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V736*/ meltfptr[735]); + meltgc_touch(/*_.VALTUP___V708*/ meltfptr[707]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); - ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V736*/ meltfptr[735]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702])))); + ((meltobject_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V708*/ meltfptr[707]); - MELT_LOCATION("warmelt-macro.melt:579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:558:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V731*/ meltfptr[730]); + meltgc_touch(/*_.VALDATA___V703*/ meltfptr[702]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])))); - ((meltobject_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V738*/ meltfptr[737]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])))); + ((meltobject_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V710*/ meltfptr[709]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V737*/ meltfptr[736]); + meltgc_touch(/*_.VALDATA___V709*/ meltfptr[708]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])))); - ((meltobject_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V740*/ meltfptr[739]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])))); + ((meltobject_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V712*/ meltfptr[711]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V739*/ meltfptr[738]); + meltgc_touch(/*_.VALDATA___V711*/ meltfptr[710]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); - ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V742*/ meltfptr[741]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); + ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V714*/ meltfptr[713]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); - ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V731*/ meltfptr[730]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); + ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V703*/ meltfptr[702]); - /*putupl#528*/ - melt_assertmsg("putupl #528 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #528 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#505*/ + melt_assertmsg("putupl #505 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #505 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#529*/ - melt_assertmsg("putupl #529 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #529 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#506*/ + melt_assertmsg("putupl #506 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #506 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#530*/ - melt_assertmsg("putupl #530 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #530 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#507*/ + melt_assertmsg("putupl #507 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #507 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#531*/ - melt_assertmsg("putupl #531 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #531 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#508*/ + melt_assertmsg("putupl #508 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #508 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#532*/ - melt_assertmsg("putupl #532 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #532 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V743*/ meltfptr[742]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]); + /*putupl#509*/ + melt_assertmsg("putupl #509 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #509 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V715*/ meltfptr[714]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V743*/ meltfptr[742]); + meltgc_touch(/*_.VALTUP___V715*/ meltfptr[714]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); - ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V743*/ meltfptr[742]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); + ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V715*/ meltfptr[714]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743])))); - ((meltobject_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V745*/ meltfptr[744]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])))); + ((meltobject_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V717*/ meltfptr[716]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743])))); - ((meltobject_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V741*/ meltfptr[740]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715])))); + ((meltobject_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V713*/ meltfptr[712]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V744*/ meltfptr[743]); + meltgc_touch(/*_.VALDATA___V716*/ meltfptr[715]); - /*putupl#533*/ - melt_assertmsg("putupl #533 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #533 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#510*/ + melt_assertmsg("putupl #510 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #510 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#534*/ - melt_assertmsg("putupl #534 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #534 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#511*/ + melt_assertmsg("putupl #511 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #511 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#535*/ - melt_assertmsg("putupl #535 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #535 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); + /*putupl#512*/ + melt_assertmsg("putupl #512 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #512 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); - /*putupl#536*/ - melt_assertmsg("putupl #536 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #536 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V746*/ meltfptr[745]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V744*/ meltfptr[743]); + /*putupl#513*/ + melt_assertmsg("putupl #513 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #513 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V718*/ meltfptr[717]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V716*/ meltfptr[715]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V746*/ meltfptr[745]); + meltgc_touch(/*_.VALTUP___V718*/ meltfptr[717]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); - ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V746*/ meltfptr[745]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712])))); + ((meltobject_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V718*/ meltfptr[717]); - MELT_LOCATION("warmelt-macro.melt:588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:567:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V741*/ meltfptr[740]); + meltgc_touch(/*_.VALDATA___V713*/ meltfptr[712]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V719*/ meltfptr[718])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); - ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V748*/ meltfptr[747]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V719*/ meltfptr[718])))); + ((meltobject_ptr_t)(/*_.VALDATA___V719*/ meltfptr[718]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V720*/ meltfptr[719]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V747*/ meltfptr[746]); + meltgc_touch(/*_.VALDATA___V719*/ meltfptr[718]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V721*/ meltfptr[720])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])))); - ((meltobject_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V750*/ meltfptr[749]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V721*/ meltfptr[720])))); + ((meltobject_ptr_t)(/*_.VALDATA___V721*/ meltfptr[720]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V722*/ meltfptr[721]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V749*/ meltfptr[748]); + meltgc_touch(/*_.VALDATA___V721*/ meltfptr[720]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])))); - ((meltobject_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V752*/ meltfptr[751]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])))); + ((meltobject_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V724*/ meltfptr[723]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])))); - ((meltobject_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V731*/ meltfptr[730]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])))); + ((meltobject_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V703*/ meltfptr[702]); - /*putupl#537*/ - melt_assertmsg("putupl #537 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #537 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#514*/ + melt_assertmsg("putupl #514 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #514 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#538*/ - melt_assertmsg("putupl #538 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #538 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#515*/ + melt_assertmsg("putupl #515 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #515 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#539*/ - melt_assertmsg("putupl #539 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #539 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#516*/ + melt_assertmsg("putupl #516 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #516 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#540*/ - melt_assertmsg("putupl #540 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #540 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#517*/ + melt_assertmsg("putupl #517 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #517 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#541*/ - melt_assertmsg("putupl #541 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #541 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V753*/ meltfptr[752]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]); + /*putupl#518*/ + melt_assertmsg("putupl #518 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #518 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V725*/ meltfptr[724]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V703*/ meltfptr[702]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V753*/ meltfptr[752]); + meltgc_touch(/*_.VALTUP___V725*/ meltfptr[724]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])))); - ((meltobject_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V753*/ meltfptr[752]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])))); + ((meltobject_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V725*/ meltfptr[724]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])))); - ((meltobject_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V755*/ meltfptr[754]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])))); + ((meltobject_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V727*/ meltfptr[726]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753])))); - ((meltobject_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V751*/ meltfptr[750]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725])))); + ((meltobject_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V723*/ meltfptr[722]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V754*/ meltfptr[753]); + meltgc_touch(/*_.VALDATA___V726*/ meltfptr[725]); - /*putupl#542*/ - melt_assertmsg("putupl #542 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #542 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#519*/ + melt_assertmsg("putupl #519 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #519 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#543*/ - melt_assertmsg("putupl #543 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #543 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#520*/ + melt_assertmsg("putupl #520 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #520 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#544*/ - melt_assertmsg("putupl #544 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #544 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V734*/ meltfptr[733]); + /*putupl#521*/ + melt_assertmsg("putupl #521 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #521 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V706*/ meltfptr[705]); - /*putupl#545*/ - melt_assertmsg("putupl #545 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #545 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V756*/ meltfptr[755]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V754*/ meltfptr[753]); + /*putupl#522*/ + melt_assertmsg("putupl #522 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #522 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V728*/ meltfptr[727]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V726*/ meltfptr[725]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V756*/ meltfptr[755]); + meltgc_touch(/*_.VALTUP___V728*/ meltfptr[727]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750])))); - ((meltobject_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V756*/ meltfptr[755]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])))); + ((meltobject_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V728*/ meltfptr[727]); - MELT_LOCATION("warmelt-macro.melt:596:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:575:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V751*/ meltfptr[750]); + meltgc_touch(/*_.VALDATA___V723*/ meltfptr[722]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])))); - ((meltobject_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V758*/ meltfptr[757]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])))); + ((meltobject_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V730*/ meltfptr[729]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V757*/ meltfptr[756]); + meltgc_touch(/*_.VALDATA___V729*/ meltfptr[728]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])))); - ((meltobject_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V760*/ meltfptr[759]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])))); + ((meltobject_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V732*/ meltfptr[731]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V759*/ meltfptr[758]); + meltgc_touch(/*_.VALDATA___V731*/ meltfptr[730]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); - ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V762*/ meltfptr[761]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])))); + ((meltobject_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V734*/ meltfptr[733]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); - ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])))); + ((meltobject_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#546*/ - melt_assertmsg("putupl #546 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #546 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#523*/ + melt_assertmsg("putupl #523 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #523 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#547*/ - melt_assertmsg("putupl #547 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #547 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#524*/ + melt_assertmsg("putupl #524 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #524 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#548*/ - melt_assertmsg("putupl #548 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #548 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#525*/ + melt_assertmsg("putupl #525 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #525 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#549*/ - melt_assertmsg("putupl #549 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #549 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V763*/ meltfptr[762]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#526*/ + melt_assertmsg("putupl #526 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #526 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V735*/ meltfptr[734]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V763*/ meltfptr[762]); + meltgc_touch(/*_.VALTUP___V735*/ meltfptr[734]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); - ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V763*/ meltfptr[762]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])))); + ((meltobject_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V735*/ meltfptr[734]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])))); - ((meltobject_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V765*/ meltfptr[764]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735])))); + ((meltobject_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V737*/ meltfptr[736]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763])))); - ((meltobject_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V761*/ meltfptr[760]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735])))); + ((meltobject_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V733*/ meltfptr[732]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V764*/ meltfptr[763]); + meltgc_touch(/*_.VALDATA___V736*/ meltfptr[735]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); - ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V767*/ meltfptr[766]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])))); + ((meltobject_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V739*/ meltfptr[738]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); - ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V761*/ meltfptr[760]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737])))); + ((meltobject_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V733*/ meltfptr[732]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V766*/ meltfptr[765]); + meltgc_touch(/*_.VALDATA___V738*/ meltfptr[737]); - /*putupl#550*/ - melt_assertmsg("putupl #550 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #550 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#527*/ + melt_assertmsg("putupl #527 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #527 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#551*/ - melt_assertmsg("putupl #551 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #551 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#528*/ + melt_assertmsg("putupl #528 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #528 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#552*/ - melt_assertmsg("putupl #552 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #552 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V764*/ meltfptr[763]); + /*putupl#529*/ + melt_assertmsg("putupl #529 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #529 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V736*/ meltfptr[735]); - /*putupl#553*/ - melt_assertmsg("putupl #553 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #553 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]); + /*putupl#530*/ + melt_assertmsg("putupl #530 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #530 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V740*/ meltfptr[739]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V738*/ meltfptr[737]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V768*/ meltfptr[767]); + meltgc_touch(/*_.VALTUP___V740*/ meltfptr[739]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); - ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V768*/ meltfptr[767]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732])))); + ((meltobject_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V740*/ meltfptr[739]); - MELT_LOCATION("warmelt-macro.melt:605:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:584:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V761*/ meltfptr[760]); + meltgc_touch(/*_.VALDATA___V733*/ meltfptr[732]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])))); - ((meltobject_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V770*/ meltfptr[769]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])))); + ((meltobject_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V742*/ meltfptr[741]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V769*/ meltfptr[768]); + meltgc_touch(/*_.VALDATA___V741*/ meltfptr[740]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])))); - ((meltobject_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V772*/ meltfptr[771]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])))); + ((meltobject_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V744*/ meltfptr[743]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V771*/ meltfptr[770]); + meltgc_touch(/*_.VALDATA___V743*/ meltfptr[742]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); - ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V774*/ meltfptr[773]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])))); + ((meltobject_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V746*/ meltfptr[745]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V773*/ meltfptr[772]); + meltgc_touch(/*_.VALDATA___V745*/ meltfptr[744]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])))); - ((meltobject_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V776*/ meltfptr[775]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); + ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V748*/ meltfptr[747]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])))); - ((meltobject_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); + ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#554*/ - melt_assertmsg("putupl #554 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #554 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#531*/ + melt_assertmsg("putupl #531 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #531 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#555*/ - melt_assertmsg("putupl #555 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #555 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#532*/ + melt_assertmsg("putupl #532 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #532 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#556*/ - melt_assertmsg("putupl #556 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #556 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#533*/ + melt_assertmsg("putupl #533 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #533 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#557*/ - melt_assertmsg("putupl #557 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #557 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V777*/ meltfptr[776]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#534*/ + melt_assertmsg("putupl #534 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #534 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V749*/ meltfptr[748]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V777*/ meltfptr[776]); + meltgc_touch(/*_.VALTUP___V749*/ meltfptr[748]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])))); - ((meltobject_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V777*/ meltfptr[776]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); + ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V749*/ meltfptr[748]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777])))); - ((meltobject_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V779*/ meltfptr[778]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])))); + ((meltobject_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V751*/ meltfptr[750]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777])))); - ((meltobject_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V775*/ meltfptr[774]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749])))); + ((meltobject_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V747*/ meltfptr[746]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V778*/ meltfptr[777]); + meltgc_touch(/*_.VALDATA___V750*/ meltfptr[749]); - /*putupl#558*/ - melt_assertmsg("putupl #558 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #558 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#535*/ + melt_assertmsg("putupl #535 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #535 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#559*/ - melt_assertmsg("putupl #559 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #559 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#536*/ + melt_assertmsg("putupl #536 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #536 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#560*/ - melt_assertmsg("putupl #560 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #560 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V780*/ meltfptr[779]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V778*/ meltfptr[777]); + /*putupl#537*/ + melt_assertmsg("putupl #537 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #537 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V752*/ meltfptr[751]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V750*/ meltfptr[749]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V780*/ meltfptr[779]); + meltgc_touch(/*_.VALTUP___V752*/ meltfptr[751]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774])))); - ((meltobject_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V780*/ meltfptr[779]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])))); + ((meltobject_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V752*/ meltfptr[751]); - MELT_LOCATION("warmelt-macro.melt:612:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:591:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V775*/ meltfptr[774]); + meltgc_touch(/*_.VALDATA___V747*/ meltfptr[746]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])))); - ((meltobject_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V782*/ meltfptr[781]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752])))); + ((meltobject_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V754*/ meltfptr[753]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V781*/ meltfptr[780]); + meltgc_touch(/*_.VALDATA___V753*/ meltfptr[752]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); - ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V784*/ meltfptr[783]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754])))); + ((meltobject_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V756*/ meltfptr[755]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V783*/ meltfptr[782]); + meltgc_touch(/*_.VALDATA___V755*/ meltfptr[754]); - MELT_LOCATION("warmelt-macro.melt:620:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:599:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])))); - ((meltobject_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V786*/ meltfptr[785]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])))); + ((meltobject_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V758*/ meltfptr[757]); - MELT_LOCATION("warmelt-macro.melt:620:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:599:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])))); - ((meltobject_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])))); + ((meltobject_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#561*/ - melt_assertmsg("putupl #561 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #561 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#538*/ + melt_assertmsg("putupl #538 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #538 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#562*/ - melt_assertmsg("putupl #562 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #562 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#539*/ + melt_assertmsg("putupl #539 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #539 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#563*/ - melt_assertmsg("putupl #563 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #563 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#540*/ + melt_assertmsg("putupl #540 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #540 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#564*/ - melt_assertmsg("putupl #564 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #564 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V787*/ meltfptr[786]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#541*/ + melt_assertmsg("putupl #541 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #541 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V759*/ meltfptr[758]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V787*/ meltfptr[786]); + meltgc_touch(/*_.VALTUP___V759*/ meltfptr[758]); - -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_5*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_6 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:620:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:599:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])))); - ((meltobject_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V787*/ meltfptr[786]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])))); + ((meltobject_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V759*/ meltfptr[758]); - /*putupl#565*/ - melt_assertmsg("putupl #565 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #565 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#542*/ + melt_assertmsg("putupl #542 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #542 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#566*/ - melt_assertmsg("putupl #566 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #566 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V788*/ meltfptr[787]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#543*/ + melt_assertmsg("putupl #543 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #543 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V760*/ meltfptr[759]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V788*/ meltfptr[787]); + meltgc_touch(/*_.VALTUP___V760*/ meltfptr[759]); - MELT_LOCATION("warmelt-macro.melt:620:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:599:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784])))); - ((meltobject_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V788*/ meltfptr[787]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])))); + ((meltobject_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V760*/ meltfptr[759]); - MELT_LOCATION("warmelt-macro.melt:620:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:599:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V785*/ meltfptr[784]); + meltgc_touch(/*_.VALDATA___V757*/ meltfptr[756]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])))); - ((meltobject_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V790*/ meltfptr[789]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])))); + ((meltobject_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V762*/ meltfptr[761]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V789*/ meltfptr[788]); + meltgc_touch(/*_.VALDATA___V761*/ meltfptr[760]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); - ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V792*/ meltfptr[791]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])))); + ((meltobject_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V764*/ meltfptr[763]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); - ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])))); + ((meltobject_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#567*/ - melt_assertmsg("putupl #567 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #567 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#544*/ + melt_assertmsg("putupl #544 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #544 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#568*/ - melt_assertmsg("putupl #568 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #568 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#545*/ + melt_assertmsg("putupl #545 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #545 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#569*/ - melt_assertmsg("putupl #569 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #569 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#546*/ + melt_assertmsg("putupl #546 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #546 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#570*/ - melt_assertmsg("putupl #570 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #570 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V793*/ meltfptr[792]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#547*/ + melt_assertmsg("putupl #547 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #547 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V765*/ meltfptr[764]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V793*/ meltfptr[792]); + meltgc_touch(/*_.VALTUP___V765*/ meltfptr[764]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); - ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V793*/ meltfptr[792]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])))); + ((meltobject_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V765*/ meltfptr[764]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); - ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V795*/ meltfptr[794]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V767*/ meltfptr[766]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793])))); - ((meltobject_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V791*/ meltfptr[790]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765])))); + ((meltobject_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V763*/ meltfptr[762]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V794*/ meltfptr[793]); + meltgc_touch(/*_.VALDATA___V766*/ meltfptr[765]); - /*putupl#571*/ - melt_assertmsg("putupl #571 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #571 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#548*/ + melt_assertmsg("putupl #548 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #548 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#572*/ - melt_assertmsg("putupl #572 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #572 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#549*/ + melt_assertmsg("putupl #549 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #549 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#573*/ - melt_assertmsg("putupl #573 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #573 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V796*/ meltfptr[795]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V794*/ meltfptr[793]); + /*putupl#550*/ + melt_assertmsg("putupl #550 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #550 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V768*/ meltfptr[767]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V766*/ meltfptr[765]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V796*/ meltfptr[795]); + meltgc_touch(/*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); - ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V796*/ meltfptr[795]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762])))); + ((meltobject_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION("warmelt-macro.melt:628:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:607:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V791*/ meltfptr[790]); + meltgc_touch(/*_.VALDATA___V763*/ meltfptr[762]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); - ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V798*/ meltfptr[797]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])))); + ((meltobject_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V770*/ meltfptr[769]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V797*/ meltfptr[796]); + meltgc_touch(/*_.VALDATA___V769*/ meltfptr[768]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])))); - ((meltobject_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V800*/ meltfptr[799]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])))); + ((meltobject_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V772*/ meltfptr[771]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V799*/ meltfptr[798]); + meltgc_touch(/*_.VALDATA___V771*/ meltfptr[770]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])))); - ((meltobject_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V802*/ meltfptr[801]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); + ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V774*/ meltfptr[773]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])))); - ((meltobject_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); + ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#574*/ - melt_assertmsg("putupl #574 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #574 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#551*/ + melt_assertmsg("putupl #551 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #551 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#575*/ - melt_assertmsg("putupl #575 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #575 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#552*/ + melt_assertmsg("putupl #552 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #552 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#576*/ - melt_assertmsg("putupl #576 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #576 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#553*/ + melt_assertmsg("putupl #553 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #553 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#577*/ - melt_assertmsg("putupl #577 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #577 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V803*/ meltfptr[802]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#554*/ + melt_assertmsg("putupl #554 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #554 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V775*/ meltfptr[774]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V803*/ meltfptr[802]); + meltgc_touch(/*_.VALTUP___V775*/ meltfptr[774]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])))); - ((meltobject_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V803*/ meltfptr[802]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); + ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V775*/ meltfptr[774]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])))); - ((meltobject_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V805*/ meltfptr[804]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V777*/ meltfptr[776]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803])))); - ((meltobject_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V801*/ meltfptr[800]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775])))); + ((meltobject_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V773*/ meltfptr[772]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V804*/ meltfptr[803]); + meltgc_touch(/*_.VALDATA___V776*/ meltfptr[775]); - /*putupl#578*/ - melt_assertmsg("putupl #578 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #578 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#555*/ + melt_assertmsg("putupl #555 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #555 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#579*/ - melt_assertmsg("putupl #579 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #579 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#556*/ + melt_assertmsg("putupl #556 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #556 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#580*/ - melt_assertmsg("putupl #580 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #580 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V806*/ meltfptr[805]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V804*/ meltfptr[803]); + /*putupl#557*/ + melt_assertmsg("putupl #557 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #557 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V778*/ meltfptr[777]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V776*/ meltfptr[775]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V806*/ meltfptr[805]); + meltgc_touch(/*_.VALTUP___V778*/ meltfptr[777]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800])))); - ((meltobject_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V806*/ meltfptr[805]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])))); + ((meltobject_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V778*/ meltfptr[777]); - MELT_LOCATION("warmelt-macro.melt:637:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:616:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V801*/ meltfptr[800]); + meltgc_touch(/*_.VALDATA___V773*/ meltfptr[772]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])))); - ((meltobject_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V808*/ meltfptr[807]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])))); + ((meltobject_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V780*/ meltfptr[779]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V807*/ meltfptr[806]); + meltgc_touch(/*_.VALDATA___V779*/ meltfptr[778]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])))); - ((meltobject_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V810*/ meltfptr[809]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])))); + ((meltobject_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V782*/ meltfptr[781]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V809*/ meltfptr[808]); + meltgc_touch(/*_.VALDATA___V781*/ meltfptr[780]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); - ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V812*/ meltfptr[811]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V784*/ meltfptr[783]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); - ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#581*/ - melt_assertmsg("putupl #581 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #581 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#558*/ + melt_assertmsg("putupl #558 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #558 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#582*/ - melt_assertmsg("putupl #582 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #582 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#559*/ + melt_assertmsg("putupl #559 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #559 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#583*/ - melt_assertmsg("putupl #583 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #583 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#560*/ + melt_assertmsg("putupl #560 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #560 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#584*/ - melt_assertmsg("putupl #584 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #584 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#561*/ + melt_assertmsg("putupl #561 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #561 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V785*/ meltfptr[784]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V813*/ meltfptr[812]); + meltgc_touch(/*_.VALTUP___V785*/ meltfptr[784]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); - ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V813*/ meltfptr[812]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V785*/ meltfptr[784]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); - ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V815*/ meltfptr[814]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])))); + ((meltobject_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V787*/ meltfptr[786]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); - ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V811*/ meltfptr[810]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785])))); + ((meltobject_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V783*/ meltfptr[782]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V814*/ meltfptr[813]); + meltgc_touch(/*_.VALDATA___V786*/ meltfptr[785]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_5*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_6 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815])))); - ((meltobject_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V817*/ meltfptr[816]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])))); + ((meltobject_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V789*/ meltfptr[788]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815])))); - ((meltobject_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V811*/ meltfptr[810]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787])))); + ((meltobject_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V783*/ meltfptr[782]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V816*/ meltfptr[815]); + meltgc_touch(/*_.VALDATA___V788*/ meltfptr[787]); - /*putupl#585*/ - melt_assertmsg("putupl #585 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #585 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#562*/ + melt_assertmsg("putupl #562 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #562 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#586*/ - melt_assertmsg("putupl #586 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #586 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#563*/ + melt_assertmsg("putupl #563 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #563 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#587*/ - melt_assertmsg("putupl #587 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #587 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); + /*putupl#564*/ + melt_assertmsg("putupl #564 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #564 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V786*/ meltfptr[785]); - /*putupl#588*/ - melt_assertmsg("putupl #588 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #588 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ meltfptr[817]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V816*/ meltfptr[815]); + /*putupl#565*/ + melt_assertmsg("putupl #565 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #565 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V790*/ meltfptr[789]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V788*/ meltfptr[787]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V818*/ meltfptr[817]); + meltgc_touch(/*_.VALTUP___V790*/ meltfptr[789]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); - ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V818*/ meltfptr[817]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])))); + ((meltobject_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V790*/ meltfptr[789]); - MELT_LOCATION("warmelt-macro.melt:643:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:622:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V811*/ meltfptr[810]); + meltgc_touch(/*_.VALDATA___V783*/ meltfptr[782]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])))); - ((meltobject_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V820*/ meltfptr[819]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])))); + ((meltobject_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V792*/ meltfptr[791]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V819*/ meltfptr[818]); + meltgc_touch(/*_.VALDATA___V791*/ meltfptr[790]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V793*/ meltfptr[792])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])))); - ((meltobject_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V822*/ meltfptr[821]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V793*/ meltfptr[792])))); + ((meltobject_ptr_t)(/*_.VALDATA___V793*/ meltfptr[792]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V794*/ meltfptr[793]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V821*/ meltfptr[820]); + meltgc_touch(/*_.VALDATA___V793*/ meltfptr[792]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V823*/ meltfptr[822])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V795*/ meltfptr[794])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V823*/ meltfptr[822])))); - ((meltobject_ptr_t)(/*_.VALDATA___V823*/ meltfptr[822]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V824*/ meltfptr[823]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V795*/ meltfptr[794])))); + ((meltobject_ptr_t)(/*_.VALDATA___V795*/ meltfptr[794]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V796*/ meltfptr[795]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V823*/ meltfptr[822]); + meltgc_touch(/*_.VALDATA___V795*/ meltfptr[794]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])))); - ((meltobject_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V826*/ meltfptr[825]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V798*/ meltfptr[797]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])))); - ((meltobject_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#589*/ - melt_assertmsg("putupl #589 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #589 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#566*/ + melt_assertmsg("putupl #566 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #566 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#590*/ - melt_assertmsg("putupl #590 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #590 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#567*/ + melt_assertmsg("putupl #567 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #567 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#591*/ - melt_assertmsg("putupl #591 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #591 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#568*/ + melt_assertmsg("putupl #568 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #568 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#592*/ - melt_assertmsg("putupl #592 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #592 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V827*/ meltfptr[826]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#569*/ + melt_assertmsg("putupl #569 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #569 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V799*/ meltfptr[798]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V827*/ meltfptr[826]); + meltgc_touch(/*_.VALTUP___V799*/ meltfptr[798]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])))); - ((meltobject_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V827*/ meltfptr[826]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V799*/ meltfptr[798]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827])))); - ((meltobject_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V829*/ meltfptr[828]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799])))); + ((meltobject_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V801*/ meltfptr[800]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827])))); - ((meltobject_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V825*/ meltfptr[824]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799])))); + ((meltobject_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V797*/ meltfptr[796]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V828*/ meltfptr[827]); + meltgc_touch(/*_.VALDATA___V800*/ meltfptr[799]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])))); - ((meltobject_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V831*/ meltfptr[830]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])))); + ((meltobject_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V803*/ meltfptr[802]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829])))); - ((meltobject_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V825*/ meltfptr[824]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801])))); + ((meltobject_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V797*/ meltfptr[796]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V830*/ meltfptr[829]); + meltgc_touch(/*_.VALDATA___V802*/ meltfptr[801]); - /*putupl#593*/ - melt_assertmsg("putupl #593 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #593 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#570*/ + melt_assertmsg("putupl #570 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #570 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#594*/ - melt_assertmsg("putupl #594 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #594 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#571*/ + melt_assertmsg("putupl #571 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #571 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#595*/ - melt_assertmsg("putupl #595 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #595 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V828*/ meltfptr[827]); + /*putupl#572*/ + melt_assertmsg("putupl #572 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #572 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V800*/ meltfptr[799]); - /*putupl#596*/ - melt_assertmsg("putupl #596 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #596 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V832*/ meltfptr[831]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V830*/ meltfptr[829]); + /*putupl#573*/ + melt_assertmsg("putupl #573 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #573 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V804*/ meltfptr[803]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V802*/ meltfptr[801]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V832*/ meltfptr[831]); + meltgc_touch(/*_.VALTUP___V804*/ meltfptr[803]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824])))); - ((meltobject_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V832*/ meltfptr[831]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])))); + ((meltobject_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V804*/ meltfptr[803]); - MELT_LOCATION("warmelt-macro.melt:651:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:630:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V825*/ meltfptr[824]); + meltgc_touch(/*_.VALDATA___V797*/ meltfptr[796]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V805*/ meltfptr[804])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832])))); - ((meltobject_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V834*/ meltfptr[833]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V805*/ meltfptr[804])))); + ((meltobject_ptr_t)(/*_.VALDATA___V805*/ meltfptr[804]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V806*/ meltfptr[805]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V833*/ meltfptr[832]); + meltgc_touch(/*_.VALDATA___V805*/ meltfptr[804]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834])))); - ((meltobject_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V836*/ meltfptr[835]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])))); + ((meltobject_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V808*/ meltfptr[807]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V835*/ meltfptr[834]); + meltgc_touch(/*_.VALDATA___V807*/ meltfptr[806]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])))); - ((meltobject_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V838*/ meltfptr[837]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])))); + ((meltobject_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V810*/ meltfptr[809]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V837*/ meltfptr[836]); + meltgc_touch(/*_.VALDATA___V809*/ meltfptr[808]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); - ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V840*/ meltfptr[839]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V812*/ meltfptr[811]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); - ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#597*/ - melt_assertmsg("putupl #597 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #597 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#574*/ + melt_assertmsg("putupl #574 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #574 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#598*/ - melt_assertmsg("putupl #598 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #598 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#575*/ + melt_assertmsg("putupl #575 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #575 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#599*/ - melt_assertmsg("putupl #599 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #599 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#576*/ + melt_assertmsg("putupl #576 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #576 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#600*/ - melt_assertmsg("putupl #600 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #600 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V841*/ meltfptr[840]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#577*/ + melt_assertmsg("putupl #577 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #577 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V813*/ meltfptr[812]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V841*/ meltfptr[840]); + meltgc_touch(/*_.VALTUP___V813*/ meltfptr[812]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); - ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V841*/ meltfptr[840]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V813*/ meltfptr[812]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])))); - ((meltobject_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V843*/ meltfptr[842]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); + ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V815*/ meltfptr[814]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841])))); - ((meltobject_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813])))); + ((meltobject_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V842*/ meltfptr[841]); + meltgc_touch(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#601*/ - melt_assertmsg("putupl #601 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #601 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#578*/ + melt_assertmsg("putupl #578 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #578 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#602*/ - melt_assertmsg("putupl #602 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #602 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#579*/ + melt_assertmsg("putupl #579 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #579 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#603*/ - melt_assertmsg("putupl #603 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #603 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V844*/ meltfptr[843]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#580*/ + melt_assertmsg("putupl #580 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #580 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V816*/ meltfptr[815]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V844*/ meltfptr[843]); + meltgc_touch(/*_.VALTUP___V816*/ meltfptr[815]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); - ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V844*/ meltfptr[843]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810])))); + ((meltobject_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V816*/ meltfptr[815]); - MELT_LOCATION("warmelt-macro.melt:659:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:638:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V839*/ meltfptr[838]); + meltgc_touch(/*_.VALDATA___V811*/ meltfptr[810]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V845*/ meltfptr[844])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V845*/ meltfptr[844])))); - ((meltobject_ptr_t)(/*_.VALDATA___V845*/ meltfptr[844]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V846*/ meltfptr[845]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])))); + ((meltobject_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V818*/ meltfptr[817]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V845*/ meltfptr[844]); + meltgc_touch(/*_.VALDATA___V817*/ meltfptr[816]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])))); - ((meltobject_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V848*/ meltfptr[847]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])))); + ((meltobject_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V820*/ meltfptr[819]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V847*/ meltfptr[846]); + meltgc_touch(/*_.VALDATA___V819*/ meltfptr[818]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V850*/ meltfptr[849]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])))); + ((meltobject_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V822*/ meltfptr[821]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])))); + ((meltobject_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#604*/ - melt_assertmsg("putupl #604 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #604 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#581*/ + melt_assertmsg("putupl #581 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #581 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#605*/ - melt_assertmsg("putupl #605 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #605 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#582*/ + melt_assertmsg("putupl #582 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #582 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#606*/ - melt_assertmsg("putupl #606 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #606 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#583*/ + melt_assertmsg("putupl #583 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #583 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#607*/ - melt_assertmsg("putupl #607 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #607 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#584*/ + melt_assertmsg("putupl #584 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #584 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#608*/ - melt_assertmsg("putupl #608 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #608 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V851*/ meltfptr[850]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#585*/ + melt_assertmsg("putupl #585 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #585 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V823*/ meltfptr[822]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V851*/ meltfptr[850]); + meltgc_touch(/*_.VALTUP___V823*/ meltfptr[822]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V851*/ meltfptr[850]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])))); + ((meltobject_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V823*/ meltfptr[822]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); - ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V853*/ meltfptr[852]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])))); + ((meltobject_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V825*/ meltfptr[824]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851])))); - ((meltobject_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V849*/ meltfptr[848]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823])))); + ((meltobject_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V821*/ meltfptr[820]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V852*/ meltfptr[851]); + meltgc_touch(/*_.VALDATA___V824*/ meltfptr[823]); - /*putupl#609*/ - melt_assertmsg("putupl #609 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #609 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#586*/ + melt_assertmsg("putupl #586 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #586 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#610*/ - melt_assertmsg("putupl #610 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #610 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#587*/ + melt_assertmsg("putupl #587 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #587 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#611*/ - melt_assertmsg("putupl #611 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #611 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#588*/ + melt_assertmsg("putupl #588 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #588 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#612*/ - melt_assertmsg("putupl #612 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #612 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V854*/ meltfptr[853]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V852*/ meltfptr[851]); + /*putupl#589*/ + melt_assertmsg("putupl #589 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #589 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V826*/ meltfptr[825]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V824*/ meltfptr[823]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V854*/ meltfptr[853]); + meltgc_touch(/*_.VALTUP___V826*/ meltfptr[825]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); - ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V854*/ meltfptr[853]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])))); + ((meltobject_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V826*/ meltfptr[825]); - MELT_LOCATION("warmelt-macro.melt:668:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:647:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V849*/ meltfptr[848]); + meltgc_touch(/*_.VALDATA___V821*/ meltfptr[820]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); - ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V856*/ meltfptr[855]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])))); + ((meltobject_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V828*/ meltfptr[827]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V855*/ meltfptr[854]); + meltgc_touch(/*_.VALDATA___V827*/ meltfptr[826]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V857*/ meltfptr[856])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V857*/ meltfptr[856])))); - ((meltobject_ptr_t)(/*_.VALDATA___V857*/ meltfptr[856]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V858*/ meltfptr[857]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])))); + ((meltobject_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V830*/ meltfptr[829]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V857*/ meltfptr[856]); + meltgc_touch(/*_.VALDATA___V829*/ meltfptr[828]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])))); - ((meltobject_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V860*/ meltfptr[859]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])))); + ((meltobject_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V832*/ meltfptr[831]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])))); - ((meltobject_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])))); + ((meltobject_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#613*/ - melt_assertmsg("putupl #613 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #613 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#590*/ + melt_assertmsg("putupl #590 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #590 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#614*/ - melt_assertmsg("putupl #614 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #614 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#591*/ + melt_assertmsg("putupl #591 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #591 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#615*/ - melt_assertmsg("putupl #615 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #615 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#592*/ + melt_assertmsg("putupl #592 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #592 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#616*/ - melt_assertmsg("putupl #616 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #616 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#593*/ + melt_assertmsg("putupl #593 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #593 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#617*/ - melt_assertmsg("putupl #617 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #617 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V861*/ meltfptr[860]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#594*/ + melt_assertmsg("putupl #594 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #594 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V833*/ meltfptr[832]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V861*/ meltfptr[860]); + meltgc_touch(/*_.VALTUP___V833*/ meltfptr[832]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])))); - ((meltobject_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V861*/ meltfptr[860]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])))); + ((meltobject_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V833*/ meltfptr[832]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861])))); - ((meltobject_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V863*/ meltfptr[862]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])))); + ((meltobject_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V835*/ meltfptr[834]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861])))); - ((meltobject_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V859*/ meltfptr[858]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833])))); + ((meltobject_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V831*/ meltfptr[830]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V862*/ meltfptr[861]); + meltgc_touch(/*_.VALDATA___V834*/ meltfptr[833]); - /*putupl#618*/ - melt_assertmsg("putupl #618 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #618 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#595*/ + melt_assertmsg("putupl #595 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #595 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#619*/ - melt_assertmsg("putupl #619 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #619 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#596*/ + melt_assertmsg("putupl #596 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #596 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#620*/ - melt_assertmsg("putupl #620 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #620 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#597*/ + melt_assertmsg("putupl #597 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #597 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#621*/ - melt_assertmsg("putupl #621 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #621 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ meltfptr[863]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V862*/ meltfptr[861]); + /*putupl#598*/ + melt_assertmsg("putupl #598 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #598 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V836*/ meltfptr[835]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V834*/ meltfptr[833]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V864*/ meltfptr[863]); + meltgc_touch(/*_.VALTUP___V836*/ meltfptr[835]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858])))); - ((meltobject_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V864*/ meltfptr[863]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830])))); + ((meltobject_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V836*/ meltfptr[835]); - MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:656:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V859*/ meltfptr[858]); + meltgc_touch(/*_.VALDATA___V831*/ meltfptr[830]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])))); - ((meltobject_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V866*/ meltfptr[865]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])))); + ((meltobject_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V838*/ meltfptr[837]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V865*/ meltfptr[864]); + meltgc_touch(/*_.VALDATA___V837*/ meltfptr[836]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])))); - ((meltobject_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V868*/ meltfptr[867]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])))); + ((meltobject_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V840*/ meltfptr[839]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V867*/ meltfptr[866]); + meltgc_touch(/*_.VALDATA___V839*/ meltfptr[838]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])))); - ((meltobject_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V870*/ meltfptr[869]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])))); + ((meltobject_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V842*/ meltfptr[841]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])))); - ((meltobject_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])))); + ((meltobject_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#622*/ - melt_assertmsg("putupl #622 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #622 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#599*/ + melt_assertmsg("putupl #599 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #599 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#623*/ - melt_assertmsg("putupl #623 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #623 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#600*/ + melt_assertmsg("putupl #600 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #600 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#624*/ - melt_assertmsg("putupl #624 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #624 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#601*/ + melt_assertmsg("putupl #601 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #601 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#625*/ - melt_assertmsg("putupl #625 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #625 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#602*/ + melt_assertmsg("putupl #602 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #602 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#626*/ - melt_assertmsg("putupl #626 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #626 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V871*/ meltfptr[870]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#603*/ + melt_assertmsg("putupl #603 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #603 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V843*/ meltfptr[842]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V871*/ meltfptr[870]); + meltgc_touch(/*_.VALTUP___V843*/ meltfptr[842]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])))); - ((meltobject_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V871*/ meltfptr[870]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])))); + ((meltobject_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V843*/ meltfptr[842]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871])))); - ((meltobject_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V873*/ meltfptr[872]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])))); + ((meltobject_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V845*/ meltfptr[844]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871])))); - ((meltobject_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V869*/ meltfptr[868]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843])))); + ((meltobject_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V841*/ meltfptr[840]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V872*/ meltfptr[871]); + meltgc_touch(/*_.VALDATA___V844*/ meltfptr[843]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873])))); - ((meltobject_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V875*/ meltfptr[874]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])))); + ((meltobject_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V847*/ meltfptr[846]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873])))); - ((meltobject_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V869*/ meltfptr[868]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845])))); + ((meltobject_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V841*/ meltfptr[840]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V874*/ meltfptr[873]); + meltgc_touch(/*_.VALDATA___V846*/ meltfptr[845]); - /*putupl#627*/ - melt_assertmsg("putupl #627 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #627 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#604*/ + melt_assertmsg("putupl #604 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #604 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#628*/ - melt_assertmsg("putupl #628 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #628 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#605*/ + melt_assertmsg("putupl #605 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #605 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#629*/ - melt_assertmsg("putupl #629 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #629 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#606*/ + melt_assertmsg("putupl #606 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #606 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#630*/ - melt_assertmsg("putupl #630 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #630 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V872*/ meltfptr[871]); + /*putupl#607*/ + melt_assertmsg("putupl #607 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #607 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V844*/ meltfptr[843]); - /*putupl#631*/ - melt_assertmsg("putupl #631 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #631 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V876*/ meltfptr[875]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V874*/ meltfptr[873]); + /*putupl#608*/ + melt_assertmsg("putupl #608 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #608 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V848*/ meltfptr[847]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V846*/ meltfptr[845]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V876*/ meltfptr[875]); + meltgc_touch(/*_.VALTUP___V848*/ meltfptr[847]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])))); - ((meltobject_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V876*/ meltfptr[875]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840])))); + ((meltobject_ptr_t)(/*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V848*/ meltfptr[847]); - MELT_LOCATION("warmelt-macro.melt:686:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:665:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V869*/ meltfptr[868]); + meltgc_touch(/*_.VALDATA___V841*/ meltfptr[840]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); - ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V878*/ meltfptr[877]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])))); + ((meltobject_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V850*/ meltfptr[849]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V877*/ meltfptr[876]); + meltgc_touch(/*_.VALDATA___V849*/ meltfptr[848]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878])))); - ((meltobject_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V880*/ meltfptr[879]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])))); + ((meltobject_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V852*/ meltfptr[851]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V879*/ meltfptr[878]); + meltgc_touch(/*_.VALDATA___V851*/ meltfptr[850]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880])))); - ((meltobject_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V882*/ meltfptr[881]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])))); + ((meltobject_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V854*/ meltfptr[853]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V881*/ meltfptr[880]); + meltgc_touch(/*_.VALDATA___V853*/ meltfptr[852]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])))); - ((meltobject_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V884*/ meltfptr[883]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); + ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V856*/ meltfptr[855]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])))); - ((meltobject_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); + ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#632*/ - melt_assertmsg("putupl #632 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #632 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#609*/ + melt_assertmsg("putupl #609 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #609 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#633*/ - melt_assertmsg("putupl #633 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #633 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#610*/ + melt_assertmsg("putupl #610 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #610 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#634*/ - melt_assertmsg("putupl #634 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #634 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#611*/ + melt_assertmsg("putupl #611 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #611 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#635*/ - melt_assertmsg("putupl #635 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #635 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#612*/ + melt_assertmsg("putupl #612 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #612 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#636*/ - melt_assertmsg("putupl #636 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #636 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V885*/ meltfptr[884]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#613*/ + melt_assertmsg("putupl #613 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #613 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V857*/ meltfptr[856]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V885*/ meltfptr[884]); + meltgc_touch(/*_.VALTUP___V857*/ meltfptr[856]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])))); - ((meltobject_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V885*/ meltfptr[884]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); + ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V857*/ meltfptr[856]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885])))); - ((meltobject_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V887*/ meltfptr[886]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])))); + ((meltobject_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V859*/ meltfptr[858]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885])))); - ((meltobject_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V883*/ meltfptr[882]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857])))); + ((meltobject_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V855*/ meltfptr[854]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V886*/ meltfptr[885]); + meltgc_touch(/*_.VALDATA___V858*/ meltfptr[857]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887])))); - ((meltobject_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V889*/ meltfptr[888]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])))); + ((meltobject_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V861*/ meltfptr[860]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887])))); - ((meltobject_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V883*/ meltfptr[882]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859])))); + ((meltobject_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V855*/ meltfptr[854]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V888*/ meltfptr[887]); + meltgc_touch(/*_.VALDATA___V860*/ meltfptr[859]); - /*putupl#637*/ - melt_assertmsg("putupl #637 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #637 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#614*/ + melt_assertmsg("putupl #614 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #614 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#638*/ - melt_assertmsg("putupl #638 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #638 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#615*/ + melt_assertmsg("putupl #615 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #615 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#639*/ - melt_assertmsg("putupl #639 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #639 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#616*/ + melt_assertmsg("putupl #616 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #616 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#640*/ - melt_assertmsg("putupl #640 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #640 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885]); + /*putupl#617*/ + melt_assertmsg("putupl #617 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #617 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]); - /*putupl#641*/ - melt_assertmsg("putupl #641 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #641 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V890*/ meltfptr[889]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887]); + /*putupl#618*/ + melt_assertmsg("putupl #618 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #618 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V862*/ meltfptr[861]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V890*/ meltfptr[889]); + meltgc_touch(/*_.VALTUP___V862*/ meltfptr[861]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])))); - ((meltobject_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V890*/ meltfptr[889]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])))); + ((meltobject_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V862*/ meltfptr[861]); - MELT_LOCATION("warmelt-macro.melt:698:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:677:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V883*/ meltfptr[882]); + meltgc_touch(/*_.VALDATA___V855*/ meltfptr[854]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V863*/ meltfptr[862])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890])))); - ((meltobject_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V892*/ meltfptr[891]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V863*/ meltfptr[862])))); + ((meltobject_ptr_t)(/*_.VALDATA___V863*/ meltfptr[862]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V864*/ meltfptr[863]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V891*/ meltfptr[890]); + meltgc_touch(/*_.VALDATA___V863*/ meltfptr[862]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])))); - ((meltobject_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V894*/ meltfptr[893]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])))); + ((meltobject_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V866*/ meltfptr[865]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V893*/ meltfptr[892]); + meltgc_touch(/*_.VALDATA___V865*/ meltfptr[864]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])))); - ((meltobject_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V896*/ meltfptr[895]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])))); + ((meltobject_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V868*/ meltfptr[867]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V895*/ meltfptr[894]); + meltgc_touch(/*_.VALDATA___V867*/ meltfptr[866]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); - ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V898*/ meltfptr[897]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])))); + ((meltobject_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V870*/ meltfptr[869]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V897*/ meltfptr[896]); + meltgc_touch(/*_.VALDATA___V869*/ meltfptr[868]); - MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:688:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])))); - ((meltobject_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V900*/ meltfptr[899]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])))); + ((meltobject_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V872*/ meltfptr[871]); - MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:688:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])))); - ((meltobject_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V883*/ meltfptr[882]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])))); + ((meltobject_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V855*/ meltfptr[854]); - /*putupl#642*/ - melt_assertmsg("putupl #642 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #642 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#619*/ + melt_assertmsg("putupl #619 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #619 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#643*/ - melt_assertmsg("putupl #643 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #643 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#620*/ + melt_assertmsg("putupl #620 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #620 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#644*/ - melt_assertmsg("putupl #644 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #644 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#621*/ + melt_assertmsg("putupl #621 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #621 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#645*/ - melt_assertmsg("putupl #645 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #645 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#622*/ + melt_assertmsg("putupl #622 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #622 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#646*/ - melt_assertmsg("putupl #646 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #646 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#623*/ + melt_assertmsg("putupl #623 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #623 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#647*/ - melt_assertmsg("putupl #647 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #647 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V901*/ meltfptr[900]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]); + /*putupl#624*/ + melt_assertmsg("putupl #624 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #624 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V873*/ meltfptr[872]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V901*/ meltfptr[900]); + meltgc_touch(/*_.VALTUP___V873*/ meltfptr[872]); - MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:688:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])))); - ((meltobject_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V901*/ meltfptr[900]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])))); + ((meltobject_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V873*/ meltfptr[872]); - /*putupl#648*/ - melt_assertmsg("putupl #648 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #648 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#625*/ + melt_assertmsg("putupl #625 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #625 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#649*/ - melt_assertmsg("putupl #649 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #649 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#626*/ + melt_assertmsg("putupl #626 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #626 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#650*/ - melt_assertmsg("putupl #650 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #650 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#627*/ + melt_assertmsg("putupl #627 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #627 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#651*/ - melt_assertmsg("putupl #651 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #651 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V886*/ meltfptr[885]); + /*putupl#628*/ + melt_assertmsg("putupl #628 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #628 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V858*/ meltfptr[857]); - /*putupl#652*/ - melt_assertmsg("putupl #652 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #652 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V902*/ meltfptr[901]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V888*/ meltfptr[887]); + /*putupl#629*/ + melt_assertmsg("putupl #629 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #629 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V874*/ meltfptr[873]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V860*/ meltfptr[859]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V902*/ meltfptr[901]); + meltgc_touch(/*_.VALTUP___V874*/ meltfptr[873]); - MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:688:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898])))); - ((meltobject_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V902*/ meltfptr[901]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870])))); + ((meltobject_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V874*/ meltfptr[873]); - MELT_LOCATION("warmelt-macro.melt:709:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:688:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V899*/ meltfptr[898]); + meltgc_touch(/*_.VALDATA___V871*/ meltfptr[870]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])))); - ((meltobject_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V904*/ meltfptr[903]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])))); + ((meltobject_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V876*/ meltfptr[875]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V903*/ meltfptr[902]); + meltgc_touch(/*_.VALDATA___V875*/ meltfptr[874]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])))); - ((meltobject_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V906*/ meltfptr[905]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V878*/ meltfptr[877]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])))); - ((meltobject_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); - /*putupl#653*/ - melt_assertmsg("putupl #653 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #653 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#654*/ - melt_assertmsg("putupl #654 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #654 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#630*/ + melt_assertmsg("putupl #630 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #630 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#655*/ - melt_assertmsg("putupl #655 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #655 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#631*/ + melt_assertmsg("putupl #631 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #631 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#632*/ + melt_assertmsg("putupl #632 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #632 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_6*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_7 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putupl#656*/ - melt_assertmsg("putupl #656 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #656 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#633*/ + melt_assertmsg("putupl #633 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #633 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#657*/ - melt_assertmsg("putupl #657 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #657 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V907*/ meltfptr[906]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#634*/ + melt_assertmsg("putupl #634 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #634 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V879*/ meltfptr[878]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V907*/ meltfptr[906]); + meltgc_touch(/*_.VALTUP___V879*/ meltfptr[878]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])))); - ((meltobject_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V907*/ meltfptr[906]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V879*/ meltfptr[878]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907])))); - ((meltobject_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V909*/ meltfptr[908]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])))); + ((meltobject_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V881*/ meltfptr[880]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907])))); - ((meltobject_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V905*/ meltfptr[904]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879])))); + ((meltobject_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V877*/ meltfptr[876]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V908*/ meltfptr[907]); + meltgc_touch(/*_.VALDATA___V880*/ meltfptr[879]); - /*putupl#658*/ - melt_assertmsg("putupl #658 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #658 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#635*/ + melt_assertmsg("putupl #635 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #635 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#659*/ - melt_assertmsg("putupl #659 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #659 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#636*/ + melt_assertmsg("putupl #636 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #636 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#660*/ - melt_assertmsg("putupl #660 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #660 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#637*/ + melt_assertmsg("putupl #637 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #637 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#661*/ - melt_assertmsg("putupl #661 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #661 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V910*/ meltfptr[909]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V908*/ meltfptr[907]); + /*putupl#638*/ + melt_assertmsg("putupl #638 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #638 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V882*/ meltfptr[881]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V880*/ meltfptr[879]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V910*/ meltfptr[909]); + meltgc_touch(/*_.VALTUP___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904])))); - ((meltobject_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V910*/ meltfptr[909]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])))); + ((meltobject_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V882*/ meltfptr[881]); - MELT_LOCATION("warmelt-macro.melt:716:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:695:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V905*/ meltfptr[904]); + meltgc_touch(/*_.VALDATA___V877*/ meltfptr[876]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])))); - ((meltobject_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V912*/ meltfptr[911]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])))); + ((meltobject_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V884*/ meltfptr[883]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V911*/ meltfptr[910]); + meltgc_touch(/*_.VALDATA___V883*/ meltfptr[882]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ meltfptr[912])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ meltfptr[912])))); - ((meltobject_ptr_t)(/*_.VALDATA___V913*/ meltfptr[912]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V914*/ meltfptr[913]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884])))); + ((meltobject_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V886*/ meltfptr[885]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V913*/ meltfptr[912]); + meltgc_touch(/*_.VALDATA___V885*/ meltfptr[884]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])))); - ((meltobject_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V916*/ meltfptr[915]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])))); + ((meltobject_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V888*/ meltfptr[887]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])))); - ((meltobject_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])))); + ((meltobject_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#662*/ - melt_assertmsg("putupl #662 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #662 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#639*/ + melt_assertmsg("putupl #639 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #639 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#663*/ - melt_assertmsg("putupl #663 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #663 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#640*/ + melt_assertmsg("putupl #640 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #640 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#664*/ - melt_assertmsg("putupl #664 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #664 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#641*/ + melt_assertmsg("putupl #641 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #641 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#665*/ - melt_assertmsg("putupl #665 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #665 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#642*/ + melt_assertmsg("putupl #642 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #642 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#666*/ - melt_assertmsg("putupl #666 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #666 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ meltfptr[916]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#643*/ + melt_assertmsg("putupl #643 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #643 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V889*/ meltfptr[888]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V917*/ meltfptr[916]); + meltgc_touch(/*_.VALTUP___V889*/ meltfptr[888]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])))); - ((meltobject_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V917*/ meltfptr[916]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])))); + ((meltobject_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V889*/ meltfptr[888]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])))); - ((meltobject_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V919*/ meltfptr[918]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])))); + ((meltobject_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V891*/ meltfptr[890]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917])))); - ((meltobject_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V915*/ meltfptr[914]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889])))); + ((meltobject_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V887*/ meltfptr[886]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V918*/ meltfptr[917]); + meltgc_touch(/*_.VALDATA___V890*/ meltfptr[889]); - /*putupl#667*/ - melt_assertmsg("putupl #667 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #667 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#644*/ + melt_assertmsg("putupl #644 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #644 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#668*/ - melt_assertmsg("putupl #668 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #668 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#645*/ + melt_assertmsg("putupl #645 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #645 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#669*/ - melt_assertmsg("putupl #669 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #669 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#646*/ + melt_assertmsg("putupl #646 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #646 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#670*/ - melt_assertmsg("putupl #670 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #670 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V920*/ meltfptr[919]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]); + /*putupl#647*/ + melt_assertmsg("putupl #647 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #647 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V892*/ meltfptr[891]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V920*/ meltfptr[919]); + meltgc_touch(/*_.VALTUP___V892*/ meltfptr[891]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914])))); - ((meltobject_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V920*/ meltfptr[919]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886])))); + ((meltobject_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V892*/ meltfptr[891]); - MELT_LOCATION("warmelt-macro.melt:725:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:704:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V915*/ meltfptr[914]); + meltgc_touch(/*_.VALDATA___V887*/ meltfptr[886]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])))); - ((meltobject_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V922*/ meltfptr[921]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])))); + ((meltobject_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V894*/ meltfptr[893]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V921*/ meltfptr[920]); + meltgc_touch(/*_.VALDATA___V893*/ meltfptr[892]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); - ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V924*/ meltfptr[923]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])))); + ((meltobject_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V896*/ meltfptr[895]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V923*/ meltfptr[922]); + meltgc_touch(/*_.VALDATA___V895*/ meltfptr[894]); - MELT_LOCATION("warmelt-macro.melt:734:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:713:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])))); - ((meltobject_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V926*/ meltfptr[925]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); + ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V898*/ meltfptr[897]); - MELT_LOCATION("warmelt-macro.melt:734:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:713:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])))); - ((meltobject_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V915*/ meltfptr[914]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); + ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V887*/ meltfptr[886]); - /*putupl#671*/ - melt_assertmsg("putupl #671 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #671 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#648*/ + melt_assertmsg("putupl #648 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #648 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#672*/ - melt_assertmsg("putupl #672 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #672 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#649*/ + melt_assertmsg("putupl #649 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #649 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#673*/ - melt_assertmsg("putupl #673 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #673 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#650*/ + melt_assertmsg("putupl #650 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #650 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#674*/ - melt_assertmsg("putupl #674 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #674 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#651*/ + melt_assertmsg("putupl #651 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #651 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#675*/ - melt_assertmsg("putupl #675 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #675 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#652*/ + melt_assertmsg("putupl #652 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #652 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#676*/ - melt_assertmsg("putupl #676 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #676 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V927*/ meltfptr[926]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]); + /*putupl#653*/ + melt_assertmsg("putupl #653 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #653 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V899*/ meltfptr[898]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V927*/ meltfptr[926]); + meltgc_touch(/*_.VALTUP___V899*/ meltfptr[898]); - MELT_LOCATION("warmelt-macro.melt:734:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:713:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])))); - ((meltobject_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V927*/ meltfptr[926]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); + ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V899*/ meltfptr[898]); - /*putupl#677*/ - melt_assertmsg("putupl #677 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #677 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#654*/ + melt_assertmsg("putupl #654 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #654 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#678*/ - melt_assertmsg("putupl #678 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #678 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#655*/ + melt_assertmsg("putupl #655 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #655 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#679*/ - melt_assertmsg("putupl #679 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #679 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#656*/ + melt_assertmsg("putupl #656 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #656 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#680*/ - melt_assertmsg("putupl #680 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #680 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V928*/ meltfptr[927]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]); + /*putupl#657*/ + melt_assertmsg("putupl #657 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #657 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V900*/ meltfptr[899]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V928*/ meltfptr[927]); + meltgc_touch(/*_.VALTUP___V900*/ meltfptr[899]); - MELT_LOCATION("warmelt-macro.melt:734:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:713:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924])))); - ((meltobject_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V928*/ meltfptr[927]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])))); + ((meltobject_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V900*/ meltfptr[899]); - MELT_LOCATION("warmelt-macro.melt:734:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:713:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V925*/ meltfptr[924]); + meltgc_touch(/*_.VALDATA___V897*/ meltfptr[896]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])))); - ((meltobject_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V930*/ meltfptr[929]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900])))); + ((meltobject_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V902*/ meltfptr[901]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V929*/ meltfptr[928]); + meltgc_touch(/*_.VALDATA___V901*/ meltfptr[900]); - MELT_LOCATION("warmelt-macro.melt:741:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:720:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])))); + ((meltobject_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V904*/ meltfptr[903]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])))); - ((meltobject_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V932*/ meltfptr[931]); - MELT_LOCATION("warmelt-macro.melt:741:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_6*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_7 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:720:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])))); - ((meltobject_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V915*/ meltfptr[914]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])))); + ((meltobject_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V887*/ meltfptr[886]); - /*putupl#681*/ - melt_assertmsg("putupl #681 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #681 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#658*/ + melt_assertmsg("putupl #658 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #658 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#682*/ - melt_assertmsg("putupl #682 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #682 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#659*/ + melt_assertmsg("putupl #659 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #659 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#683*/ - melt_assertmsg("putupl #683 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #683 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#660*/ + melt_assertmsg("putupl #660 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #660 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#684*/ - melt_assertmsg("putupl #684 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #684 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#661*/ + melt_assertmsg("putupl #661 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #661 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#685*/ - melt_assertmsg("putupl #685 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #685 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#662*/ + melt_assertmsg("putupl #662 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #662 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#686*/ - melt_assertmsg("putupl #686 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #686 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V933*/ meltfptr[932]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V915*/ meltfptr[914]); + /*putupl#663*/ + melt_assertmsg("putupl #663 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #663 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V905*/ meltfptr[904]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V887*/ meltfptr[886]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V933*/ meltfptr[932]); + meltgc_touch(/*_.VALTUP___V905*/ meltfptr[904]); - MELT_LOCATION("warmelt-macro.melt:741:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:720:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])))); - ((meltobject_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V933*/ meltfptr[932]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])))); + ((meltobject_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V905*/ meltfptr[904]); - /*putupl#687*/ - melt_assertmsg("putupl #687 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #687 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#664*/ + melt_assertmsg("putupl #664 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #664 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#688*/ - melt_assertmsg("putupl #688 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #688 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#665*/ + melt_assertmsg("putupl #665 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #665 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#689*/ - melt_assertmsg("putupl #689 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #689 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#666*/ + melt_assertmsg("putupl #666 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #666 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#690*/ - melt_assertmsg("putupl #690 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #690 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V934*/ meltfptr[933]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V918*/ meltfptr[917]); + /*putupl#667*/ + melt_assertmsg("putupl #667 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #667 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V906*/ meltfptr[905]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V890*/ meltfptr[889]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V934*/ meltfptr[933]); + meltgc_touch(/*_.VALTUP___V906*/ meltfptr[905]); - MELT_LOCATION("warmelt-macro.melt:741:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:720:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930])))); - ((meltobject_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V934*/ meltfptr[933]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])))); + ((meltobject_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V906*/ meltfptr[905]); - MELT_LOCATION("warmelt-macro.melt:741:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:720:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V931*/ meltfptr[930]); + meltgc_touch(/*_.VALDATA___V903*/ meltfptr[902]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ meltfptr[906])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934])))); - ((meltobject_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V936*/ meltfptr[935]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ meltfptr[906])))); + ((meltobject_ptr_t)(/*_.VALDATA___V907*/ meltfptr[906]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V908*/ meltfptr[907]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V935*/ meltfptr[934]); + meltgc_touch(/*_.VALDATA___V907*/ meltfptr[906]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])))); - ((meltobject_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V938*/ meltfptr[937]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])))); + ((meltobject_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V910*/ meltfptr[909]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])))); - ((meltobject_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])))); + ((meltobject_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#691*/ - melt_assertmsg("putupl #691 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #691 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#668*/ + melt_assertmsg("putupl #668 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #668 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#692*/ - melt_assertmsg("putupl #692 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #692 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#669*/ + melt_assertmsg("putupl #669 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #669 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#693*/ - melt_assertmsg("putupl #693 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #693 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#670*/ + melt_assertmsg("putupl #670 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #670 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#694*/ - melt_assertmsg("putupl #694 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #694 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#671*/ + melt_assertmsg("putupl #671 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #671 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#695*/ - melt_assertmsg("putupl #695 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #695 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ meltfptr[938]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#672*/ + melt_assertmsg("putupl #672 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #672 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V911*/ meltfptr[910]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V939*/ meltfptr[938]); + meltgc_touch(/*_.VALTUP___V911*/ meltfptr[910]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])))); - ((meltobject_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V939*/ meltfptr[938]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])))); + ((meltobject_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V911*/ meltfptr[910]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939])))); - ((meltobject_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V941*/ meltfptr[940]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])))); + ((meltobject_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V913*/ meltfptr[912]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939])))); - ((meltobject_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V937*/ meltfptr[936]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911])))); + ((meltobject_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V909*/ meltfptr[908]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V940*/ meltfptr[939]); + meltgc_touch(/*_.VALDATA___V912*/ meltfptr[911]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941])))); - ((meltobject_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V943*/ meltfptr[942]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])))); + ((meltobject_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V915*/ meltfptr[914]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941])))); - ((meltobject_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V937*/ meltfptr[936]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913])))); + ((meltobject_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V909*/ meltfptr[908]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V942*/ meltfptr[941]); + meltgc_touch(/*_.VALDATA___V914*/ meltfptr[913]); - /*putupl#696*/ - melt_assertmsg("putupl #696 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #696 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#673*/ + melt_assertmsg("putupl #673 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #673 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#697*/ - melt_assertmsg("putupl #697 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #697 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#674*/ + melt_assertmsg("putupl #674 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #674 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#698*/ - melt_assertmsg("putupl #698 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #698 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#675*/ + melt_assertmsg("putupl #675 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #675 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#699*/ - melt_assertmsg("putupl #699 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #699 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#676*/ + melt_assertmsg("putupl #676 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #676 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#700*/ - melt_assertmsg("putupl #700 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #700 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V944*/ meltfptr[943]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#677*/ + melt_assertmsg("putupl #677 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #677 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V916*/ meltfptr[915]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V944*/ meltfptr[943]); + meltgc_touch(/*_.VALTUP___V916*/ meltfptr[915]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])))); - ((meltobject_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V944*/ meltfptr[943]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908])))); + ((meltobject_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V916*/ meltfptr[915]); - MELT_LOCATION("warmelt-macro.melt:749:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:728:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V937*/ meltfptr[936]); + meltgc_touch(/*_.VALDATA___V909*/ meltfptr[908]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944])))); - ((meltobject_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V946*/ meltfptr[945]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])))); + ((meltobject_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V918*/ meltfptr[917]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V945*/ meltfptr[944]); + meltgc_touch(/*_.VALDATA___V917*/ meltfptr[916]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V919*/ meltfptr[918])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946])))); - ((meltobject_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V948*/ meltfptr[947]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V919*/ meltfptr[918])))); + ((meltobject_ptr_t)(/*_.VALDATA___V919*/ meltfptr[918]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V920*/ meltfptr[919]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V947*/ meltfptr[946]); + meltgc_touch(/*_.VALDATA___V919*/ meltfptr[918]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V949*/ meltfptr[948])))); - ((meltobject_ptr_t)(/*_.VALDATA___V949*/ meltfptr[948]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V950*/ meltfptr[949]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])))); + ((meltobject_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V922*/ meltfptr[921]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V949*/ meltfptr[948]); + meltgc_touch(/*_.VALDATA___V921*/ meltfptr[920]); - MELT_LOCATION("warmelt-macro.melt:761:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:740:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])))); - ((meltobject_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V952*/ meltfptr[951]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V924*/ meltfptr[923]); - MELT_LOCATION("warmelt-macro.melt:761:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:740:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])))); - ((meltobject_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V937*/ meltfptr[936]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V909*/ meltfptr[908]); - /*putupl#701*/ - melt_assertmsg("putupl #701 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #701 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#678*/ + melt_assertmsg("putupl #678 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #678 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#702*/ - melt_assertmsg("putupl #702 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #702 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#679*/ + melt_assertmsg("putupl #679 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #679 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#703*/ - melt_assertmsg("putupl #703 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #703 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#680*/ + melt_assertmsg("putupl #680 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #680 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#704*/ - melt_assertmsg("putupl #704 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #704 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#681*/ + melt_assertmsg("putupl #681 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #681 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#705*/ - melt_assertmsg("putupl #705 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #705 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#682*/ + melt_assertmsg("putupl #682 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #682 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#706*/ - melt_assertmsg("putupl #706 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #706 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V953*/ meltfptr[952]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); + /*putupl#683*/ + melt_assertmsg("putupl #683 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #683 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V925*/ meltfptr[924]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V953*/ meltfptr[952]); + meltgc_touch(/*_.VALTUP___V925*/ meltfptr[924]); - MELT_LOCATION("warmelt-macro.melt:761:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:740:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])))); - ((meltobject_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V953*/ meltfptr[952]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V925*/ meltfptr[924]); - /*putupl#707*/ - melt_assertmsg("putupl #707 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #707 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#684*/ + melt_assertmsg("putupl #684 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #684 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#708*/ - melt_assertmsg("putupl #708 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #708 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#685*/ + melt_assertmsg("putupl #685 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #685 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#709*/ - melt_assertmsg("putupl #709 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #709 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#686*/ + melt_assertmsg("putupl #686 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #686 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#710*/ - melt_assertmsg("putupl #710 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #710 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#687*/ + melt_assertmsg("putupl #687 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #687 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#711*/ - melt_assertmsg("putupl #711 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #711 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#688*/ + melt_assertmsg("putupl #688 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #688 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ meltfptr[925]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V954*/ meltfptr[953]); + meltgc_touch(/*_.VALTUP___V926*/ meltfptr[925]); - MELT_LOCATION("warmelt-macro.melt:761:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:740:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950])))); - ((meltobject_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V954*/ meltfptr[953]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])))); + ((meltobject_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V926*/ meltfptr[925]); - MELT_LOCATION("warmelt-macro.melt:761:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:740:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V951*/ meltfptr[950]); + meltgc_touch(/*_.VALDATA___V923*/ meltfptr[922]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V927*/ meltfptr[926])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])))); - ((meltobject_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V956*/ meltfptr[955]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V927*/ meltfptr[926])))); + ((meltobject_ptr_t)(/*_.VALDATA___V927*/ meltfptr[926]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V928*/ meltfptr[927]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V955*/ meltfptr[954]); + meltgc_touch(/*_.VALDATA___V927*/ meltfptr[926]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])))); - ((meltobject_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V958*/ meltfptr[957]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])))); + ((meltobject_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V930*/ meltfptr[929]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])))); - ((meltobject_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])))); + ((meltobject_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#712*/ - melt_assertmsg("putupl #712 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #712 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#689*/ + melt_assertmsg("putupl #689 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #689 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#713*/ - melt_assertmsg("putupl #713 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #713 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#690*/ + melt_assertmsg("putupl #690 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #690 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#714*/ - melt_assertmsg("putupl #714 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #714 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#691*/ + melt_assertmsg("putupl #691 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #691 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#715*/ - melt_assertmsg("putupl #715 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #715 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V959*/ meltfptr[958]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#692*/ + melt_assertmsg("putupl #692 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #692 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V931*/ meltfptr[930]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V959*/ meltfptr[958]); + meltgc_touch(/*_.VALTUP___V931*/ meltfptr[930]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])))); - ((meltobject_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V959*/ meltfptr[958]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])))); + ((meltobject_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V931*/ meltfptr[930]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959])))); - ((meltobject_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V961*/ meltfptr[960]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931])))); + ((meltobject_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V933*/ meltfptr[932]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959])))); - ((meltobject_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931])))); + ((meltobject_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V960*/ meltfptr[959]); + meltgc_touch(/*_.VALDATA___V932*/ meltfptr[931]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961])))); - ((meltobject_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V963*/ meltfptr[962]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933])))); + ((meltobject_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V935*/ meltfptr[934]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961])))); - ((meltobject_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933])))); + ((meltobject_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V962*/ meltfptr[961]); + meltgc_touch(/*_.VALDATA___V934*/ meltfptr[933]); - /*putupl#716*/ - melt_assertmsg("putupl #716 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #716 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#693*/ + melt_assertmsg("putupl #693 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #693 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#717*/ - melt_assertmsg("putupl #717 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #717 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#694*/ + melt_assertmsg("putupl #694 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #694 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#718*/ - melt_assertmsg("putupl #718 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #718 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V960*/ meltfptr[959]); + /*putupl#695*/ + melt_assertmsg("putupl #695 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #695 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V932*/ meltfptr[931]); - /*putupl#719*/ - melt_assertmsg("putupl #719 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #719 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V964*/ meltfptr[963]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V962*/ meltfptr[961]); + /*putupl#696*/ + melt_assertmsg("putupl #696 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #696 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V936*/ meltfptr[935]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V934*/ meltfptr[933]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V964*/ meltfptr[963]); + meltgc_touch(/*_.VALTUP___V936*/ meltfptr[935]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])))); - ((meltobject_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V964*/ meltfptr[963]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])))); + ((meltobject_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V936*/ meltfptr[935]); - MELT_LOCATION("warmelt-macro.melt:769:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:748:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V957*/ meltfptr[956]); + meltgc_touch(/*_.VALDATA___V929*/ meltfptr[928]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])))); - ((meltobject_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V966*/ meltfptr[965]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])))); + ((meltobject_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V938*/ meltfptr[937]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V965*/ meltfptr[964]); + meltgc_touch(/*_.VALDATA___V937*/ meltfptr[936]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966])))); - ((meltobject_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V968*/ meltfptr[967]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938])))); + ((meltobject_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V940*/ meltfptr[939]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V967*/ meltfptr[966]); + meltgc_touch(/*_.VALDATA___V939*/ meltfptr[938]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])))); - ((meltobject_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V970*/ meltfptr[969]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940])))); + ((meltobject_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V942*/ meltfptr[941]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V969*/ meltfptr[968]); + meltgc_touch(/*_.VALDATA___V941*/ meltfptr[940]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); - ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V972*/ meltfptr[971]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])))); + ((meltobject_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V944*/ meltfptr[943]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); - ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V937*/ meltfptr[936]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])))); + ((meltobject_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V909*/ meltfptr[908]); - /*putupl#720*/ - melt_assertmsg("putupl #720 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #720 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#697*/ + melt_assertmsg("putupl #697 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #697 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#721*/ - melt_assertmsg("putupl #721 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #721 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#698*/ + melt_assertmsg("putupl #698 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #698 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#722*/ - melt_assertmsg("putupl #722 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #722 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#699*/ + melt_assertmsg("putupl #699 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #699 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#723*/ - melt_assertmsg("putupl #723 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #723 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#700*/ + melt_assertmsg("putupl #700 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #700 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#724*/ - melt_assertmsg("putupl #724 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #724 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#701*/ + melt_assertmsg("putupl #701 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #701 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#725*/ - melt_assertmsg("putupl #725 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #725 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); + /*putupl#702*/ + melt_assertmsg("putupl #702 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #702 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V945*/ meltfptr[944]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V973*/ meltfptr[972]); + meltgc_touch(/*_.VALTUP___V945*/ meltfptr[944]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); - ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V973*/ meltfptr[972]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])))); + ((meltobject_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V945*/ meltfptr[944]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973])))); - ((meltobject_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V975*/ meltfptr[974]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945])))); + ((meltobject_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V947*/ meltfptr[946]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973])))); - ((meltobject_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V971*/ meltfptr[970]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945])))); + ((meltobject_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V943*/ meltfptr[942]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V974*/ meltfptr[973]); + meltgc_touch(/*_.VALDATA___V946*/ meltfptr[945]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975])))); - ((meltobject_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V977*/ meltfptr[976]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947])))); + ((meltobject_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V949*/ meltfptr[948]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975])))); - ((meltobject_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V971*/ meltfptr[970]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947])))); + ((meltobject_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V943*/ meltfptr[942]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V976*/ meltfptr[975]); + meltgc_touch(/*_.VALDATA___V948*/ meltfptr[947]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977])))); - ((meltobject_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V979*/ meltfptr[978]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949])))); + ((meltobject_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V951*/ meltfptr[950]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977])))); - ((meltobject_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V971*/ meltfptr[970]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949])))); + ((meltobject_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V943*/ meltfptr[942]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V978*/ meltfptr[977]); + meltgc_touch(/*_.VALDATA___V950*/ meltfptr[949]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979])))); - ((meltobject_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V981*/ meltfptr[980]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951])))); + ((meltobject_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V953*/ meltfptr[952]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979])))); - ((meltobject_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V971*/ meltfptr[970]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951])))); + ((meltobject_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V943*/ meltfptr[942]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V980*/ meltfptr[979]); + meltgc_touch(/*_.VALDATA___V952*/ meltfptr[951]); - /*putupl#726*/ - melt_assertmsg("putupl #726 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #726 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#703*/ + melt_assertmsg("putupl #703 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #703 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#727*/ - melt_assertmsg("putupl #727 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #727 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#704*/ + melt_assertmsg("putupl #704 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #704 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#728*/ - melt_assertmsg("putupl #728 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #728 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#705*/ + melt_assertmsg("putupl #705 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #705 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#729*/ - melt_assertmsg("putupl #729 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #729 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#706*/ + melt_assertmsg("putupl #706 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #706 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#730*/ - melt_assertmsg("putupl #730 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #730 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#707*/ + melt_assertmsg("putupl #707 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #707 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); - /*putupl#731*/ - melt_assertmsg("putupl #731 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #731 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]); + /*putupl#708*/ + melt_assertmsg("putupl #708 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #708 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]); - /*putupl#732*/ - melt_assertmsg("putupl #732 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #732 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]); + /*putupl#709*/ + melt_assertmsg("putupl #709 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #709 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]); - /*putupl#733*/ - melt_assertmsg("putupl #733 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #733 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]); + /*putupl#710*/ + melt_assertmsg("putupl #710 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #710 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]); - /*putupl#734*/ - melt_assertmsg("putupl #734 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #734 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V982*/ meltfptr[981]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); + /*putupl#711*/ + melt_assertmsg("putupl #711 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #711 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ meltfptr[953]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V982*/ meltfptr[981]); + meltgc_touch(/*_.VALTUP___V954*/ meltfptr[953]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); - ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V982*/ meltfptr[981]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942])))); + ((meltobject_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V954*/ meltfptr[953]); - MELT_LOCATION("warmelt-macro.melt:780:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:759:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V971*/ meltfptr[970]); + meltgc_touch(/*_.VALDATA___V943*/ meltfptr[942]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V983*/ meltfptr[982])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V983*/ meltfptr[982])))); - ((meltobject_ptr_t)(/*_.VALDATA___V983*/ meltfptr[982]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V984*/ meltfptr[983]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])))); + ((meltobject_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V956*/ meltfptr[955]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V983*/ meltfptr[982]); + meltgc_touch(/*_.VALDATA___V955*/ meltfptr[954]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V985*/ meltfptr[984])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V985*/ meltfptr[984])))); - ((meltobject_ptr_t)(/*_.VALDATA___V985*/ meltfptr[984]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V986*/ meltfptr[985]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])))); + ((meltobject_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V958*/ meltfptr[957]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V985*/ meltfptr[984]); + meltgc_touch(/*_.VALDATA___V957*/ meltfptr[956]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V987*/ meltfptr[986])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V987*/ meltfptr[986])))); - ((meltobject_ptr_t)(/*_.VALDATA___V987*/ meltfptr[986]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V988*/ meltfptr[987]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V959*/ meltfptr[958])))); + ((meltobject_ptr_t)(/*_.VALDATA___V959*/ meltfptr[958]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V960*/ meltfptr[959]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V987*/ meltfptr[986]); + meltgc_touch(/*_.VALDATA___V959*/ meltfptr[958]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V989*/ meltfptr[988])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V989*/ meltfptr[988])))); - ((meltobject_ptr_t)(/*_.VALDATA___V989*/ meltfptr[988]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V990*/ meltfptr[989]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960])))); + ((meltobject_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V962*/ meltfptr[961]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V989*/ meltfptr[988]); + meltgc_touch(/*_.VALDATA___V961*/ meltfptr[960]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V991*/ meltfptr[990])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V991*/ meltfptr[990])))); - ((meltobject_ptr_t)(/*_.VALDATA___V991*/ meltfptr[990]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V992*/ meltfptr[991]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962])))); + ((meltobject_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V964*/ meltfptr[963]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V991*/ meltfptr[990]); + meltgc_touch(/*_.VALDATA___V963*/ meltfptr[962]); - MELT_LOCATION("warmelt-macro.melt:797:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:776:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])))); - ((meltobject_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V994*/ meltfptr[993]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])))); + ((meltobject_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V966*/ meltfptr[965]); - MELT_LOCATION("warmelt-macro.melt:797:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:776:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])))); - ((meltobject_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V971*/ meltfptr[970]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])))); + ((meltobject_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V943*/ meltfptr[942]); - /*putupl#735*/ - melt_assertmsg("putupl #735 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #735 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#712*/ + melt_assertmsg("putupl #712 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #712 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#736*/ - melt_assertmsg("putupl #736 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #736 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#713*/ + melt_assertmsg("putupl #713 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #713 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#737*/ - melt_assertmsg("putupl #737 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #737 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#714*/ + melt_assertmsg("putupl #714 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #714 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#738*/ - melt_assertmsg("putupl #738 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #738 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#715*/ + melt_assertmsg("putupl #715 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #715 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#739*/ - melt_assertmsg("putupl #739 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #739 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#716*/ + melt_assertmsg("putupl #716 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #716 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#740*/ - melt_assertmsg("putupl #740 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #740 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); + /*putupl#717*/ + melt_assertmsg("putupl #717 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #717 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); - /*putupl#741*/ - melt_assertmsg("putupl #741 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #741 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ meltfptr[994]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]); + /*putupl#718*/ + melt_assertmsg("putupl #718 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #718 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V967*/ meltfptr[966]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V995*/ meltfptr[994]); + meltgc_touch(/*_.VALTUP___V967*/ meltfptr[966]); - MELT_LOCATION("warmelt-macro.melt:797:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:776:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])))); - ((meltobject_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V995*/ meltfptr[994]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])))); + ((meltobject_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V967*/ meltfptr[966]); - /*putupl#742*/ - melt_assertmsg("putupl #742 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #742 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#719*/ + melt_assertmsg("putupl #719 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #719 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#743*/ - melt_assertmsg("putupl #743 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #743 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#720*/ + melt_assertmsg("putupl #720 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #720 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#744*/ - melt_assertmsg("putupl #744 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #744 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#721*/ + melt_assertmsg("putupl #721 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #721 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#745*/ - melt_assertmsg("putupl #745 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #745 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#722*/ + melt_assertmsg("putupl #722 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #722 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#746*/ - melt_assertmsg("putupl #746 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #746 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#723*/ + melt_assertmsg("putupl #723 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #723 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); - /*putupl#747*/ - melt_assertmsg("putupl #747 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #747 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]); + /*putupl#724*/ + melt_assertmsg("putupl #724 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #724 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]); - /*putupl#748*/ - melt_assertmsg("putupl #748 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #748 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]); + /*putupl#725*/ + melt_assertmsg("putupl #725 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #725 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]); - /*putupl#749*/ - melt_assertmsg("putupl #749 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #749 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]); + /*putupl#726*/ + melt_assertmsg("putupl #726 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #726 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]); - /*putupl#750*/ - melt_assertmsg("putupl #750 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #750 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V996*/ meltfptr[995]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); + /*putupl#727*/ + melt_assertmsg("putupl #727 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #727 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V968*/ meltfptr[967]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V996*/ meltfptr[995]); + meltgc_touch(/*_.VALTUP___V968*/ meltfptr[967]); - MELT_LOCATION("warmelt-macro.melt:797:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:776:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992])))); - ((meltobject_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V996*/ meltfptr[995]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])))); + ((meltobject_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V968*/ meltfptr[967]); - MELT_LOCATION("warmelt-macro.melt:797:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:776:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V993*/ meltfptr[992]); + meltgc_touch(/*_.VALDATA___V965*/ meltfptr[964]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V997*/ meltfptr[996])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V997*/ meltfptr[996])))); - ((meltobject_ptr_t)(/*_.VALDATA___V997*/ meltfptr[996]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V998*/ meltfptr[997]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])))); + ((meltobject_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V970*/ meltfptr[969]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V997*/ meltfptr[996]); + meltgc_touch(/*_.VALDATA___V969*/ meltfptr[968]); - MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:782:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])))); - ((meltobject_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1000*/ meltfptr[999]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); + ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V972*/ meltfptr[971]); - MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:782:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])))); - ((meltobject_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V993*/ meltfptr[992]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); + ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V965*/ meltfptr[964]); - /*putupl#751*/ - melt_assertmsg("putupl #751 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #751 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#728*/ + melt_assertmsg("putupl #728 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #728 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#752*/ - melt_assertmsg("putupl #752 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #752 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#729*/ + melt_assertmsg("putupl #729 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #729 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#753*/ - melt_assertmsg("putupl #753 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #753 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#730*/ + melt_assertmsg("putupl #730 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #730 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#754*/ - melt_assertmsg("putupl #754 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #754 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#731*/ + melt_assertmsg("putupl #731 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #731 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); - /*putupl#755*/ - melt_assertmsg("putupl #755 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #755 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + /*putupl#732*/ + melt_assertmsg("putupl #732 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #732 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - /*putupl#756*/ - melt_assertmsg("putupl #756 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #756 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); + /*putupl#733*/ + melt_assertmsg("putupl #733 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #733 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); - /*putupl#757*/ - melt_assertmsg("putupl #757 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #757 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]); + /*putupl#734*/ + melt_assertmsg("putupl #734 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #734 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]); - /*putupl#758*/ - melt_assertmsg("putupl #758 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #758 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1001*/ meltfptr[1000]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]); + /*putupl#735*/ + melt_assertmsg("putupl #735 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #735 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ meltfptr[972]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1001*/ meltfptr[1000]); + meltgc_touch(/*_.VALTUP___V973*/ meltfptr[972]); - MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:782:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])))); - ((meltobject_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V1001*/ meltfptr[1000]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); + ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V973*/ meltfptr[972]); - /*putupl#759*/ - melt_assertmsg("putupl #759 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #759 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#736*/ + melt_assertmsg("putupl #736 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #736 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#760*/ - melt_assertmsg("putupl #760 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #760 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#737*/ + melt_assertmsg("putupl #737 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #737 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#761*/ - melt_assertmsg("putupl #761 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #761 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#738*/ + melt_assertmsg("putupl #738 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #738 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#762*/ - melt_assertmsg("putupl #762 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #762 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#739*/ + melt_assertmsg("putupl #739 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #739 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#763*/ - melt_assertmsg("putupl #763 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #763 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#740*/ + melt_assertmsg("putupl #740 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #740 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); - /*putupl#764*/ - melt_assertmsg("putupl #764 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #764 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]); + /*putupl#741*/ + melt_assertmsg("putupl #741 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #741 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]); - /*putupl#765*/ - melt_assertmsg("putupl #765 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #765 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]); + /*putupl#742*/ + melt_assertmsg("putupl #742 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #742 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]); - /*putupl#766*/ - melt_assertmsg("putupl #766 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #766 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]); + /*putupl#743*/ + melt_assertmsg("putupl #743 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #743 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]); - /*putupl#767*/ - melt_assertmsg("putupl #767 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #767 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); + /*putupl#744*/ + melt_assertmsg("putupl #744 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #744 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V974*/ meltfptr[973]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1002*/ meltfptr[1001]); + meltgc_touch(/*_.VALTUP___V974*/ meltfptr[973]); - MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:782:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998])))); - ((meltobject_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V1002*/ meltfptr[1001]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970])))); + ((meltobject_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V974*/ meltfptr[973]); - MELT_LOCATION("warmelt-macro.melt:803:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:782:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V999*/ meltfptr[998]); + meltgc_touch(/*_.VALDATA___V971*/ meltfptr[970]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1003*/ meltfptr[1002])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1003*/ meltfptr[1002])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1003*/ meltfptr[1002]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1004*/ meltfptr[1003]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974])))); + ((meltobject_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V976*/ meltfptr[975]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1003*/ meltfptr[1002]); + meltgc_touch(/*_.VALDATA___V975*/ meltfptr[974]); - MELT_LOCATION("warmelt-macro.melt:809:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:788:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1006*/ meltfptr[1005]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])))); + ((meltobject_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V978*/ meltfptr[977]); - MELT_LOCATION("warmelt-macro.melt:809:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:788:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALDATA___V993*/ meltfptr[992]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])))); + ((meltobject_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALDATA___V965*/ meltfptr[964]); - /*putupl#768*/ - melt_assertmsg("putupl #768 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #768 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); + /*putupl#745*/ + melt_assertmsg("putupl #745 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #745 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (0)))); - /*putupl#769*/ - melt_assertmsg("putupl #769 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #769 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); + /*putupl#746*/ + melt_assertmsg("putupl #746 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #746 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (1)))); - /*putupl#770*/ - melt_assertmsg("putupl #770 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #770 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); + /*putupl#747*/ + melt_assertmsg("putupl #747 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #747 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),5))), (2)))); - /*putupl#771*/ - melt_assertmsg("putupl #771 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #771 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#748*/ + melt_assertmsg("putupl #748 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #748 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]); + /*putupl#749*/ + melt_assertmsg("putupl #749 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #749 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_7*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_8 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putupl#772*/ - melt_assertmsg("putupl #772 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #772 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); - - /*putupl#773*/ - melt_assertmsg("putupl #773 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #773 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); - - /*putupl#774*/ - melt_assertmsg("putupl #774 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #774 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]); - - /*putupl#775*/ - melt_assertmsg("putupl #775 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #775 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V993*/ meltfptr[992]); + /*putupl#750*/ + melt_assertmsg("putupl #750 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #750 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); + + /*putupl#751*/ + melt_assertmsg("putupl #751 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #751 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V943*/ meltfptr[942]); + + /*putupl#752*/ + melt_assertmsg("putupl #752 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #752 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V979*/ meltfptr[978]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1007*/ meltfptr[1006]); + meltgc_touch(/*_.VALTUP___V979*/ meltfptr[978]); - MELT_LOCATION("warmelt-macro.melt:809:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:788:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V1007*/ meltfptr[1006]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])))); + ((meltobject_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V979*/ meltfptr[978]); - /*putupl#776*/ - melt_assertmsg("putupl #776 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #776 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); + /*putupl#753*/ + melt_assertmsg("putupl #753 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #753 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (0)))); - /*putupl#777*/ - melt_assertmsg("putupl #777 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #777 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); + /*putupl#754*/ + melt_assertmsg("putupl #754 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #754 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_SOURCE__V8*/ meltfptr[7]),6))), (1)))); - /*putupl#778*/ - melt_assertmsg("putupl #778 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #778 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V842*/ meltfptr[841]); + /*putupl#755*/ + melt_assertmsg("putupl #755 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #755 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V814*/ meltfptr[813]); - /*putupl#779*/ - melt_assertmsg("putupl #779 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #779 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V940*/ meltfptr[939]); + /*putupl#756*/ + melt_assertmsg("putupl #756 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #756 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V912*/ meltfptr[911]); - /*putupl#780*/ - melt_assertmsg("putupl #780 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #780 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V942*/ meltfptr[941]); + /*putupl#757*/ + melt_assertmsg("putupl #757 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #757 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V914*/ meltfptr[913]); - /*putupl#781*/ - melt_assertmsg("putupl #781 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #781 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V974*/ meltfptr[973]); + /*putupl#758*/ + melt_assertmsg("putupl #758 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #758 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V946*/ meltfptr[945]); - /*putupl#782*/ - melt_assertmsg("putupl #782 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #782 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V976*/ meltfptr[975]); + /*putupl#759*/ + melt_assertmsg("putupl #759 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #759 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V948*/ meltfptr[947]); - /*putupl#783*/ - melt_assertmsg("putupl #783 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #783 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V978*/ meltfptr[977]); + /*putupl#760*/ + melt_assertmsg("putupl #760 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #760 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V950*/ meltfptr[949]); - /*putupl#784*/ - melt_assertmsg("putupl #784 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #784 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1008*/ meltfptr[1007]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V980*/ meltfptr[979]); + /*putupl#761*/ + melt_assertmsg("putupl #761 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #761 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V980*/ meltfptr[979]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V952*/ meltfptr[951]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1008*/ meltfptr[1007]); + meltgc_touch(/*_.VALTUP___V980*/ meltfptr[979]); - MELT_LOCATION("warmelt-macro.melt:809:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:788:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V1008*/ meltfptr[1007]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976])))); + ((meltobject_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V980*/ meltfptr[979]); - MELT_LOCATION("warmelt-macro.melt:809:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:788:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1005*/ meltfptr[1004]); + meltgc_touch(/*_.VALDATA___V977*/ meltfptr[976]); - MELT_LOCATION("warmelt-macro.melt:820:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:799:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ meltfptr[1008])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_943__EXPAND_RESTLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ meltfptr[1008])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V981*/ meltfptr[980])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_915__EXPAND_RESTLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V981*/ meltfptr[980])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__EXPAND_KEYWORDFUN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1013*/ meltfptr[1012])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_959__EXPAND_KEYWORDFUN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V985*/ meltfptr[984])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__EXPAND_KEYWORDFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1013*/ meltfptr[1012])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_959__EXPAND_KEYWORDFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V985*/ meltfptr[984])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__EXPAND_KEYWORDFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1013*/ meltfptr[1012])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_959__EXPAND_KEYWORDFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V985*/ meltfptr[984])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__EXPAND_KEYWORDFUN#3", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1013*/ meltfptr[1012])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_959__EXPAND_KEYWORDFUN#3", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V985*/ meltfptr[984])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__EXPAND_KEYWORDFUN#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1013*/ meltfptr[1012])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_959__EXPAND_KEYWORDFUN#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V985*/ meltfptr[984])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:1160:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1139:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1013*/ meltfptr[1012]); + meltgc_touch(/*_.VALROUT___V985*/ meltfptr[984]); /*putclosurout#1*/ - melt_assertmsg("putclosrout#1 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1012*/ meltfptr[1011])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#1 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1013*/ meltfptr[1012])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1012*/ meltfptr[1011])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1013*/ meltfptr[1012]); + melt_assertmsg("putclosrout#1 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V984*/ meltfptr[983])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#1 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V985*/ meltfptr[984])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V984*/ meltfptr[983])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V985*/ meltfptr[984]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1012*/ meltfptr[1011]); + meltgc_touch(/*_.VALCLO___V984*/ meltfptr[983]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ meltfptr[1011]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1012*/ meltfptr[1011]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V984*/ meltfptr[983]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V984*/ meltfptr[983]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#7", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[7] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#7", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[7] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#8", NULL != (/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[8] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#8", NULL != (/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[8] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#9", NULL != (/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#9", NULL != (/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__EXPAND_MSEND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_933__EXPAND_MSEND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__EXPAND_MSEND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_933__EXPAND_MSEND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__EXPAND_MSEND#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_933__EXPAND_MSEND#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__EXPAND_MSEND#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_933__EXPAND_MSEND#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:912:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1017*/ meltfptr[1016])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1017*/ meltfptr[1016])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V989*/ meltfptr[988])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__EXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V989*/ meltfptr[988])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:853:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1019*/ meltfptr[1018])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_953__EXPAND_PAIRLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1019*/ meltfptr[1018])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V991*/ meltfptr[990])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_925__EXPAND_PAIRLIST_AS_LIST#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V991*/ meltfptr[990])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:853:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1019*/ meltfptr[1018])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1019*/ meltfptr[1018])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V991*/ meltfptr[990])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V991*/ meltfptr[990])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:853:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1019*/ meltfptr[1018]); + meltgc_touch(/*_.VALROUT___V991*/ meltfptr[990]); /*putclosurout#2*/ - melt_assertmsg("putclosrout#2 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1018*/ meltfptr[1017])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#2 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1019*/ meltfptr[1018])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1018*/ meltfptr[1017])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1019*/ meltfptr[1018]); + melt_assertmsg("putclosrout#2 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V990*/ meltfptr[989])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#2 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V991*/ meltfptr[990])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V990*/ meltfptr[989])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V991*/ meltfptr[990]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1018*/ meltfptr[1017]); + meltgc_touch(/*_.VALCLO___V990*/ meltfptr[989]); - MELT_LOCATION("warmelt-macro.melt:912:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:891:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1017*/ meltfptr[1016])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1018*/ meltfptr[1017]); - ((meltroutine_ptr_t)/*_.VALROUT___V1017*/ meltfptr[1016])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1018*/ meltfptr[1017]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V989*/ meltfptr[988])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V990*/ meltfptr[989]); + ((meltroutine_ptr_t)/*_.VALROUT___V989*/ meltfptr[988])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V990*/ meltfptr[989]); - MELT_LOCATION("warmelt-macro.melt:912:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1017*/ meltfptr[1016])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_PAIRLIST_AS_TUPLE#2", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1017*/ meltfptr[1016])->tabval[2] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V989*/ meltfptr[988])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__EXPAND_PAIRLIST_AS_TUPLE#2", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V989*/ meltfptr[988])->tabval[2] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:912:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1017*/ meltfptr[1016])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_PAIRLIST_AS_TUPLE#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1017*/ meltfptr[1016])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V989*/ meltfptr[988])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__EXPAND_PAIRLIST_AS_TUPLE#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V989*/ meltfptr[988])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:912:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:891:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1017*/ meltfptr[1016]); + meltgc_touch(/*_.VALROUT___V989*/ meltfptr[988]); /*putclosurout#3*/ - melt_assertmsg("putclosrout#3 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#3 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1017*/ meltfptr[1016])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1016*/ meltfptr[1015])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1017*/ meltfptr[1016]); + melt_assertmsg("putclosrout#3 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#3 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V989*/ meltfptr[988])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V988*/ meltfptr[987])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V989*/ meltfptr[988]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1016*/ meltfptr[1015]); + meltgc_touch(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1016*/ meltfptr[1015]); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V988*/ meltfptr[987]); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V115*/ meltfptr[114]); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1015*/ meltfptr[1014])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V987*/ meltfptr[986])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:940:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:919:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1015*/ meltfptr[1014]); + meltgc_touch(/*_.VALROUT___V987*/ meltfptr[986]); /*putclosurout#4*/ - melt_assertmsg("putclosrout#4 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1014*/ meltfptr[1013])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#4 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1015*/ meltfptr[1014])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1014*/ meltfptr[1013])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1015*/ meltfptr[1014]); + melt_assertmsg("putclosrout#4 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V986*/ meltfptr[985])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#4 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V987*/ meltfptr[986])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V986*/ meltfptr[985])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V987*/ meltfptr[986]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1014*/ meltfptr[1013]); + meltgc_touch(/*_.VALCLO___V986*/ meltfptr[985]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1014*/ meltfptr[1013]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1014*/ meltfptr[1013]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V986*/ meltfptr[985]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V986*/ meltfptr[985]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#11", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[11] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#11", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[11] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_7*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_8 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1012__EXPAND_PRIMITIVE#0", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V1021*/ meltfptr[1020])->tabval[0] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_984__EXPAND_PRIMITIVE#0", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); + ((meltroutine_ptr_t)/*_.VALROUT___V993*/ meltfptr[992])->tabval[0] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1012__EXPAND_PRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1021*/ meltfptr[1020])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_984__EXPAND_PRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V993*/ meltfptr[992])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1012__EXPAND_PRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1021*/ meltfptr[1020])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_984__EXPAND_PRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V993*/ meltfptr[992])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_RESTLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1023*/ meltfptr[1022])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V995*/ meltfptr[994])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__EXPAND_RESTLIST_AS_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V995*/ meltfptr[994])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); /*putclosurout#5*/ - melt_assertmsg("putclosrout#5 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1024*/ meltfptr[1023])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#5 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ meltfptr[1008])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1024*/ meltfptr[1023])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1009*/ meltfptr[1008]); + melt_assertmsg("putclosrout#5 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V996*/ meltfptr[995])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#5 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V981*/ meltfptr[980])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V996*/ meltfptr[995])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V981*/ meltfptr[980]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1024*/ meltfptr[1023]); + meltgc_touch(/*_.VALCLO___V996*/ meltfptr[995]); - MELT_LOCATION("warmelt-macro.melt:863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1024*/ meltfptr[1023]); - ((meltroutine_ptr_t)/*_.VALROUT___V1023*/ meltfptr[1022])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1024*/ meltfptr[1023]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V995*/ meltfptr[994])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V996*/ meltfptr[995]); + ((meltroutine_ptr_t)/*_.VALROUT___V995*/ meltfptr[994])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V996*/ meltfptr[995]); - MELT_LOCATION("warmelt-macro.melt:863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_RESTLIST_AS_TUPLE#2", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1023*/ meltfptr[1022])->tabval[2] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V995*/ meltfptr[994])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__EXPAND_RESTLIST_AS_TUPLE#2", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V995*/ meltfptr[994])->tabval[2] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_RESTLIST_AS_TUPLE#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1023*/ meltfptr[1022])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V995*/ meltfptr[994])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__EXPAND_RESTLIST_AS_TUPLE#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V995*/ meltfptr[994])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:842:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1023*/ meltfptr[1022]); + meltgc_touch(/*_.VALROUT___V995*/ meltfptr[994]); /*putclosurout#6*/ - melt_assertmsg("putclosrout#6 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#6 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1022*/ meltfptr[1021])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1023*/ meltfptr[1022]); + melt_assertmsg("putclosrout#6 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#6 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V995*/ meltfptr[994])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V994*/ meltfptr[993])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V995*/ meltfptr[994]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1022*/ meltfptr[1021]); + meltgc_touch(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1021*/ meltfptr[1020])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V993*/ meltfptr[992])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V1021*/ meltfptr[1020])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + ((meltroutine_ptr_t)/*_.VALROUT___V993*/ meltfptr[992])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); - MELT_LOCATION("warmelt-macro.melt:1328:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1307:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1021*/ meltfptr[1020]); + meltgc_touch(/*_.VALROUT___V993*/ meltfptr[992]); /*putclosurout#7*/ - melt_assertmsg("putclosrout#7 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1020*/ meltfptr[1019])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#7 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1021*/ meltfptr[1020])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1020*/ meltfptr[1019])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1021*/ meltfptr[1020]); + melt_assertmsg("putclosrout#7 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V992*/ meltfptr[991])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#7 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V993*/ meltfptr[992])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V992*/ meltfptr[991])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V993*/ meltfptr[992]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1020*/ meltfptr[1019]); + meltgc_touch(/*_.VALCLO___V992*/ meltfptr[991]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1020*/ meltfptr[1019]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V1020*/ meltfptr[1019]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V992*/ meltfptr[991]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V992*/ meltfptr[991]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#13", NULL != (/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#13", NULL != (/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_975__EXPAND_CITERATION#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_CITERATION#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_975__EXPAND_CITERATION#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_CITERATION#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_975__EXPAND_CITERATION#2", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_CITERATION#2", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_975__EXPAND_CITERATION#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_947__EXPAND_CITERATION#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1016*/ meltfptr[1015]); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V988*/ meltfptr[987]); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#0", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#0", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#2", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#2", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#3", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#3", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#4", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#4", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#5", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#5", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#6", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#6", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#8", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#8", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#9", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[9] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#9", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[9] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_ARG_BINDINGS#10", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1028*/ meltfptr[1027])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_ARG_BINDINGS#10", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1000*/ meltfptr[999])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1736:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1715:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1028*/ meltfptr[1027]); + meltgc_touch(/*_.VALROUT___V1000*/ meltfptr[999]); /*putclosurout#8*/ - melt_assertmsg("putclosrout#8 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#8 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1028*/ meltfptr[1027])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1027*/ meltfptr[1026])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1028*/ meltfptr[1027]); + melt_assertmsg("putclosrout#8 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#8 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1000*/ meltfptr[999])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V999*/ meltfptr[998])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1000*/ meltfptr[999]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1027*/ meltfptr[1026]); + meltgc_touch(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V149*/ meltfptr[148]); - ((meltroutine_ptr_t)/*_.VALROUT___V1026*/ meltfptr[1025])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V139*/ meltfptr[138]); + ((meltroutine_ptr_t)/*_.VALROUT___V998*/ meltfptr[997])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V139*/ meltfptr[138]); - MELT_LOCATION("warmelt-macro.melt:1027:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1006:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1026*/ meltfptr[1025]); + meltgc_touch(/*_.VALROUT___V998*/ meltfptr[997]); /*putclosurout#9*/ - melt_assertmsg("putclosrout#9 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1025*/ meltfptr[1024])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#9 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1026*/ meltfptr[1025])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1025*/ meltfptr[1024])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1026*/ meltfptr[1025]); + melt_assertmsg("putclosrout#9 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V997*/ meltfptr[996])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#9 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V998*/ meltfptr[997])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V997*/ meltfptr[996])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V998*/ meltfptr[997]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1025*/ meltfptr[1024]); + meltgc_touch(/*_.VALCLO___V997*/ meltfptr[996]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1025*/ meltfptr[1024]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1025*/ meltfptr[1024]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V997*/ meltfptr[996]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V997*/ meltfptr[996]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#15", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#15", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[15] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_979__EXPAND_CMATCHEXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_951__EXPAND_CMATCHEXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_979__EXPAND_CMATCHEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_951__EXPAND_CMATCHEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_979__EXPAND_CMATCHEXPR#2", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_951__EXPAND_CMATCHEXPR#2", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_979__EXPAND_CMATCHEXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_951__EXPAND_CMATCHEXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V167*/ meltfptr[166]); - ((meltroutine_ptr_t)/*_.VALROUT___V1030*/ meltfptr[1029])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V157*/ meltfptr[156]); + ((meltroutine_ptr_t)/*_.VALROUT___V1002*/ meltfptr[1001])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V157*/ meltfptr[156]); - MELT_LOCATION("warmelt-macro.melt:1086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1065:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1030*/ meltfptr[1029]); + meltgc_touch(/*_.VALROUT___V1002*/ meltfptr[1001]); /*putclosurout#10*/ - melt_assertmsg("putclosrout#10 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1029*/ meltfptr[1028])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#10 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1029*/ meltfptr[1028])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1030*/ meltfptr[1029]); + melt_assertmsg("putclosrout#10 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1001*/ meltfptr[1000])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#10 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1002*/ meltfptr[1001])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1001*/ meltfptr[1000])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1002*/ meltfptr[1001]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1029*/ meltfptr[1028]); + meltgc_touch(/*_.VALCLO___V1001*/ meltfptr[1000]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1029*/ meltfptr[1028]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1029*/ meltfptr[1028]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1001*/ meltfptr[1000]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1001*/ meltfptr[1000]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#17", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[17] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#17", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[17] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__EXPAND_FUNMATCHEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_FUNMATCHEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__EXPAND_FUNMATCHEXPR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_FUNMATCHEXPR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__EXPAND_FUNMATCHEXPR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_FUNMATCHEXPR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__EXPAND_FUNMATCHEXPR#3", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[3] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_955__EXPAND_FUNMATCHEXPR#3", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[3] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V177*/ meltfptr[176]); - ((meltroutine_ptr_t)/*_.VALROUT___V1032*/ meltfptr[1031])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V167*/ meltfptr[166]); + ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ meltfptr[1003])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V167*/ meltfptr[166]); - MELT_LOCATION("warmelt-macro.melt:1128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1107:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1032*/ meltfptr[1031]); + meltgc_touch(/*_.VALROUT___V1004*/ meltfptr[1003]); /*putclosurout#11*/ - melt_assertmsg("putclosrout#11 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1031*/ meltfptr[1030])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#11 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1031*/ meltfptr[1030])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1032*/ meltfptr[1031]); + melt_assertmsg("putclosrout#11 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1003*/ meltfptr[1002])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#11 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1003*/ meltfptr[1002])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1004*/ meltfptr[1003]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1031*/ meltfptr[1030]); + meltgc_touch(/*_.VALCLO___V1003*/ meltfptr[1002]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1031*/ meltfptr[1030]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1031*/ meltfptr[1030]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1003*/ meltfptr[1002]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1003*/ meltfptr[1002]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#19", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#19", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#2", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#2", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#4", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#4", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#6", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[6] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#6", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[6] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_967__EXPAND_FIELDEXPR#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_939__EXPAND_FIELDEXPR#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V535*/ meltfptr[534]); - ((meltroutine_ptr_t)/*_.VALROUT___V1034*/ meltfptr[1033])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ meltfptr[1005])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-macro.melt:970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:949:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1034*/ meltfptr[1033]); + meltgc_touch(/*_.VALROUT___V1006*/ meltfptr[1005]); /*putclosurout#12*/ - melt_assertmsg("putclosrout#12 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1033*/ meltfptr[1032])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#12 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1033*/ meltfptr[1032])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1034*/ meltfptr[1033]); + melt_assertmsg("putclosrout#12 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1005*/ meltfptr[1004])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#12 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ meltfptr[1005])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1005*/ meltfptr[1004])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1006*/ meltfptr[1005]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1033*/ meltfptr[1032]); + meltgc_touch(/*_.VALCLO___V1005*/ meltfptr[1004]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1033*/ meltfptr[1032]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V1033*/ meltfptr[1032]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1005*/ meltfptr[1004]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V1005*/ meltfptr[1004]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#21", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[21] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#21", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[21] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_957__EXPAND_APPLY#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1036*/ meltfptr[1035])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_929__EXPAND_APPLY#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1008*/ meltfptr[1007])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_957__EXPAND_APPLY#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1036*/ meltfptr[1035])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_929__EXPAND_APPLY#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1008*/ meltfptr[1007])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1036*/ meltfptr[1035])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V1008*/ meltfptr[1007])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1036*/ meltfptr[1035])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1008*/ meltfptr[1007])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V105*/ meltfptr[104]); - ((meltroutine_ptr_t)/*_.VALROUT___V1036*/ meltfptr[1035])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); + ((meltroutine_ptr_t)/*_.VALROUT___V1008*/ meltfptr[1007])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); - MELT_LOCATION("warmelt-macro.melt:921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:900:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1036*/ meltfptr[1035]); + meltgc_touch(/*_.VALROUT___V1008*/ meltfptr[1007]); /*putclosurout#13*/ - melt_assertmsg("putclosrout#13 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1035*/ meltfptr[1034])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#13 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1036*/ meltfptr[1035])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1035*/ meltfptr[1034])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1036*/ meltfptr[1035]); + melt_assertmsg("putclosrout#13 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1007*/ meltfptr[1006])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#13 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1007*/ meltfptr[1006])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1008*/ meltfptr[1007]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1035*/ meltfptr[1034]); + meltgc_touch(/*_.VALCLO___V1007*/ meltfptr[1006]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1035*/ meltfptr[1034]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V1035*/ meltfptr[1034]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1007*/ meltfptr[1006]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V1007*/ meltfptr[1006]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#23", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[23] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#23", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[23] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#24", NULL != (/*_.CLASS_SELECTOR__V7*/ meltfptr[6])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[24] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#24", NULL != (/*_.CLASS_SELECTOR__V7*/ meltfptr[6])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[24] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#25", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[25] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#25", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[25] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#26", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[26] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#26", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[26] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#27", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[27] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#27", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[27] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#28", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[28] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#28", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[28] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[29] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[29] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1267:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1037*/ meltfptr[1036])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1037*/ meltfptr[1036])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ meltfptr[1008])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ meltfptr[1008])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1288:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1267:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1037*/ meltfptr[1036]); + meltgc_touch(/*_.VALROUT___V1009*/ meltfptr[1008]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#30", NULL != (/*_.VALROUT___V1037*/ meltfptr[1036])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[30] = (melt_ptr_t)(/*_.VALROUT___V1037*/ meltfptr[1036]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#30", NULL != (/*_.VALROUT___V1009*/ meltfptr[1008])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[30] = (melt_ptr_t)(/*_.VALROUT___V1009*/ meltfptr[1008]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V81*/ meltfptr[80]); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80]); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V81*/ meltfptr[80]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_989__MACROEXPAND_1#32", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1011*/ meltfptr[1010])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_961__MACROEXPAND_1#32", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V983*/ meltfptr[982])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1178:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1157:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1011*/ meltfptr[1010]); + meltgc_touch(/*_.VALROUT___V983*/ meltfptr[982]); /*putclosurout#14*/ - melt_assertmsg("putclosrout#14 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#14 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1011*/ meltfptr[1010])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1010*/ meltfptr[1009])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1011*/ meltfptr[1010]); + melt_assertmsg("putclosrout#14 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#14 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V983*/ meltfptr[982])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V982*/ meltfptr[981])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V983*/ meltfptr[982]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1010*/ meltfptr[1009]); + meltgc_touch(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:820:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:799:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ meltfptr[1008])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ meltfptr[1008])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V981*/ meltfptr[980])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V981*/ meltfptr[980])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:820:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:799:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1009*/ meltfptr[1008]); + meltgc_touch(/*_.VALROUT___V981*/ meltfptr[980]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1010*/ meltfptr[1009])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1039*/ meltfptr[1038]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1010*/ meltfptr[1009])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1010*/ meltfptr[1009]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1011*/ meltfptr[1010]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1038*/ meltfptr[1037]); + meltgc_touch(/*_.VALDATA___V1010*/ meltfptr[1009]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1012*/ meltfptr[1011])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1041*/ meltfptr[1040]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1012*/ meltfptr[1011])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1012*/ meltfptr[1011]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1013*/ meltfptr[1012]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1040*/ meltfptr[1039]); + meltgc_touch(/*_.VALDATA___V1012*/ meltfptr[1011]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1043*/ meltfptr[1042]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1014*/ meltfptr[1013])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1014*/ meltfptr[1013]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1015*/ meltfptr[1014]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1042*/ meltfptr[1041]); + meltgc_touch(/*_.VALDATA___V1014*/ meltfptr[1013]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1045*/ meltfptr[1044]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1017*/ meltfptr[1016]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1044*/ meltfptr[1043]); + meltgc_touch(/*_.VALDATA___V1016*/ meltfptr[1015]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1018*/ meltfptr[1017])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1047*/ meltfptr[1046]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1018*/ meltfptr[1017])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1018*/ meltfptr[1017]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1019*/ meltfptr[1018]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1046*/ meltfptr[1045]); + meltgc_touch(/*_.VALDATA___V1018*/ meltfptr[1017]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1049*/ meltfptr[1048]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1021*/ meltfptr[1020]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1048*/ meltfptr[1047]); + meltgc_touch(/*_.VALDATA___V1020*/ meltfptr[1019]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1022*/ meltfptr[1021])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1051*/ meltfptr[1050]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1022*/ meltfptr[1021])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1022*/ meltfptr[1021]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1023*/ meltfptr[1022]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1050*/ meltfptr[1049]); + meltgc_touch(/*_.VALDATA___V1022*/ meltfptr[1021]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1024*/ meltfptr[1023])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1053*/ meltfptr[1052]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1024*/ meltfptr[1023])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1024*/ meltfptr[1023]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1025*/ meltfptr[1024]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1052*/ meltfptr[1051]); + meltgc_touch(/*_.VALDATA___V1024*/ meltfptr[1023]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1026*/ meltfptr[1025])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1055*/ meltfptr[1054]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1026*/ meltfptr[1025])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1026*/ meltfptr[1025]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1027*/ meltfptr[1026]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1054*/ meltfptr[1053]); + meltgc_touch(/*_.VALDATA___V1026*/ meltfptr[1025]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1028*/ meltfptr[1027])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1057*/ meltfptr[1056]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1028*/ meltfptr[1027])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1028*/ meltfptr[1027]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1029*/ meltfptr[1028]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1056*/ meltfptr[1055]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); + meltgc_touch(/*_.VALDATA___V1028*/ meltfptr[1027]); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1059*/ meltfptr[1058]); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1030*/ meltfptr[1029])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1030*/ meltfptr[1029])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1030*/ meltfptr[1029]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1031*/ meltfptr[1030]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1058*/ meltfptr[1057]); + meltgc_touch(/*_.VALDATA___V1030*/ meltfptr[1029]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1060*/ meltfptr[1059])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1032*/ meltfptr[1031])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1060*/ meltfptr[1059])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1060*/ meltfptr[1059]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1061*/ meltfptr[1060]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1032*/ meltfptr[1031])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1032*/ meltfptr[1031]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1033*/ meltfptr[1032]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1060*/ meltfptr[1059]); + meltgc_touch(/*_.VALDATA___V1032*/ meltfptr[1031]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1062*/ meltfptr[1061])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1062*/ meltfptr[1061])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1062*/ meltfptr[1061]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1063*/ meltfptr[1062]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1034*/ meltfptr[1033])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1034*/ meltfptr[1033]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1035*/ meltfptr[1034]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1062*/ meltfptr[1061]); + meltgc_touch(/*_.VALDATA___V1034*/ meltfptr[1033]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1064*/ meltfptr[1063])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1064*/ meltfptr[1063])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1064*/ meltfptr[1063]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1065*/ meltfptr[1064]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1037*/ meltfptr[1036]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1064*/ meltfptr[1063]); + meltgc_touch(/*_.VALDATA___V1036*/ meltfptr[1035]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1066*/ meltfptr[1065])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1066*/ meltfptr[1065])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1066*/ meltfptr[1065]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1067*/ meltfptr[1066]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1039*/ meltfptr[1038]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1066*/ meltfptr[1065]); + meltgc_touch(/*_.VALDATA___V1038*/ meltfptr[1037]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1069*/ meltfptr[1068]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1041*/ meltfptr[1040]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1068*/ meltfptr[1067]); + meltgc_touch(/*_.VALDATA___V1040*/ meltfptr[1039]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1071*/ meltfptr[1070]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1043*/ meltfptr[1042]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1070*/ meltfptr[1069]); + meltgc_touch(/*_.VALDATA___V1042*/ meltfptr[1041]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1073*/ meltfptr[1072]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1045*/ meltfptr[1044]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1072*/ meltfptr[1071]); + meltgc_touch(/*_.VALDATA___V1044*/ meltfptr[1043]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1074*/ meltfptr[1073])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1074*/ meltfptr[1073])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1074*/ meltfptr[1073]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1075*/ meltfptr[1074]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1047*/ meltfptr[1046]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1074*/ meltfptr[1073]); + meltgc_touch(/*_.VALDATA___V1046*/ meltfptr[1045]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1076*/ meltfptr[1075])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1076*/ meltfptr[1075])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1076*/ meltfptr[1075]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1077*/ meltfptr[1076]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1049*/ meltfptr[1048]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1076*/ meltfptr[1075]); + meltgc_touch(/*_.VALDATA___V1048*/ meltfptr[1047]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1078*/ meltfptr[1077])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1078*/ meltfptr[1077])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1078*/ meltfptr[1077]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1079*/ meltfptr[1078]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1051*/ meltfptr[1050]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1078*/ meltfptr[1077]); + meltgc_touch(/*_.VALDATA___V1050*/ meltfptr[1049]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1081*/ meltfptr[1080]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1053*/ meltfptr[1052]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1080*/ meltfptr[1079]); + meltgc_touch(/*_.VALDATA___V1052*/ meltfptr[1051]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1082*/ meltfptr[1081])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1082*/ meltfptr[1081])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1082*/ meltfptr[1081]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1083*/ meltfptr[1082]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1055*/ meltfptr[1054]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1082*/ meltfptr[1081]); + meltgc_touch(/*_.VALDATA___V1054*/ meltfptr[1053]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1085*/ meltfptr[1084]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1057*/ meltfptr[1056]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1084*/ meltfptr[1083]); + meltgc_touch(/*_.VALDATA___V1056*/ meltfptr[1055]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1087*/ meltfptr[1086]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1059*/ meltfptr[1058]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[4] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V31*/ meltfptr[30]); - /*putupl#785*/ - melt_assertmsg("putupl #785 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1088*/ meltfptr[1087]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #785 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1088*/ meltfptr[1087])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1088*/ meltfptr[1087]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V31*/ meltfptr[30]); + /*putupl#762*/ + melt_assertmsg("putupl #762 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1060*/ meltfptr[1059]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #762 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1060*/ meltfptr[1059])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V1060*/ meltfptr[1059]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V31*/ meltfptr[30]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1088*/ meltfptr[1087]); + meltgc_touch(/*_.VALTUP___V1060*/ meltfptr[1059]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[5] = (melt_ptr_t)( - /*_.VALTUP___V1088*/ meltfptr[1087]); + melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[5] = (melt_ptr_t)( + /*_.VALTUP___V1060*/ meltfptr[1059]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1090*/ meltfptr[1089]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1062*/ meltfptr[1061]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1089*/ meltfptr[1088]); + meltgc_touch(/*_.VALDATA___V1061*/ meltfptr[1060]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1092*/ meltfptr[1091]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1064*/ meltfptr[1063]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1091*/ meltfptr[1090]); + meltgc_touch(/*_.VALDATA___V1063*/ meltfptr[1062]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1094*/ meltfptr[1093]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1066*/ meltfptr[1065]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1093*/ meltfptr[1092]); + meltgc_touch(/*_.VALDATA___V1065*/ meltfptr[1064]); - /*putupl#786*/ - melt_assertmsg("putupl #786 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #786 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1089*/ meltfptr[1088]); + /*putupl#763*/ + melt_assertmsg("putupl #763 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #763 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1061*/ meltfptr[1060]); - /*putupl#787*/ - melt_assertmsg("putupl #787 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #787 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1091*/ meltfptr[1090]); + /*putupl#764*/ + melt_assertmsg("putupl #764 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #764 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1063*/ meltfptr[1062]); - /*putupl#788*/ - melt_assertmsg("putupl #788 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #788 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ meltfptr[1094]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1093*/ meltfptr[1092]); + /*putupl#765*/ + melt_assertmsg("putupl #765 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #765 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V1067*/ meltfptr[1066]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1065*/ meltfptr[1064]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1095*/ meltfptr[1094]); + meltgc_touch(/*_.VALTUP___V1067*/ meltfptr[1066]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]))->obj_vartab[6] = (melt_ptr_t)( - /*_.VALTUP___V1095*/ meltfptr[1094]); + melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]))->obj_vartab[6] = (melt_ptr_t)( + /*_.VALTUP___V1067*/ meltfptr[1066]); - MELT_LOCATION("warmelt-macro.melt:1345:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1324:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1086*/ meltfptr[1085]); + meltgc_touch(/*_.VALDATA___V1058*/ meltfptr[1057]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1097*/ meltfptr[1096]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1069*/ meltfptr[1068]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1096*/ meltfptr[1095]); + meltgc_touch(/*_.VALDATA___V1068*/ meltfptr[1067]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1099*/ meltfptr[1098]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1071*/ meltfptr[1070]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1098*/ meltfptr[1097]); + meltgc_touch(/*_.VALDATA___V1070*/ meltfptr[1069]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1101*/ meltfptr[1100]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1073*/ meltfptr[1072]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1100*/ meltfptr[1099]); + meltgc_touch(/*_.VALDATA___V1072*/ meltfptr[1071]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1102*/ meltfptr[1101])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ meltfptr[1073])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1102*/ meltfptr[1101])->tabval[1] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ meltfptr[1073])->tabval[1] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1102*/ meltfptr[1101])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ meltfptr[1073])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#2", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1077*/ meltfptr[1076])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1106*/ meltfptr[1105]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1077*/ meltfptr[1076])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1077*/ meltfptr[1076]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1078*/ meltfptr[1077]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1105*/ meltfptr[1104]); + meltgc_touch(/*_.VALDATA___V1077*/ meltfptr[1076]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#4", NULL != (/*_.VALDATA___V1105*/ meltfptr[1104])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#4", NULL != (/*_.VALDATA___V1077*/ meltfptr[1076])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V1077*/ meltfptr[1076]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V905*/ meltfptr[904]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V905*/ meltfptr[904]); - + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V877*/ meltfptr[876]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876]); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_8*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_9 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#7", NULL != (/*_.VALBXINT___V1107*/ meltfptr[1106])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[7] = (melt_ptr_t)(/*_.VALBXINT___V1107*/ meltfptr[1106]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#7", NULL != (/*_.VALBXINT___V1079*/ meltfptr[1078])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[7] = (melt_ptr_t)(/*_.VALBXINT___V1079*/ meltfptr[1078]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1109*/ meltfptr[1108]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1081*/ meltfptr[1080]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1108*/ meltfptr[1107]); + meltgc_touch(/*_.VALDATA___V1080*/ meltfptr[1079]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#8", NULL != (/*_.VALDATA___V1108*/ meltfptr[1107])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#8", NULL != (/*_.VALDATA___V1080*/ meltfptr[1079])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V899*/ meltfptr[898]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V871*/ meltfptr[870]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#10", NULL != (/*_.VALBXINT___V1110*/ meltfptr[1109])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[10] = (melt_ptr_t)(/*_.VALBXINT___V1110*/ meltfptr[1109]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#10", NULL != (/*_.VALBXINT___V1082*/ meltfptr[1081])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[10] = (melt_ptr_t)(/*_.VALBXINT___V1082*/ meltfptr[1081]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#11", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[11] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#11", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[11] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#12", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#12", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V883*/ meltfptr[882]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V855*/ meltfptr[854]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#14", NULL != (/*_.VALBXINT___V1111*/ meltfptr[1110])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[14] = (melt_ptr_t)(/*_.VALBXINT___V1111*/ meltfptr[1110]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#14", NULL != (/*_.VALBXINT___V1083*/ meltfptr[1082])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[14] = (melt_ptr_t)(/*_.VALBXINT___V1083*/ meltfptr[1082]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#6", NULL != (/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[6] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#6", NULL != (/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[6] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#7", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#7", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#8", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#8", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#0", NULL != (/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#0", NULL != (/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#3", NULL != (/*_.DISCR_BOX__V34*/ meltfptr[33])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[3] = (melt_ptr_t)(/*_.DISCR_BOX__V34*/ meltfptr[33]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#3", NULL != (/*_.DISCR_BOX__V34*/ meltfptr[33])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[3] = (melt_ptr_t)(/*_.DISCR_BOX__V34*/ meltfptr[33]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#4", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#4", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1362:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1047__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1116*/ meltfptr[1115])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1088*/ meltfptr[1087])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1019__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1088*/ meltfptr[1087])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1362:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1116*/ meltfptr[1115])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1088*/ meltfptr[1087])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1088*/ meltfptr[1087])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1362:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1047__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1116*/ meltfptr[1115])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1088*/ meltfptr[1087])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1019__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1088*/ meltfptr[1087])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1383:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1362:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1116*/ meltfptr[1115]); + meltgc_touch(/*_.VALROUT___V1088*/ meltfptr[1087]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#8", NULL != (/*_.VALROUT___V1116*/ meltfptr[1115])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1116*/ meltfptr[1115]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#8", NULL != (/*_.VALROUT___V1088*/ meltfptr[1087])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1088*/ meltfptr[1087]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#10", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#10", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[10] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1395:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1117*/ meltfptr[1116])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1117*/ meltfptr[1116])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1089*/ meltfptr[1088])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1089*/ meltfptr[1088])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:1395:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1117*/ meltfptr[1116])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1050__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1117*/ meltfptr[1116])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1089*/ meltfptr[1088])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1022__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1089*/ meltfptr[1088])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1395:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1374:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1117*/ meltfptr[1116]); + meltgc_touch(/*_.VALROUT___V1089*/ meltfptr[1088]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#11", NULL != (/*_.VALROUT___V1117*/ meltfptr[1116])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V1117*/ meltfptr[1116]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#11", NULL != (/*_.VALROUT___V1089*/ meltfptr[1088])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V1089*/ meltfptr[1088]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#12", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[12] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#12", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[12] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__PATMACEXPAND_FOR_MATCHER#13", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1115*/ meltfptr[1114])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1011__PATMACEXPAND_FOR_MATCHER#13", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1087*/ meltfptr[1086])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1371:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1350:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1115*/ meltfptr[1114]); + meltgc_touch(/*_.VALROUT___V1087*/ meltfptr[1086]); /*putclosurout#15*/ - melt_assertmsg("putclosrout#15 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1114*/ meltfptr[1113])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#15 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1115*/ meltfptr[1114])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1114*/ meltfptr[1113])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1115*/ meltfptr[1114]); + melt_assertmsg("putclosrout#15 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1086*/ meltfptr[1085])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#15 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1087*/ meltfptr[1086])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1086*/ meltfptr[1085])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1087*/ meltfptr[1086]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1114*/ meltfptr[1113]); + meltgc_touch(/*_.VALCLO___V1086*/ meltfptr[1085]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1114*/ meltfptr[1113]); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1114*/ meltfptr[1113]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1086*/ meltfptr[1085]); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1086*/ meltfptr[1085]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1051__PATTERN_WEIGHT_TUPLE#0", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V1119*/ meltfptr[1118])->tabval[0] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1023__PATTERN_WEIGHT_TUPLE#0", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V1091*/ meltfptr[1090])->tabval[0] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1051__PATTERN_WEIGHT_TUPLE#1", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); - ((meltroutine_ptr_t)/*_.VALROUT___V1119*/ meltfptr[1118])->tabval[1] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1023__PATTERN_WEIGHT_TUPLE#1", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); + ((meltroutine_ptr_t)/*_.VALROUT___V1091*/ meltfptr[1090])->tabval[1] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V839*/ meltfptr[838]); - ((meltroutine_ptr_t)/*_.VALROUT___V1119*/ meltfptr[1118])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V811*/ meltfptr[810]); + ((meltroutine_ptr_t)/*_.VALROUT___V1091*/ meltfptr[1090])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1051__PATTERN_WEIGHT_TUPLE#3", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1119*/ meltfptr[1118])->tabval[3] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1023__PATTERN_WEIGHT_TUPLE#3", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1091*/ meltfptr[1090])->tabval[3] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1120*/ meltfptr[1119])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V839*/ meltfptr[838]); - ((meltroutine_ptr_t)/*_.VALROUT___V1120*/ meltfptr[1119])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1092*/ meltfptr[1091])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V811*/ meltfptr[810]); + ((meltroutine_ptr_t)/*_.VALROUT___V1092*/ meltfptr[1091])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1120*/ meltfptr[1119])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1055__LAMBDA_#1", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1120*/ meltfptr[1119])->tabval[1] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1092*/ meltfptr[1091])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1027__LAMBDA_#1", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1092*/ meltfptr[1091])->tabval[1] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1406:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1120*/ meltfptr[1119]); + meltgc_touch(/*_.VALROUT___V1092*/ meltfptr[1091]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1051__PATTERN_WEIGHT_TUPLE#4", NULL != (/*_.VALROUT___V1120*/ meltfptr[1119])); - ((meltroutine_ptr_t)/*_.VALROUT___V1119*/ meltfptr[1118])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1120*/ meltfptr[1119]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1023__PATTERN_WEIGHT_TUPLE#4", NULL != (/*_.VALROUT___V1092*/ meltfptr[1091])); + ((meltroutine_ptr_t)/*_.VALROUT___V1091*/ meltfptr[1090])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1092*/ meltfptr[1091]); - MELT_LOCATION("warmelt-macro.melt:1414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1393:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1119*/ meltfptr[1118]); + meltgc_touch(/*_.VALROUT___V1091*/ meltfptr[1090]); /*putclosurout#16*/ - melt_assertmsg("putclosrout#16 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#16 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1119*/ meltfptr[1118])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1118*/ meltfptr[1117])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1119*/ meltfptr[1118]); + melt_assertmsg("putclosrout#16 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#16 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1091*/ meltfptr[1090])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1090*/ meltfptr[1089])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1091*/ meltfptr[1090]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1118*/ meltfptr[1117]); + meltgc_touch(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1118*/ meltfptr[1117]); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1090*/ meltfptr[1089]); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V999*/ meltfptr[998]); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V999*/ meltfptr[998]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V971*/ meltfptr[970]); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V971*/ meltfptr[970]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#12", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[12] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#12", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[12] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#13", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#13", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#14", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#14", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1005*/ meltfptr[1004]); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1005*/ meltfptr[1004]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V977*/ meltfptr[976]); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V977*/ meltfptr[976]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_8*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_9 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#16", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[16] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#16", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[16] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#17", NULL != (/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[17] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#17", NULL != (/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[17] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V33*/ meltfptr[32]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__PATTERNEXPAND_EXPR#18", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1113*/ meltfptr[1112])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__PATTERNEXPAND_EXPR#18", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1085*/ meltfptr[1084])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1448:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1427:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1113*/ meltfptr[1112]); + meltgc_touch(/*_.VALROUT___V1085*/ meltfptr[1084]); /*putclosurout#17*/ - melt_assertmsg("putclosrout#17 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1112*/ meltfptr[1111])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#17 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1112*/ meltfptr[1111])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1113*/ meltfptr[1112]); + melt_assertmsg("putclosrout#17 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1084*/ meltfptr[1083])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#17 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1085*/ meltfptr[1084])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1084*/ meltfptr[1083])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1085*/ meltfptr[1084]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1112*/ meltfptr[1111]); + meltgc_touch(/*_.VALCLO___V1084*/ meltfptr[1083]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1112*/ meltfptr[1111]); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[15] = (melt_ptr_t)(/*_.VALCLO___V1112*/ meltfptr[1111]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1084*/ meltfptr[1083]); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[15] = (melt_ptr_t)(/*_.VALCLO___V1084*/ meltfptr[1083]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__PATTERNEXPAND_1#16", NULL != (/*_.VALBXINT___V1121*/ meltfptr[1120])); - ((meltroutine_ptr_t)/*_.VALROUT___V1104*/ meltfptr[1103])->tabval[16] = (melt_ptr_t)(/*_.VALBXINT___V1121*/ meltfptr[1120]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_1#16", NULL != (/*_.VALBXINT___V1093*/ meltfptr[1092])); + ((meltroutine_ptr_t)/*_.VALROUT___V1076*/ meltfptr[1075])->tabval[16] = (melt_ptr_t)(/*_.VALBXINT___V1093*/ meltfptr[1092]); - MELT_LOCATION("warmelt-macro.melt:1601:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1580:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1104*/ meltfptr[1103]); + meltgc_touch(/*_.VALROUT___V1076*/ meltfptr[1075]); /*putclosurout#18*/ - melt_assertmsg("putclosrout#18 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#18 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1104*/ meltfptr[1103])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1103*/ meltfptr[1102])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1104*/ meltfptr[1103]); + melt_assertmsg("putclosrout#18 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#18 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1075*/ meltfptr[1074])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1076*/ meltfptr[1075]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1103*/ meltfptr[1102]); + meltgc_touch(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1102*/ meltfptr[1101])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ meltfptr[1073])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:1361:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1340:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1122*/ meltfptr[1121])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1122*/ meltfptr[1121])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ meltfptr[1093])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:1361:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1340:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1122*/ meltfptr[1121]); + meltgc_touch(/*_.VALROUT___V1094*/ meltfptr[1093]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", NULL != (/*_.VALROUT___V1122*/ meltfptr[1121])); - ((meltroutine_ptr_t)/*_.VALROUT___V1102*/ meltfptr[1101])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1122*/ meltfptr[1121]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1006__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", NULL != (/*_.VALROUT___V1094*/ meltfptr[1093])); + ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ meltfptr[1073])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1094*/ meltfptr[1093]); - MELT_LOCATION("warmelt-macro.melt:1357:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1336:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1102*/ meltfptr[1101]); + meltgc_touch(/*_.VALROUT___V1074*/ meltfptr[1073]); /*putclosurout#19*/ - melt_assertmsg("putclosrout#19 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#19 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1123*/ meltfptr[1122])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1102*/ meltfptr[1101]); + melt_assertmsg("putclosrout#19 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#19 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ meltfptr[1073])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1095*/ meltfptr[1094])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1074*/ meltfptr[1073]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1123*/ meltfptr[1122]); + meltgc_touch(/*_.VALCLO___V1095*/ meltfptr[1094]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1124*/ meltfptr[1123])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1124*/ meltfptr[1123])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1124*/ meltfptr[1123]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1125*/ meltfptr[1124]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1097*/ meltfptr[1096]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1124*/ meltfptr[1123]); + meltgc_touch(/*_.VALDATA___V1096*/ meltfptr[1095]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1127*/ meltfptr[1126]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1099*/ meltfptr[1098]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1126*/ meltfptr[1125]); + meltgc_touch(/*_.VALDATA___V1098*/ meltfptr[1097]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1129*/ meltfptr[1128]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1101*/ meltfptr[1100]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1128*/ meltfptr[1127]); + meltgc_touch(/*_.VALDATA___V1100*/ meltfptr[1099]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ meltfptr[1129])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1102*/ meltfptr[1101])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1130*/ meltfptr[1129])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ meltfptr[1129]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1131*/ meltfptr[1130]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1102*/ meltfptr[1101])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1102*/ meltfptr[1101]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1103*/ meltfptr[1102]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1130*/ meltfptr[1129]); + meltgc_touch(/*_.VALDATA___V1102*/ meltfptr[1101]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1104*/ meltfptr[1103])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1133*/ meltfptr[1132]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1104*/ meltfptr[1103])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1104*/ meltfptr[1103]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1105*/ meltfptr[1104]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1132*/ meltfptr[1131]); + meltgc_touch(/*_.VALDATA___V1104*/ meltfptr[1103]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1106*/ meltfptr[1105])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1135*/ meltfptr[1134]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1106*/ meltfptr[1105])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1106*/ meltfptr[1105]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1107*/ meltfptr[1106]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1134*/ meltfptr[1133]); + meltgc_touch(/*_.VALDATA___V1106*/ meltfptr[1105]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1137*/ meltfptr[1136]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1109*/ meltfptr[1108]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1136*/ meltfptr[1135]); + meltgc_touch(/*_.VALDATA___V1108*/ meltfptr[1107]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1138*/ meltfptr[1137])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1138*/ meltfptr[1137])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1138*/ meltfptr[1137]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1139*/ meltfptr[1138]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1111*/ meltfptr[1110]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1138*/ meltfptr[1137]); + meltgc_touch(/*_.VALDATA___V1110*/ meltfptr[1109]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1072__MACROEXPAND_TOPLEVEL_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ meltfptr[1139])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__MACROEXPAND_TOPLEVEL_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ meltfptr[1111])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1072__MACROEXPAND_TOPLEVEL_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ meltfptr[1139])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__MACROEXPAND_TOPLEVEL_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ meltfptr[1111])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ meltfptr[1139])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ meltfptr[1111])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1072__MACROEXPAND_TOPLEVEL_LIST#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ meltfptr[1139])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__MACROEXPAND_TOPLEVEL_LIST#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ meltfptr[1111])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1072__MACROEXPAND_TOPLEVEL_LIST#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ meltfptr[1139])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__MACROEXPAND_TOPLEVEL_LIST#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ meltfptr[1111])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-macro.melt:1691:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1670:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1140*/ meltfptr[1139]); + meltgc_touch(/*_.VALROUT___V1112*/ meltfptr[1111]); /*putclosurout#20*/ - melt_assertmsg("putclosrout#20 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1141*/ meltfptr[1140])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#20 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ meltfptr[1139])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1141*/ meltfptr[1140])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1140*/ meltfptr[1139]); + melt_assertmsg("putclosrout#20 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1113*/ meltfptr[1112])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#20 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1113*/ meltfptr[1112])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1112*/ meltfptr[1111]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1141*/ meltfptr[1140]); + meltgc_touch(/*_.VALCLO___V1113*/ meltfptr[1112]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1142*/ meltfptr[1141])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1114*/ meltfptr[1113])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1142*/ meltfptr[1141])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1142*/ meltfptr[1141]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1143*/ meltfptr[1142]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1114*/ meltfptr[1113])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1114*/ meltfptr[1113]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1115*/ meltfptr[1114]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1142*/ meltfptr[1141]); + meltgc_touch(/*_.VALDATA___V1114*/ meltfptr[1113]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1144*/ meltfptr[1143])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1144*/ meltfptr[1143])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1144*/ meltfptr[1143]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1145*/ meltfptr[1144]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1117*/ meltfptr[1116]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1144*/ meltfptr[1143]); + meltgc_touch(/*_.VALDATA___V1116*/ meltfptr[1115]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1146*/ meltfptr[1145])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1118*/ meltfptr[1117])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1146*/ meltfptr[1145])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1146*/ meltfptr[1145]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1147*/ meltfptr[1146]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1118*/ meltfptr[1117])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1118*/ meltfptr[1117]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1119*/ meltfptr[1118]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1146*/ meltfptr[1145]); + meltgc_touch(/*_.VALDATA___V1118*/ meltfptr[1117]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1148*/ meltfptr[1147])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1120*/ meltfptr[1119])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1148*/ meltfptr[1147])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1148*/ meltfptr[1147]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1149*/ meltfptr[1148]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1120*/ meltfptr[1119])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1120*/ meltfptr[1119]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1121*/ meltfptr[1120]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1148*/ meltfptr[1147]); + meltgc_touch(/*_.VALDATA___V1120*/ meltfptr[1119]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1122*/ meltfptr[1121])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1151*/ meltfptr[1150]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1122*/ meltfptr[1121])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1122*/ meltfptr[1121]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1123*/ meltfptr[1122]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1150*/ meltfptr[1149]); + meltgc_touch(/*_.VALDATA___V1122*/ meltfptr[1121]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1086__INSTALL_INITIAL_MACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__INSTALL_INITIAL_MACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1086__INSTALL_INITIAL_MACRO#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__INSTALL_INITIAL_MACRO#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); /*putclosurout#21*/ - melt_assertmsg("putclosrout#21 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#21 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1153*/ meltfptr[1152])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1152*/ meltfptr[1151]); + melt_assertmsg("putclosrout#21 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#21 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1125*/ meltfptr[1124])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1124*/ meltfptr[1123]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1153*/ meltfptr[1152]); + meltgc_touch(/*_.VALCLO___V1125*/ meltfptr[1124]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1153*/ meltfptr[1152]); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1125*/ meltfptr[1124]); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1086__INSTALL_INITIAL_MACRO#3", NULL != (/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21])); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[3] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__INSTALL_INITIAL_MACRO#3", NULL != (/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21])); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[3] = (melt_ptr_t)(/*_.CLASS_MACRO_BINDING__V22*/ meltfptr[21]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1086__INSTALL_INITIAL_MACRO#4", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[4] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__INSTALL_INITIAL_MACRO#4", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[4] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ meltfptr[1151])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1086__INSTALL_INITIAL_MACRO#5", NULL != (/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45])); - ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ meltfptr[1151])->tabval[5] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__INSTALL_INITIAL_MACRO#5", NULL != (/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45])); + ((meltroutine_ptr_t)/*_.VALROUT___V1124*/ meltfptr[1123])->tabval[5] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45]); - MELT_LOCATION("warmelt-macro.melt:1830:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1809:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1152*/ meltfptr[1151]); + meltgc_touch(/*_.VALROUT___V1124*/ meltfptr[1123]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1155*/ meltfptr[1154]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1127*/ meltfptr[1126]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1154*/ meltfptr[1153]); + meltgc_touch(/*_.VALDATA___V1126*/ meltfptr[1125]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1156*/ meltfptr[1155])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1156*/ meltfptr[1155])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1156*/ meltfptr[1155]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1157*/ meltfptr[1156]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1129*/ meltfptr[1128]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1156*/ meltfptr[1155]); + meltgc_touch(/*_.VALDATA___V1128*/ meltfptr[1127]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__INSTALL_INITIAL_PATMACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1158*/ meltfptr[1157])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1064__INSTALL_INITIAL_PATMACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1130*/ meltfptr[1129])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__INSTALL_INITIAL_PATMACRO#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1158*/ meltfptr[1157])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1064__INSTALL_INITIAL_PATMACRO#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1130*/ meltfptr[1129])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__INSTALL_INITIAL_PATMACRO#2", NULL != (/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38])); - ((meltroutine_ptr_t)/*_.VALROUT___V1158*/ meltfptr[1157])->tabval[2] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1064__INSTALL_INITIAL_PATMACRO#2", NULL != (/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38])); + ((meltroutine_ptr_t)/*_.VALROUT___V1130*/ meltfptr[1129])->tabval[2] = (melt_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V39*/ meltfptr[38]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__INSTALL_INITIAL_PATMACRO#3", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1158*/ meltfptr[1157])->tabval[3] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1064__INSTALL_INITIAL_PATMACRO#3", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1130*/ meltfptr[1129])->tabval[3] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__INSTALL_INITIAL_PATMACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45])); - ((meltroutine_ptr_t)/*_.VALROUT___V1158*/ meltfptr[1157])->tabval[4] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1064__INSTALL_INITIAL_PATMACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45])); + ((meltroutine_ptr_t)/*_.VALROUT___V1130*/ meltfptr[1129])->tabval[4] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V46*/ meltfptr[45]); - MELT_LOCATION("warmelt-macro.melt:1856:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1835:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1158*/ meltfptr[1157]); + meltgc_touch(/*_.VALROUT___V1130*/ meltfptr[1129]); /*putclosurout#22*/ - melt_assertmsg("putclosrout#22 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#22 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1158*/ meltfptr[1157])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1159*/ meltfptr[1158])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1158*/ meltfptr[1157]); + melt_assertmsg("putclosrout#22 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#22 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1130*/ meltfptr[1129])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1131*/ meltfptr[1130])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1130*/ meltfptr[1129]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1159*/ meltfptr[1158]); + meltgc_touch(/*_.VALCLO___V1131*/ meltfptr[1130]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ meltfptr[1159])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ meltfptr[1159])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ meltfptr[1159]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1161*/ meltfptr[1160]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1133*/ meltfptr[1132]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1160*/ meltfptr[1159]); + meltgc_touch(/*_.VALDATA___V1132*/ meltfptr[1131]); - MELT_LOCATION("warmelt-macro.melt:1874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1853:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1163*/ meltfptr[1162]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1135*/ meltfptr[1134]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1164*/ meltfptr[1163]); + meltgc_touch(/*_.VALTUP___V1136*/ meltfptr[1135]); - MELT_LOCATION("warmelt-macro.melt:1874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1853:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161]))->obj_vartab[2] = (melt_ptr_t)( - /*_.VALTUP___V1164*/ meltfptr[1163]); + melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]))->obj_vartab[2] = (melt_ptr_t)( + /*_.VALTUP___V1136*/ meltfptr[1135]); - MELT_LOCATION("warmelt-macro.melt:1874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1853:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161]))->obj_vartab[3] = (melt_ptr_t)( + melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]))->obj_vartab[3] = (melt_ptr_t)( ((void*)(MELT_PREDEF(CTYPE_LONG)))); - /*putupl#789*/ - melt_assertmsg("putupl #789 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1166*/ meltfptr[1165]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl #789 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1166*/ meltfptr[1165])))); - ((meltmultiple_ptr_t)(/*_.VALTUP___V1166*/ meltfptr[1165]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1165*/ meltfptr[1164]); + /*putupl#766*/ + melt_assertmsg("putupl #766 checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1138*/ meltfptr[1137]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl #766 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1138*/ meltfptr[1137])))); + ((meltmultiple_ptr_t)(/*_.VALTUP___V1138*/ meltfptr[1137]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1137*/ meltfptr[1136]); /*touch:INITUP_*/ - meltgc_touch(/*_.VALTUP___V1166*/ meltfptr[1165]); + meltgc_touch(/*_.VALTUP___V1138*/ meltfptr[1137]); - MELT_LOCATION("warmelt-macro.melt:1874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1853:/ initchunk"); /*^putslot*/ /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ meltfptr[1161]))->obj_vartab[4] = (melt_ptr_t)( - /*_.VALTUP___V1166*/ meltfptr[1165]); + melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133]))->obj_vartab[4] = (melt_ptr_t)( + /*_.VALTUP___V1138*/ meltfptr[1137]); - MELT_LOCATION("warmelt-macro.melt:1874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1853:/ initchunk"); /*^touch*/ /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1162*/ meltfptr[1161]); + meltgc_touch(/*_.VALDATA___V1134*/ meltfptr[1133]); - MELT_LOCATION("warmelt-macro.melt:1878:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1167*/ meltfptr[1166])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1101__WARN_IF_REDEFINED#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1167*/ meltfptr[1166])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1139*/ meltfptr[1138])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1073__WARN_IF_REDEFINED#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1139*/ meltfptr[1138])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1878:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1167*/ meltfptr[1166])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1101__WARN_IF_REDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1167*/ meltfptr[1166])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1139*/ meltfptr[1138])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1073__WARN_IF_REDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1139*/ meltfptr[1138])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1878:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1857:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1167*/ meltfptr[1166])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1101__WARN_IF_REDEFINED#2", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1167*/ meltfptr[1166])->tabval[2] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1139*/ meltfptr[1138])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1073__WARN_IF_REDEFINED#2", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1139*/ meltfptr[1138])->tabval[2] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:1878:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1857:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1167*/ meltfptr[1166]); + meltgc_touch(/*_.VALROUT___V1139*/ meltfptr[1138]); /*putclosurout#23*/ - melt_assertmsg("putclosrout#23 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#23 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1167*/ meltfptr[1166])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1168*/ meltfptr[1167])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1167*/ meltfptr[1166]); + melt_assertmsg("putclosrout#23 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#23 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1139*/ meltfptr[1138])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1140*/ meltfptr[1139])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1139*/ meltfptr[1138]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1168*/ meltfptr[1167]); + meltgc_touch(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1075__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__FLATTEN_FOR_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1075__FLATTEN_FOR_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46])); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46]); /*putclosurout#24*/ - melt_assertmsg("putclosrout#24 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1170*/ meltfptr[1169])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#24 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1170*/ meltfptr[1169])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1169*/ meltfptr[1168]); + melt_assertmsg("putclosrout#24 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1142*/ meltfptr[1141])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#24 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1142*/ meltfptr[1141])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1141*/ meltfptr[1140]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1170*/ meltfptr[1169]); + meltgc_touch(/*_.VALCLO___V1142*/ meltfptr[1141]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1170*/ meltfptr[1169]); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1170*/ meltfptr[1169]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1142*/ meltfptr[1141]); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1142*/ meltfptr[1141]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1075__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1075__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__FLATTEN_FOR_C_CODE_EXPANSION#5", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1169*/ meltfptr[1168])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1141*/ meltfptr[1140])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1075__FLATTEN_FOR_C_CODE_EXPANSION#5", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1141*/ meltfptr[1140])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1870:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1169*/ meltfptr[1168]); + meltgc_touch(/*_.VALROUT___V1141*/ meltfptr[1140]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1143*/ meltfptr[1142])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1172*/ meltfptr[1171]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1143*/ meltfptr[1142])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1143*/ meltfptr[1142]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1144*/ meltfptr[1143]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1171*/ meltfptr[1170]); + meltgc_touch(/*_.VALDATA___V1143*/ meltfptr[1142]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1145*/ meltfptr[1144])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[1] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1145*/ meltfptr[1144])->tabval[1] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1170*/ meltfptr[1169]); - ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1170*/ meltfptr[1169]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1142*/ meltfptr[1141]); + ((meltroutine_ptr_t)/*_.VALROUT___V1145*/ meltfptr[1144])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1142*/ meltfptr[1141]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1145*/ meltfptr[1144])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1079__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1145*/ meltfptr[1144])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1916:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1173*/ meltfptr[1172]); + meltgc_touch(/*_.VALROUT___V1145*/ meltfptr[1144]); /*putclosurout#25*/ - melt_assertmsg("putclosrout#25 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1174*/ meltfptr[1173])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#25 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1174*/ meltfptr[1173])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1173*/ meltfptr[1172]); + melt_assertmsg("putclosrout#25 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1146*/ meltfptr[1145])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#25 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1145*/ meltfptr[1144])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1146*/ meltfptr[1145])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1145*/ meltfptr[1144]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1174*/ meltfptr[1173]); + meltgc_touch(/*_.VALCLO___V1146*/ meltfptr[1145]); - MELT_LOCATION("warmelt-macro.melt:1958:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ meltfptr[1174])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1109__CHECK_C_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ meltfptr[1174])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1147*/ meltfptr[1146])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1081__CHECK_C_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1147*/ meltfptr[1146])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1958:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ meltfptr[1174])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1109__CHECK_C_EXPANSION#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ meltfptr[1174])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1147*/ meltfptr[1146])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1081__CHECK_C_EXPANSION#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1147*/ meltfptr[1146])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1958:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ meltfptr[1174])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1109__CHECK_C_EXPANSION#2", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ meltfptr[1174])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1147*/ meltfptr[1146])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1081__CHECK_C_EXPANSION#2", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1147*/ meltfptr[1146])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:1958:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1937:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1175*/ meltfptr[1174]); + meltgc_touch(/*_.VALROUT___V1147*/ meltfptr[1146]); /*putclosurout#26*/ - melt_assertmsg("putclosrout#26 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1176*/ meltfptr[1175])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#26 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ meltfptr[1174])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1176*/ meltfptr[1175])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1175*/ meltfptr[1174]); + melt_assertmsg("putclosrout#26 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1148*/ meltfptr[1147])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#26 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1147*/ meltfptr[1146])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1148*/ meltfptr[1147])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1147*/ meltfptr[1146]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1176*/ meltfptr[1175]); + meltgc_touch(/*_.VALCLO___V1148*/ meltfptr[1147]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#5", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#5", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[5] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#7", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1179*/ meltfptr[1178]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1151*/ meltfptr[1150]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1178*/ meltfptr[1177]); + meltgc_touch(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#8", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#8", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1174*/ meltfptr[1173]); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1174*/ meltfptr[1173]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1146*/ meltfptr[1145]); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1146*/ meltfptr[1145]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V365*/ meltfptr[364]); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V355*/ meltfptr[354]); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[12] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[12] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#13", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[13] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#13", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[13] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#14", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#14", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#15", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#15", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1176*/ meltfptr[1175]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1148*/ meltfptr[1147]); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1148*/ meltfptr[1147]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[17] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[17] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__MEXPAND_DEFPRIMITIVE#18", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1177*/ meltfptr[1176])->tabval[18] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__MEXPAND_DEFPRIMITIVE#18", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1149*/ meltfptr[1148])->tabval[18] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:1986:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:1965:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1177*/ meltfptr[1176]); + meltgc_touch(/*_.VALROUT___V1149*/ meltfptr[1148]); /*putclosurout#27*/ - melt_assertmsg("putclosrout#27 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1180*/ meltfptr[1179])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#27 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1177*/ meltfptr[1176])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1180*/ meltfptr[1179])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1177*/ meltfptr[1176]); + melt_assertmsg("putclosrout#27 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1152*/ meltfptr[1151])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#27 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1149*/ meltfptr[1148])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1152*/ meltfptr[1151])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1149*/ meltfptr[1148]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1180*/ meltfptr[1179]); + meltgc_touch(/*_.VALCLO___V1152*/ meltfptr[1151]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1181*/ meltfptr[1180])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1153*/ meltfptr[1152])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1181*/ meltfptr[1180])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1181*/ meltfptr[1180]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1182*/ meltfptr[1181]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1153*/ meltfptr[1152])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1153*/ meltfptr[1152]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1154*/ meltfptr[1153]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1181*/ meltfptr[1180]); + meltgc_touch(/*_.VALDATA___V1153*/ meltfptr[1152]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1184*/ meltfptr[1183]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1156*/ meltfptr[1155]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1183*/ meltfptr[1182]); + meltgc_touch(/*_.VALDATA___V1155*/ meltfptr[1154]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#5", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#5", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1174*/ meltfptr[1173]); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1174*/ meltfptr[1173]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1146*/ meltfptr[1145]); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1146*/ meltfptr[1145]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#7", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#7", NULL != (/*_.CLASS_CITERATOR__V18*/ meltfptr[17])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V18*/ meltfptr[17]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#8", NULL != (/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#8", NULL != (/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V25*/ meltfptr[24]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V397*/ meltfptr[396]); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V397*/ meltfptr[396]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ meltfptr[368]); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#10", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#10", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#11", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#11", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#12", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[12] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#12", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[12] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V1176*/ meltfptr[1175]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1148*/ meltfptr[1147]); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V1148*/ meltfptr[1147]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__MEXPAND_DEFCITERATOR#14", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1185*/ meltfptr[1184])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1091__MEXPAND_DEFCITERATOR#14", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1157*/ meltfptr[1156])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2073:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1185*/ meltfptr[1184]); + meltgc_touch(/*_.VALROUT___V1157*/ meltfptr[1156]); /*putclosurout#28*/ - melt_assertmsg("putclosrout#28 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1186*/ meltfptr[1185])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#28 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1185*/ meltfptr[1184])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1186*/ meltfptr[1185])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1185*/ meltfptr[1184]); - - /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1186*/ meltfptr[1185]); - - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])) == MELTOBMAG_OBJECT); - - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1188*/ meltfptr[1187]); - - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1187*/ meltfptr[1186]); - - MELT_LOCATION("warmelt-macro.melt:2217:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ meltfptr[1188])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__MEXPAND_DEFVARIADIC#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ meltfptr[1188])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - - MELT_LOCATION("warmelt-macro.melt:2217:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ meltfptr[1188])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__MEXPAND_DEFVARIADIC#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ meltfptr[1188])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - - MELT_LOCATION("warmelt-macro.melt:2217:/ initchunk"); - /*^putroutconst*/ - /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ meltfptr[1188])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__MEXPAND_DEFVARIADIC#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ meltfptr[1188])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - - MELT_LOCATION("warmelt-macro.melt:2217:/ initchunk"); - /*^touch*/ - /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1189*/ meltfptr[1188]); - - /*putclosurout#29*/ - melt_assertmsg("putclosrout#29 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1190*/ meltfptr[1189])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#29 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ meltfptr[1188])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1190*/ meltfptr[1189])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1189*/ meltfptr[1188]); + melt_assertmsg("putclosrout#28 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1158*/ meltfptr[1157])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#28 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1157*/ meltfptr[1156])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1158*/ meltfptr[1157])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1157*/ meltfptr[1156]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1190*/ meltfptr[1189]); + meltgc_touch(/*_.VALCLO___V1158*/ meltfptr[1157]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1192*/ meltfptr[1191]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1160*/ meltfptr[1159]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1191*/ meltfptr[1190]); + meltgc_touch(/*_.VALDATA___V1159*/ meltfptr[1158]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#6", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#6", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#7", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#7", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#8", NULL != (/*_.VALROUT___V1194*/ meltfptr[1193])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1194*/ meltfptr[1193]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#8", NULL != (/*_.VALROUT___V1162*/ meltfptr[1161])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1162*/ meltfptr[1161]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#9", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#9", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1174*/ meltfptr[1173]); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1174*/ meltfptr[1173]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1146*/ meltfptr[1145]); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1146*/ meltfptr[1145]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#11", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#11", NULL != (/*_.CLASS_CMATCHER__V19*/ meltfptr[18])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V19*/ meltfptr[18]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V407*/ meltfptr[406]); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ meltfptr[378]); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V379*/ meltfptr[378]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#13", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#13", NULL != (/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[13] = (melt_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V26*/ meltfptr[25]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#14", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[14] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#14", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[14] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#15", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#15", NULL != (/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ meltfptr[47]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1176*/ meltfptr[1175]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1148*/ meltfptr[1147]); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V1148*/ meltfptr[1147]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1127__MEXPAND_DEFCMATCHER#17", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1193*/ meltfptr[1192])->tabval[17] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1095__MEXPAND_DEFCMATCHER#17", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ meltfptr[1160])->tabval[17] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2238:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2196:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1193*/ meltfptr[1192]); + meltgc_touch(/*_.VALROUT___V1161*/ meltfptr[1160]); - /*putclosurout#30*/ - melt_assertmsg("putclosrout#30 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1195*/ meltfptr[1194])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#30 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1193*/ meltfptr[1192])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1195*/ meltfptr[1194])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1193*/ meltfptr[1192]); + /*putclosurout#29*/ + melt_assertmsg("putclosrout#29 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1163*/ meltfptr[1162])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#29 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ meltfptr[1160])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1163*/ meltfptr[1162])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1161*/ meltfptr[1160]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1195*/ meltfptr[1194]); + meltgc_touch(/*_.VALCLO___V1163*/ meltfptr[1162]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1164*/ meltfptr[1163])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1197*/ meltfptr[1196]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1164*/ meltfptr[1163])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1164*/ meltfptr[1163]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1165*/ meltfptr[1164]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1196*/ meltfptr[1195]); + meltgc_touch(/*_.VALDATA___V1164*/ meltfptr[1163]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1199*/ meltfptr[1198]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1167*/ meltfptr[1166]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1198*/ meltfptr[1197]); - + meltgc_touch(/*_.VALDATA___V1166*/ meltfptr[1165]); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_9*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_10 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#6", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[6] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#6", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[6] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#7", NULL != (/*_.VALROUT___V1201*/ meltfptr[1200])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1201*/ meltfptr[1200]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#7", NULL != (/*_.VALROUT___V1169*/ meltfptr[1168])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1169*/ meltfptr[1168]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#8", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#8", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V417*/ meltfptr[416]); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V417*/ meltfptr[416]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V389*/ meltfptr[388]); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#11", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#11", NULL != (/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V20*/ meltfptr[19]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V27*/ meltfptr[26]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1134__MEXPAND_DEFUNMATCHER#13", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[13] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1102__MEXPAND_DEFUNMATCHER#13", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1168*/ meltfptr[1167])->tabval[13] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2372:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1200*/ meltfptr[1199]); + meltgc_touch(/*_.VALROUT___V1168*/ meltfptr[1167]); - /*putclosurout#31*/ - melt_assertmsg("putclosrout#31 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1202*/ meltfptr[1201])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#31 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1202*/ meltfptr[1201])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1200*/ meltfptr[1199]); + /*putclosurout#30*/ + melt_assertmsg("putclosrout#30 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1170*/ meltfptr[1169])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#30 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1168*/ meltfptr[1167])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1170*/ meltfptr[1169])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1168*/ meltfptr[1167]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1202*/ meltfptr[1201]); + meltgc_touch(/*_.VALCLO___V1170*/ meltfptr[1169]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1204*/ meltfptr[1203]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1172*/ meltfptr[1171]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1203*/ meltfptr[1202]); + meltgc_touch(/*_.VALDATA___V1171*/ meltfptr[1170]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#3", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#3", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#7", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#7", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#8", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[8] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#8", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[8] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2537:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1206*/ meltfptr[1205])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1143__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1206*/ meltfptr[1205])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1174*/ meltfptr[1173])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1174*/ meltfptr[1173])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2579:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2537:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1206*/ meltfptr[1205]); + meltgc_touch(/*_.VALROUT___V1174*/ meltfptr[1173]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#9", NULL != (/*_.VALROUT___V1206*/ meltfptr[1205])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1206*/ meltfptr[1205]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#9", NULL != (/*_.VALROUT___V1174*/ meltfptr[1173])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1174*/ meltfptr[1173]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#10", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#10", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1016*/ meltfptr[1015]); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V988*/ meltfptr[987]); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V355*/ meltfptr[354]); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V355*/ meltfptr[354]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V345*/ meltfptr[344]); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V345*/ meltfptr[344]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#13", NULL != (/*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#13", NULL != (/*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V51*/ meltfptr[50]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__MEXPAND_DEFUN#15", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ meltfptr[1204])->tabval[15] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__MEXPAND_DEFUN#15", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1173*/ meltfptr[1172])->tabval[15] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2548:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2506:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1205*/ meltfptr[1204]); + meltgc_touch(/*_.VALROUT___V1173*/ meltfptr[1172]); - /*putclosurout#32*/ - melt_assertmsg("putclosrout#32 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1207*/ meltfptr[1206])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#32 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1207*/ meltfptr[1206])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1205*/ meltfptr[1204]); + /*putclosurout#31*/ + melt_assertmsg("putclosrout#31 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1175*/ meltfptr[1174])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#31 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1173*/ meltfptr[1172])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1175*/ meltfptr[1174])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1173*/ meltfptr[1172]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1207*/ meltfptr[1206]); + meltgc_touch(/*_.VALCLO___V1175*/ meltfptr[1174]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1176*/ meltfptr[1175])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1209*/ meltfptr[1208]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1176*/ meltfptr[1175])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1176*/ meltfptr[1175]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1177*/ meltfptr[1176]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1208*/ meltfptr[1207]); + meltgc_touch(/*_.VALDATA___V1176*/ meltfptr[1175]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1210*/ meltfptr[1209])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1210*/ meltfptr[1209])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1210*/ meltfptr[1209]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1211*/ meltfptr[1210]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1179*/ meltfptr[1178]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1210*/ meltfptr[1209]); + meltgc_touch(/*_.VALDATA___V1178*/ meltfptr[1177]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1213*/ meltfptr[1212]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1181*/ meltfptr[1180]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1212*/ meltfptr[1211]); + meltgc_touch(/*_.VALDATA___V1180*/ meltfptr[1179]); - MELT_LOCATION("warmelt-macro.melt:2621:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2579:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ meltfptr[1213])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1148__MEXPAND_DEFINE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ meltfptr[1213])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1182*/ meltfptr[1181])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1116__MEXPAND_DEFINE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1182*/ meltfptr[1181])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2621:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2579:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ meltfptr[1213])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1148__MEXPAND_DEFINE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ meltfptr[1213])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1182*/ meltfptr[1181])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1116__MEXPAND_DEFINE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1182*/ meltfptr[1181])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2621:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2579:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1214*/ meltfptr[1213]); + meltgc_touch(/*_.VALROUT___V1182*/ meltfptr[1181]); - /*putclosurout#33*/ - melt_assertmsg("putclosrout#33 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1215*/ meltfptr[1214])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#33 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ meltfptr[1213])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1215*/ meltfptr[1214])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1214*/ meltfptr[1213]); + /*putclosurout#32*/ + melt_assertmsg("putclosrout#32 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1183*/ meltfptr[1182])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#32 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1182*/ meltfptr[1181])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1183*/ meltfptr[1182])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1182*/ meltfptr[1181]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1215*/ meltfptr[1214]); + meltgc_touch(/*_.VALCLO___V1183*/ meltfptr[1182]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1217*/ meltfptr[1216]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1185*/ meltfptr[1184]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1216*/ meltfptr[1215]); + meltgc_touch(/*_.VALDATA___V1184*/ meltfptr[1183]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1220*/ meltfptr[1219]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1188*/ meltfptr[1187]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1219*/ meltfptr[1218]); + meltgc_touch(/*_.VALDATA___V1187*/ meltfptr[1186]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#3", NULL != (/*_.VALDATA___V1219*/ meltfptr[1218])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#3", NULL != (/*_.VALDATA___V1187*/ meltfptr[1186])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#5", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#5", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#6", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[6] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#6", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[6] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1189*/ meltfptr[1188])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1222*/ meltfptr[1221]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1189*/ meltfptr[1188])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1189*/ meltfptr[1188]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1190*/ meltfptr[1189]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1221*/ meltfptr[1220]); + meltgc_touch(/*_.VALDATA___V1189*/ meltfptr[1188]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#8", NULL != (/*_.VALDATA___V1221*/ meltfptr[1220])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#8", NULL != (/*_.VALDATA___V1189*/ meltfptr[1188])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1189*/ meltfptr[1188]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1224*/ meltfptr[1223]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1192*/ meltfptr[1191]); - /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1223*/ meltfptr[1222]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_9*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_10 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*touch:VALUEDATA_*/ + meltgc_touch(/*_.VALDATA___V1191*/ meltfptr[1190]); + + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#11", NULL != (/*_.VALDATA___V1223*/ meltfptr[1222])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#11", NULL != (/*_.VALDATA___V1191*/ meltfptr[1190])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1152__SCAN_DEFCLASS#13", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1120__SCAN_DEFCLASS#13", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ meltfptr[1217])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1186*/ meltfptr[1185])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:2664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2622:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1218*/ meltfptr[1217]); + meltgc_touch(/*_.VALROUT___V1186*/ meltfptr[1185]); - /*putclosurout#34*/ - melt_assertmsg("putclosrout#34 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1225*/ meltfptr[1224])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#34 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1225*/ meltfptr[1224])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1218*/ meltfptr[1217]); + /*putclosurout#33*/ + melt_assertmsg("putclosrout#33 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1193*/ meltfptr[1192])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#33 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1186*/ meltfptr[1185])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1193*/ meltfptr[1192])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1186*/ meltfptr[1185]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1225*/ meltfptr[1224]); + meltgc_touch(/*_.VALCLO___V1193*/ meltfptr[1192]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1194*/ meltfptr[1193])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1227*/ meltfptr[1226]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1194*/ meltfptr[1193])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1194*/ meltfptr[1193]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1195*/ meltfptr[1194]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1226*/ meltfptr[1225]); + meltgc_touch(/*_.VALDATA___V1194*/ meltfptr[1193]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1228*/ meltfptr[1227])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1228*/ meltfptr[1227])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1228*/ meltfptr[1227]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1229*/ meltfptr[1228]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1197*/ meltfptr[1196]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1228*/ meltfptr[1227]); + meltgc_touch(/*_.VALDATA___V1196*/ meltfptr[1195]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1225*/ meltfptr[1224]); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1225*/ meltfptr[1224]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1193*/ meltfptr[1192]); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1193*/ meltfptr[1192]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#5", NULL != (/*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[5] = (melt_ptr_t)(/*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#5", NULL != (/*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[5] = (melt_ptr_t)(/*_.DISCR_CLASS_SEQUENCE__V54*/ meltfptr[53]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#7", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[7] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#7", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[7] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V55*/ meltfptr[54]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#9", NULL != (/*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[9] = (melt_ptr_t)(/*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#9", NULL != (/*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[9] = (melt_ptr_t)(/*_.DISCR_FIELD_SEQUENCE__V56*/ meltfptr[55]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#11", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#11", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#12", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[12] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#12", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[12] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#13", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[13] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#13", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[13] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2846:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2804:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1231*/ meltfptr[1230])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1172__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1231*/ meltfptr[1230])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1140__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1199*/ meltfptr[1198])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2846:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2804:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1231*/ meltfptr[1230]); + meltgc_touch(/*_.VALROUT___V1199*/ meltfptr[1198]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#15", NULL != (/*_.VALROUT___V1231*/ meltfptr[1230])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[15] = (melt_ptr_t)(/*_.VALROUT___V1231*/ meltfptr[1230]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#15", NULL != (/*_.VALROUT___V1199*/ meltfptr[1198])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[15] = (melt_ptr_t)(/*_.VALROUT___V1199*/ meltfptr[1198]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#17", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[17] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#17", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[17] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[18] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[18] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#19", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[19] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#19", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[19] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#20", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[20] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#20", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[20] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#21", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[21] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#21", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[21] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#22", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[22] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#22", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[22] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[23] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[23] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#24", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[24] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#24", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[24] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#1", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[1] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#1", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[1] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#4", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[4] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#4", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[4] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#5", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#5", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#6", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#6", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__LAMBDA_#8", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1232*/ meltfptr[1231])->tabval[8] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1141__LAMBDA_#8", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ meltfptr[1199])->tabval[8] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:2855:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2813:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1232*/ meltfptr[1231]); + meltgc_touch(/*_.VALROUT___V1200*/ meltfptr[1199]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1164__MEXPAND_DEFCLASS#25", NULL != (/*_.VALROUT___V1232*/ meltfptr[1231])); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[25] = (melt_ptr_t)(/*_.VALROUT___V1232*/ meltfptr[1231]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1132__MEXPAND_DEFCLASS#25", NULL != (/*_.VALROUT___V1200*/ meltfptr[1199])); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[25] = (melt_ptr_t)(/*_.VALROUT___V1200*/ meltfptr[1199]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V453*/ meltfptr[452]); - ((meltroutine_ptr_t)/*_.VALROUT___V1230*/ meltfptr[1229])->tabval[26] = (melt_ptr_t)(/*_.VALDATA___V453*/ meltfptr[452]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V425*/ meltfptr[424]); + ((meltroutine_ptr_t)/*_.VALROUT___V1198*/ meltfptr[1197])->tabval[26] = (melt_ptr_t)(/*_.VALDATA___V425*/ meltfptr[424]); - MELT_LOCATION("warmelt-macro.melt:2784:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2742:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1230*/ meltfptr[1229]); + meltgc_touch(/*_.VALROUT___V1198*/ meltfptr[1197]); - /*putclosurout#35*/ - melt_assertmsg("putclosrout#35 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1233*/ meltfptr[1232])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#35 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1230*/ meltfptr[1229])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1233*/ meltfptr[1232])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1230*/ meltfptr[1229]); + /*putclosurout#34*/ + melt_assertmsg("putclosrout#34 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1201*/ meltfptr[1200])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#34 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1201*/ meltfptr[1200])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1198*/ meltfptr[1197]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1233*/ meltfptr[1232]); + meltgc_touch(/*_.VALCLO___V1201*/ meltfptr[1200]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1234*/ meltfptr[1233])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1202*/ meltfptr[1201])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1234*/ meltfptr[1233])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1234*/ meltfptr[1233]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1235*/ meltfptr[1234]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1202*/ meltfptr[1201])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1202*/ meltfptr[1201]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1203*/ meltfptr[1202]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1234*/ meltfptr[1233]); + meltgc_touch(/*_.VALDATA___V1202*/ meltfptr[1201]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1236*/ meltfptr[1235])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1204*/ meltfptr[1203])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1236*/ meltfptr[1235])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1236*/ meltfptr[1235]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1237*/ meltfptr[1236]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1204*/ meltfptr[1203])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1204*/ meltfptr[1203]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1205*/ meltfptr[1204]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1236*/ meltfptr[1235]); + meltgc_touch(/*_.VALDATA___V1204*/ meltfptr[1203]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1238*/ meltfptr[1237])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1206*/ meltfptr[1205])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1238*/ meltfptr[1237])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1238*/ meltfptr[1237]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1239*/ meltfptr[1238]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1206*/ meltfptr[1205])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1206*/ meltfptr[1205]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1207*/ meltfptr[1206]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1238*/ meltfptr[1237]); + meltgc_touch(/*_.VALDATA___V1206*/ meltfptr[1205]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1241*/ meltfptr[1240]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1209*/ meltfptr[1208]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1240*/ meltfptr[1239]); + meltgc_touch(/*_.VALDATA___V1208*/ meltfptr[1207]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#1", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#1", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:2956:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1148__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1211*/ meltfptr[1210])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2956:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1148__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1211*/ meltfptr[1210])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1245*/ meltfptr[1244]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1213*/ meltfptr[1212]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1244*/ meltfptr[1243]); + meltgc_touch(/*_.VALDATA___V1212*/ meltfptr[1211]); - MELT_LOCATION("warmelt-macro.melt:2956:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__LAMBDA_#2", NULL != (/*_.VALDATA___V1244*/ meltfptr[1243])); - ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1148__LAMBDA_#2", NULL != (/*_.VALDATA___V1212*/ meltfptr[1211])); + ((meltroutine_ptr_t)/*_.VALROUT___V1211*/ meltfptr[1210])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]); - MELT_LOCATION("warmelt-macro.melt:2956:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2914:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1243*/ meltfptr[1242]); + meltgc_touch(/*_.VALROUT___V1211*/ meltfptr[1210]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.VALROUT___V1243*/ meltfptr[1242])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.VALROUT___V1211*/ meltfptr[1210])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1211*/ meltfptr[1210]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FIELD_BINDING__V28*/ meltfptr[27]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#11", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[11] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#11", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[11] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__PARSE_FIELD_ASSIGNMENT#12", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1144__PARSE_FIELD_ASSIGNMENT#12", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V503*/ meltfptr[502]); - ((meltroutine_ptr_t)/*_.VALROUT___V1242*/ meltfptr[1241])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V475*/ meltfptr[474]); + ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ meltfptr[1209])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]); - MELT_LOCATION("warmelt-macro.melt:2933:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2891:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1242*/ meltfptr[1241]); + meltgc_touch(/*_.VALROUT___V1210*/ meltfptr[1209]); - /*putclosurout#36*/ - melt_assertmsg("putclosrout#36 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#36 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1242*/ meltfptr[1241])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1246*/ meltfptr[1245])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1242*/ meltfptr[1241]); + /*putclosurout#35*/ + melt_assertmsg("putclosrout#35 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#35 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ meltfptr[1209])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1214*/ meltfptr[1213])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1210*/ meltfptr[1209]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1246*/ meltfptr[1245]); + meltgc_touch(/*_.VALCLO___V1214*/ meltfptr[1213]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1247*/ meltfptr[1246])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1215*/ meltfptr[1214])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1247*/ meltfptr[1246])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1247*/ meltfptr[1246]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1248*/ meltfptr[1247]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1215*/ meltfptr[1214])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1215*/ meltfptr[1214]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1216*/ meltfptr[1215]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1247*/ meltfptr[1246]); + meltgc_touch(/*_.VALDATA___V1215*/ meltfptr[1214]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1251*/ meltfptr[1250]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1219*/ meltfptr[1218]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1250*/ meltfptr[1249]); + meltgc_touch(/*_.VALDATA___V1218*/ meltfptr[1217]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#10", NULL != (/*_.VALDATA___V1250*/ meltfptr[1249])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#10", NULL != (/*_.VALDATA___V1218*/ meltfptr[1217])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#12", NULL != (/*_.VALDATA___V1223*/ meltfptr[1222])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#12", NULL != (/*_.VALDATA___V1191*/ meltfptr[1190])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#13", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#13", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#15", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#15", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[15] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#16", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[16] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#16", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[16] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V471*/ meltfptr[470]); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V443*/ meltfptr[442]); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V443*/ meltfptr[442]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#18", NULL != (/*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[18] = (melt_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#18", NULL != (/*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[18] = (melt_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V58*/ meltfptr[57]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[19] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[19] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__MEXPAND_DEFINSTANCE#20", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[20] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__MEXPAND_DEFINSTANCE#20", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ meltfptr[1216])->tabval[20] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:3029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2987:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1249*/ meltfptr[1248]); + meltgc_touch(/*_.VALROUT___V1217*/ meltfptr[1216]); - /*putclosurout#37*/ - melt_assertmsg("putclosrout#37 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1252*/ meltfptr[1251])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#37 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1252*/ meltfptr[1251])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1249*/ meltfptr[1248]); + /*putclosurout#36*/ + melt_assertmsg("putclosrout#36 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1220*/ meltfptr[1219])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#36 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ meltfptr[1216])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1220*/ meltfptr[1219])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1217*/ meltfptr[1216]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1252*/ meltfptr[1251]); + meltgc_touch(/*_.VALCLO___V1220*/ meltfptr[1219]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1253*/ meltfptr[1252])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1253*/ meltfptr[1252])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1253*/ meltfptr[1252]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1254*/ meltfptr[1253]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1222*/ meltfptr[1221]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1253*/ meltfptr[1252]); + meltgc_touch(/*_.VALDATA___V1221*/ meltfptr[1220]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1256*/ meltfptr[1255]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1224*/ meltfptr[1223]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1255*/ meltfptr[1254]); + meltgc_touch(/*_.VALDATA___V1223*/ meltfptr[1222]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#9", NULL != (/*_.CLASS_SELECTOR__V7*/ meltfptr[6])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#9", NULL != (/*_.CLASS_SELECTOR__V7*/ meltfptr[6])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#10", NULL != (/*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[10] = (melt_ptr_t)(/*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#10", NULL != (/*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[10] = (melt_ptr_t)(/*_.MELT_MODE_CONTAINER__V59*/ meltfptr[58]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#11", NULL != (/*_.CLASS_CONTAINER__V60*/ meltfptr[59])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V60*/ meltfptr[59]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#11", NULL != (/*_.CLASS_CONTAINER__V60*/ meltfptr[59])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CONTAINER__V60*/ meltfptr[59]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#12", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[12] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#12", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[12] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#13", NULL != (/*_.VALDATA___V1250*/ meltfptr[1249])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#13", NULL != (/*_.VALDATA___V1218*/ meltfptr[1217])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#15", NULL != (/*_.VALDATA___V1223*/ meltfptr[1222])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#15", NULL != (/*_.VALDATA___V1191*/ meltfptr[1190])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#16", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#16", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1259*/ meltfptr[1258]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1227*/ meltfptr[1226]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1258*/ meltfptr[1257]); + meltgc_touch(/*_.VALDATA___V1226*/ meltfptr[1225]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#17", NULL != (/*_.VALDATA___V1258*/ meltfptr[1257])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#17", NULL != (/*_.VALDATA___V1226*/ meltfptr[1225])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#19", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#19", NULL != (/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#20", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[20] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#20", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[20] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[21] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#22", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[22] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#22", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[22] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#23", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[23] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#23", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[23] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ meltfptr[492]); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V493*/ meltfptr[492]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V465*/ meltfptr[464]); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#25", NULL != (/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[25] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#25", NULL != (/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[25] = (melt_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V23*/ meltfptr[22]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1168*/ meltfptr[1167]); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[26] = (melt_ptr_t)(/*_.VALCLO___V1168*/ meltfptr[1167]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1140*/ meltfptr[1139]); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[26] = (melt_ptr_t)(/*_.VALCLO___V1140*/ meltfptr[1139]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1191__MEXPAND_DEFSELECTOR#27", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ meltfptr[1256])->tabval[27] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1159__MEXPAND_DEFSELECTOR#27", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ meltfptr[1224])->tabval[27] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:3137:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3095:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1257*/ meltfptr[1256]); + meltgc_touch(/*_.VALROUT___V1225*/ meltfptr[1224]); - /*putclosurout#38*/ - melt_assertmsg("putclosrout#38 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1260*/ meltfptr[1259])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#38 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ meltfptr[1256])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1260*/ meltfptr[1259])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1257*/ meltfptr[1256]); + /*putclosurout#37*/ + melt_assertmsg("putclosrout#37 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1228*/ meltfptr[1227])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#37 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ meltfptr[1224])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1228*/ meltfptr[1227])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1225*/ meltfptr[1224]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1260*/ meltfptr[1259]); + meltgc_touch(/*_.VALCLO___V1228*/ meltfptr[1227]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1261*/ meltfptr[1260])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1229*/ meltfptr[1228])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1261*/ meltfptr[1260])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1261*/ meltfptr[1260]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1262*/ meltfptr[1261]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1229*/ meltfptr[1228])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1229*/ meltfptr[1228]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1230*/ meltfptr[1229]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1261*/ meltfptr[1260]); + meltgc_touch(/*_.VALDATA___V1229*/ meltfptr[1228]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1231*/ meltfptr[1230])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1264*/ meltfptr[1263]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1231*/ meltfptr[1230])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1231*/ meltfptr[1230]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1232*/ meltfptr[1231]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1263*/ meltfptr[1262]); + meltgc_touch(/*_.VALDATA___V1231*/ meltfptr[1230]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1266*/ meltfptr[1265]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1234*/ meltfptr[1233]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1265*/ meltfptr[1264]); + meltgc_touch(/*_.VALDATA___V1233*/ meltfptr[1232]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#5", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[7] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#11", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[11] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#11", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[11] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1201__MEXPAND_INSTANCE#12", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1169__MEXPAND_INSTANCE#12", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V517*/ meltfptr[516]); - ((meltroutine_ptr_t)/*_.VALROUT___V1267*/ meltfptr[1266])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V489*/ meltfptr[488]); + ((meltroutine_ptr_t)/*_.VALROUT___V1235*/ meltfptr[1234])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]); - MELT_LOCATION("warmelt-macro.melt:3278:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3236:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1267*/ meltfptr[1266]); + meltgc_touch(/*_.VALROUT___V1235*/ meltfptr[1234]); - /*putclosurout#39*/ - melt_assertmsg("putclosrout#39 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1268*/ meltfptr[1267])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#39 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1267*/ meltfptr[1266])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1268*/ meltfptr[1267])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1267*/ meltfptr[1266]); + /*putclosurout#38*/ + melt_assertmsg("putclosrout#38 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1236*/ meltfptr[1235])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#38 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1235*/ meltfptr[1234])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1236*/ meltfptr[1235])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1235*/ meltfptr[1234]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1268*/ meltfptr[1267]); + meltgc_touch(/*_.VALCLO___V1236*/ meltfptr[1235]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1270*/ meltfptr[1269]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1238*/ meltfptr[1237]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1269*/ meltfptr[1268]); + meltgc_touch(/*_.VALDATA___V1237*/ meltfptr[1236]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#4", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#4", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1141*/ meltfptr[1140]); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1141*/ meltfptr[1140]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1113*/ meltfptr[1112]); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1113*/ meltfptr[1112]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1205__MEXPAND_LOAD#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ meltfptr[1270])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1173__MEXPAND_LOAD#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1239*/ meltfptr[1238])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3346:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3304:/ initchunk"); /*^touch*/ - /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1271*/ meltfptr[1270]); - - /*putclosurout#40*/ - melt_assertmsg("putclosrout#40 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1272*/ meltfptr[1271])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#40 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ meltfptr[1270])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1272*/ meltfptr[1271])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1271*/ meltfptr[1270]); - - /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1272*/ meltfptr[1271]); - - -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_10*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_11 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272])) == MELTOBMAG_OBJECT); + /*touch:IROUTVAL_*/ + meltgc_touch(/*_.VALROUT___V1239*/ meltfptr[1238]); + + /*putclosurout#39*/ + melt_assertmsg("putclosrout#39 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1240*/ meltfptr[1239])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#39 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1239*/ meltfptr[1238])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1240*/ meltfptr[1239])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1239*/ meltfptr[1238]); + + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V1240*/ meltfptr[1239]); + + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1274*/ meltfptr[1273]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1242*/ meltfptr[1241]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1273*/ meltfptr[1272]); + meltgc_touch(/*_.VALDATA___V1241*/ meltfptr[1240]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[1] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#4", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#4", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#5", NULL != (/*_.DISCR_BOX__V34*/ meltfptr[33])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[5] = (melt_ptr_t)(/*_.DISCR_BOX__V34*/ meltfptr[33]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#5", NULL != (/*_.DISCR_BOX__V34*/ meltfptr[33])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[5] = (melt_ptr_t)(/*_.DISCR_BOX__V34*/ meltfptr[33]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#7", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#7", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ meltfptr[56]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#8", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#8", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:3401:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3359:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1211__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1179__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1244*/ meltfptr[1243])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:3401:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3359:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1276*/ meltfptr[1275]); + meltgc_touch(/*_.VALROUT___V1244*/ meltfptr[1243]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#9", NULL != (/*_.VALROUT___V1276*/ meltfptr[1275])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#9", NULL != (/*_.VALROUT___V1244*/ meltfptr[1243])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1244*/ meltfptr[1243]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__PARSE_FIELD_PATTERN#10", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1177__PARSE_FIELD_PATTERN#10", NULL != (/*_.CLASS_FIELD__V15*/ meltfptr[14])); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[10] = (melt_ptr_t)(/*_.CLASS_FIELD__V15*/ meltfptr[14]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V957*/ meltfptr[956]); - ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ meltfptr[1274])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V929*/ meltfptr[928]); + ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ meltfptr[1242])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:3386:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3344:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1275*/ meltfptr[1274]); + meltgc_touch(/*_.VALROUT___V1243*/ meltfptr[1242]); - /*putclosurout#41*/ - melt_assertmsg("putclosrout#41 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1277*/ meltfptr[1276])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#41 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ meltfptr[1274])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1277*/ meltfptr[1276])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1275*/ meltfptr[1274]); + /*putclosurout#40*/ + melt_assertmsg("putclosrout#40 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1245*/ meltfptr[1244])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#40 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ meltfptr[1242])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1245*/ meltfptr[1244])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1243*/ meltfptr[1242]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1277*/ meltfptr[1276]); + meltgc_touch(/*_.VALCLO___V1245*/ meltfptr[1244]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#7", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#7", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[10] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[10] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1277*/ meltfptr[1276]); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1277*/ meltfptr[1276]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1245*/ meltfptr[1244]); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1245*/ meltfptr[1244]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#12", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[12] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#12", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[12] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#13", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#13", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#14", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[14] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#14", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[14] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V957*/ meltfptr[956]); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V929*/ meltfptr[928]); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:3488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3446:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1279*/ meltfptr[1278])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V957*/ meltfptr[956]); - ((meltroutine_ptr_t)/*_.VALROUT___V1279*/ meltfptr[1278])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1247*/ meltfptr[1246])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V929*/ meltfptr[928]); + ((meltroutine_ptr_t)/*_.VALROUT___V1247*/ meltfptr[1246])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:3488:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3446:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1279*/ meltfptr[1278]); + meltgc_touch(/*_.VALROUT___V1247*/ meltfptr[1246]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#16", NULL != (/*_.VALROUT___V1279*/ meltfptr[1278])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1279*/ meltfptr[1278]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#16", NULL != (/*_.VALROUT___V1247*/ meltfptr[1246])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1247*/ meltfptr[1246]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V951*/ meltfptr[950]); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V951*/ meltfptr[950]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V923*/ meltfptr[922]); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1118*/ meltfptr[1117]); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1090*/ meltfptr[1089]); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1212__PATEXPAND_INSTANCE#19", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ meltfptr[1277])->tabval[19] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1180__PATEXPAND_INSTANCE#19", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1246*/ meltfptr[1245])->tabval[19] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:3430:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3388:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1278*/ meltfptr[1277]); + meltgc_touch(/*_.VALROUT___V1246*/ meltfptr[1245]); - /*putclosurout#42*/ - melt_assertmsg("putclosrout#42 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1280*/ meltfptr[1279])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#42 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1280*/ meltfptr[1279])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1278*/ meltfptr[1277]); + /*putclosurout#41*/ + melt_assertmsg("putclosrout#41 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1248*/ meltfptr[1247])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#41 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1246*/ meltfptr[1245])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1248*/ meltfptr[1247])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1246*/ meltfptr[1245]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1280*/ meltfptr[1279]); + meltgc_touch(/*_.VALCLO___V1248*/ meltfptr[1247]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#6", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#6", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#7", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#7", NULL != (/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS__V53*/ meltfptr[52])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V53*/ meltfptr[52]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[10] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[10] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1277*/ meltfptr[1276]); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1277*/ meltfptr[1276]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1245*/ meltfptr[1244]); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V1245*/ meltfptr[1244]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#12", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[12] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#12", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[12] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#13", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#13", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[13] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#14", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[14] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#14", NULL != (/*_.MULTIPLE_MAP__V35*/ meltfptr[34])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[14] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V35*/ meltfptr[34]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V957*/ meltfptr[956]); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V929*/ meltfptr[928]); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1282*/ meltfptr[1281])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V957*/ meltfptr[956]); - ((meltroutine_ptr_t)/*_.VALROUT___V1282*/ meltfptr[1281])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1250*/ meltfptr[1249])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V929*/ meltfptr[928]); + ((meltroutine_ptr_t)/*_.VALROUT___V1250*/ meltfptr[1249])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]); - MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3541:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1282*/ meltfptr[1281]); + meltgc_touch(/*_.VALROUT___V1250*/ meltfptr[1249]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#16", NULL != (/*_.VALROUT___V1282*/ meltfptr[1281])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1282*/ meltfptr[1281]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#16", NULL != (/*_.VALROUT___V1250*/ meltfptr[1249])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1250*/ meltfptr[1249]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V937*/ meltfptr[936]); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V909*/ meltfptr[908]); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V909*/ meltfptr[908]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1118*/ meltfptr[1117]); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1090*/ meltfptr[1089]); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__PATEXPAND_OBJECT#19", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1281*/ meltfptr[1280])->tabval[19] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1183__PATEXPAND_OBJECT#19", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ meltfptr[1248])->tabval[19] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:3525:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3483:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1281*/ meltfptr[1280]); + meltgc_touch(/*_.VALROUT___V1249*/ meltfptr[1248]); - /*putclosurout#43*/ - melt_assertmsg("putclosrout#43 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1283*/ meltfptr[1282])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#43 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1281*/ meltfptr[1280])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1283*/ meltfptr[1282])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1281*/ meltfptr[1280]); + /*putclosurout#42*/ + melt_assertmsg("putclosrout#42 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1251*/ meltfptr[1250])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#42 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ meltfptr[1248])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1251*/ meltfptr[1250])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1249*/ meltfptr[1248]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1283*/ meltfptr[1282]); + meltgc_touch(/*_.VALCLO___V1251*/ meltfptr[1250]); + - MELT_LOCATION("warmelt-macro.melt:3602:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_10*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_11 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:3560:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1252*/ meltfptr[1251])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1186__MEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1252*/ meltfptr[1251])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3602:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3560:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1252*/ meltfptr[1251])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1186__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1252*/ meltfptr[1251])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3602:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3560:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_OBJECT#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1252*/ meltfptr[1251])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1186__MEXPAND_OBJECT#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1252*/ meltfptr[1251])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3602:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3560:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1284*/ meltfptr[1283]); + meltgc_touch(/*_.VALROUT___V1252*/ meltfptr[1251]); - /*putclosurout#44*/ - melt_assertmsg("putclosrout#44 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1285*/ meltfptr[1284])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#44 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1285*/ meltfptr[1284])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1284*/ meltfptr[1283]); + /*putclosurout#43*/ + melt_assertmsg("putclosrout#43 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1253*/ meltfptr[1252])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#43 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1252*/ meltfptr[1251])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1253*/ meltfptr[1252])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1252*/ meltfptr[1251]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1285*/ meltfptr[1284]); + meltgc_touch(/*_.VALCLO___V1253*/ meltfptr[1252]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1287*/ meltfptr[1286]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1255*/ meltfptr[1254]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1286*/ meltfptr[1285]); + meltgc_touch(/*_.VALDATA___V1254*/ meltfptr[1253]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#2", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#2", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#4", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#5", NULL != (/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#5", NULL != (/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V47*/ meltfptr[46]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V825*/ meltfptr[824]); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V825*/ meltfptr[824]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V797*/ meltfptr[796]); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#7", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[7] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#7", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[7] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#8", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#8", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1222__MEXPAND_CODE_CHUNK#9", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ meltfptr[1287])->tabval[9] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__MEXPAND_CODE_CHUNK#9", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1256*/ meltfptr[1255])->tabval[9] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3625:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3583:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1288*/ meltfptr[1287]); + meltgc_touch(/*_.VALROUT___V1256*/ meltfptr[1255]); - /*putclosurout#45*/ - melt_assertmsg("putclosrout#45 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1289*/ meltfptr[1288])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#45 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1289*/ meltfptr[1288])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1288*/ meltfptr[1287]); + /*putclosurout#44*/ + melt_assertmsg("putclosrout#44 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1257*/ meltfptr[1256])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#44 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1256*/ meltfptr[1255])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1257*/ meltfptr[1256])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1256*/ meltfptr[1255]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1289*/ meltfptr[1288]); + meltgc_touch(/*_.VALCLO___V1257*/ meltfptr[1256]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1291*/ meltfptr[1290]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1259*/ meltfptr[1258]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1290*/ meltfptr[1289]); + meltgc_touch(/*_.VALDATA___V1258*/ meltfptr[1257]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1226__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1194__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V569*/ meltfptr[568]); - ((meltroutine_ptr_t)/*_.VALROUT___V1292*/ meltfptr[1291])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V541*/ meltfptr[540]); + ((meltroutine_ptr_t)/*_.VALROUT___V1260*/ meltfptr[1259])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V541*/ meltfptr[540]); - MELT_LOCATION("warmelt-macro.melt:3676:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3634:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1292*/ meltfptr[1291]); + meltgc_touch(/*_.VALROUT___V1260*/ meltfptr[1259]); - /*putclosurout#46*/ - melt_assertmsg("putclosrout#46 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1293*/ meltfptr[1292])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#46 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1292*/ meltfptr[1291])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1293*/ meltfptr[1292])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1292*/ meltfptr[1291]); + /*putclosurout#45*/ + melt_assertmsg("putclosrout#45 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1261*/ meltfptr[1260])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#45 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1260*/ meltfptr[1259])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1261*/ meltfptr[1260])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1260*/ meltfptr[1259]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1293*/ meltfptr[1292]); + meltgc_touch(/*_.VALCLO___V1261*/ meltfptr[1260]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1295*/ meltfptr[1294]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1263*/ meltfptr[1262]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1294*/ meltfptr[1293]); + meltgc_touch(/*_.VALDATA___V1262*/ meltfptr[1261]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[6] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__MEXPAND_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1198__MEXPAND_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V555*/ meltfptr[554]); - ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ meltfptr[1295])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V527*/ meltfptr[526]); + ((meltroutine_ptr_t)/*_.VALROUT___V1264*/ meltfptr[1263])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]); - MELT_LOCATION("warmelt-macro.melt:3721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3679:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1296*/ meltfptr[1295]); + meltgc_touch(/*_.VALROUT___V1264*/ meltfptr[1263]); - /*putclosurout#47*/ - melt_assertmsg("putclosrout#47 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1297*/ meltfptr[1296])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#47 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ meltfptr[1295])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1297*/ meltfptr[1296])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1296*/ meltfptr[1295]); + /*putclosurout#46*/ + melt_assertmsg("putclosrout#46 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1265*/ meltfptr[1264])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#46 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1264*/ meltfptr[1263])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1265*/ meltfptr[1264])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1264*/ meltfptr[1263]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1297*/ meltfptr[1296]); + meltgc_touch(/*_.VALCLO___V1265*/ meltfptr[1264]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1299*/ meltfptr[1298]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1267*/ meltfptr[1266]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1298*/ meltfptr[1297]); + meltgc_touch(/*_.VALDATA___V1266*/ meltfptr[1265]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1234__MEXPAND_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1202__MEXPAND_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1234__MEXPAND_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1202__MEXPAND_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1234__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1202__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V503*/ meltfptr[502]); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V475*/ meltfptr[474]); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V549*/ meltfptr[548]); - ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V549*/ meltfptr[548]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V521*/ meltfptr[520]); + ((meltroutine_ptr_t)/*_.VALROUT___V1268*/ meltfptr[1267])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V521*/ meltfptr[520]); - MELT_LOCATION("warmelt-macro.melt:3767:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3725:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1300*/ meltfptr[1299]); + meltgc_touch(/*_.VALROUT___V1268*/ meltfptr[1267]); - /*putclosurout#48*/ - melt_assertmsg("putclosrout#48 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1301*/ meltfptr[1300])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#48 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1301*/ meltfptr[1300])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1300*/ meltfptr[1299]); + /*putclosurout#47*/ + melt_assertmsg("putclosrout#47 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1269*/ meltfptr[1268])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#47 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1268*/ meltfptr[1267])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1269*/ meltfptr[1268])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1268*/ meltfptr[1267]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1301*/ meltfptr[1300]); + meltgc_touch(/*_.VALCLO___V1269*/ meltfptr[1268]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1303*/ meltfptr[1302]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1271*/ meltfptr[1270]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1302*/ meltfptr[1301]); + meltgc_touch(/*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1206__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__MEXPAND_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1206__MEXPAND_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1206__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[2] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1246*/ meltfptr[1245]); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1246*/ meltfptr[1245]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V503*/ meltfptr[502]); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V475*/ meltfptr[474]); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V475*/ meltfptr[474]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V535*/ meltfptr[534]); - ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V507*/ meltfptr[506]); + ((meltroutine_ptr_t)/*_.VALROUT___V1272*/ meltfptr[1271])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V507*/ meltfptr[506]); - MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3766:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1304*/ meltfptr[1303]); + meltgc_touch(/*_.VALROUT___V1272*/ meltfptr[1271]); - /*putclosurout#49*/ - melt_assertmsg("putclosrout#49 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1305*/ meltfptr[1304])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#49 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1305*/ meltfptr[1304])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1304*/ meltfptr[1303]); + /*putclosurout#48*/ + melt_assertmsg("putclosrout#48 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1273*/ meltfptr[1272])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#48 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1272*/ meltfptr[1271])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1273*/ meltfptr[1272])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1272*/ meltfptr[1271]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1305*/ meltfptr[1304]); + meltgc_touch(/*_.VALCLO___V1273*/ meltfptr[1272]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1307*/ meltfptr[1306]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1275*/ meltfptr[1274]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1306*/ meltfptr[1305]); + meltgc_touch(/*_.VALDATA___V1274*/ meltfptr[1273]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1242__MEXPAND_SETQ#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ meltfptr[1307])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1210__MEXPAND_SETQ#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1242__MEXPAND_SETQ#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ meltfptr[1307])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1210__MEXPAND_SETQ#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1242__MEXPAND_SETQ#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ meltfptr[1307])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1210__MEXPAND_SETQ#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); - ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ meltfptr[1307])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V209*/ meltfptr[208]); + ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ meltfptr[1307])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1276*/ meltfptr[1275])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3850:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3808:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1308*/ meltfptr[1307]); + meltgc_touch(/*_.VALROUT___V1276*/ meltfptr[1275]); - /*putclosurout#50*/ - melt_assertmsg("putclosrout#50 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1309*/ meltfptr[1308])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#50 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ meltfptr[1307])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1309*/ meltfptr[1308])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1308*/ meltfptr[1307]); + /*putclosurout#49*/ + melt_assertmsg("putclosrout#49 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1277*/ meltfptr[1276])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#49 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1276*/ meltfptr[1275])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1277*/ meltfptr[1276])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1276*/ meltfptr[1275]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1309*/ meltfptr[1308]); + meltgc_touch(/*_.VALCLO___V1277*/ meltfptr[1276]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1311*/ meltfptr[1310]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1279*/ meltfptr[1278]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1310*/ meltfptr[1309]); + meltgc_touch(/*_.VALDATA___V1278*/ meltfptr[1277]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_IF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1214__MEXPAND_IF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_IF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1214__MEXPAND_IF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1214__MEXPAND_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V589*/ meltfptr[588]); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ meltfptr[560]); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V575*/ meltfptr[574]); - ((meltroutine_ptr_t)/*_.VALROUT___V1312*/ meltfptr[1311])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ meltfptr[546]); + ((meltroutine_ptr_t)/*_.VALROUT___V1280*/ meltfptr[1279])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]); - MELT_LOCATION("warmelt-macro.melt:3880:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3838:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1312*/ meltfptr[1311]); + meltgc_touch(/*_.VALROUT___V1280*/ meltfptr[1279]); - /*putclosurout#51*/ - melt_assertmsg("putclosrout#51 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1313*/ meltfptr[1312])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#51 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1313*/ meltfptr[1312])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1312*/ meltfptr[1311]); + /*putclosurout#50*/ + melt_assertmsg("putclosrout#50 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1281*/ meltfptr[1280])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#50 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1280*/ meltfptr[1279])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1281*/ meltfptr[1280])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1280*/ meltfptr[1279]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1313*/ meltfptr[1312]); + meltgc_touch(/*_.VALCLO___V1281*/ meltfptr[1280]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1315*/ meltfptr[1314]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1283*/ meltfptr[1282]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1314*/ meltfptr[1313]); + meltgc_touch(/*_.VALDATA___V1282*/ meltfptr[1281]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__MEXPAND_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__MEXPAND_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__MEXPAND_CPPIF#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1218__MEXPAND_CPPIF#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ meltfptr[1315])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V581*/ meltfptr[580]); + ((meltroutine_ptr_t)/*_.VALROUT___V1284*/ meltfptr[1283])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]); - MELT_LOCATION("warmelt-macro.melt:3930:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3888:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1316*/ meltfptr[1315]); + meltgc_touch(/*_.VALROUT___V1284*/ meltfptr[1283]); - /*putclosurout#52*/ - melt_assertmsg("putclosrout#52 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1317*/ meltfptr[1316])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#52 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ meltfptr[1315])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1317*/ meltfptr[1316])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1316*/ meltfptr[1315]); + /*putclosurout#51*/ + melt_assertmsg("putclosrout#51 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1285*/ meltfptr[1284])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#51 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1285*/ meltfptr[1284])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1284*/ meltfptr[1283]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1317*/ meltfptr[1316]); + meltgc_touch(/*_.VALCLO___V1285*/ meltfptr[1284]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1319*/ meltfptr[1318]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1287*/ meltfptr[1286]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1318*/ meltfptr[1317]); + meltgc_touch(/*_.VALDATA___V1286*/ meltfptr[1285]); - /*putclosurout#53*/ - melt_assertmsg("putclosrout#53 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1321*/ meltfptr[1320])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#53 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1320*/ meltfptr[1319])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1321*/ meltfptr[1320])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1320*/ meltfptr[1319]); + /*putclosurout#52*/ + melt_assertmsg("putclosrout#52 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1289*/ meltfptr[1288])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#52 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ meltfptr[1287])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1289*/ meltfptr[1288])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1288*/ meltfptr[1287]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1321*/ meltfptr[1320]); + meltgc_touch(/*_.VALCLO___V1289*/ meltfptr[1288]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1256__MEXPAND_GCCIF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1224__MEXPAND_GCCIF#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1256__MEXPAND_GCCIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1224__MEXPAND_GCCIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1256__MEXPAND_GCCIF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1224__MEXPAND_GCCIF#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1321*/ meltfptr[1320]); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1321*/ meltfptr[1320]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ meltfptr[1288]); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1289*/ meltfptr[1288]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1016*/ meltfptr[1015]); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V988*/ meltfptr[987]); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1256__MEXPAND_GCCIF#5", NULL != (/*_.VALDATA___V1244*/ meltfptr[1243])); - ((meltroutine_ptr_t)/*_.VALROUT___V1322*/ meltfptr[1321])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1224__MEXPAND_GCCIF#5", NULL != (/*_.VALDATA___V1212*/ meltfptr[1211])); + ((meltroutine_ptr_t)/*_.VALROUT___V1290*/ meltfptr[1289])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]); - MELT_LOCATION("warmelt-macro.melt:4001:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3959:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1322*/ meltfptr[1321]); + meltgc_touch(/*_.VALROUT___V1290*/ meltfptr[1289]); - /*putclosurout#54*/ - melt_assertmsg("putclosrout#54 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1323*/ meltfptr[1322])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#54 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1322*/ meltfptr[1321])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1323*/ meltfptr[1322])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1322*/ meltfptr[1321]); + /*putclosurout#53*/ + melt_assertmsg("putclosrout#53 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1291*/ meltfptr[1290])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#53 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1291*/ meltfptr[1290])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1290*/ meltfptr[1289]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1323*/ meltfptr[1322]); + meltgc_touch(/*_.VALCLO___V1291*/ meltfptr[1290]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1325*/ meltfptr[1324]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1293*/ meltfptr[1292]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1324*/ meltfptr[1323]); + meltgc_touch(/*_.VALDATA___V1292*/ meltfptr[1291]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#5", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#5", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4069:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4027:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1327*/ meltfptr[1326])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1262__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1327*/ meltfptr[1326])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1295*/ meltfptr[1294])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1230__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1295*/ meltfptr[1294])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4069:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4027:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1327*/ meltfptr[1326]); + meltgc_touch(/*_.VALROUT___V1295*/ meltfptr[1294]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#6", NULL != (/*_.VALROUT___V1327*/ meltfptr[1326])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1327*/ meltfptr[1326]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#6", NULL != (/*_.VALROUT___V1295*/ meltfptr[1294])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1295*/ meltfptr[1294]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1296*/ meltfptr[1295])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1329*/ meltfptr[1328]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1296*/ meltfptr[1295])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1296*/ meltfptr[1295]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1297*/ meltfptr[1296]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1328*/ meltfptr[1327]); + meltgc_touch(/*_.VALDATA___V1296*/ meltfptr[1295]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1260__MEXPAND_COND#7", NULL != (/*_.VALDATA___V1328*/ meltfptr[1327])); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1228__MEXPAND_COND#7", NULL != (/*_.VALDATA___V1296*/ meltfptr[1295])); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1296*/ meltfptr[1295]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1355__PAIRLIST_TO_PROGN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__PAIRLIST_TO_PROGN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1355__PAIRLIST_TO_PROGN#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__PAIRLIST_TO_PROGN#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1355__PAIRLIST_TO_PROGN#2", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[2] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__PAIRLIST_TO_PROGN#2", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[2] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1355__PAIRLIST_TO_PROGN#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__PAIRLIST_TO_PROGN#3", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5045:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5003:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1300*/ meltfptr[1299])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5045:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5003:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1332*/ meltfptr[1331]); + meltgc_touch(/*_.VALROUT___V1300*/ meltfptr[1299]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1355__PAIRLIST_TO_PROGN#5", NULL != (/*_.VALROUT___V1332*/ meltfptr[1331])); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__PAIRLIST_TO_PROGN#5", NULL != (/*_.VALROUT___V1300*/ meltfptr[1299])); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V1300*/ meltfptr[1299]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); - ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ meltfptr[1330])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V193*/ meltfptr[192]); + ((meltroutine_ptr_t)/*_.VALROUT___V1299*/ meltfptr[1298])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V193*/ meltfptr[192]); - MELT_LOCATION("warmelt-macro.melt:5038:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4996:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1331*/ meltfptr[1330]); + meltgc_touch(/*_.VALROUT___V1299*/ meltfptr[1298]); - /*putclosurout#55*/ - melt_assertmsg("putclosrout#55 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1330*/ meltfptr[1329])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#55 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ meltfptr[1330])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1330*/ meltfptr[1329])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1331*/ meltfptr[1330]); + /*putclosurout#54*/ + melt_assertmsg("putclosrout#54 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1298*/ meltfptr[1297])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#54 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1298*/ meltfptr[1297])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1299*/ meltfptr[1298]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1330*/ meltfptr[1329]); + meltgc_touch(/*_.VALCLO___V1298*/ meltfptr[1297]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1330*/ meltfptr[1329]); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1330*/ meltfptr[1329]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1298*/ meltfptr[1297]); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1298*/ meltfptr[1297]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V599*/ meltfptr[598]); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V571*/ meltfptr[570]); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V589*/ meltfptr[588]); - ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ meltfptr[560]); + ((meltroutine_ptr_t)/*_.VALROUT___V1294*/ meltfptr[1293])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]); - MELT_LOCATION("warmelt-macro.melt:4059:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4017:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1326*/ meltfptr[1325]); + meltgc_touch(/*_.VALROUT___V1294*/ meltfptr[1293]); - /*putclosurout#56*/ - melt_assertmsg("putclosrout#56 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1333*/ meltfptr[1332])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#56 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1333*/ meltfptr[1332])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1326*/ meltfptr[1325]); + /*putclosurout#55*/ + melt_assertmsg("putclosrout#55 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1301*/ meltfptr[1300])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#55 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1294*/ meltfptr[1293])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1301*/ meltfptr[1300])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1294*/ meltfptr[1293]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1333*/ meltfptr[1332]); + meltgc_touch(/*_.VALCLO___V1301*/ meltfptr[1300]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1335*/ meltfptr[1334]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1303*/ meltfptr[1302]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1334*/ meltfptr[1333]); + meltgc_touch(/*_.VALDATA___V1302*/ meltfptr[1301]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4170:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4128:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1337*/ meltfptr[1336])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1337*/ meltfptr[1336])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1305*/ meltfptr[1304])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1305*/ meltfptr[1304])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4170:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4128:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1337*/ meltfptr[1336]); + meltgc_touch(/*_.VALROUT___V1305*/ meltfptr[1304]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_AND#6", NULL != (/*_.VALROUT___V1337*/ meltfptr[1336])); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1337*/ meltfptr[1336]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1235__MEXPAND_AND#6", NULL != (/*_.VALROUT___V1305*/ meltfptr[1304])); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1305*/ meltfptr[1304]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V575*/ meltfptr[574]); - ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V575*/ meltfptr[574]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ meltfptr[546]); + ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ meltfptr[1303])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]); - MELT_LOCATION("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4117:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1336*/ meltfptr[1335]); + meltgc_touch(/*_.VALROUT___V1304*/ meltfptr[1303]); - /*putclosurout#57*/ - melt_assertmsg("putclosrout#57 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1338*/ meltfptr[1337])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#57 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1338*/ meltfptr[1337])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1336*/ meltfptr[1335]); + /*putclosurout#56*/ + melt_assertmsg("putclosrout#56 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1306*/ meltfptr[1305])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#56 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ meltfptr[1303])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1306*/ meltfptr[1305])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1304*/ meltfptr[1303]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1338*/ meltfptr[1337]); + meltgc_touch(/*_.VALCLO___V1306*/ meltfptr[1305]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1270__PATEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__PATEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1270__PATEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__PATEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1270__PATEXPAND_AS#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__PATEXPAND_AS#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1123*/ meltfptr[1122]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V899*/ meltfptr[898]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V871*/ meltfptr[870]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V883*/ meltfptr[882]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V855*/ meltfptr[854]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V839*/ meltfptr[838]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V811*/ meltfptr[810]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V859*/ meltfptr[858]); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V831*/ meltfptr[830]); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1270__PATEXPAND_AS#9", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1339*/ meltfptr[1338])->tabval[9] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__PATEXPAND_AS#9", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1307*/ meltfptr[1306])->tabval[9] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:4197:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4155:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1339*/ meltfptr[1338]); + meltgc_touch(/*_.VALROUT___V1307*/ meltfptr[1306]); - /*putclosurout#58*/ - melt_assertmsg("putclosrout#58 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1340*/ meltfptr[1339])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#58 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1339*/ meltfptr[1338])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1340*/ meltfptr[1339])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1339*/ meltfptr[1338]); + /*putclosurout#57*/ + melt_assertmsg("putclosrout#57 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1308*/ meltfptr[1307])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#57 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1307*/ meltfptr[1306])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1308*/ meltfptr[1307])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1307*/ meltfptr[1306]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1340*/ meltfptr[1339]); + meltgc_touch(/*_.VALCLO___V1308*/ meltfptr[1307]); - MELT_LOCATION("warmelt-macro.melt:4235:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4193:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ meltfptr[1340])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1272__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ meltfptr[1340])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1309*/ meltfptr[1308])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1240__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1309*/ meltfptr[1308])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4235:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4193:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ meltfptr[1340])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1272__MEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ meltfptr[1340])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1309*/ meltfptr[1308])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1240__MEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1309*/ meltfptr[1308])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4235:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4193:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ meltfptr[1340])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1272__MEXPAND_AS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ meltfptr[1340])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1309*/ meltfptr[1308])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1240__MEXPAND_AS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1309*/ meltfptr[1308])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4235:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4193:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1341*/ meltfptr[1340]); + meltgc_touch(/*_.VALROUT___V1309*/ meltfptr[1308]); - /*putclosurout#59*/ - melt_assertmsg("putclosrout#59 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1342*/ meltfptr[1341])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#59 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ meltfptr[1340])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1342*/ meltfptr[1341])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1341*/ meltfptr[1340]); + /*putclosurout#58*/ + melt_assertmsg("putclosrout#58 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1310*/ meltfptr[1309])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#58 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1309*/ meltfptr[1308])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1310*/ meltfptr[1309])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1309*/ meltfptr[1308]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1342*/ meltfptr[1341]); + meltgc_touch(/*_.VALCLO___V1310*/ meltfptr[1309]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1344*/ meltfptr[1343]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1312*/ meltfptr[1311]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1343*/ meltfptr[1342]); + meltgc_touch(/*_.VALDATA___V1311*/ meltfptr[1310]); - MELT_LOCATION("warmelt-macro.melt:4249:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1345*/ meltfptr[1344])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1276__PATEXPAND_WHEN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1345*/ meltfptr[1344])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1244__PATEXPAND_WHEN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1313*/ meltfptr[1312])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4249:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1345*/ meltfptr[1344])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1276__PATEXPAND_WHEN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1345*/ meltfptr[1344])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1244__PATEXPAND_WHEN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1313*/ meltfptr[1312])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_11*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_12 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -MELT_LOCATION("warmelt-macro.melt:4249:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4207:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1345*/ meltfptr[1344])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1345*/ meltfptr[1344])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1313*/ meltfptr[1312])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4249:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1345*/ meltfptr[1344])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1276__PATEXPAND_WHEN#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1345*/ meltfptr[1344])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1244__PATEXPAND_WHEN#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1313*/ meltfptr[1312])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4249:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4207:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1345*/ meltfptr[1344]); + meltgc_touch(/*_.VALROUT___V1313*/ meltfptr[1312]); - /*putclosurout#60*/ - melt_assertmsg("putclosrout#60 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1346*/ meltfptr[1345])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#60 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1345*/ meltfptr[1344])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1346*/ meltfptr[1345])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1345*/ meltfptr[1344]); + /*putclosurout#59*/ + melt_assertmsg("putclosrout#59 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1314*/ meltfptr[1313])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#59 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1314*/ meltfptr[1313])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1313*/ meltfptr[1312]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1346*/ meltfptr[1345]); + meltgc_touch(/*_.VALCLO___V1314*/ meltfptr[1313]); - MELT_LOCATION("warmelt-macro.melt:4264:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_WHEN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ meltfptr[1314])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_WHEN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ meltfptr[1314])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4264:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_WHEN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ meltfptr[1314])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_WHEN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ meltfptr[1314])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4264:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_WHEN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ meltfptr[1314])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1246__MEXPAND_WHEN#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ meltfptr[1314])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4264:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4222:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1347*/ meltfptr[1346]); + meltgc_touch(/*_.VALROUT___V1315*/ meltfptr[1314]); - /*putclosurout#61*/ - melt_assertmsg("putclosrout#61 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1348*/ meltfptr[1347])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#61 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1348*/ meltfptr[1347])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1347*/ meltfptr[1346]); + /*putclosurout#60*/ + melt_assertmsg("putclosrout#60 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1316*/ meltfptr[1315])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#60 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ meltfptr[1314])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1316*/ meltfptr[1315])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1315*/ meltfptr[1314]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1348*/ meltfptr[1347]); + meltgc_touch(/*_.VALCLO___V1316*/ meltfptr[1315]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1350*/ meltfptr[1349]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1318*/ meltfptr[1317]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1349*/ meltfptr[1348]); + meltgc_touch(/*_.VALDATA___V1317*/ meltfptr[1316]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1282__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1282__PATEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__PATEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1282__PATEXPAND_AND#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__PATEXPAND_AND#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1123*/ meltfptr[1122]); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V859*/ meltfptr[858]); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V859*/ meltfptr[858]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V831*/ meltfptr[830]); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V831*/ meltfptr[830]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1118*/ meltfptr[1117]); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1090*/ meltfptr[1089]); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1282__PATEXPAND_AND#7", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1351*/ meltfptr[1350])->tabval[7] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1250__PATEXPAND_AND#7", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ meltfptr[1318])->tabval[7] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:4279:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4237:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1351*/ meltfptr[1350]); + meltgc_touch(/*_.VALROUT___V1319*/ meltfptr[1318]); - /*putclosurout#62*/ - melt_assertmsg("putclosrout#62 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1352*/ meltfptr[1351])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#62 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1351*/ meltfptr[1350])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1352*/ meltfptr[1351])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1351*/ meltfptr[1350]); + /*putclosurout#61*/ + melt_assertmsg("putclosrout#61 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1320*/ meltfptr[1319])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#61 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ meltfptr[1318])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1320*/ meltfptr[1319])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1319*/ meltfptr[1318]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1352*/ meltfptr[1351]); + meltgc_touch(/*_.VALCLO___V1320*/ meltfptr[1319]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1354*/ meltfptr[1353]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1322*/ meltfptr[1321]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1353*/ meltfptr[1352]); + meltgc_touch(/*_.VALDATA___V1321*/ meltfptr[1320]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4326:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4284:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1356*/ meltfptr[1355])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1356*/ meltfptr[1355])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1324*/ meltfptr[1323])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1324*/ meltfptr[1323])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4326:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4284:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1356*/ meltfptr[1355]); + meltgc_touch(/*_.VALROUT___V1324*/ meltfptr[1323]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__MEXPAND_OR#6", NULL != (/*_.VALROUT___V1356*/ meltfptr[1355])); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1356*/ meltfptr[1355]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1254__MEXPAND_OR#6", NULL != (/*_.VALROUT___V1324*/ meltfptr[1323])); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1324*/ meltfptr[1323]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V599*/ meltfptr[598]); - ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V571*/ meltfptr[570]); + ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ meltfptr[1322])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V571*/ meltfptr[570]); - MELT_LOCATION("warmelt-macro.melt:4316:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1355*/ meltfptr[1354]); + meltgc_touch(/*_.VALROUT___V1323*/ meltfptr[1322]); - /*putclosurout#63*/ - melt_assertmsg("putclosrout#63 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1357*/ meltfptr[1356])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#63 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1357*/ meltfptr[1356])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1355*/ meltfptr[1354]); + /*putclosurout#62*/ + melt_assertmsg("putclosrout#62 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1325*/ meltfptr[1324])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#62 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1325*/ meltfptr[1324])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1323*/ meltfptr[1322]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1357*/ meltfptr[1356]); + meltgc_touch(/*_.VALCLO___V1325*/ meltfptr[1324]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1289__PATEXPAND_OR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__PATEXPAND_OR#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1289__PATEXPAND_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__PATEXPAND_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1289__PATEXPAND_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__PATEXPAND_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1123*/ meltfptr[1122]); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V849*/ meltfptr[848]); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V821*/ meltfptr[820]); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1118*/ meltfptr[1117]); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1118*/ meltfptr[1117]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1090*/ meltfptr[1089]); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1090*/ meltfptr[1089]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1289__PATEXPAND_OR#7", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); - ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ meltfptr[1357])->tabval[7] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__PATEXPAND_OR#7", NULL != (/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37])); + ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ meltfptr[1325])->tabval[7] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V38*/ meltfptr[37]); - MELT_LOCATION("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4301:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1358*/ meltfptr[1357]); + meltgc_touch(/*_.VALROUT___V1326*/ meltfptr[1325]); - /*putclosurout#64*/ - melt_assertmsg("putclosrout#64 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1359*/ meltfptr[1358])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#64 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1359*/ meltfptr[1358])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1358*/ meltfptr[1357]); + /*putclosurout#63*/ + melt_assertmsg("putclosrout#63 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1327*/ meltfptr[1326])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#63 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ meltfptr[1325])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1327*/ meltfptr[1326])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1326*/ meltfptr[1325]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1359*/ meltfptr[1358]); + meltgc_touch(/*_.VALCLO___V1327*/ meltfptr[1326]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1361*/ meltfptr[1360]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1329*/ meltfptr[1328]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1360*/ meltfptr[1359]); + meltgc_touch(/*_.VALDATA___V1328*/ meltfptr[1327]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1293__MEXPAND_TUPLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1362*/ meltfptr[1361])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1261__MEXPAND_TUPLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1330*/ meltfptr[1329])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1293__MEXPAND_TUPLE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1362*/ meltfptr[1361])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1261__MEXPAND_TUPLE#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1330*/ meltfptr[1329])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1293__MEXPAND_TUPLE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1362*/ meltfptr[1361])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1261__MEXPAND_TUPLE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1330*/ meltfptr[1329])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1362*/ meltfptr[1361])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V1330*/ meltfptr[1329])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V191*/ meltfptr[190]); - ((meltroutine_ptr_t)/*_.VALROUT___V1362*/ meltfptr[1361])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V181*/ meltfptr[180]); + ((meltroutine_ptr_t)/*_.VALROUT___V1330*/ meltfptr[1329])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]); - MELT_LOCATION("warmelt-macro.melt:4379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4337:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1362*/ meltfptr[1361]); + meltgc_touch(/*_.VALROUT___V1330*/ meltfptr[1329]); - /*putclosurout#65*/ - melt_assertmsg("putclosrout#65 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1363*/ meltfptr[1362])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#65 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1363*/ meltfptr[1362])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1362*/ meltfptr[1361]); + /*putclosurout#64*/ + melt_assertmsg("putclosrout#64 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1331*/ meltfptr[1330])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#64 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1330*/ meltfptr[1329])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1331*/ meltfptr[1330])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1330*/ meltfptr[1329]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1363*/ meltfptr[1362]); + meltgc_touch(/*_.VALCLO___V1331*/ meltfptr[1330]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__PATEXPAND_TUPLE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1263__PATEXPAND_TUPLE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__PATEXPAND_TUPLE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1263__PATEXPAND_TUPLE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__PATEXPAND_TUPLE#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1263__PATEXPAND_TUPLE#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1123*/ meltfptr[1122]); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V925*/ meltfptr[924]); - ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V925*/ meltfptr[924]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V897*/ meltfptr[896]); + ((meltroutine_ptr_t)/*_.VALROUT___V1332*/ meltfptr[1331])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]); - MELT_LOCATION("warmelt-macro.melt:4396:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4354:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1364*/ meltfptr[1363]); + meltgc_touch(/*_.VALROUT___V1332*/ meltfptr[1331]); - /*putclosurout#66*/ - melt_assertmsg("putclosrout#66 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1365*/ meltfptr[1364])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#66 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1365*/ meltfptr[1364])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1364*/ meltfptr[1363]); + /*putclosurout#65*/ + melt_assertmsg("putclosrout#65 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1333*/ meltfptr[1332])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#65 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1332*/ meltfptr[1331])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1333*/ meltfptr[1332])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1332*/ meltfptr[1331]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1365*/ meltfptr[1364]); + meltgc_touch(/*_.VALCLO___V1333*/ meltfptr[1332]); - /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1367*/ meltfptr[1366]); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_11*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_12 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])) == MELTOBMAG_OBJECT); + + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1335*/ meltfptr[1334]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1366*/ meltfptr[1365]); + meltgc_touch(/*_.VALDATA___V1334*/ meltfptr[1333]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1299__MEXPAND_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1368*/ meltfptr[1367])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1299__MEXPAND_LIST#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1368*/ meltfptr[1367])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_LIST#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1299__MEXPAND_LIST#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1368*/ meltfptr[1367])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1267__MEXPAND_LIST#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1022*/ meltfptr[1021]); - ((meltroutine_ptr_t)/*_.VALROUT___V1368*/ meltfptr[1367])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1022*/ meltfptr[1021]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V994*/ meltfptr[993]); + ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V994*/ meltfptr[993]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V197*/ meltfptr[196]); - ((meltroutine_ptr_t)/*_.VALROUT___V1368*/ meltfptr[1367])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V187*/ meltfptr[186]); + ((meltroutine_ptr_t)/*_.VALROUT___V1336*/ meltfptr[1335])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]); - MELT_LOCATION("warmelt-macro.melt:4426:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4384:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1368*/ meltfptr[1367]); + meltgc_touch(/*_.VALROUT___V1336*/ meltfptr[1335]); - /*putclosurout#67*/ - melt_assertmsg("putclosrout#67 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1369*/ meltfptr[1368])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#67 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1368*/ meltfptr[1367])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1369*/ meltfptr[1368])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1368*/ meltfptr[1367]); + /*putclosurout#66*/ + melt_assertmsg("putclosrout#66 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1337*/ meltfptr[1336])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#66 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1337*/ meltfptr[1336])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1336*/ meltfptr[1335]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1369*/ meltfptr[1368]); + meltgc_touch(/*_.VALCLO___V1337*/ meltfptr[1336]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1301__PATEXPAND_LIST#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1269__PATEXPAND_LIST#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1301__PATEXPAND_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1269__PATEXPAND_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1301__PATEXPAND_LIST#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1269__PATEXPAND_LIST#3", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1123*/ meltfptr[1122]); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1123*/ meltfptr[1122]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V931*/ meltfptr[930]); - ((meltroutine_ptr_t)/*_.VALROUT___V1370*/ meltfptr[1369])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V931*/ meltfptr[930]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V903*/ meltfptr[902]); + ((meltroutine_ptr_t)/*_.VALROUT___V1338*/ meltfptr[1337])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]); - MELT_LOCATION("warmelt-macro.melt:4443:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4401:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1370*/ meltfptr[1369]); + meltgc_touch(/*_.VALROUT___V1338*/ meltfptr[1337]); - /*putclosurout#68*/ - melt_assertmsg("putclosrout#68 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1371*/ meltfptr[1370])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#68 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1370*/ meltfptr[1369])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1371*/ meltfptr[1370])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1370*/ meltfptr[1369]); + /*putclosurout#67*/ + melt_assertmsg("putclosrout#67 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1339*/ meltfptr[1338])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#67 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1338*/ meltfptr[1337])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1339*/ meltfptr[1338])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1338*/ meltfptr[1337]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1371*/ meltfptr[1370]); + meltgc_touch(/*_.VALCLO___V1339*/ meltfptr[1338]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1373*/ meltfptr[1372]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1341*/ meltfptr[1340]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1372*/ meltfptr[1371]); + meltgc_touch(/*_.VALDATA___V1340*/ meltfptr[1339]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[4] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[4] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#6", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#6", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4486:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4444:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ meltfptr[1374])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1307__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ meltfptr[1374])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1343*/ meltfptr[1342])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1275__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1343*/ meltfptr[1342])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4486:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4444:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1375*/ meltfptr[1374]); + meltgc_touch(/*_.VALROUT___V1343*/ meltfptr[1342]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#7", NULL != (/*_.VALROUT___V1375*/ meltfptr[1374])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1375*/ meltfptr[1374]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#7", NULL != (/*_.VALROUT___V1343*/ meltfptr[1342])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1343*/ meltfptr[1342]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#8", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#8", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1086*/ meltfptr[1085]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1086*/ meltfptr[1085]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1058*/ meltfptr[1057]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1103*/ meltfptr[1102]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1075*/ meltfptr[1074]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V1075*/ meltfptr[1074]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#11", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#11", NULL != (/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V43*/ meltfptr[42]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1016*/ meltfptr[1015]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V1016*/ meltfptr[1015]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V988*/ meltfptr[987]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V988*/ meltfptr[987]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V641*/ meltfptr[640]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ meltfptr[612]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V613*/ meltfptr[612]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__MEXPAND_MATCH#14", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[14] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1273__MEXPAND_MATCH#14", NULL != (/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[14] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V627*/ meltfptr[626]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V599*/ meltfptr[598]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V599*/ meltfptr[598]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V899*/ meltfptr[898]); - ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V899*/ meltfptr[898]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V871*/ meltfptr[870]); + ((meltroutine_ptr_t)/*_.VALROUT___V1342*/ meltfptr[1341])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V871*/ meltfptr[870]); - MELT_LOCATION("warmelt-macro.melt:4474:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4432:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1374*/ meltfptr[1373]); + meltgc_touch(/*_.VALROUT___V1342*/ meltfptr[1341]); - /*putclosurout#69*/ - melt_assertmsg("putclosrout#69 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1376*/ meltfptr[1375])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#69 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1376*/ meltfptr[1375])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1374*/ meltfptr[1373]); + /*putclosurout#68*/ + melt_assertmsg("putclosrout#68 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1344*/ meltfptr[1343])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#68 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1342*/ meltfptr[1341])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1344*/ meltfptr[1343])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1342*/ meltfptr[1341]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1376*/ meltfptr[1375]); + meltgc_touch(/*_.VALCLO___V1344*/ meltfptr[1343]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1378*/ meltfptr[1377]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1346*/ meltfptr[1345]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1377*/ meltfptr[1376]); + meltgc_touch(/*_.VALDATA___V1345*/ meltfptr[1344]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#1", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#3", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#3", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[4] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#5", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#5", NULL != (/*_.CLASS_CTYPE__V44*/ meltfptr[43])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CTYPE__V44*/ meltfptr[43]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#7", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#7", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#9", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#9", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[9] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#10", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#10", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1310__MEXPAND_LETBINDING#11", NULL != (/*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61])); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1278__MEXPAND_LETBINDING#11", NULL != (/*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61])); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V62*/ meltfptr[61]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V655*/ meltfptr[654]); - ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V627*/ meltfptr[626]); + ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ meltfptr[1346])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]); - MELT_LOCATION("warmelt-macro.melt:4563:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4521:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1379*/ meltfptr[1378]); + meltgc_touch(/*_.VALROUT___V1347*/ meltfptr[1346]); - /*putclosurout#70*/ - melt_assertmsg("putclosrout#70 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1380*/ meltfptr[1379])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#70 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1380*/ meltfptr[1379])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1379*/ meltfptr[1378]); + /*putclosurout#69*/ + melt_assertmsg("putclosrout#69 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1348*/ meltfptr[1347])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#69 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ meltfptr[1346])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1348*/ meltfptr[1347])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1347*/ meltfptr[1346]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1380*/ meltfptr[1379]); + meltgc_touch(/*_.VALCLO___V1348*/ meltfptr[1347]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1382*/ meltfptr[1381]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1350*/ meltfptr[1349]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1381*/ meltfptr[1380]); + meltgc_touch(/*_.VALDATA___V1349*/ meltfptr[1348]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1383*/ meltfptr[1382])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1351*/ meltfptr[1350])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1383*/ meltfptr[1382])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1383*/ meltfptr[1382]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1384*/ meltfptr[1383]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1351*/ meltfptr[1350])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1351*/ meltfptr[1350]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1352*/ meltfptr[1351]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1383*/ meltfptr[1382]); + meltgc_touch(/*_.VALDATA___V1351*/ meltfptr[1350]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#5", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#5", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1380*/ meltfptr[1379]); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1380*/ meltfptr[1379]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1348*/ meltfptr[1347]); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1348*/ meltfptr[1347]); - MELT_LOCATION("warmelt-macro.melt:4664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1386*/ meltfptr[1385])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1318__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1386*/ meltfptr[1385])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1354*/ meltfptr[1353])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1286__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1354*/ meltfptr[1353])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4622:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1386*/ meltfptr[1385])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1380*/ meltfptr[1379]); - ((meltroutine_ptr_t)/*_.VALROUT___V1386*/ meltfptr[1385])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1380*/ meltfptr[1379]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1354*/ meltfptr[1353])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1348*/ meltfptr[1347]); + ((meltroutine_ptr_t)/*_.VALROUT___V1354*/ meltfptr[1353])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1348*/ meltfptr[1347]); - MELT_LOCATION("warmelt-macro.melt:4664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4622:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1386*/ meltfptr[1385]); + meltgc_touch(/*_.VALROUT___V1354*/ meltfptr[1353]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#7", NULL != (/*_.VALROUT___V1386*/ meltfptr[1385])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1386*/ meltfptr[1385]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#7", NULL != (/*_.VALROUT___V1354*/ meltfptr[1353])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1354*/ meltfptr[1353]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#8", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#8", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V655*/ meltfptr[654]); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V627*/ meltfptr[626]); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#10", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#10", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#11", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[11] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#11", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[11] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4672:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4630:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1387*/ meltfptr[1386])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V655*/ meltfptr[654]); - ((meltroutine_ptr_t)/*_.VALROUT___V1387*/ meltfptr[1386])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V655*/ meltfptr[654]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V627*/ meltfptr[626]); + ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V627*/ meltfptr[626]); - MELT_LOCATION("warmelt-macro.melt:4672:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4630:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1387*/ meltfptr[1386])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1319__LAMBDA_#1", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); - ((meltroutine_ptr_t)/*_.VALROUT___V1387*/ meltfptr[1386])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1287__LAMBDA_#1", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); + ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); - MELT_LOCATION("warmelt-macro.melt:4672:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4630:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1387*/ meltfptr[1386])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1319__LAMBDA_#2", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1387*/ meltfptr[1386])->tabval[2] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1287__LAMBDA_#2", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1355*/ meltfptr[1354])->tabval[2] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4672:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4630:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1387*/ meltfptr[1386]); + meltgc_touch(/*_.VALROUT___V1355*/ meltfptr[1354]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#12", NULL != (/*_.VALROUT___V1387*/ meltfptr[1386])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V1387*/ meltfptr[1386]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#12", NULL != (/*_.VALROUT___V1355*/ meltfptr[1354])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V1355*/ meltfptr[1354]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4684:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4642:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1388*/ meltfptr[1387])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1356*/ meltfptr[1355])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1356*/ meltfptr[1355])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4684:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4642:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1388*/ meltfptr[1387]); + meltgc_touch(/*_.VALROUT___V1356*/ meltfptr[1355]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1316__MEXPAND_LET#14", NULL != (/*_.VALROUT___V1388*/ meltfptr[1387])); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1284__MEXPAND_LET#14", NULL != (/*_.VALROUT___V1356*/ meltfptr[1355])); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V1356*/ meltfptr[1355]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ meltfptr[678]); - ((meltroutine_ptr_t)/*_.VALROUT___V1385*/ meltfptr[1384])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V651*/ meltfptr[650]); + ((meltroutine_ptr_t)/*_.VALROUT___V1353*/ meltfptr[1352])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]); - MELT_LOCATION("warmelt-macro.melt:4645:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4603:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1385*/ meltfptr[1384]); + meltgc_touch(/*_.VALROUT___V1353*/ meltfptr[1352]); - /*putclosurout#71*/ - melt_assertmsg("putclosrout#71 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1389*/ meltfptr[1388])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#71 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1389*/ meltfptr[1388])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1385*/ meltfptr[1384]); + /*putclosurout#70*/ + melt_assertmsg("putclosrout#70 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1357*/ meltfptr[1356])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#70 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1357*/ meltfptr[1356])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1353*/ meltfptr[1352]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1389*/ meltfptr[1388]); + meltgc_touch(/*_.VALCLO___V1357*/ meltfptr[1356]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1391*/ meltfptr[1390]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1359*/ meltfptr[1358]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1390*/ meltfptr[1389]); + meltgc_touch(/*_.VALDATA___V1358*/ meltfptr[1357]); - MELT_LOCATION("warmelt-macro.melt:4708:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4666:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1323__YES_RECURSIVELY_CONSTRUCTIBLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1360*/ meltfptr[1359])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1291__YES_RECURSIVELY_CONSTRUCTIBLE#0", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1360*/ meltfptr[1359])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4708:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4666:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1392*/ meltfptr[1391]); + meltgc_touch(/*_.VALROUT___V1360*/ meltfptr[1359]); - /*putclosurout#72*/ - melt_assertmsg("putclosrout#72 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1393*/ meltfptr[1392])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#72 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1393*/ meltfptr[1392])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1392*/ meltfptr[1391]); + /*putclosurout#71*/ + melt_assertmsg("putclosrout#71 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1361*/ meltfptr[1360])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#71 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1360*/ meltfptr[1359])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1361*/ meltfptr[1360])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1360*/ meltfptr[1359]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1393*/ meltfptr[1392]); + meltgc_touch(/*_.VALCLO___V1361*/ meltfptr[1360]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1394*/ meltfptr[1393])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1362*/ meltfptr[1361])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1394*/ meltfptr[1393])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1394*/ meltfptr[1393]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1395*/ meltfptr[1394]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1362*/ meltfptr[1361])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1362*/ meltfptr[1361]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1363*/ meltfptr[1362]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1394*/ meltfptr[1393]); + meltgc_touch(/*_.VALDATA___V1362*/ meltfptr[1361]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#3", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#3", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[3] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[4] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[4] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#5", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#6", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#6", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4746:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4704:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1397*/ meltfptr[1396])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1329__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1397*/ meltfptr[1396])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1297__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1365*/ meltfptr[1364])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4746:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4704:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1397*/ meltfptr[1396]); + meltgc_touch(/*_.VALROUT___V1365*/ meltfptr[1364]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#7", NULL != (/*_.VALROUT___V1397*/ meltfptr[1396])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1397*/ meltfptr[1396]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#7", NULL != (/*_.VALROUT___V1365*/ meltfptr[1364])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1365*/ meltfptr[1364]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#8", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[8] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#8", NULL != (/*_.CLASS_LOCATED__V41*/ meltfptr[40])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[8] = (melt_ptr_t)(/*_.CLASS_LOCATED__V41*/ meltfptr[40]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#9", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[9] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#10", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#10", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#11", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#11", NULL != (/*_.CLASS_NAMED__V17*/ meltfptr[16])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NAMED__V17*/ meltfptr[16]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#12", NULL != (/*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[12] = (melt_ptr_t)(/*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#12", NULL != (/*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[12] = (melt_ptr_t)(/*_.CLASS_LETREC_BINDING__V64*/ meltfptr[63]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#13", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[13] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#13", NULL != (/*_.CTYPE_VALUE__V42*/ meltfptr[41])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[13] = (melt_ptr_t)(/*_.CTYPE_VALUE__V42*/ meltfptr[41]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#14", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#14", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[14] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[15] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[15] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V75*/ meltfptr[74]); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V75*/ meltfptr[74]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#17", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#17", NULL != (/*_.CLASS_LET_BINDING__V61*/ meltfptr[60])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V61*/ meltfptr[60]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V673*/ meltfptr[672]); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V673*/ meltfptr[672]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V645*/ meltfptr[644]); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V645*/ meltfptr[644]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[19] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[19] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4851:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4809:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1398*/ meltfptr[1397])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1398*/ meltfptr[1397])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1366*/ meltfptr[1365])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1366*/ meltfptr[1365])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4851:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4809:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1398*/ meltfptr[1397]); + meltgc_touch(/*_.VALROUT___V1366*/ meltfptr[1365]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1327__MEXPAND_LETREC#20", NULL != (/*_.VALROUT___V1398*/ meltfptr[1397])); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V1398*/ meltfptr[1397]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1295__MEXPAND_LETREC#20", NULL != (/*_.VALROUT___V1366*/ meltfptr[1365])); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[20] = (melt_ptr_t)(/*_.VALROUT___V1366*/ meltfptr[1365]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V693*/ meltfptr[692]); - ((meltroutine_ptr_t)/*_.VALROUT___V1396*/ meltfptr[1395])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V693*/ meltfptr[692]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V665*/ meltfptr[664]); + ((meltroutine_ptr_t)/*_.VALROUT___V1364*/ meltfptr[1363])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]); - MELT_LOCATION("warmelt-macro.melt:4721:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4679:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1396*/ meltfptr[1395]); + meltgc_touch(/*_.VALROUT___V1364*/ meltfptr[1363]); - /*putclosurout#73*/ - melt_assertmsg("putclosrout#73 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1399*/ meltfptr[1398])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#73 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1399*/ meltfptr[1398])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1396*/ meltfptr[1395]); + /*putclosurout#72*/ + melt_assertmsg("putclosrout#72 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1367*/ meltfptr[1366])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#72 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1364*/ meltfptr[1363])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1367*/ meltfptr[1366])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1364*/ meltfptr[1363]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1399*/ meltfptr[1398]); + meltgc_touch(/*_.VALCLO___V1367*/ meltfptr[1366]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1400*/ meltfptr[1399])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1368*/ meltfptr[1367])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1400*/ meltfptr[1399])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1400*/ meltfptr[1399]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1401*/ meltfptr[1400]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1368*/ meltfptr[1367])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1368*/ meltfptr[1367]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1369*/ meltfptr[1368]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1400*/ meltfptr[1399]); + meltgc_touch(/*_.VALDATA___V1368*/ meltfptr[1367]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1403*/ meltfptr[1402]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1371*/ meltfptr[1370]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1402*/ meltfptr[1401]); + meltgc_touch(/*_.VALDATA___V1370*/ meltfptr[1369]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#4", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#4", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#5", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[5] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#5", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[5] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4889:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4847:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1405*/ meltfptr[1404])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1405*/ meltfptr[1404])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1305__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1373*/ meltfptr[1372])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4889:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4847:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1405*/ meltfptr[1404]); + meltgc_touch(/*_.VALROUT___V1373*/ meltfptr[1372]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#6", NULL != (/*_.VALROUT___V1405*/ meltfptr[1404])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1405*/ meltfptr[1404]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#6", NULL != (/*_.VALROUT___V1373*/ meltfptr[1372])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1373*/ meltfptr[1372]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#7", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[7] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#7", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[7] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#8", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#8", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1406*/ meltfptr[1405])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1406*/ meltfptr[1405])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1374*/ meltfptr[1373])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4891:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4849:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1406*/ meltfptr[1405]); + meltgc_touch(/*_.VALROUT___V1374*/ meltfptr[1373]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1335__MEXPAND_LAMBDA#10", NULL != (/*_.VALROUT___V1406*/ meltfptr[1405])); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V1406*/ meltfptr[1405]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1303__MEXPAND_LAMBDA#10", NULL != (/*_.VALROUT___V1374*/ meltfptr[1373])); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V1374*/ meltfptr[1373]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V699*/ meltfptr[698]); - ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V671*/ meltfptr[670]); + ((meltroutine_ptr_t)/*_.VALROUT___V1372*/ meltfptr[1371])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]); - MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4832:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1404*/ meltfptr[1403]); + meltgc_touch(/*_.VALROUT___V1372*/ meltfptr[1371]); - /*putclosurout#74*/ - melt_assertmsg("putclosrout#74 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1407*/ meltfptr[1406])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#74 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1407*/ meltfptr[1406])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1404*/ meltfptr[1403]); + /*putclosurout#73*/ + melt_assertmsg("putclosrout#73 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1375*/ meltfptr[1374])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#73 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1372*/ meltfptr[1371])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1375*/ meltfptr[1374])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1372*/ meltfptr[1371]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1407*/ meltfptr[1406]); + meltgc_touch(/*_.VALCLO___V1375*/ meltfptr[1374]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1409*/ meltfptr[1408]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1377*/ meltfptr[1376]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1408*/ meltfptr[1407]); + meltgc_touch(/*_.VALDATA___V1376*/ meltfptr[1375]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1027*/ meltfptr[1026]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1027*/ meltfptr[1026]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V999*/ meltfptr[998]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V999*/ meltfptr[998]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V115*/ meltfptr[114]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V115*/ meltfptr[114]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V105*/ meltfptr[104]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#7", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#7", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#8", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#8", NULL != (/*_.MULTIPLE_EVERY__V49*/ meltfptr[48])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V49*/ meltfptr[48]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#9", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[9] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#9", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[9] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4942:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4900:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1411*/ meltfptr[1410])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1343__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1411*/ meltfptr[1410])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1311__LAMBDA_#0", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ meltfptr[1378])->tabval[0] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:4942:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4900:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1411*/ meltfptr[1410]); + meltgc_touch(/*_.VALROUT___V1379*/ meltfptr[1378]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#10", NULL != (/*_.VALROUT___V1411*/ meltfptr[1410])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V1411*/ meltfptr[1410]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#10", NULL != (/*_.VALROUT___V1379*/ meltfptr[1378])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V1379*/ meltfptr[1378]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#11", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[11] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#11", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[11] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#12", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#12", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[12] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4945:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4903:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1412*/ meltfptr[1411])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1412*/ meltfptr[1411])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ meltfptr[1379])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ meltfptr[1379])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:4945:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4903:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1412*/ meltfptr[1411]); + meltgc_touch(/*_.VALROUT___V1380*/ meltfptr[1379]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__MEXPAND_MULTICALL#14", NULL != (/*_.VALROUT___V1412*/ meltfptr[1411])); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V1412*/ meltfptr[1411]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1309__MEXPAND_MULTICALL#14", NULL != (/*_.VALROUT___V1380*/ meltfptr[1379])); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V1380*/ meltfptr[1379]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V713*/ meltfptr[712]); - ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V685*/ meltfptr[684]); + ((meltroutine_ptr_t)/*_.VALROUT___V1378*/ meltfptr[1377])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V685*/ meltfptr[684]); - MELT_LOCATION("warmelt-macro.melt:4916:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4874:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1410*/ meltfptr[1409]); + meltgc_touch(/*_.VALROUT___V1378*/ meltfptr[1377]); - /*putclosurout#75*/ - melt_assertmsg("putclosrout#75 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1413*/ meltfptr[1412])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#75 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1413*/ meltfptr[1412])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1410*/ meltfptr[1409]); + /*putclosurout#74*/ + melt_assertmsg("putclosrout#74 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1381*/ meltfptr[1380])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#74 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1378*/ meltfptr[1377])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1381*/ meltfptr[1380])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1378*/ meltfptr[1377]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1413*/ meltfptr[1412]); + meltgc_touch(/*_.VALCLO___V1381*/ meltfptr[1380]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1415*/ meltfptr[1414]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1383*/ meltfptr[1382]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1414*/ meltfptr[1413]); + meltgc_touch(/*_.VALDATA___V1382*/ meltfptr[1381]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__MEXPAND_QUOTE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1416*/ meltfptr[1415])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1315__MEXPAND_QUOTE#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1384*/ meltfptr[1383])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__MEXPAND_QUOTE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1416*/ meltfptr[1415])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1315__MEXPAND_QUOTE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1384*/ meltfptr[1383])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__MEXPAND_QUOTE#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1416*/ meltfptr[1415])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1315__MEXPAND_QUOTE#2", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1384*/ meltfptr[1383])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__MEXPAND_QUOTE#3", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); - ((meltroutine_ptr_t)/*_.VALROUT___V1416*/ meltfptr[1415])->tabval[3] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1315__MEXPAND_QUOTE#3", NULL != (/*_.CLASS_KEYWORD__V16*/ meltfptr[15])); + ((meltroutine_ptr_t)/*_.VALROUT___V1384*/ meltfptr[1383])->tabval[3] = (melt_ptr_t)(/*_.CLASS_KEYWORD__V16*/ meltfptr[15]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V243*/ meltfptr[242]); - ((meltroutine_ptr_t)/*_.VALROUT___V1416*/ meltfptr[1415])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V243*/ meltfptr[242]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V233*/ meltfptr[232]); + ((meltroutine_ptr_t)/*_.VALROUT___V1384*/ meltfptr[1383])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); - MELT_LOCATION("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4928:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1416*/ meltfptr[1415]); - - /*putclosurout#76*/ - melt_assertmsg("putclosrout#76 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1417*/ meltfptr[1416])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#76 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1416*/ meltfptr[1415])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1417*/ meltfptr[1416])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1416*/ meltfptr[1415]); + meltgc_touch(/*_.VALROUT___V1384*/ meltfptr[1383]); + /*putclosurout#75*/ + melt_assertmsg("putclosrout#75 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1385*/ meltfptr[1384])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#75 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1384*/ meltfptr[1383])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1385*/ meltfptr[1384])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1384*/ meltfptr[1383]); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_12*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_13 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1417*/ meltfptr[1416]); + /*touch:DATACLOSURE_*/ + meltgc_touch(/*_.VALCLO___V1385*/ meltfptr[1384]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1419*/ meltfptr[1418]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1387*/ meltfptr[1386]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1418*/ meltfptr[1417]); + meltgc_touch(/*_.VALDATA___V1386*/ meltfptr[1385]); - MELT_LOCATION("warmelt-macro.melt:5008:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4966:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1420*/ meltfptr[1419])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1351__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1420*/ meltfptr[1419])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1319__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1388*/ meltfptr[1387])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5008:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4966:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1420*/ meltfptr[1419])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1351__MEXPAND_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1420*/ meltfptr[1419])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1319__MEXPAND_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1388*/ meltfptr[1387])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5008:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4966:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1420*/ meltfptr[1419])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V233*/ meltfptr[232]); - ((meltroutine_ptr_t)/*_.VALROUT___V1420*/ meltfptr[1419])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V233*/ meltfptr[232]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V223*/ meltfptr[222]); + ((meltroutine_ptr_t)/*_.VALROUT___V1388*/ meltfptr[1387])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V223*/ meltfptr[222]); - MELT_LOCATION("warmelt-macro.melt:5008:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4966:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1420*/ meltfptr[1419]); + meltgc_touch(/*_.VALROUT___V1388*/ meltfptr[1387]); - /*putclosurout#77*/ - melt_assertmsg("putclosrout#77 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1421*/ meltfptr[1420])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#77 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1420*/ meltfptr[1419])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1421*/ meltfptr[1420])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1420*/ meltfptr[1419]); + /*putclosurout#76*/ + melt_assertmsg("putclosrout#76 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1389*/ meltfptr[1388])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#76 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1389*/ meltfptr[1388])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1388*/ meltfptr[1387]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1421*/ meltfptr[1420]); + meltgc_touch(/*_.VALCLO___V1389*/ meltfptr[1388]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1423*/ meltfptr[1422]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1391*/ meltfptr[1390]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1422*/ meltfptr[1421]); + meltgc_touch(/*_.VALDATA___V1390*/ meltfptr[1389]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__PAIRLIST_TO_RETURN#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[1] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__PAIRLIST_TO_RETURN#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[1] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__PAIRLIST_TO_RETURN#2", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__PAIRLIST_TO_RETURN#2", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5061:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5019:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1425*/ meltfptr[1424])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1425*/ meltfptr[1424])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1393*/ meltfptr[1392])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1393*/ meltfptr[1392])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5061:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5019:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1425*/ meltfptr[1424]); + meltgc_touch(/*_.VALROUT___V1393*/ meltfptr[1392]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__PAIRLIST_TO_RETURN#4", NULL != (/*_.VALROUT___V1425*/ meltfptr[1424])); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1425*/ meltfptr[1424]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__PAIRLIST_TO_RETURN#4", NULL != (/*_.VALROUT___V1393*/ meltfptr[1392])); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1393*/ meltfptr[1392]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V213*/ meltfptr[212]); - ((meltroutine_ptr_t)/*_.VALROUT___V1424*/ meltfptr[1423])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V213*/ meltfptr[212]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V203*/ meltfptr[202]); + ((meltroutine_ptr_t)/*_.VALROUT___V1392*/ meltfptr[1391])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V203*/ meltfptr[202]); - MELT_LOCATION("warmelt-macro.melt:5056:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5014:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1424*/ meltfptr[1423]); + meltgc_touch(/*_.VALROUT___V1392*/ meltfptr[1391]); - /*putclosurout#78*/ - melt_assertmsg("putclosrout#78 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1426*/ meltfptr[1425])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#78 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1426*/ meltfptr[1425])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1424*/ meltfptr[1423]); + /*putclosurout#77*/ + melt_assertmsg("putclosrout#77 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1394*/ meltfptr[1393])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#77 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1394*/ meltfptr[1393])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1392*/ meltfptr[1391]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1426*/ meltfptr[1425]); + meltgc_touch(/*_.VALCLO___V1394*/ meltfptr[1393]); - MELT_LOCATION("warmelt-macro.melt:5069:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5027:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1427*/ meltfptr[1426])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1361__MEXPAND_PROGN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1427*/ meltfptr[1426])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1395*/ meltfptr[1394])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1329__MEXPAND_PROGN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1395*/ meltfptr[1394])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5069:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5027:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1427*/ meltfptr[1426])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1330*/ meltfptr[1329]); - ((meltroutine_ptr_t)/*_.VALROUT___V1427*/ meltfptr[1426])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1330*/ meltfptr[1329]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1395*/ meltfptr[1394])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1298*/ meltfptr[1297]); + ((meltroutine_ptr_t)/*_.VALROUT___V1395*/ meltfptr[1394])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1298*/ meltfptr[1297]); - MELT_LOCATION("warmelt-macro.melt:5069:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5027:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1427*/ meltfptr[1426]); + meltgc_touch(/*_.VALROUT___V1395*/ meltfptr[1394]); - /*putclosurout#79*/ - melt_assertmsg("putclosrout#79 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1428*/ meltfptr[1427])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#79 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1427*/ meltfptr[1426])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1428*/ meltfptr[1427])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1427*/ meltfptr[1426]); + /*putclosurout#78*/ + melt_assertmsg("putclosrout#78 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1396*/ meltfptr[1395])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#78 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1395*/ meltfptr[1394])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1396*/ meltfptr[1395])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1395*/ meltfptr[1394]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1428*/ meltfptr[1427]); + meltgc_touch(/*_.VALCLO___V1396*/ meltfptr[1395]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1430*/ meltfptr[1429]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1398*/ meltfptr[1397]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1429*/ meltfptr[1428]); + meltgc_touch(/*_.VALDATA___V1397*/ meltfptr[1396]); - MELT_LOCATION("warmelt-macro.melt:5094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5052:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1431*/ meltfptr[1430])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1365__MEXPAND_RETURN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1431*/ meltfptr[1430])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1399*/ meltfptr[1398])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1333__MEXPAND_RETURN#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1399*/ meltfptr[1398])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5052:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1431*/ meltfptr[1430])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1426*/ meltfptr[1425]); - ((meltroutine_ptr_t)/*_.VALROUT___V1431*/ meltfptr[1430])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1426*/ meltfptr[1425]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1399*/ meltfptr[1398])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1394*/ meltfptr[1393]); + ((meltroutine_ptr_t)/*_.VALROUT___V1399*/ meltfptr[1398])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1394*/ meltfptr[1393]); - MELT_LOCATION("warmelt-macro.melt:5094:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5052:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1431*/ meltfptr[1430]); + meltgc_touch(/*_.VALROUT___V1399*/ meltfptr[1398]); - /*putclosurout#80*/ - melt_assertmsg("putclosrout#80 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1432*/ meltfptr[1431])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#80 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1431*/ meltfptr[1430])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1432*/ meltfptr[1431])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1431*/ meltfptr[1430]); + /*putclosurout#79*/ + melt_assertmsg("putclosrout#79 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1400*/ meltfptr[1399])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#79 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1399*/ meltfptr[1398])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1400*/ meltfptr[1399])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1399*/ meltfptr[1398]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1432*/ meltfptr[1431]); + meltgc_touch(/*_.VALCLO___V1400*/ meltfptr[1399]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1434*/ meltfptr[1433]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1402*/ meltfptr[1401]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1433*/ meltfptr[1432]); + meltgc_touch(/*_.VALDATA___V1401*/ meltfptr[1400]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#5", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[5] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#5", NULL != (/*_.PUT_ENV__V45*/ meltfptr[44])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[5] = (melt_ptr_t)(/*_.PUT_ENV__V45*/ meltfptr[44]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[6] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[6] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5134:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5092:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1436*/ meltfptr[1435])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1404*/ meltfptr[1403])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5134:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5092:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1436*/ meltfptr[1435]); + meltgc_touch(/*_.VALROUT___V1404*/ meltfptr[1403]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_FOREVER#9", NULL != (/*_.VALROUT___V1436*/ meltfptr[1435])); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1337__MEXPAND_FOREVER#9", NULL != (/*_.VALROUT___V1404*/ meltfptr[1403])); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1404*/ meltfptr[1403]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V741*/ meltfptr[740]); - ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V713*/ meltfptr[712]); + ((meltroutine_ptr_t)/*_.VALROUT___V1403*/ meltfptr[1402])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V713*/ meltfptr[712]); - MELT_LOCATION("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5071:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1435*/ meltfptr[1434]); + meltgc_touch(/*_.VALROUT___V1403*/ meltfptr[1402]); - /*putclosurout#81*/ - melt_assertmsg("putclosrout#81 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1437*/ meltfptr[1436])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#81 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1437*/ meltfptr[1436])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1435*/ meltfptr[1434]); + /*putclosurout#80*/ + melt_assertmsg("putclosrout#80 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1405*/ meltfptr[1404])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#80 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1403*/ meltfptr[1402])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1405*/ meltfptr[1404])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1403*/ meltfptr[1402]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1437*/ meltfptr[1436]); + meltgc_touch(/*_.VALCLO___V1405*/ meltfptr[1404]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1406*/ meltfptr[1405])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1439*/ meltfptr[1438]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1406*/ meltfptr[1405])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1406*/ meltfptr[1405]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1407*/ meltfptr[1406]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1438*/ meltfptr[1437]); + meltgc_touch(/*_.VALDATA___V1406*/ meltfptr[1405]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1441*/ meltfptr[1440]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1409*/ meltfptr[1408]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1440*/ meltfptr[1439]); + meltgc_touch(/*_.VALDATA___V1408*/ meltfptr[1407]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#2", NULL != (/*_.FRESH_ENV__V50*/ meltfptr[49])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[2] = (melt_ptr_t)(/*_.FRESH_ENV__V50*/ meltfptr[49]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#3", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#4", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[4] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V65*/ meltfptr[64]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[6] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[6] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#7", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5174:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1443*/ meltfptr[1442])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1443*/ meltfptr[1442])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1411*/ meltfptr[1410])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1411*/ meltfptr[1410])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5174:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5132:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1443*/ meltfptr[1442]); + meltgc_touch(/*_.VALROUT___V1411*/ meltfptr[1410]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1376__MEXPAND_EXIT#9", NULL != (/*_.VALROUT___V1443*/ meltfptr[1442])); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1443*/ meltfptr[1442]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1344__MEXPAND_EXIT#9", NULL != (/*_.VALROUT___V1411*/ meltfptr[1410])); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1411*/ meltfptr[1410]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V751*/ meltfptr[750]); - ((meltroutine_ptr_t)/*_.VALROUT___V1442*/ meltfptr[1441])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V751*/ meltfptr[750]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V723*/ meltfptr[722]); + ((meltroutine_ptr_t)/*_.VALROUT___V1410*/ meltfptr[1409])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]); - MELT_LOCATION("warmelt-macro.melt:5151:/ initchunk"); + +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_12*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_13 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:5109:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1442*/ meltfptr[1441]); + meltgc_touch(/*_.VALROUT___V1410*/ meltfptr[1409]); - /*putclosurout#82*/ - melt_assertmsg("putclosrout#82 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1444*/ meltfptr[1443])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#82 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1442*/ meltfptr[1441])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1444*/ meltfptr[1443])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1442*/ meltfptr[1441]); + /*putclosurout#81*/ + melt_assertmsg("putclosrout#81 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1412*/ meltfptr[1411])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#81 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1412*/ meltfptr[1411])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1410*/ meltfptr[1409]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1444*/ meltfptr[1443]); + meltgc_touch(/*_.VALCLO___V1412*/ meltfptr[1411]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1446*/ meltfptr[1445]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1414*/ meltfptr[1413]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1445*/ meltfptr[1444]); + meltgc_touch(/*_.VALDATA___V1413*/ meltfptr[1412]); - MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5150:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1447*/ meltfptr[1446])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__MEXPAND_COMPILE_WARNING#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1447*/ meltfptr[1446])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__MEXPAND_COMPILE_WARNING#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1415*/ meltfptr[1414])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5150:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1447*/ meltfptr[1446])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1447*/ meltfptr[1446])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1415*/ meltfptr[1414])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5150:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1447*/ meltfptr[1446])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1447*/ meltfptr[1446])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1415*/ meltfptr[1414])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5150:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1447*/ meltfptr[1446])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V761*/ meltfptr[760]); - ((meltroutine_ptr_t)/*_.VALROUT___V1447*/ meltfptr[1446])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V733*/ meltfptr[732]); + ((meltroutine_ptr_t)/*_.VALROUT___V1415*/ meltfptr[1414])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V733*/ meltfptr[732]); - MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5150:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1447*/ meltfptr[1446]); + meltgc_touch(/*_.VALROUT___V1415*/ meltfptr[1414]); - /*putclosurout#83*/ - melt_assertmsg("putclosrout#83 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1448*/ meltfptr[1447])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#83 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1447*/ meltfptr[1446])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1448*/ meltfptr[1447])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1447*/ meltfptr[1446]); + /*putclosurout#82*/ + melt_assertmsg("putclosrout#82 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1416*/ meltfptr[1415])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#82 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1416*/ meltfptr[1415])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1415*/ meltfptr[1414]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1448*/ meltfptr[1447]); + meltgc_touch(/*_.VALCLO___V1416*/ meltfptr[1415]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1450*/ meltfptr[1449]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1418*/ meltfptr[1417]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1449*/ meltfptr[1448]); + meltgc_touch(/*_.VALDATA___V1417*/ meltfptr[1416]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1452*/ meltfptr[1451])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ meltfptr[1419])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1452*/ meltfptr[1451])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1452*/ meltfptr[1451]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1453*/ meltfptr[1452]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ meltfptr[1419])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ meltfptr[1419]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1421*/ meltfptr[1420]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1452*/ meltfptr[1451]); + meltgc_touch(/*_.VALDATA___V1420*/ meltfptr[1419]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#4", NULL != (/*_.VALDATA___V1452*/ meltfptr[1451])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V1452*/ meltfptr[1451]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#4", NULL != (/*_.VALDATA___V1420*/ meltfptr[1419])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V1420*/ meltfptr[1419]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V21*/ meltfptr[20])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[5] = (melt_ptr_t)(/*_.FIND_ENV__V21*/ meltfptr[20]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#6", NULL != (/*_.FIND_ENV_DEBUG__V66*/ meltfptr[65])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V66*/ meltfptr[65]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#6", NULL != (/*_.FIND_ENV_DEBUG__V66*/ meltfptr[65])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[6] = (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V66*/ meltfptr[65]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#7", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[7] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#7", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[7] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V24*/ meltfptr[23]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#8", NULL != (/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[8] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#9", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[9] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#9", NULL != (/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[9] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V30*/ meltfptr[29]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V129*/ meltfptr[128]); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V129*/ meltfptr[128]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#11", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[11] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#11", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[11] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V589*/ meltfptr[588]); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V589*/ meltfptr[588]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ meltfptr[560]); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V561*/ meltfptr[560]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V581*/ meltfptr[580]); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1455*/ meltfptr[1454]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1423*/ meltfptr[1422]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1454*/ meltfptr[1453]); + meltgc_touch(/*_.VALDATA___V1422*/ meltfptr[1421]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1385__MEXPAND_ASSERT_MSG#14", NULL != (/*_.VALDATA___V1454*/ meltfptr[1453])); - ((meltroutine_ptr_t)/*_.VALROUT___V1451*/ meltfptr[1450])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1353__MEXPAND_ASSERT_MSG#14", NULL != (/*_.VALDATA___V1422*/ meltfptr[1421])); + ((meltroutine_ptr_t)/*_.VALROUT___V1419*/ meltfptr[1418])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]); - MELT_LOCATION("warmelt-macro.melt:5234:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5192:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1451*/ meltfptr[1450]); + meltgc_touch(/*_.VALROUT___V1419*/ meltfptr[1418]); - /*putclosurout#84*/ - melt_assertmsg("putclosrout#84 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1456*/ meltfptr[1455])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#84 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1451*/ meltfptr[1450])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1456*/ meltfptr[1455])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1451*/ meltfptr[1450]); + /*putclosurout#83*/ + melt_assertmsg("putclosrout#83 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1424*/ meltfptr[1423])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#83 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1419*/ meltfptr[1418])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1424*/ meltfptr[1423])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1419*/ meltfptr[1418]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1456*/ meltfptr[1455]); + meltgc_touch(/*_.VALCLO___V1424*/ meltfptr[1423]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1457*/ meltfptr[1456])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1425*/ meltfptr[1424])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1457*/ meltfptr[1456])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1457*/ meltfptr[1456]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1458*/ meltfptr[1457]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1425*/ meltfptr[1424])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1425*/ meltfptr[1424]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1426*/ meltfptr[1425]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1457*/ meltfptr[1456]); + meltgc_touch(/*_.VALDATA___V1425*/ meltfptr[1424]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1460*/ meltfptr[1459]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1428*/ meltfptr[1427]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1459*/ meltfptr[1458]); + meltgc_touch(/*_.VALDATA___V1427*/ meltfptr[1426]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#4", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#4", NULL != (/*_.DISCR_LIST__V40*/ meltfptr[39])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V40*/ meltfptr[39]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1430*/ meltfptr[1429])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1463*/ meltfptr[1462]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1430*/ meltfptr[1429])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1430*/ meltfptr[1429]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1431*/ meltfptr[1430]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1462*/ meltfptr[1461]); + meltgc_touch(/*_.VALDATA___V1430*/ meltfptr[1429]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#5", NULL != (/*_.VALDATA___V1462*/ meltfptr[1461])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#5", NULL != (/*_.VALDATA___V1430*/ meltfptr[1429])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1430*/ meltfptr[1429]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V105*/ meltfptr[104]); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V105*/ meltfptr[104]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#7", NULL != (/*_.VALDATA___V1048*/ meltfptr[1047])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#7", NULL != (/*_.VALDATA___V1020*/ meltfptr[1019])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#8", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[8] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#8", NULL != (/*_.DISCR_INTEGER__V37*/ meltfptr[36])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[8] = (melt_ptr_t)(/*_.DISCR_INTEGER__V37*/ meltfptr[36]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V609*/ meltfptr[608]); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V581*/ meltfptr[580]); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V581*/ meltfptr[580]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_DEBUG_MSG#10", NULL != (/*_.VALDATA___V1454*/ meltfptr[1453])); - ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1363__MEXPAND_DEBUG_MSG#10", NULL != (/*_.VALDATA___V1422*/ meltfptr[1421])); + ((meltroutine_ptr_t)/*_.VALROUT___V1429*/ meltfptr[1428])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]); - MELT_LOCATION("warmelt-macro.melt:5321:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5279:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1461*/ meltfptr[1460]); + meltgc_touch(/*_.VALROUT___V1429*/ meltfptr[1428]); - /*putclosurout#85*/ - melt_assertmsg("putclosrout#85 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1464*/ meltfptr[1463])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#85 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1464*/ meltfptr[1463])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1461*/ meltfptr[1460]); + /*putclosurout#84*/ + melt_assertmsg("putclosrout#84 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1432*/ meltfptr[1431])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#84 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1429*/ meltfptr[1428])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1432*/ meltfptr[1431])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1429*/ meltfptr[1428]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1464*/ meltfptr[1463]); + meltgc_touch(/*_.VALCLO___V1432*/ meltfptr[1431]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1466*/ meltfptr[1465]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1434*/ meltfptr[1433]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1465*/ meltfptr[1464]); + meltgc_touch(/*_.VALDATA___V1433*/ meltfptr[1432]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#7", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#7", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5392:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5350:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1468*/ meltfptr[1467])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1468*/ meltfptr[1467])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1436*/ meltfptr[1435])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5392:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1468*/ meltfptr[1467])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1468*/ meltfptr[1467])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1371__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1436*/ meltfptr[1435])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5392:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5350:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1468*/ meltfptr[1467])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__LAMBDA_#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1468*/ meltfptr[1467])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1371__LAMBDA_#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1436*/ meltfptr[1435])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5392:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5350:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1468*/ meltfptr[1467]); + meltgc_touch(/*_.VALROUT___V1436*/ meltfptr[1435]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1401__MEXPAND_EXPORT_VALUES#8", NULL != (/*_.VALROUT___V1468*/ meltfptr[1467])); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1468*/ meltfptr[1467]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1369__MEXPAND_EXPORT_VALUES#8", NULL != (/*_.VALROUT___V1436*/ meltfptr[1435])); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1436*/ meltfptr[1435]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V263*/ meltfptr[262]); - ((meltroutine_ptr_t)/*_.VALROUT___V1467*/ meltfptr[1466])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V253*/ meltfptr[252]); + ((meltroutine_ptr_t)/*_.VALROUT___V1435*/ meltfptr[1434])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V253*/ meltfptr[252]); - MELT_LOCATION("warmelt-macro.melt:5382:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5340:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1467*/ meltfptr[1466]); + meltgc_touch(/*_.VALROUT___V1435*/ meltfptr[1434]); - /*putclosurout#86*/ - melt_assertmsg("putclosrout#86 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1469*/ meltfptr[1468])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#86 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1467*/ meltfptr[1466])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1469*/ meltfptr[1468])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1467*/ meltfptr[1466]); + /*putclosurout#85*/ + melt_assertmsg("putclosrout#85 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1437*/ meltfptr[1436])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#85 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1435*/ meltfptr[1434])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1437*/ meltfptr[1436])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1435*/ meltfptr[1434]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1469*/ meltfptr[1468]); + meltgc_touch(/*_.VALCLO___V1437*/ meltfptr[1436]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1471*/ meltfptr[1470]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1439*/ meltfptr[1438]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1470*/ meltfptr[1469]); + meltgc_touch(/*_.VALDATA___V1438*/ meltfptr[1437]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1406__MEXPAND_EXPORT_MACRO#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__MEXPAND_EXPORT_MACRO#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1406__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1406__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1406__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1406__MEXPAND_EXPORT_MACRO#5", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__MEXPAND_EXPORT_MACRO#5", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ meltfptr[274]); - ((meltroutine_ptr_t)/*_.VALROUT___V1472*/ meltfptr[1471])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V265*/ meltfptr[264]); + ((meltroutine_ptr_t)/*_.VALROUT___V1440*/ meltfptr[1439])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V265*/ meltfptr[264]); - MELT_LOCATION("warmelt-macro.melt:5412:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5370:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1472*/ meltfptr[1471]); + meltgc_touch(/*_.VALROUT___V1440*/ meltfptr[1439]); - /*putclosurout#87*/ - melt_assertmsg("putclosrout#87 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1473*/ meltfptr[1472])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#87 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1473*/ meltfptr[1472])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1472*/ meltfptr[1471]); + /*putclosurout#86*/ + melt_assertmsg("putclosrout#86 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1441*/ meltfptr[1440])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#86 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1440*/ meltfptr[1439])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1441*/ meltfptr[1440])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1440*/ meltfptr[1439]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1473*/ meltfptr[1472]); + meltgc_touch(/*_.VALCLO___V1441*/ meltfptr[1440]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1475*/ meltfptr[1474]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1443*/ meltfptr[1442]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1474*/ meltfptr[1473]); + meltgc_touch(/*_.VALDATA___V1442*/ meltfptr[1441]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1410__MEXPAND_EXPORT_PATMACRO#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1378__MEXPAND_EXPORT_PATMACRO#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1410__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1378__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1410__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1378__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1410__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1378__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1410__MEXPAND_EXPORT_PATMACRO#5", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1378__MEXPAND_EXPORT_PATMACRO#5", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V293*/ meltfptr[292]); - ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ meltfptr[1475])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V283*/ meltfptr[282]); + ((meltroutine_ptr_t)/*_.VALROUT___V1444*/ meltfptr[1443])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V283*/ meltfptr[282]); - MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5411:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1476*/ meltfptr[1475]); + meltgc_touch(/*_.VALROUT___V1444*/ meltfptr[1443]); - /*putclosurout#88*/ - melt_assertmsg("putclosrout#88 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1477*/ meltfptr[1476])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#88 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1477*/ meltfptr[1476])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1476*/ meltfptr[1475]); + /*putclosurout#87*/ + melt_assertmsg("putclosrout#87 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1445*/ meltfptr[1444])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#87 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1444*/ meltfptr[1443])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1445*/ meltfptr[1444])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1444*/ meltfptr[1443]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1477*/ meltfptr[1476]); + meltgc_touch(/*_.VALCLO___V1445*/ meltfptr[1444]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1479*/ meltfptr[1478]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1447*/ meltfptr[1446]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1478*/ meltfptr[1477]); + meltgc_touch(/*_.VALDATA___V1446*/ meltfptr[1445]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[3] = (melt_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[31]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#4", NULL != (/*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#6", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5509:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5467:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1481*/ meltfptr[1480])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1481*/ meltfptr[1480])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1449*/ meltfptr[1448])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5509:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5467:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1481*/ meltfptr[1480])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1416__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1481*/ meltfptr[1480])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1449*/ meltfptr[1448])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5509:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5467:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1481*/ meltfptr[1480]); + meltgc_touch(/*_.VALROUT___V1449*/ meltfptr[1448]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1414__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.VALROUT___V1481*/ meltfptr[1480])); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1481*/ meltfptr[1480]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.VALROUT___V1449*/ meltfptr[1448])); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1449*/ meltfptr[1448]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V269*/ meltfptr[268]); - ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ meltfptr[1479])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V269*/ meltfptr[268]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V259*/ meltfptr[258]); + ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ meltfptr[1447])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]); - MELT_LOCATION("warmelt-macro.melt:5499:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5457:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1480*/ meltfptr[1479]); + meltgc_touch(/*_.VALROUT___V1448*/ meltfptr[1447]); - /*putclosurout#89*/ - melt_assertmsg("putclosrout#89 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1482*/ meltfptr[1481])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#89 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ meltfptr[1479])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1482*/ meltfptr[1481])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1480*/ meltfptr[1479]); + /*putclosurout#88*/ + melt_assertmsg("putclosrout#88 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1450*/ meltfptr[1449])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#88 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ meltfptr[1447])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1450*/ meltfptr[1449])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1448*/ meltfptr[1447]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1482*/ meltfptr[1481]); + meltgc_touch(/*_.VALCLO___V1450*/ meltfptr[1449]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1484*/ meltfptr[1483]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1452*/ meltfptr[1451]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1483*/ meltfptr[1482]); + meltgc_touch(/*_.VALDATA___V1451*/ meltfptr[1450]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1419__MEXPAND_EXPORT_SYNONYM#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1387__MEXPAND_EXPORT_SYNONYM#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1419__MEXPAND_EXPORT_SYNONYM#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1387__MEXPAND_EXPORT_SYNONYM#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1419__MEXPAND_EXPORT_SYNONYM#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1387__MEXPAND_EXPORT_SYNONYM#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1419__MEXPAND_EXPORT_SYNONYM#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1387__MEXPAND_EXPORT_SYNONYM#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1419__MEXPAND_EXPORT_SYNONYM#5", NULL != (/*_.VALDATA___V1178*/ meltfptr[1177])); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1387__MEXPAND_EXPORT_SYNONYM#5", NULL != (/*_.VALDATA___V1150*/ meltfptr[1149])); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V303*/ meltfptr[302]); - ((meltroutine_ptr_t)/*_.VALROUT___V1485*/ meltfptr[1484])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V293*/ meltfptr[292]); + ((meltroutine_ptr_t)/*_.VALROUT___V1453*/ meltfptr[1452])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V293*/ meltfptr[292]); - MELT_LOCATION("warmelt-macro.melt:5526:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5484:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1485*/ meltfptr[1484]); + meltgc_touch(/*_.VALROUT___V1453*/ meltfptr[1452]); - /*putclosurout#90*/ - melt_assertmsg("putclosrout#90 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1486*/ meltfptr[1485])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#90 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1485*/ meltfptr[1484])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1486*/ meltfptr[1485])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1485*/ meltfptr[1484]); + /*putclosurout#89*/ + melt_assertmsg("putclosrout#89 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1454*/ meltfptr[1453])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#89 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1454*/ meltfptr[1453])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1453*/ meltfptr[1452]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1486*/ meltfptr[1485]); + meltgc_touch(/*_.VALCLO___V1454*/ meltfptr[1453]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1488*/ meltfptr[1487]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1456*/ meltfptr[1455]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1487*/ meltfptr[1486]); + meltgc_touch(/*_.VALDATA___V1455*/ meltfptr[1454]); - MELT_LOCATION("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1489*/ meltfptr[1488])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1457*/ meltfptr[1456])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1457*/ meltfptr[1456])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1489*/ meltfptr[1488])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1457*/ meltfptr[1456])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1457*/ meltfptr[1456])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1423__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1489*/ meltfptr[1488])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1457*/ meltfptr[1456])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1391__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1457*/ meltfptr[1456])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5529:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V775*/ meltfptr[774]); - ((meltroutine_ptr_t)/*_.VALROUT___V1489*/ meltfptr[1488])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V775*/ meltfptr[774]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1457*/ meltfptr[1456])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V747*/ meltfptr[746]); + ((meltroutine_ptr_t)/*_.VALROUT___V1457*/ meltfptr[1456])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]); - MELT_LOCATION("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5529:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1489*/ meltfptr[1488]); + meltgc_touch(/*_.VALROUT___V1457*/ meltfptr[1456]); - /*putclosurout#91*/ - melt_assertmsg("putclosrout#91 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1490*/ meltfptr[1489])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#91 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1490*/ meltfptr[1489])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1489*/ meltfptr[1488]); + /*putclosurout#90*/ + melt_assertmsg("putclosrout#90 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1458*/ meltfptr[1457])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#90 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1457*/ meltfptr[1456])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1458*/ meltfptr[1457])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1457*/ meltfptr[1456]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1490*/ meltfptr[1489]); + meltgc_touch(/*_.VALCLO___V1458*/ meltfptr[1457]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1492*/ meltfptr[1491]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1460*/ meltfptr[1459]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1491*/ meltfptr[1490]); + meltgc_touch(/*_.VALDATA___V1459*/ meltfptr[1458]); - MELT_LOCATION("warmelt-macro.melt:5594:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5552:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1493*/ meltfptr[1492])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5594:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5552:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1493*/ meltfptr[1492])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5594:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5552:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1427__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1493*/ meltfptr[1492])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1395__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5594:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5552:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V785*/ meltfptr[784]); - ((meltroutine_ptr_t)/*_.VALROUT___V1493*/ meltfptr[1492])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V785*/ meltfptr[784]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V757*/ meltfptr[756]); + ((meltroutine_ptr_t)/*_.VALROUT___V1461*/ meltfptr[1460])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]); - MELT_LOCATION("warmelt-macro.melt:5594:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5552:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1493*/ meltfptr[1492]); + meltgc_touch(/*_.VALROUT___V1461*/ meltfptr[1460]); - /*putclosurout#92*/ - melt_assertmsg("putclosrout#92 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1494*/ meltfptr[1493])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#92 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1494*/ meltfptr[1493])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1493*/ meltfptr[1492]); + /*putclosurout#91*/ + melt_assertmsg("putclosrout#91 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1462*/ meltfptr[1461])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#91 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1461*/ meltfptr[1460])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1462*/ meltfptr[1461])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1461*/ meltfptr[1460]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1494*/ meltfptr[1493]); + meltgc_touch(/*_.VALCLO___V1462*/ meltfptr[1461]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1496*/ meltfptr[1495]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1464*/ meltfptr[1463]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1495*/ meltfptr[1494]); + meltgc_touch(/*_.VALDATA___V1463*/ meltfptr[1462]); - MELT_LOCATION("warmelt-macro.melt:5617:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5575:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1497*/ meltfptr[1496])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1465*/ meltfptr[1464])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1465*/ meltfptr[1464])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5617:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5575:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1497*/ meltfptr[1496])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1465*/ meltfptr[1464])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1465*/ meltfptr[1464])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5617:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5575:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1431__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1497*/ meltfptr[1496])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1465*/ meltfptr[1464])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1399__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1465*/ meltfptr[1464])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5617:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5575:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V791*/ meltfptr[790]); - ((meltroutine_ptr_t)/*_.VALROUT___V1497*/ meltfptr[1496])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1465*/ meltfptr[1464])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V763*/ meltfptr[762]); + ((meltroutine_ptr_t)/*_.VALROUT___V1465*/ meltfptr[1464])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V763*/ meltfptr[762]); - MELT_LOCATION("warmelt-macro.melt:5617:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5575:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1497*/ meltfptr[1496]); + meltgc_touch(/*_.VALROUT___V1465*/ meltfptr[1464]); - /*putclosurout#93*/ - melt_assertmsg("putclosrout#93 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1498*/ meltfptr[1497])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#93 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1498*/ meltfptr[1497])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1497*/ meltfptr[1496]); + /*putclosurout#92*/ + melt_assertmsg("putclosrout#92 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1466*/ meltfptr[1465])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#92 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1465*/ meltfptr[1464])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1466*/ meltfptr[1465])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1465*/ meltfptr[1464]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1498*/ meltfptr[1497]); + meltgc_touch(/*_.VALCLO___V1466*/ meltfptr[1465]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1500*/ meltfptr[1499]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1468*/ meltfptr[1467]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1499*/ meltfptr[1498]); + meltgc_touch(/*_.VALDATA___V1467*/ meltfptr[1466]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1435__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1435__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1435__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1435__MEXPAND_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1403__MEXPAND_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V801*/ meltfptr[800]); - ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ meltfptr[1500])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V801*/ meltfptr[800]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V773*/ meltfptr[772]); + ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ meltfptr[1468])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]); - MELT_LOCATION("warmelt-macro.melt:5641:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5599:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1501*/ meltfptr[1500]); + meltgc_touch(/*_.VALROUT___V1469*/ meltfptr[1468]); - /*putclosurout#94*/ - melt_assertmsg("putclosrout#94 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1502*/ meltfptr[1501])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#94 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ meltfptr[1500])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1502*/ meltfptr[1501])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1501*/ meltfptr[1500]); + /*putclosurout#93*/ + melt_assertmsg("putclosrout#93 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1470*/ meltfptr[1469])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#93 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ meltfptr[1468])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1470*/ meltfptr[1469])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1469*/ meltfptr[1468]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1502*/ meltfptr[1501]); + meltgc_touch(/*_.VALCLO___V1470*/ meltfptr[1469]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1504*/ meltfptr[1503]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1472*/ meltfptr[1471]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1503*/ meltfptr[1502]); + meltgc_touch(/*_.VALDATA___V1471*/ meltfptr[1470]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1439__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1407__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V12*/ meltfptr[11])); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V12*/ meltfptr[11]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1439__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1407__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1439__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1407__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13])); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ meltfptr[1009]); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1010*/ meltfptr[1009]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V982*/ meltfptr[981]); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V982*/ meltfptr[981]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ - melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1439__MEXPAND_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); + melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1407__MEXPAND_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V13*/ meltfptr[12])); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V13*/ meltfptr[12]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ - melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V811*/ meltfptr[810]); - ((meltroutine_ptr_t)/*_.VALROUT___V1505*/ meltfptr[1504])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V811*/ meltfptr[810]); + melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V783*/ meltfptr[782]); + ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ meltfptr[1472])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]); - MELT_LOCATION("warmelt-macro.melt:5667:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5625:/ initchunk"); /*^touch*/ /*touch:IROUTVAL_*/ - meltgc_touch(/*_.VALROUT___V1505*/ meltfptr[1504]); + meltgc_touch(/*_.VALROUT___V1473*/ meltfptr[1472]); - /*putclosurout#95*/ - melt_assertmsg("putclosrout#95 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1506*/ meltfptr[1505])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosrout#95 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1505*/ meltfptr[1504])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t)/*_.VALCLO___V1506*/ meltfptr[1505])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1505*/ meltfptr[1504]); + /*putclosurout#94*/ + melt_assertmsg("putclosrout#94 checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V1474*/ meltfptr[1473])) == MELTOBMAG_CLOSURE); + melt_assertmsg("putclosrout#94 checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ meltfptr[1472])) == MELTOBMAG_ROUTINE); + ((meltclosure_ptr_t)/*_.VALCLO___V1474*/ meltfptr[1473])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V1473*/ meltfptr[1472]); /*touch:DATACLOSURE_*/ - meltgc_touch(/*_.VALCLO___V1506*/ meltfptr[1505]); + meltgc_touch(/*_.VALCLO___V1474*/ meltfptr[1473]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1508*/ meltfptr[1507]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1476*/ meltfptr[1475]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1507*/ meltfptr[1506]); + meltgc_touch(/*_.VALDATA___V1475*/ meltfptr[1474]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1509*/ meltfptr[1508])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1477*/ meltfptr[1476])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1509*/ meltfptr[1508])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1509*/ meltfptr[1508]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1510*/ meltfptr[1509]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1477*/ meltfptr[1476])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1477*/ meltfptr[1476]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1478*/ meltfptr[1477]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1509*/ meltfptr[1508]); + meltgc_touch(/*_.VALDATA___V1477*/ meltfptr[1476]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1511*/ meltfptr[1510])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1479*/ meltfptr[1478])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1511*/ meltfptr[1510])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1511*/ meltfptr[1510]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1512*/ meltfptr[1511]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1479*/ meltfptr[1478])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1479*/ meltfptr[1478]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1480*/ meltfptr[1479]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1511*/ meltfptr[1510]); + meltgc_touch(/*_.VALDATA___V1479*/ meltfptr[1478]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1513*/ meltfptr[1512])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1481*/ meltfptr[1480])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1513*/ meltfptr[1512])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1513*/ meltfptr[1512]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1514*/ meltfptr[1513]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1481*/ meltfptr[1480])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1481*/ meltfptr[1480]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1482*/ meltfptr[1481]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1513*/ meltfptr[1512]); + meltgc_touch(/*_.VALDATA___V1481*/ meltfptr[1480]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1515*/ meltfptr[1514])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1515*/ meltfptr[1514])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1515*/ meltfptr[1514]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1516*/ meltfptr[1515]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1484*/ meltfptr[1483]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1515*/ meltfptr[1514]); - + meltgc_touch(/*_.VALDATA___V1483*/ meltfptr[1482]); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_13*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1517*/ meltfptr[1516])) == MELTOBMAG_OBJECT); + /*putslot*/ + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1485*/ meltfptr[1484])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1517*/ meltfptr[1516])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1517*/ meltfptr[1516]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1518*/ meltfptr[1517]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1485*/ meltfptr[1484])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1485*/ meltfptr[1484]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1486*/ meltfptr[1485]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1517*/ meltfptr[1516]); + meltgc_touch(/*_.VALDATA___V1485*/ meltfptr[1484]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1519*/ meltfptr[1518])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1519*/ meltfptr[1518])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1519*/ meltfptr[1518]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1520*/ meltfptr[1519]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1488*/ meltfptr[1487]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1519*/ meltfptr[1518]); + meltgc_touch(/*_.VALDATA___V1487*/ meltfptr[1486]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1489*/ meltfptr[1488])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1522*/ meltfptr[1521]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1489*/ meltfptr[1488])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1489*/ meltfptr[1488]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1490*/ meltfptr[1489]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1521*/ meltfptr[1520]); + meltgc_touch(/*_.VALDATA___V1489*/ meltfptr[1488]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ meltfptr[1522])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ meltfptr[1522])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ meltfptr[1522]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1524*/ meltfptr[1523]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1492*/ meltfptr[1491]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1523*/ meltfptr[1522]); + meltgc_touch(/*_.VALDATA___V1491*/ meltfptr[1490]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1525*/ meltfptr[1524])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1493*/ meltfptr[1492])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1525*/ meltfptr[1524])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1525*/ meltfptr[1524]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1526*/ meltfptr[1525]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1493*/ meltfptr[1492])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1493*/ meltfptr[1492]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1494*/ meltfptr[1493]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1525*/ meltfptr[1524]); + meltgc_touch(/*_.VALDATA___V1493*/ meltfptr[1492]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1527*/ meltfptr[1526])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1527*/ meltfptr[1526]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1528*/ meltfptr[1527]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1496*/ meltfptr[1495]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1527*/ meltfptr[1526]); + meltgc_touch(/*_.VALDATA___V1495*/ meltfptr[1494]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1529*/ meltfptr[1528])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1497*/ meltfptr[1496])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1529*/ meltfptr[1528])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1529*/ meltfptr[1528]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1530*/ meltfptr[1529]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1497*/ meltfptr[1496])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1497*/ meltfptr[1496]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1498*/ meltfptr[1497]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1529*/ meltfptr[1528]); + meltgc_touch(/*_.VALDATA___V1497*/ meltfptr[1496]); /*putslot*/ - melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ meltfptr[1530])) == MELTOBMAG_OBJECT); + melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])) == MELTOBMAG_OBJECT); - melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ meltfptr[1530])))); - ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ meltfptr[1530]))->obj_vartab[1] = (melt_ptr_t)( - /*_.VALSTR___V1532*/ meltfptr[1531]); + melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])))); + ((meltobject_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498]))->obj_vartab[1] = (melt_ptr_t)( + /*_.VALSTR___V1500*/ meltfptr[1499]); /*touch:VALUEDATA_*/ - meltgc_touch(/*_.VALDATA___V1531*/ meltfptr[1530]); + meltgc_touch(/*_.VALDATA___V1499*/ meltfptr[1498]); /**COMMENT: before toplevel body **/; @@ -37743,7 +37048,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ - /*_.OR___V1533*/ meltfptr[1532] = + /*_.OR___V1501*/ meltfptr[1500] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ meltfptr[1];; } else {MELT_LOCATION("warmelt-macro.melt:3:/ cond.else"); @@ -37753,7 +37058,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V1534*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V1502*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ @@ -37761,16 +37066,16 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "warmelt-macro"; - /*_.FUN___V1535*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1534*/ meltfptr[1533]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.FUN___V1503*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1502*/ meltfptr[1501]), (melt_ptr_t)(/*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.OR___V1533*/ meltfptr[1532] = /*_.FUN___V1535*/ meltfptr[1534];; + /*_.OR___V1501*/ meltfptr[1500] = /*_.FUN___V1503*/ meltfptr[1502];; /*epilog*/ MELT_LOCATION("warmelt-macro.melt:3:/ clear"); - /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1534*/ meltfptr[1533] = 0 ; + /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1502*/ meltfptr[1501] = 0 ; /*^clear*/ - /*clear*/ /*_.FUN___V1535*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.FUN___V1503*/ meltfptr[1502] = 0 ;} ; } ; @@ -37781,35 +37086,35 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V1533*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.OR___V1501*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:706:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:685:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1536*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1504*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V886*/ meltfptr[885]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V858*/ meltfptr[857]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_VAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1536*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1504*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V1536*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1504*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2077:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2056:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37818,42 +37123,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1180*/ meltfptr[1179]; - /*_.INSTALL_INITIAL_MACRO__V1537*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1152*/ meltfptr[1151]; + /*_.INSTALL_INITIAL_MACRO__V1505*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1537*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1505*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2078:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2057:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1538*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1506*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1180*/ meltfptr[1179]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1152*/ meltfptr[1151]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFPRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1538*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1506*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1538*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1506*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2203:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2182:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37862,86 +37167,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1186*/ meltfptr[1185]; - /*_.INSTALL_INITIAL_MACRO__V1539*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1158*/ meltfptr[1157]; + /*_.INSTALL_INITIAL_MACRO__V1507*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1539*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1507*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2204:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2183:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1540*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1508*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1186*/ meltfptr[1185]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1158*/ meltfptr[1157]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCITERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1540*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1540*/ meltfptr[1534] = 0 ;} - - MELT_LOCATION("warmelt-macro.melt:2229:/ initchunk"); - /*^block*/ - /*anyblock*/{ - - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[1]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1190*/ meltfptr[1189]; - /*_.INSTALL_INITIAL_MACRO__V1541*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1541*/ meltfptr[1532] = 0 ;} - - MELT_LOCATION("warmelt-macro.melt:2230:/ initchunk"); - /*^block*/ - /*anyblock*/{ - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1542*/ meltfptr[1533] = slot; }; - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1190*/ meltfptr[1189]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : DEFVARIADIC*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1542*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1508*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1542*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1508*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2403:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2361:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37950,42 +37211,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1195*/ meltfptr[1194]; - /*_.INSTALL_INITIAL_MACRO__V1543*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1163*/ meltfptr[1162]; + /*_.INSTALL_INITIAL_MACRO__V1509*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1543*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1509*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2404:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2362:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1544*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1510*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1195*/ meltfptr[1194]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1163*/ meltfptr[1162]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1544*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1510*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1544*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1510*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2540:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2498:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -37994,42 +37255,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1202*/ meltfptr[1201]; - /*_.INSTALL_INITIAL_MACRO__V1545*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1170*/ meltfptr[1169]; + /*_.INSTALL_INITIAL_MACRO__V1511*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1545*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1511*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2541:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2499:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1546*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1512*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1202*/ meltfptr[1201]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1170*/ meltfptr[1169]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUNMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1546*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1512*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1546*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1512*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2609:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2567:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38038,42 +37299,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1207*/ meltfptr[1206]; - /*_.INSTALL_INITIAL_MACRO__V1547*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1175*/ meltfptr[1174]; + /*_.INSTALL_INITIAL_MACRO__V1513*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1547*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1513*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2610:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2568:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1548*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1514*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1207*/ meltfptr[1206]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1175*/ meltfptr[1174]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1548*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1514*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1548*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1514*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2654:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2612:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38082,42 +37343,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1215*/ meltfptr[1214]; - /*_.INSTALL_INITIAL_MACRO__V1549*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1183*/ meltfptr[1182]; + /*_.INSTALL_INITIAL_MACRO__V1515*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1549*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1515*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2655:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2613:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1550*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1516*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1215*/ meltfptr[1214]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1183*/ meltfptr[1182]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFINE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1550*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1516*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1550*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1516*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2921:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2879:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38126,42 +37387,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1233*/ meltfptr[1232]; - /*_.INSTALL_INITIAL_MACRO__V1551*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1201*/ meltfptr[1200]; + /*_.INSTALL_INITIAL_MACRO__V1517*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1551*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1517*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:2922:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:2880:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1552*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1518*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1233*/ meltfptr[1232]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1201*/ meltfptr[1200]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1552*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1518*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1552*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1518*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3127:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3085:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38170,42 +37431,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1252*/ meltfptr[1251]; - /*_.INSTALL_INITIAL_MACRO__V1553*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1220*/ meltfptr[1219]; + /*_.INSTALL_INITIAL_MACRO__V1519*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1553*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1519*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3128:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3086:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1554*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1520*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1252*/ meltfptr[1251]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1220*/ meltfptr[1219]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFINSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1554*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1520*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1554*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1520*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3269:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3227:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38214,42 +37475,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1260*/ meltfptr[1259]; - /*_.INSTALL_INITIAL_MACRO__V1555*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1228*/ meltfptr[1227]; + /*_.INSTALL_INITIAL_MACRO__V1521*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1555*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1521*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3270:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3228:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1556*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1522*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1260*/ meltfptr[1259]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1228*/ meltfptr[1227]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFSELECTOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1556*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1522*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1556*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1522*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3337:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3295:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38258,42 +37519,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1268*/ meltfptr[1267]; - /*_.INSTALL_INITIAL_MACRO__V1557*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1236*/ meltfptr[1235]; + /*_.INSTALL_INITIAL_MACRO__V1523*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1557*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1523*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3338:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3296:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1558*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1524*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1268*/ meltfptr[1267]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1236*/ meltfptr[1235]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1558*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1524*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1558*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1524*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3378:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3336:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38302,42 +37563,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1272*/ meltfptr[1271]; - /*_.INSTALL_INITIAL_MACRO__V1559*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1240*/ meltfptr[1239]; + /*_.INSTALL_INITIAL_MACRO__V1525*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1559*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1525*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3379:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3337:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1560*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1526*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1272*/ meltfptr[1271]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1240*/ meltfptr[1239]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LOAD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1560*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1526*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1560*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1526*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3508:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3466:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38346,46 +37607,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1280*/ meltfptr[1279]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1248*/ meltfptr[1247]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1268*/ meltfptr[1267]; - /*_.INSTALL_INITIAL_PATMACRO__V1561*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1236*/ meltfptr[1235]; + /*_.INSTALL_INITIAL_PATMACRO__V1527*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1561*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1527*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3509:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3467:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1562*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1528*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1268*/ meltfptr[1267]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1236*/ meltfptr[1235]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1280*/ meltfptr[1279]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1248*/ meltfptr[1247]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : INSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1562*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1528*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1562*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1528*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3613:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3571:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38394,46 +37655,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1283*/ meltfptr[1282]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1251*/ meltfptr[1250]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1285*/ meltfptr[1284]; - /*_.INSTALL_INITIAL_PATMACRO__V1563*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1253*/ meltfptr[1252]; + /*_.INSTALL_INITIAL_PATMACRO__V1529*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1563*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1529*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3614:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3572:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1564*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1530*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1285*/ meltfptr[1284]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1253*/ meltfptr[1252]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1283*/ meltfptr[1282]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1251*/ meltfptr[1250]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1564*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1530*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1564*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1530*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3669:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3627:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38442,42 +37703,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1289*/ meltfptr[1288]; - /*_.INSTALL_INITIAL_MACRO__V1565*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1257*/ meltfptr[1256]; + /*_.INSTALL_INITIAL_MACRO__V1531*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1565*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1531*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3670:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3628:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1566*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1532*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1289*/ meltfptr[1288]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1257*/ meltfptr[1256]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CODE_CHUNK*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1566*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1532*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1566*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1532*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3712:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3670:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38486,42 +37747,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1293*/ meltfptr[1292]; - /*_.INSTALL_INITIAL_MACRO__V1567*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1261*/ meltfptr[1260]; + /*_.INSTALL_INITIAL_MACRO__V1533*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1567*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1533*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3713:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3671:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1568*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1534*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1293*/ meltfptr[1292]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1261*/ meltfptr[1260]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1568*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1534*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1568*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1534*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3757:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3715:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38530,42 +37791,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1297*/ meltfptr[1296]; - /*_.INSTALL_INITIAL_MACRO__V1569*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1265*/ meltfptr[1264]; + /*_.INSTALL_INITIAL_MACRO__V1535*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1569*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1535*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3758:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3716:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1570*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1536*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1297*/ meltfptr[1296]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1265*/ meltfptr[1264]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1570*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1536*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1570*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1536*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3799:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3757:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38574,42 +37835,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1301*/ meltfptr[1300]; - /*_.INSTALL_INITIAL_MACRO__V1571*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1269*/ meltfptr[1268]; + /*_.INSTALL_INITIAL_MACRO__V1537*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1571*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1537*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3800:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3758:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1572*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1538*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1301*/ meltfptr[1300]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1269*/ meltfptr[1268]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1572*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1538*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1572*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1538*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3840:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3798:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38618,42 +37879,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1305*/ meltfptr[1304]; - /*_.INSTALL_INITIAL_MACRO__V1573*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1273*/ meltfptr[1272]; + /*_.INSTALL_INITIAL_MACRO__V1539*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1573*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1539*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3841:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3799:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1574*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1540*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1305*/ meltfptr[1304]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1273*/ meltfptr[1272]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1574*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1540*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1574*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1540*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3872:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3830:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38662,42 +37923,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1309*/ meltfptr[1308]; - /*_.INSTALL_INITIAL_MACRO__V1575*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1277*/ meltfptr[1276]; + /*_.INSTALL_INITIAL_MACRO__V1541*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1575*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1541*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3873:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3831:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1576*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1542*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1309*/ meltfptr[1308]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1277*/ meltfptr[1276]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SETQ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1576*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1542*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1576*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1542*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3923:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3881:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38706,42 +37967,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1313*/ meltfptr[1312]; - /*_.INSTALL_INITIAL_MACRO__V1577*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1281*/ meltfptr[1280]; + /*_.INSTALL_INITIAL_MACRO__V1543*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1577*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1543*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3924:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3882:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1578*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1544*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1313*/ meltfptr[1312]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1281*/ meltfptr[1280]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1578*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1544*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1578*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1544*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3977:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3935:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38750,42 +38011,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1317*/ meltfptr[1316]; - /*_.INSTALL_INITIAL_MACRO__V1579*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1285*/ meltfptr[1284]; + /*_.INSTALL_INITIAL_MACRO__V1545*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1579*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1545*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:3978:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:3936:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1580*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1546*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1317*/ meltfptr[1316]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1285*/ meltfptr[1284]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CPPIF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1580*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1546*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1580*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1546*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4049:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4007:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38794,42 +38055,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1323*/ meltfptr[1322]; - /*_.INSTALL_INITIAL_MACRO__V1581*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1291*/ meltfptr[1290]; + /*_.INSTALL_INITIAL_MACRO__V1547*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1581*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1547*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4050:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4008:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1582*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1548*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1323*/ meltfptr[1322]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1291*/ meltfptr[1290]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GCCIF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1582*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1548*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1582*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1548*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4145:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4103:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38838,42 +38099,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1333*/ meltfptr[1332]; - /*_.INSTALL_INITIAL_MACRO__V1583*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1301*/ meltfptr[1300]; + /*_.INSTALL_INITIAL_MACRO__V1549*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1583*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1549*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4146:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4104:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1584*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1550*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1333*/ meltfptr[1332]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1301*/ meltfptr[1300]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1584*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1550*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1584*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1550*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4245:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4203:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38882,46 +38143,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1340*/ meltfptr[1339]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1308*/ meltfptr[1307]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1342*/ meltfptr[1341]; - /*_.INSTALL_INITIAL_PATMACRO__V1585*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1310*/ meltfptr[1309]; + /*_.INSTALL_INITIAL_PATMACRO__V1551*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1585*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1551*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4246:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4204:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1586*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1552*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1342*/ meltfptr[1341]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1310*/ meltfptr[1309]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1340*/ meltfptr[1339]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1308*/ meltfptr[1307]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1586*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1552*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1586*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1552*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4274:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4232:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38930,46 +38191,54 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1346*/ meltfptr[1345]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1314*/ meltfptr[1313]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1348*/ meltfptr[1347]; - /*_.INSTALL_INITIAL_PATMACRO__V1587*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1316*/ meltfptr[1315]; + /*_.INSTALL_INITIAL_PATMACRO__V1553*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1587*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1553*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4275:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4233:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1588*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1554*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1348*/ meltfptr[1347]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1316*/ meltfptr[1315]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1346*/ meltfptr[1345]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1314*/ meltfptr[1313]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : WHEN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1588*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1554*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1588*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1554*/ meltfptr[1500] = 0 ;} + - MELT_LOCATION("warmelt-macro.melt:4303:/ initchunk"); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_13*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +MELT_LOCATION("warmelt-macro.melt:4261:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -38978,46 +38247,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1352*/ meltfptr[1351]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1320*/ meltfptr[1319]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1338*/ meltfptr[1337]; - /*_.INSTALL_INITIAL_PATMACRO__V1589*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1306*/ meltfptr[1305]; + /*_.INSTALL_INITIAL_PATMACRO__V1555*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1589*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1555*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4304:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4262:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1590*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1556*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1338*/ meltfptr[1337]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1306*/ meltfptr[1305]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1352*/ meltfptr[1351]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1320*/ meltfptr[1319]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1590*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1556*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1590*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1556*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4366:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4324:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39026,46 +38295,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1359*/ meltfptr[1358]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1327*/ meltfptr[1326]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1357*/ meltfptr[1356]; - /*_.INSTALL_INITIAL_PATMACRO__V1591*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1325*/ meltfptr[1324]; + /*_.INSTALL_INITIAL_PATMACRO__V1557*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1591*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1557*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4367:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4325:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1592*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1558*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1357*/ meltfptr[1356]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1325*/ meltfptr[1324]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1359*/ meltfptr[1358]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1327*/ meltfptr[1326]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1592*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1558*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1592*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1558*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4413:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4371:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39074,46 +38343,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1365*/ meltfptr[1364]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1333*/ meltfptr[1332]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1363*/ meltfptr[1362]; - /*_.INSTALL_INITIAL_PATMACRO__V1593*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1331*/ meltfptr[1330]; + /*_.INSTALL_INITIAL_PATMACRO__V1559*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1593*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1559*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4414:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4372:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1594*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1560*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1363*/ meltfptr[1362]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1331*/ meltfptr[1330]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1365*/ meltfptr[1364]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1333*/ meltfptr[1332]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1594*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1560*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1594*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1560*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4460:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4418:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39122,46 +38391,46 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1371*/ meltfptr[1370]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1339*/ meltfptr[1338]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1369*/ meltfptr[1368]; - /*_.INSTALL_INITIAL_PATMACRO__V1595*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1159*/ meltfptr[1158]), (melt_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1337*/ meltfptr[1336]; + /*_.INSTALL_INITIAL_PATMACRO__V1561*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1131*/ meltfptr[1130]), (melt_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1595*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1561*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4461:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4419:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1596*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1562*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1369*/ meltfptr[1368]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1337*/ meltfptr[1336]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1371*/ meltfptr[1370]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1339*/ meltfptr[1338]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1596*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.PATMACROXPORTER___V1562*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.PATMACROXPORTER___V1596*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.PATMACROXPORTER___V1562*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4552:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4510:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39170,42 +38439,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1376*/ meltfptr[1375]; - /*_.INSTALL_INITIAL_MACRO__V1597*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1344*/ meltfptr[1343]; + /*_.INSTALL_INITIAL_MACRO__V1563*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1597*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1563*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4553:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4511:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1598*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1564*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1376*/ meltfptr[1375]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1344*/ meltfptr[1343]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MATCH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1598*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1564*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1598*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1564*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4692:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4650:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39214,42 +38483,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1389*/ meltfptr[1388]; - /*_.INSTALL_INITIAL_MACRO__V1599*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1357*/ meltfptr[1356]; + /*_.INSTALL_INITIAL_MACRO__V1565*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1599*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1565*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4693:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4651:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1600*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1566*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1389*/ meltfptr[1388]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1357*/ meltfptr[1356]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LET*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1600*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1566*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1600*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1566*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4711:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4669:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39260,16 +38529,16 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V75*/ meltfptr[74]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1393*/ meltfptr[1392]; - /*_.INSTALL_METHOD__V1601*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1361*/ meltfptr[1360]; + /*_.INSTALL_METHOD__V1567*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V1601*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1567*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4712:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4670:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39280,16 +38549,16 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V75*/ meltfptr[74]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1393*/ meltfptr[1392]; - /*_.INSTALL_METHOD__V1602*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1361*/ meltfptr[1360]; + /*_.INSTALL_METHOD__V1568*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V1602*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1568*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4713:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4671:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39300,16 +38569,16 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V75*/ meltfptr[74]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1393*/ meltfptr[1392]; - /*_.INSTALL_METHOD__V1603*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1361*/ meltfptr[1360]; + /*_.INSTALL_METHOD__V1569*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V181*/ meltfptr[180]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V1603*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1569*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4714:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4672:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39320,16 +38589,16 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V75*/ meltfptr[74]; /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1393*/ meltfptr[1392]; - /*_.INSTALL_METHOD__V1604*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V197*/ meltfptr[196]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1361*/ meltfptr[1360]; + /*_.INSTALL_METHOD__V1570*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V63*/ meltfptr[62]), (melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_METHOD__V1604*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_METHOD__V1570*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4862:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4820:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39338,42 +38607,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1399*/ meltfptr[1398]; - /*_.INSTALL_INITIAL_MACRO__V1605*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1367*/ meltfptr[1366]; + /*_.INSTALL_INITIAL_MACRO__V1571*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1605*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1571*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4863:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4821:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1606*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1572*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1399*/ meltfptr[1398]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1367*/ meltfptr[1366]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LETREC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1606*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1572*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1606*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1572*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4900:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4858:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39382,42 +38651,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1407*/ meltfptr[1406]; - /*_.INSTALL_INITIAL_MACRO__V1607*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1375*/ meltfptr[1374]; + /*_.INSTALL_INITIAL_MACRO__V1573*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1607*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1573*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4901:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4859:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1608*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1574*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1407*/ meltfptr[1406]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1375*/ meltfptr[1374]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1608*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1574*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1608*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1574*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4956:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4914:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39426,42 +38695,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1413*/ meltfptr[1412]; - /*_.INSTALL_INITIAL_MACRO__V1609*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1381*/ meltfptr[1380]; + /*_.INSTALL_INITIAL_MACRO__V1575*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1609*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1575*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4957:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4915:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1610*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1576*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1413*/ meltfptr[1412]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1381*/ meltfptr[1380]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTICALL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1610*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1576*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1610*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1576*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:4999:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4957:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39470,42 +38739,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1417*/ meltfptr[1416]; - /*_.INSTALL_INITIAL_MACRO__V1611*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1385*/ meltfptr[1384]; + /*_.INSTALL_INITIAL_MACRO__V1577*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1611*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1577*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5000:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4958:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1612*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1578*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1417*/ meltfptr[1416]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1385*/ meltfptr[1384]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : QUOTE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1612*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1578*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1612*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1578*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5029:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4987:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39514,42 +38783,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1421*/ meltfptr[1420]; - /*_.INSTALL_INITIAL_MACRO__V1613*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1389*/ meltfptr[1388]; + /*_.INSTALL_INITIAL_MACRO__V1579*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1613*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1579*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5030:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:4988:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1614*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1580*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1421*/ meltfptr[1420]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1389*/ meltfptr[1388]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1614*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1580*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1614*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1580*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5086:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5044:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39558,42 +38827,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1428*/ meltfptr[1427]; - /*_.INSTALL_INITIAL_MACRO__V1615*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1396*/ meltfptr[1395]; + /*_.INSTALL_INITIAL_MACRO__V1581*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1615*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1581*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5087:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5045:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1616*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1582*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1428*/ meltfptr[1427]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1396*/ meltfptr[1395]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PROGN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1616*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1582*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1616*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1582*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5104:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5062:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39602,42 +38871,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1432*/ meltfptr[1431]; - /*_.INSTALL_INITIAL_MACRO__V1617*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1400*/ meltfptr[1399]; + /*_.INSTALL_INITIAL_MACRO__V1583*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1617*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1583*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5105:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5063:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1618*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1584*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1432*/ meltfptr[1431]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1400*/ meltfptr[1399]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : RETURN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1618*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1584*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1618*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1584*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5143:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5101:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39646,42 +38915,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1437*/ meltfptr[1436]; - /*_.INSTALL_INITIAL_MACRO__V1619*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1405*/ meltfptr[1404]; + /*_.INSTALL_INITIAL_MACRO__V1585*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1619*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1585*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5144:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5102:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1620*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1586*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1437*/ meltfptr[1436]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1405*/ meltfptr[1404]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREVER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1620*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1586*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1620*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1586*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5183:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5141:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39690,42 +38959,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1444*/ meltfptr[1443]; - /*_.INSTALL_INITIAL_MACRO__V1621*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1412*/ meltfptr[1411]; + /*_.INSTALL_INITIAL_MACRO__V1587*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1621*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1587*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5184:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5142:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1622*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1588*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1444*/ meltfptr[1443]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1412*/ meltfptr[1411]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXIT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1622*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1588*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1622*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1588*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5221:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5179:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39734,42 +39003,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1448*/ meltfptr[1447]; - /*_.INSTALL_INITIAL_MACRO__V1623*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1416*/ meltfptr[1415]; + /*_.INSTALL_INITIAL_MACRO__V1589*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1623*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1589*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5222:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5180:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1624*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1590*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1448*/ meltfptr[1447]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1416*/ meltfptr[1415]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_WARNING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1624*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1590*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1624*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1590*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5307:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5265:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39778,42 +39047,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1456*/ meltfptr[1455]; - /*_.INSTALL_INITIAL_MACRO__V1625*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1424*/ meltfptr[1423]; + /*_.INSTALL_INITIAL_MACRO__V1591*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1625*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1591*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5308:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5266:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1626*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1592*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1456*/ meltfptr[1455]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1424*/ meltfptr[1423]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_MSG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1626*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1592*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1626*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1592*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5377:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5335:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39822,42 +39091,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1464*/ meltfptr[1463]; - /*_.INSTALL_INITIAL_MACRO__V1627*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1432*/ meltfptr[1431]; + /*_.INSTALL_INITIAL_MACRO__V1593*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1627*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1593*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5378:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5336:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1628*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1594*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1464*/ meltfptr[1463]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1432*/ meltfptr[1431]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1628*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1594*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1628*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1594*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5407:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5365:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39866,42 +39135,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1469*/ meltfptr[1468]; - /*_.INSTALL_INITIAL_MACRO__V1629*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1437*/ meltfptr[1436]; + /*_.INSTALL_INITIAL_MACRO__V1595*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1629*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1595*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5408:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5366:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1630*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1596*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1469*/ meltfptr[1468]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1437*/ meltfptr[1436]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_VALUES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1630*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1596*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1630*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1596*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5445:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5403:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39910,42 +39179,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1473*/ meltfptr[1472]; - /*_.INSTALL_INITIAL_MACRO__V1631*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1441*/ meltfptr[1440]; + /*_.INSTALL_INITIAL_MACRO__V1597*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1631*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1597*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5446:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5404:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1632*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1598*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1473*/ meltfptr[1472]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1441*/ meltfptr[1440]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_MACRO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1632*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1598*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1632*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1598*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5494:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5452:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39954,42 +39223,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1477*/ meltfptr[1476]; - /*_.INSTALL_INITIAL_MACRO__V1633*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1445*/ meltfptr[1444]; + /*_.INSTALL_INITIAL_MACRO__V1599*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1633*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1599*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5495:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5453:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1634*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1600*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1477*/ meltfptr[1476]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1445*/ meltfptr[1444]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_PATMACRO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1634*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1600*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1634*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1600*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5522:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5480:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -39998,42 +39267,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1482*/ meltfptr[1481]; - /*_.INSTALL_INITIAL_MACRO__V1635*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1450*/ meltfptr[1449]; + /*_.INSTALL_INITIAL_MACRO__V1601*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1635*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1601*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5523:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5481:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1636*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1602*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1482*/ meltfptr[1481]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1450*/ meltfptr[1449]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1636*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1602*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1636*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1602*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5566:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5524:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40042,42 +39311,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1486*/ meltfptr[1485]; - /*_.INSTALL_INITIAL_MACRO__V1637*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1454*/ meltfptr[1453]; + /*_.INSTALL_INITIAL_MACRO__V1603*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1637*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1603*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5567:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5525:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1638*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1604*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1486*/ meltfptr[1485]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1454*/ meltfptr[1453]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_SYNONYM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1638*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1604*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1638*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1604*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5588:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5546:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40086,42 +39355,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1490*/ meltfptr[1489]; - /*_.INSTALL_INITIAL_MACRO__V1639*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1458*/ meltfptr[1457]; + /*_.INSTALL_INITIAL_MACRO__V1605*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1639*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1605*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5547:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1640*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1606*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1490*/ meltfptr[1489]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1458*/ meltfptr[1457]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1640*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1606*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1640*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1606*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5610:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5568:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40130,42 +39399,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1494*/ meltfptr[1493]; - /*_.INSTALL_INITIAL_MACRO__V1641*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1462*/ meltfptr[1461]; + /*_.INSTALL_INITIAL_MACRO__V1607*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1641*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1607*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5611:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5569:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1642*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1608*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1494*/ meltfptr[1493]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1462*/ meltfptr[1461]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1642*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1608*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1642*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1608*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5634:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5592:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40174,42 +39443,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1498*/ meltfptr[1497]; - /*_.INSTALL_INITIAL_MACRO__V1643*/ meltfptr[1532] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1466*/ meltfptr[1465]; + /*_.INSTALL_INITIAL_MACRO__V1609*/ meltfptr[1501] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1643*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1609*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5635:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5593:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1644*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1610*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1498*/ meltfptr[1497]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1466*/ meltfptr[1465]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1644*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1610*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1644*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1610*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5663:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5621:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40218,42 +39487,42 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1502*/ meltfptr[1501]; - /*_.INSTALL_INITIAL_MACRO__V1645*/ meltfptr[1534] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1470*/ meltfptr[1469]; + /*_.INSTALL_INITIAL_MACRO__V1611*/ meltfptr[1500] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1645*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1611*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5664:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5622:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1646*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1612*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1502*/ meltfptr[1501]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1470*/ meltfptr[1469]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FETCH_PREDEFINED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1646*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1612*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1646*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1612*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5696:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5654:/ initchunk"); /*^block*/ /*anyblock*/{ @@ -40262,60 +39531,60 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1506*/ meltfptr[1505]; - /*_.INSTALL_INITIAL_MACRO__V1647*/ meltfptr[1533] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1153*/ meltfptr[1152]), (melt_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1474*/ meltfptr[1473]; + /*_.INSTALL_INITIAL_MACRO__V1613*/ meltfptr[1502] = melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V1125*/ meltfptr[1124]), (melt_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1647*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1613*/ meltfptr[1502] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5697:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5655:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1648*/ meltfptr[1534] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1614*/ meltfptr[1500] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1506*/ meltfptr[1505]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1474*/ meltfptr[1473]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STORE_PREDEFINED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1648*/ meltfptr[1534]), (melt_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.MACROXPORTER___V1614*/ meltfptr[1500]), (melt_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.MACROXPORTER___V1648*/ meltfptr[1534] = 0 ;} + /*clear*/ /*_.MACROXPORTER___V1614*/ meltfptr[1500] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5701:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5659:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1649*/ meltfptr[1532] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1615*/ meltfptr[1501] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1086*/ meltfptr[1085]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1058*/ meltfptr[1057]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1082*/ meltfptr[1081]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40323,12 +39592,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1089*/ meltfptr[1088]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1061*/ meltfptr[1060]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MEXPANDER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40336,12 +39605,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1091*/ meltfptr[1090]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1063*/ meltfptr[1062]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_PEXPANDER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40349,12 +39618,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1093*/ meltfptr[1092]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1065*/ meltfptr[1064]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_VARMAP*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40367,7 +39636,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_APPLY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V103*/ meltfptr[102]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40380,7 +39649,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SAPP_FUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40393,7 +39662,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40406,7 +39675,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SARGOP_ARGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40414,12 +39683,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V149*/ meltfptr[148]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V139*/ meltfptr[138]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CITERATION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40427,12 +39696,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V152*/ meltfptr[151]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V142*/ meltfptr[141]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_OPER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40440,12 +39709,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V154*/ meltfptr[153]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V144*/ meltfptr[143]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_VARBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40453,12 +39722,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V156*/ meltfptr[155]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V146*/ meltfptr[145]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40466,12 +39735,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V167*/ meltfptr[166]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V157*/ meltfptr[156]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CMATCHEXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V165*/ meltfptr[164]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40479,12 +39748,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V170*/ meltfptr[169]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V160*/ meltfptr[159]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCMATX_CMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40492,12 +39761,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V825*/ meltfptr[824]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V797*/ meltfptr[796]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CODECHUNK*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V823*/ meltfptr[822]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V795*/ meltfptr[794]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40505,12 +39774,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V828*/ meltfptr[827]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V800*/ meltfptr[799]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCH_GENSYM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V805*/ meltfptr[804]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40518,12 +39787,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V830*/ meltfptr[829]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V802*/ meltfptr[801]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCH_CHUNKS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40531,12 +39800,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V233*/ meltfptr[232]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V223*/ meltfptr[222]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_COMMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40544,12 +39813,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V236*/ meltfptr[235]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V226*/ meltfptr[225]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCOMM_STR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40557,12 +39826,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V761*/ meltfptr[760]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V733*/ meltfptr[732]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_COMPILEWARNING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40570,12 +39839,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V764*/ meltfptr[763]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V736*/ meltfptr[735]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_MSG*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40583,12 +39852,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V766*/ meltfptr[765]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V738*/ meltfptr[737]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40596,12 +39865,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V609*/ meltfptr[608]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V581*/ meltfptr[580]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CPPIF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40609,12 +39878,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V612*/ meltfptr[611]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V584*/ meltfptr[583]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_COND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40622,12 +39891,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V614*/ meltfptr[613]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V586*/ meltfptr[585]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_THEN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40635,12 +39904,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V616*/ meltfptr[615]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V588*/ meltfptr[587]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_ELSE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40648,12 +39917,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V775*/ meltfptr[774]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V747*/ meltfptr[746]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40661,12 +39930,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V778*/ meltfptr[777]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V750*/ meltfptr[749]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMEC_COMMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40674,12 +39943,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V397*/ meltfptr[396]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V369*/ meltfptr[368]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCITERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V395*/ meltfptr[394]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40687,12 +39956,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V400*/ meltfptr[399]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V372*/ meltfptr[371]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITERDEF_CITERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40700,12 +39969,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V453*/ meltfptr[452]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V425*/ meltfptr[424]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40713,12 +39982,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V456*/ meltfptr[455]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V428*/ meltfptr[427]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_CLABIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40726,12 +39995,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V458*/ meltfptr[457]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V430*/ meltfptr[429]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_SUPERBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40739,12 +40008,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V460*/ meltfptr[459]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V432*/ meltfptr[431]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_FLDBINDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40752,12 +40021,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V407*/ meltfptr[406]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V379*/ meltfptr[378]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40765,12 +40034,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V410*/ meltfptr[409]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V382*/ meltfptr[381]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_CMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40778,12 +40047,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V321*/ meltfptr[320]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V311*/ meltfptr[310]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINITION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40791,12 +40060,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V324*/ meltfptr[323]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V314*/ meltfptr[313]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SDEF_NAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V329*/ meltfptr[328]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40804,12 +40073,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V326*/ meltfptr[325]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V316*/ meltfptr[315]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SDEF_DOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40817,12 +40086,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V345*/ meltfptr[344]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V335*/ meltfptr[334]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINITION_FORMAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40830,12 +40099,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V348*/ meltfptr[347]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V338*/ meltfptr[337]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFORMAL_ARGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40843,12 +40112,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V471*/ meltfptr[470]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V443*/ meltfptr[442]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40856,12 +40125,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V474*/ meltfptr[473]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V446*/ meltfptr[445]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40869,12 +40138,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V476*/ meltfptr[475]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V448*/ meltfptr[447]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLABIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V485*/ meltfptr[484]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40882,12 +40151,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V478*/ meltfptr[477]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V450*/ meltfptr[449]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_OBJNUM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40895,12 +40164,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V480*/ meltfptr[479]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V452*/ meltfptr[451]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40908,12 +40177,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V443*/ meltfptr[442]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V415*/ meltfptr[414]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFOBJCOMMON*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40921,12 +40190,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V446*/ meltfptr[445]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V418*/ meltfptr[417]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SOBJ_PREDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V421*/ meltfptr[420]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40934,12 +40203,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V365*/ meltfptr[364]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V355*/ meltfptr[354]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFPRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40947,12 +40216,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V368*/ meltfptr[367]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V358*/ meltfptr[357]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_TYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40960,12 +40229,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V370*/ meltfptr[369]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V360*/ meltfptr[359]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_EXPANSION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40973,12 +40242,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V493*/ meltfptr[492]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V465*/ meltfptr[464]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFSELECTOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -40986,51 +40255,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V496*/ meltfptr[495]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V468*/ meltfptr[467]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SDEFSEL_FORMALS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V379*/ meltfptr[378]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFVARIADIC*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V382*/ meltfptr[381]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SVARIADIC_INITIAL*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V384*/ meltfptr[383]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SVARIADIC_CTYPEHANDLERMAP*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41038,25 +40268,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V386*/ meltfptr[385]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SVARIADIC_FINAL*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V393*/ meltfptr[392]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V335*/ meltfptr[334]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V325*/ meltfptr[324]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41064,12 +40281,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V338*/ meltfptr[337]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V328*/ meltfptr[327]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SDEFINE_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41077,12 +40294,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V355*/ meltfptr[354]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V345*/ meltfptr[344]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41090,12 +40307,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V358*/ meltfptr[357]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V348*/ meltfptr[347]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUN_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41103,12 +40320,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V417*/ meltfptr[416]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V389*/ meltfptr[388]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFUNMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41116,12 +40333,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V420*/ meltfptr[419]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V392*/ meltfptr[391]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_INS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41129,12 +40346,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V422*/ meltfptr[421]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V394*/ meltfptr[393]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_OUTS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41142,12 +40359,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V424*/ meltfptr[423]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V396*/ meltfptr[395]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_MATCHF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41155,12 +40372,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V426*/ meltfptr[425]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V398*/ meltfptr[397]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_APPLYF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41168,12 +40385,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V428*/ meltfptr[427]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V400*/ meltfptr[399]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_DATA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V411*/ meltfptr[410]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41181,12 +40398,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V751*/ meltfptr[750]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V723*/ meltfptr[722]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXIT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V721*/ meltfptr[720]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41194,12 +40411,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V754*/ meltfptr[753]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V726*/ meltfptr[725]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXI_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41207,12 +40424,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V269*/ meltfptr[268]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V259*/ meltfptr[258]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41220,12 +40437,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V275*/ meltfptr[274]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V265*/ meltfptr[264]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_MACRO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41233,12 +40450,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V278*/ meltfptr[277]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V268*/ meltfptr[267]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MNAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41246,12 +40463,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V280*/ meltfptr[279]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V270*/ meltfptr[269]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MVAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41259,12 +40476,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V282*/ meltfptr[281]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V272*/ meltfptr[271]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_DOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41272,12 +40489,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V293*/ meltfptr[292]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V283*/ meltfptr[282]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_PATMACRO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41285,12 +40502,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V296*/ meltfptr[295]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V286*/ meltfptr[285]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPPAT_PVAL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41298,12 +40515,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V303*/ meltfptr[302]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V293*/ meltfptr[292]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_SYNONYM*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41311,12 +40528,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V306*/ meltfptr[305]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V296*/ meltfptr[295]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_NEWNAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41324,12 +40541,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V308*/ meltfptr[307]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V298*/ meltfptr[297]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_OLDNAME*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V315*/ meltfptr[314]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41337,12 +40554,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V310*/ meltfptr[309]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V300*/ meltfptr[299]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_DOC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41350,12 +40567,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V263*/ meltfptr[262]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V253*/ meltfptr[252]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_VALUES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41363,12 +40580,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V253*/ meltfptr[252]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V243*/ meltfptr[242]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORTCOMMON*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41376,12 +40593,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V256*/ meltfptr[255]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V246*/ meltfptr[245]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPORT_NAMES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41389,12 +40606,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V801*/ meltfptr[800]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V773*/ meltfptr[772]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FETCH_PREDEFINED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41402,12 +40619,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V804*/ meltfptr[803]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V776*/ meltfptr[775]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFEPD_PREDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41415,12 +40632,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V957*/ meltfptr[956]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V929*/ meltfptr[928]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FIELD_PATTERN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V927*/ meltfptr[926]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41428,12 +40645,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V960*/ meltfptr[959]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V932*/ meltfptr[931]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAF_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41441,12 +40658,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V962*/ meltfptr[961]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V934*/ meltfptr[933]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAF_PATTERN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41454,12 +40671,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V503*/ meltfptr[502]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V475*/ meltfptr[474]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FIELDASSIGN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41467,12 +40684,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V506*/ meltfptr[505]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V478*/ meltfptr[477]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFLA_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41480,12 +40697,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V508*/ meltfptr[507]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V480*/ meltfptr[479]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFLA_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V485*/ meltfptr[484]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41493,12 +40710,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V741*/ meltfptr[740]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V713*/ meltfptr[712]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FOREVER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41506,12 +40723,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V744*/ meltfptr[743]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V716*/ meltfptr[715]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFRV_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V719*/ meltfptr[718]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41519,12 +40736,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V177*/ meltfptr[176]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V167*/ meltfptr[166]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FUNMATCHEXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V165*/ meltfptr[164]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41532,12 +40749,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V180*/ meltfptr[179]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V170*/ meltfptr[169]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_FMATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41545,12 +40762,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V182*/ meltfptr[181]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V172*/ meltfptr[171]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_FMATBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41558,12 +40775,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V535*/ meltfptr[534]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V507*/ meltfptr[506]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_GET_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41571,12 +40788,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V538*/ meltfptr[537]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V510*/ meltfptr[509]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUGET_OBJ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41584,12 +40801,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V540*/ meltfptr[539]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V512*/ meltfptr[511]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUGET_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41597,12 +40814,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V575*/ meltfptr[574]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V547*/ meltfptr[546]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_IF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41610,12 +40827,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V578*/ meltfptr[577]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V550*/ meltfptr[549]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_TEST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41623,12 +40840,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V580*/ meltfptr[579]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V552*/ meltfptr[551]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_THEN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41636,12 +40853,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V589*/ meltfptr[588]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V561*/ meltfptr[560]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_IFELSE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41649,12 +40866,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V592*/ meltfptr[591]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V564*/ meltfptr[563]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_ELSE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41662,12 +40879,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V517*/ meltfptr[516]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V489*/ meltfptr[488]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_INSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41675,12 +40892,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V520*/ meltfptr[519]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V492*/ meltfptr[491]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41688,12 +40905,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V522*/ meltfptr[521]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V494*/ meltfptr[493]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLABIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41701,12 +40918,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V524*/ meltfptr[523]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V496*/ meltfptr[495]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41714,12 +40931,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V731*/ meltfptr[730]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V703*/ meltfptr[702]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LABELLED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V701*/ meltfptr[700]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41727,12 +40944,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V734*/ meltfptr[733]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V706*/ meltfptr[705]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLABEL_BIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41740,12 +40957,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V699*/ meltfptr[698]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V671*/ meltfptr[670]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LAMBDA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41753,12 +40970,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V702*/ meltfptr[701]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V674*/ meltfptr[673]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAM_ARGBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41766,12 +40983,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V704*/ meltfptr[703]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V676*/ meltfptr[675]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAM_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41784,7 +41001,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V77*/ meltfptr[76]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41797,7 +41014,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAZYMACRO_FUN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V89*/ meltfptr[88]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41810,7 +41027,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAZYMACRO_OPER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V91*/ meltfptr[90]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41818,12 +41035,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V679*/ meltfptr[678]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V651*/ meltfptr[650]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LET*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41831,12 +41048,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V682*/ meltfptr[681]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V654*/ meltfptr[653]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLET_BINDINGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V687*/ meltfptr[686]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41844,12 +41061,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V684*/ meltfptr[683]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V656*/ meltfptr[655]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLET_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V661*/ meltfptr[660]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41857,12 +41074,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V655*/ meltfptr[654]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V627*/ meltfptr[626]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LET_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V653*/ meltfptr[652]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41870,12 +41087,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V658*/ meltfptr[657]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V630*/ meltfptr[629]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_TYPE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V637*/ meltfptr[636]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41883,12 +41100,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V660*/ meltfptr[659]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V632*/ meltfptr[631]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_BINDER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41896,12 +41113,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V662*/ meltfptr[661]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V634*/ meltfptr[633]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41909,12 +41126,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V693*/ meltfptr[692]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V665*/ meltfptr[664]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LETREC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V663*/ meltfptr[662]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41922,12 +41139,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V673*/ meltfptr[672]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V645*/ meltfptr[644]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LETREC_BINDING*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41935,12 +41152,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V197*/ meltfptr[196]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V187*/ meltfptr[186]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41948,12 +41165,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V627*/ meltfptr[626]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V599*/ meltfptr[598]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MATCH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41961,12 +41178,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V630*/ meltfptr[629]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V602*/ meltfptr[601]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMAT_MATCHEDX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41974,12 +41191,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V632*/ meltfptr[631]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V604*/ meltfptr[603]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMAT_CASES*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V637*/ meltfptr[636]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -41987,12 +41204,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V641*/ meltfptr[640]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V613*/ meltfptr[612]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MATCH_CASE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42000,12 +41217,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V644*/ meltfptr[643]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V616*/ meltfptr[615]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCAM_PATT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42013,12 +41230,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V646*/ meltfptr[645]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V618*/ meltfptr[617]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCAM_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42031,7 +41248,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MSEND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V113*/ meltfptr[112]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42044,7 +41261,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MSEND_SELSYMB*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V123*/ meltfptr[122]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42057,7 +41274,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MSEND_RECV*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42065,12 +41282,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V713*/ meltfptr[712]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V685*/ meltfptr[684]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MULTICALL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V683*/ meltfptr[682]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42078,12 +41295,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V716*/ meltfptr[715]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V688*/ meltfptr[687]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_RESBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42091,12 +41308,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V718*/ meltfptr[717]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V690*/ meltfptr[689]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_CALL*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42104,12 +41321,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V720*/ meltfptr[719]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V692*/ meltfptr[691]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42117,12 +41334,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V599*/ meltfptr[598]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V571*/ meltfptr[570]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_OR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42130,12 +41347,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V602*/ meltfptr[601]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V574*/ meltfptr[573]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SOR_DISJ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42143,12 +41360,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V785*/ meltfptr[784]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V757*/ meltfptr[756]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42156,12 +41373,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V839*/ meltfptr[838]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V811*/ meltfptr[810]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42169,12 +41386,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V842*/ meltfptr[841]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V814*/ meltfptr[813]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PAT_WEIGHT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V845*/ meltfptr[844]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42182,12 +41399,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V859*/ meltfptr[858]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V831*/ meltfptr[830]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_AND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V857*/ meltfptr[856]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42195,12 +41412,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V862*/ meltfptr[861]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V834*/ meltfptr[833]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ANDPAT_CONJ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42208,12 +41425,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V999*/ meltfptr[998]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V971*/ meltfptr[970]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_C_MATCH*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V997*/ meltfptr[996]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42221,12 +41438,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V971*/ meltfptr[970]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V943*/ meltfptr[942]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_COMPOSITE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42234,12 +41451,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V974*/ meltfptr[973]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V946*/ meltfptr[945]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERATOR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V983*/ meltfptr[982]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42247,12 +41464,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V976*/ meltfptr[975]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V948*/ meltfptr[947]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERBIND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V985*/ meltfptr[984]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42260,12 +41477,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V978*/ meltfptr[977]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V950*/ meltfptr[949]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_INARGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V987*/ meltfptr[986]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V959*/ meltfptr[958]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42273,12 +41490,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V980*/ meltfptr[979]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V952*/ meltfptr[951]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OUTARGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V989*/ meltfptr[988]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42286,12 +41503,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V905*/ meltfptr[904]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V877*/ meltfptr[876]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_CONSTANT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42299,12 +41516,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V908*/ meltfptr[907]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V880*/ meltfptr[879]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CONSTX*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42312,12 +41529,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V915*/ meltfptr[914]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ meltfptr[886]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V913*/ meltfptr[912]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42325,12 +41542,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V918*/ meltfptr[917]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V890*/ meltfptr[889]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CTPAT_SUBPA*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42338,12 +41555,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V951*/ meltfptr[950]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V923*/ meltfptr[922]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_INSTANCE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V949*/ meltfptr[948]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42351,12 +41568,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V899*/ meltfptr[898]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V871*/ meltfptr[870]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42364,12 +41581,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V931*/ meltfptr[930]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V903*/ meltfptr[902]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42377,12 +41594,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V993*/ meltfptr[992]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V965*/ meltfptr[964]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_MATCHER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V991*/ meltfptr[990]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42390,12 +41607,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V937*/ meltfptr[936]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V909*/ meltfptr[908]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_OBJECT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V907*/ meltfptr[906]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42403,12 +41620,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V940*/ meltfptr[939]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V912*/ meltfptr[911]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CLASS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42416,12 +41633,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V942*/ meltfptr[941]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V914*/ meltfptr[913]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V919*/ meltfptr[918]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42429,12 +41646,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V849*/ meltfptr[848]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V821*/ meltfptr[820]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_OR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42442,12 +41659,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V852*/ meltfptr[851]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V824*/ meltfptr[823]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ORPAT_DISJ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42455,12 +41672,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V925*/ meltfptr[924]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V897*/ meltfptr[896]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42468,12 +41685,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V883*/ meltfptr[882]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V855*/ meltfptr[854]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_VARIABLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42481,12 +41698,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V886*/ meltfptr[885]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V858*/ meltfptr[857]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPATVAR_SYMB*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V863*/ meltfptr[862]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42494,12 +41711,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V888*/ meltfptr[887]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ meltfptr[859]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPATVAR_NBOCC*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42512,7 +41729,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V127*/ meltfptr[126]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42525,7 +41742,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_OPER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42533,12 +41750,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V193*/ meltfptr[192]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PROGN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42546,12 +41763,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V206*/ meltfptr[205]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V196*/ meltfptr[195]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPROGN_BODY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42559,12 +41776,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V555*/ meltfptr[554]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V527*/ meltfptr[526]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PUT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V525*/ meltfptr[524]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42572,12 +41789,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V558*/ meltfptr[557]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V530*/ meltfptr[529]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_OBJ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42585,12 +41802,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V560*/ meltfptr[559]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V532*/ meltfptr[531]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V537*/ meltfptr[536]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42598,12 +41815,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V243*/ meltfptr[242]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V233*/ meltfptr[232]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_QUOTE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42611,12 +41828,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V246*/ meltfptr[245]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V236*/ meltfptr[235]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SQUOTED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42624,12 +41841,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V213*/ meltfptr[212]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V203*/ meltfptr[202]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_RETURN*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42637,12 +41854,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V219*/ meltfptr[218]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V209*/ meltfptr[208]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_SETQ*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42650,12 +41867,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V222*/ meltfptr[221]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V212*/ meltfptr[211]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_VAR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42663,38 +41880,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V224*/ meltfptr[223]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V214*/ meltfptr[213]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V811*/ meltfptr[810]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^apply*/ - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V814*/ meltfptr[813]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_PREDEF*/ -/*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42702,12 +41893,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V816*/ meltfptr[815]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V783*/ meltfptr[782]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_VALUE*/ + /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42715,12 +41906,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V191*/ meltfptr[190]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V786*/ meltfptr[785]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_TUPLE*/ + /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_PREDEF*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42728,12 +41919,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V549*/ meltfptr[548]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V788*/ meltfptr[787]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD*/ + /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_VALUE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V793*/ meltfptr[792]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42741,12 +41932,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V569*/ meltfptr[568]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V181*/ meltfptr[180]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ + /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42754,12 +41945,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V791*/ meltfptr[790]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V521*/ meltfptr[520]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ + /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42767,12 +41958,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V794*/ meltfptr[793]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V541*/ meltfptr[540]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SUCME_COMMENT*/ + /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42780,12 +41971,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V139*/ meltfptr[138]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V763*/ meltfptr[762]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_VARIADIC_APPLICATION*/ + /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42793,38 +41984,38 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V142*/ meltfptr[141]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALDATA___V766*/ meltfptr[765]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & - /*quasi.cur.mod.env.cont norm.exp.val : SVARI_OPER*/ + /*quasi.cur.mod.env.cont norm.exp.val : SUCME_COMMENT*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1649*/ meltfptr[1532]), (melt_ptr_t)(/*_.VALDATA___V145*/ meltfptr[144]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1615*/ meltfptr[1501]), (melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V1649*/ meltfptr[1532] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1615*/ meltfptr[1501] = 0 ;} - MELT_LOCATION("warmelt-macro.melt:5783:/ initchunk"); + MELT_LOCATION("warmelt-macro.melt:5739:/ initchunk"); /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1650*/ meltfptr[1533] = slot; }; + melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1616*/ meltfptr[1502] = slot; }; ; /*^apply*/ /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1035*/ meltfptr[1034]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1007*/ meltfptr[1006]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_APPLY*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1509*/ meltfptr[1508]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1477*/ meltfptr[1476]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42832,12 +42023,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1014*/ meltfptr[1013]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V986*/ meltfptr[985]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_MSEND*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1511*/ meltfptr[1510]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1479*/ meltfptr[1478]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42845,12 +42036,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1016*/ meltfptr[1015]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V988*/ meltfptr[987]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1513*/ meltfptr[1512]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1481*/ meltfptr[1480]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42858,12 +42049,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1020*/ meltfptr[1019]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V992*/ meltfptr[991]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PRIMITIVE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1515*/ meltfptr[1514]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42871,12 +42062,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1153*/ meltfptr[1152]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1125*/ meltfptr[1124]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_INITIAL_MACRO*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1517*/ meltfptr[1516]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1485*/ meltfptr[1484]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42889,7 +42080,7 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IS_RECURSIVELY_CONSTRUCTIBLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42897,12 +42088,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1027*/ meltfptr[1026]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V999*/ meltfptr[998]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA_ARG_BINDINGS*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1519*/ meltfptr[1518]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42910,12 +42101,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1010*/ meltfptr[1009]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V982*/ meltfptr[981]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_1*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1489*/ meltfptr[1488]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42923,12 +42114,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1141*/ meltfptr[1140]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1113*/ meltfptr[1112]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_TOPLEVEL_LIST*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1523*/ meltfptr[1522]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42936,12 +42127,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1103*/ meltfptr[1102]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1075*/ meltfptr[1074]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_1*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1525*/ meltfptr[1524]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1493*/ meltfptr[1492]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42949,12 +42140,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1112*/ meltfptr[1111]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1084*/ meltfptr[1083]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_EXPR*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1527*/ meltfptr[1526]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42962,12 +42153,12 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1123*/ meltfptr[1122]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1095*/ meltfptr[1094]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1529*/ meltfptr[1528]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1497*/ meltfptr[1496]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^apply*/ @@ -42975,18 +42166,18 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1118*/ meltfptr[1117]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1090*/ meltfptr[1089]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERN_WEIGHT_TUPLE*/ /*_.CONTENV___V2*/ meltfptr[1]; - melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1650*/ meltfptr[1533]), (melt_ptr_t)(/*_.VALDATA___V1531*/ meltfptr[1530]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1616*/ meltfptr[1502]), (melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.VALUEXPORTER___V1650*/ meltfptr[1533] = 0 ;} + /*clear*/ /*_.VALUEXPORTER___V1616*/ meltfptr[1502] = 0 ;} /**COMMENT: after toplevel body **/; @@ -43072,979 +42263,958 @@ void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_14 (struct frame_star /*internsym:SPRIM_OPER*/ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V135*/ meltfptr[134])); - /*internsym:CLASS_SOURCE_VARIADIC_APPLICATION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136])); - - /*internsym:SVARI_OPER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V145*/ meltfptr[144])); - /*internsym:CLASS_SOURCE_CITERATION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V147*/ meltfptr[146])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V137*/ meltfptr[136])); /*internsym:SCITER_OPER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V159*/ meltfptr[158])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V149*/ meltfptr[148])); /*internsym:SCITER_VARBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V161*/ meltfptr[160])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V151*/ meltfptr[150])); /*internsym:SCITER_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V153*/ meltfptr[152])); /*internsym:CLASS_SOURCE_CMATCHEXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V165*/ meltfptr[164])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V155*/ meltfptr[154])); /*internsym:SCMATX_CMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V173*/ meltfptr[172])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V163*/ meltfptr[162])); /*internsym:CLASS_SOURCE_FUNMATCHEXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V165*/ meltfptr[164])); /*internsym:SFMATX_FMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V175*/ meltfptr[174])); /*internsym:SFMATX_FMATBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V187*/ meltfptr[186])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V177*/ meltfptr[176])); /*internsym:CLASS_SOURCE_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V189*/ meltfptr[188])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V179*/ meltfptr[178])); /*internsym:CLASS_SOURCE_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V195*/ meltfptr[194])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V185*/ meltfptr[184])); /*internsym:CLASS_SOURCE_PROGN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V191*/ meltfptr[190])); /*internsym:SPROGN_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V209*/ meltfptr[208])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V199*/ meltfptr[198])); /*internsym:CLASS_SOURCE_RETURN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V211*/ meltfptr[210])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V201*/ meltfptr[200])); /*internsym:CLASS_SOURCE_SETQ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V217*/ meltfptr[216])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V207*/ meltfptr[206])); /*internsym:SSTQ_VAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V227*/ meltfptr[226])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V217*/ meltfptr[216])); /*internsym:SSTQ_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V219*/ meltfptr[218])); /*internsym:CLASS_SOURCE_COMMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V221*/ meltfptr[220])); /*internsym:SCOMM_STR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V229*/ meltfptr[228])); /*internsym:CLASS_SOURCE_QUOTE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V231*/ meltfptr[230])); /*internsym:SQUOTED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V239*/ meltfptr[238])); /*internsym:CLASS_SOURCE_EXPORTCOMMON*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V241*/ meltfptr[240])); /*internsym:SEXPORT_NAMES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V259*/ meltfptr[258])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V249*/ meltfptr[248])); /*internsym:CLASS_SOURCE_EXPORT_VALUES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V261*/ meltfptr[260])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V251*/ meltfptr[250])); /*internsym:CLASS_SOURCE_EXPORT_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V267*/ meltfptr[266])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V257*/ meltfptr[256])); /*internsym:CLASS_SOURCE_EXPORT_MACRO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V273*/ meltfptr[272])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V263*/ meltfptr[262])); /*internsym:SEXPMAC_MNAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V285*/ meltfptr[284])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V275*/ meltfptr[274])); /*internsym:SEXPMAC_MVAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V287*/ meltfptr[286])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V277*/ meltfptr[276])); /*internsym:SEXPMAC_DOC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V279*/ meltfptr[278])); /*internsym:CLASS_SOURCE_EXPORT_PATMACRO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V281*/ meltfptr[280])); /*internsym:SEXPPAT_PVAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V299*/ meltfptr[298])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V289*/ meltfptr[288])); /*internsym:CLASS_SOURCE_EXPORT_SYNONYM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V301*/ meltfptr[300])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V291*/ meltfptr[290])); /*internsym:SEXPSYN_NEWNAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V313*/ meltfptr[312])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V303*/ meltfptr[302])); /*internsym:SEXPSYN_OLDNAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V315*/ meltfptr[314])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V305*/ meltfptr[304])); /*internsym:SEXPSYN_DOC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V317*/ meltfptr[316])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V307*/ meltfptr[306])); /*internsym:CLASS_SOURCE_DEFINITION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V309*/ meltfptr[308])); /*internsym:SDEF_NAME*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V329*/ meltfptr[328])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V319*/ meltfptr[318])); /*internsym:SDEF_DOC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V321*/ meltfptr[320])); /*internsym:CLASS_SOURCE_DEFINE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V323*/ meltfptr[322])); /*internsym:SDEFINE_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V331*/ meltfptr[330])); /*internsym:CLASS_SOURCE_DEFINITION_FORMAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V333*/ meltfptr[332])); /*internsym:SFORMAL_ARGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V341*/ meltfptr[340])); /*internsym:CLASS_SOURCE_DEFUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V343*/ meltfptr[342])); /*internsym:SFUN_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V361*/ meltfptr[360])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V351*/ meltfptr[350])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V353*/ meltfptr[352])); /*internsym:SPRIM_TYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V373*/ meltfptr[372])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V363*/ meltfptr[362])); /*internsym:SPRIM_EXPANSION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])); - - /*internsym:CLASS_SOURCE_DEFVARIADIC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])); - - /*internsym:SVARIADIC_INITIAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V389*/ meltfptr[388])); - - /*internsym:SVARIADIC_CTYPEHANDLERMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V391*/ meltfptr[390])); - - /*internsym:SVARIADIC_FINAL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V393*/ meltfptr[392])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V365*/ meltfptr[364])); /*internsym:CLASS_SOURCE_DEFCITERATOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V395*/ meltfptr[394])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V367*/ meltfptr[366])); /*internsym:SCITERDEF_CITERATOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V375*/ meltfptr[374])); /*internsym:CLASS_SOURCE_DEFCMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V377*/ meltfptr[376])); /*internsym:SCMATDEF_CMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V385*/ meltfptr[384])); /*internsym:CLASS_SOURCE_DEFUNMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V415*/ meltfptr[414])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V387*/ meltfptr[386])); /*internsym:SFUMATDEF_INS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V431*/ meltfptr[430])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V403*/ meltfptr[402])); /*internsym:SFUMATDEF_OUTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V433*/ meltfptr[432])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V405*/ meltfptr[404])); /*internsym:SFUMATDEF_MATCHF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V407*/ meltfptr[406])); /*internsym:SFUMATDEF_APPLYF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V409*/ meltfptr[408])); /*internsym:SFUMATDEF_DATA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V411*/ meltfptr[410])); /*internsym:CLASS_SOURCE_DEFOBJCOMMON*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V413*/ meltfptr[412])); /*internsym:SOBJ_PREDEF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V449*/ meltfptr[448])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V421*/ meltfptr[420])); /*internsym:CLASS_SOURCE_DEFCLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V451*/ meltfptr[450])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V423*/ meltfptr[422])); /*internsym:SCLASS_CLABIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V435*/ meltfptr[434])); /*internsym:SCLASS_SUPERBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V465*/ meltfptr[464])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V437*/ meltfptr[436])); /*internsym:SCLASS_FLDBINDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V467*/ meltfptr[466])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V439*/ meltfptr[438])); /*internsym:CLASS_SOURCE_DEFINSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V469*/ meltfptr[468])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V441*/ meltfptr[440])); /*internsym:SINST_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V455*/ meltfptr[454])); /*internsym:SINST_CLABIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V485*/ meltfptr[484])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V457*/ meltfptr[456])); /*internsym:SINST_OBJNUM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V459*/ meltfptr[458])); /*internsym:SINST_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V489*/ meltfptr[488])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V461*/ meltfptr[460])); /*internsym:CLASS_SOURCE_DEFSELECTOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V491*/ meltfptr[490])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V463*/ meltfptr[462])); /*internsym:SDEFSEL_FORMALS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V471*/ meltfptr[470])); /*internsym:CLASS_SOURCE_FIELDASSIGN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V473*/ meltfptr[472])); /*internsym:SFLA_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V511*/ meltfptr[510])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V483*/ meltfptr[482])); /*internsym:SFLA_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V513*/ meltfptr[512])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V485*/ meltfptr[484])); /*internsym:CLASS_SOURCE_INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V487*/ meltfptr[486])); /*internsym:SMINS_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V527*/ meltfptr[526])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V499*/ meltfptr[498])); /*internsym:SMINS_CLABIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V529*/ meltfptr[528])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V501*/ meltfptr[500])); /*internsym:SMINS_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V531*/ meltfptr[530])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V503*/ meltfptr[502])); /*internsym:CLASS_SOURCE_GET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V533*/ meltfptr[532])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V505*/ meltfptr[504])); /*internsym:SUGET_OBJ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V543*/ meltfptr[542])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V515*/ meltfptr[514])); /*internsym:SUGET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V517*/ meltfptr[516])); /*internsym:CLASS_SOURCE_UNSAFE_GET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V547*/ meltfptr[546])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V519*/ meltfptr[518])); /*internsym:CLASS_SOURCE_PUT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V553*/ meltfptr[552])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V525*/ meltfptr[524])); /*internsym:SUPUT_OBJ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V563*/ meltfptr[562])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V535*/ meltfptr[534])); /*internsym:SUPUT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V565*/ meltfptr[564])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V537*/ meltfptr[536])); /*internsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V539*/ meltfptr[538])); /*internsym:CLASS_SOURCE_IF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V573*/ meltfptr[572])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V545*/ meltfptr[544])); /*internsym:SIF_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V583*/ meltfptr[582])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V555*/ meltfptr[554])); /*internsym:SIF_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V585*/ meltfptr[584])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V557*/ meltfptr[556])); /*internsym:CLASS_SOURCE_IFELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V587*/ meltfptr[586])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V559*/ meltfptr[558])); /*internsym:SIF_ELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V567*/ meltfptr[566])); /*internsym:CLASS_SOURCE_OR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V569*/ meltfptr[568])); /*internsym:SOR_DISJ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V605*/ meltfptr[604])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V577*/ meltfptr[576])); /*internsym:CLASS_SOURCE_CPPIF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V579*/ meltfptr[578])); /*internsym:SIFP_COND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V619*/ meltfptr[618])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V591*/ meltfptr[590])); /*internsym:SIFP_THEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V593*/ meltfptr[592])); /*internsym:SIFP_ELSE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V595*/ meltfptr[594])); /*internsym:CLASS_SOURCE_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624])); - + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V597*/ meltfptr[596])); -#undef meltfram__ -} /*end of warmelt_macro_initialmeltchunk_14*/ - -void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_15 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { -#define meltfram__ (*meltframptr__) -#undef meltcallcount -#define meltcallcount 0L -/*internsym:SMAT_MATCHEDX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V635*/ meltfptr[634])); + /*internsym:SMAT_MATCHEDX*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V607*/ meltfptr[606])); /*internsym:SMAT_CASES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V637*/ meltfptr[636])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V609*/ meltfptr[608])); /*internsym:CLASS_SOURCE_MATCH_CASE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V611*/ meltfptr[610])); /*internsym:SCAM_PATT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V621*/ meltfptr[620])); /*internsym:SCAM_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V651*/ meltfptr[650])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V623*/ meltfptr[622])); /*internsym:CLASS_SOURCE_LET_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V653*/ meltfptr[652])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V625*/ meltfptr[624])); /*internsym:SLETB_TYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V665*/ meltfptr[664])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V637*/ meltfptr[636])); /*internsym:SLETB_BINDER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V667*/ meltfptr[666])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V639*/ meltfptr[638])); /*internsym:SLETB_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V641*/ meltfptr[640])); /*internsym:CLASS_SOURCE_LETREC_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V671*/ meltfptr[670])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V643*/ meltfptr[642])); /*internsym:CLASS_SOURCE_LET*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V677*/ meltfptr[676])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V649*/ meltfptr[648])); /*internsym:SLET_BINDINGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V687*/ meltfptr[686])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V659*/ meltfptr[658])); /*internsym:SLET_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V689*/ meltfptr[688])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V661*/ meltfptr[660])); /*internsym:CLASS_SOURCE_LETREC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V691*/ meltfptr[690])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V663*/ meltfptr[662])); /*internsym:CLASS_SOURCE_LAMBDA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V669*/ meltfptr[668])); /*internsym:SLAM_ARGBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V707*/ meltfptr[706])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V679*/ meltfptr[678])); /*internsym:SLAM_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V681*/ meltfptr[680])); /*internsym:CLASS_SOURCE_MULTICALL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V683*/ meltfptr[682])); /*internsym:SMULC_RESBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V723*/ meltfptr[722])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V695*/ meltfptr[694])); /*internsym:SMULC_CALL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V725*/ meltfptr[724])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V697*/ meltfptr[696])); /*internsym:SMULC_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V727*/ meltfptr[726])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V699*/ meltfptr[698])); /*internsym:CLASS_SOURCE_LABELLED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V701*/ meltfptr[700])); /*internsym:SLABEL_BIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V737*/ meltfptr[736])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V709*/ meltfptr[708])); /*internsym:CLASS_SOURCE_FOREVER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V739*/ meltfptr[738])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V711*/ meltfptr[710])); /*internsym:SFRV_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V747*/ meltfptr[746])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V719*/ meltfptr[718])); /*internsym:CLASS_SOURCE_EXIT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V749*/ meltfptr[748])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V721*/ meltfptr[720])); /*internsym:SEXI_BODY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V757*/ meltfptr[756])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V729*/ meltfptr[728])); /*internsym:CLASS_SOURCE_COMPILEWARNING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V759*/ meltfptr[758])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V731*/ meltfptr[730])); /*internsym:SCWARN_MSG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V741*/ meltfptr[740])); /*internsym:SCWARN_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V743*/ meltfptr[742])); /*internsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V773*/ meltfptr[772])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V745*/ meltfptr[744])); /*internsym:CMEC_COMMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V753*/ meltfptr[752])); /*internsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V783*/ meltfptr[782])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V755*/ meltfptr[754])); /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V789*/ meltfptr[788])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V761*/ meltfptr[760])); /*internsym:SUCME_COMMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V797*/ meltfptr[796])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V769*/ meltfptr[768])); /*internsym:CLASS_SOURCE_FETCH_PREDEFINED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V799*/ meltfptr[798])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V771*/ meltfptr[770])); /*internsym:SFEPD_PREDEF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V779*/ meltfptr[778])); /*internsym:CLASS_SOURCE_STORE_PREDEFINED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V781*/ meltfptr[780])); /*internsym:SSTPD_PREDEF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V791*/ meltfptr[790])); /*internsym:SSTPD_VALUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V821*/ meltfptr[820])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V793*/ meltfptr[792])); /*internsym:CLASS_SOURCE_CODECHUNK*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V823*/ meltfptr[822])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V795*/ meltfptr[794])); /*internsym:SCH_GENSYM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V833*/ meltfptr[832])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V805*/ meltfptr[804])); /*internsym:SCH_CHUNKS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V835*/ meltfptr[834])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V807*/ meltfptr[806])); /*internsym:CLASS_SOURCE_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V809*/ meltfptr[808])); /*internsym:PAT_WEIGHT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V845*/ meltfptr[844])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V817*/ meltfptr[816])); /*internsym:CLASS_SOURCE_PATTERN_OR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V847*/ meltfptr[846])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V819*/ meltfptr[818])); /*internsym:ORPAT_DISJ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V855*/ meltfptr[854])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V827*/ meltfptr[826])); /*internsym:CLASS_SOURCE_PATTERN_AND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V857*/ meltfptr[856])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V829*/ meltfptr[828])); /*internsym:ANDPAT_CONJ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V837*/ meltfptr[836])); /*internsym:CLASS_SOURCE_PATTERN_WHEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V839*/ meltfptr[838])); /*internsym:WHENPAT_SUBPAT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V877*/ meltfptr[876])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V849*/ meltfptr[848])); /*internsym:WHENPAT_COND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V879*/ meltfptr[878])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V851*/ meltfptr[850])); /*internsym:CLASS_SOURCE_PATTERN_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V881*/ meltfptr[880])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V853*/ meltfptr[852])); /*internsym:SPATVAR_SYMB*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V891*/ meltfptr[890])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V863*/ meltfptr[862])); /*internsym:SPATVAR_NBOCC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V865*/ meltfptr[864])); /*internsym:SPAT_VAR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V867*/ meltfptr[866])); /*internsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V897*/ meltfptr[896])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V869*/ meltfptr[868])); /*internsym:CLASS_SOURCE_PATTERN_CONSTANT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V903*/ meltfptr[902])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V875*/ meltfptr[874])); /*internsym:SPAT_CONSTX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V911*/ meltfptr[910])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V883*/ meltfptr[882])); /*internsym:CLASS_SOURCE_PATTERN_CONSTRUCT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V913*/ meltfptr[912])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V885*/ meltfptr[884])); /*internsym:CTPAT_SUBPA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V893*/ meltfptr[892])); /*internsym:CLASS_SOURCE_PATTERN_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V923*/ meltfptr[922])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V895*/ meltfptr[894])); /*internsym:CLASS_SOURCE_PATTERN_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V929*/ meltfptr[928])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V901*/ meltfptr[900])); /*internsym:CLASS_SOURCE_PATTERN_OBJECT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V935*/ meltfptr[934])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V907*/ meltfptr[906])); /*internsym:SPAT_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V945*/ meltfptr[944])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V917*/ meltfptr[916])); /*internsym:SPAT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V947*/ meltfptr[946])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V919*/ meltfptr[918])); /*internsym:CLASS_SOURCE_PATTERN_INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V949*/ meltfptr[948])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V921*/ meltfptr[920])); /*internsym:CLASS_SOURCE_FIELD_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V927*/ meltfptr[926])); /*internsym:SPAF_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V965*/ meltfptr[964])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V937*/ meltfptr[936])); /*internsym:SPAF_PATTERN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V967*/ meltfptr[966])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V939*/ meltfptr[938])); /*internsym:CLASS_SOURCE_PATTERN_COMPOSITE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V941*/ meltfptr[940])); /*internsym:SPAC_OPERATOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V983*/ meltfptr[982])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V955*/ meltfptr[954])); /*internsym:SPAC_OPERBIND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V985*/ meltfptr[984])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V957*/ meltfptr[956])); /*internsym:SPAC_INARGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V987*/ meltfptr[986])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V959*/ meltfptr[958])); /*internsym:SPAC_OUTARGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V989*/ meltfptr[988])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V961*/ meltfptr[960])); /*internsym:CLASS_SOURCE_PATTERN_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V991*/ meltfptr[990])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V963*/ meltfptr[962])); /*internsym:CLASS_SOURCE_PATTERN_C_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V997*/ meltfptr[996])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V969*/ meltfptr[968])); + - /*internsym:CLASS_SOURCE_PATTERN_FUN_MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1003*/ meltfptr[1002])); +#undef meltfram__ +} /*end of warmelt_macro_initialmeltchunk_14*/ + +void MELT_MODULE_VISIBILITY warmelt_macro_initialmeltchunk_15 (struct frame_start_module_melt_st* meltframptr__, char predefinited[]) { +#define meltfram__ (*meltframptr__) +#undef meltcallcount +#define meltcallcount 0L +/*internsym:CLASS_SOURCE_PATTERN_FUN_MATCH*/ + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V975*/ meltfptr[974])); /*internsym:CLASS_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1010*/ meltfptr[1009])); /*internsym:LIST_TO_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1012*/ meltfptr[1011])); /*internsym:DISCR_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1014*/ meltfptr[1013])); /*internsym:CLASS_SEXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1016*/ meltfptr[1015])); /*internsym:CLASS_SYMBOL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1018*/ meltfptr[1017])); /*internsym:DEBUG_MSG_FUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1020*/ meltfptr[1019])); /*internsym:CLASS_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1022*/ meltfptr[1021])); /*internsym:CLASS_KEYWORD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1024*/ meltfptr[1023])); /*internsym:CLASS_NAMED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1026*/ meltfptr[1025])); /*internsym:CLASS_CITERATOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1028*/ meltfptr[1027])); /*internsym:CLASS_CMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1058*/ meltfptr[1057])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1030*/ meltfptr[1029])); /*internsym:CLASS_FUNMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1060*/ meltfptr[1059])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1032*/ meltfptr[1031])); /*internsym:FIND_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1062*/ meltfptr[1061])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1034*/ meltfptr[1033])); /*internsym:CLASS_MACRO_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1064*/ meltfptr[1063])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1036*/ meltfptr[1035])); /*internsym:CLASS_SELECTOR_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1066*/ meltfptr[1065])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1038*/ meltfptr[1037])); /*internsym:CLASS_PRIMITIVE_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1040*/ meltfptr[1039])); /*internsym:CLASS_CITERATOR_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1042*/ meltfptr[1041])); /*internsym:CLASS_CMATCHER_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1044*/ meltfptr[1043])); /*internsym:CLASS_FUNMATCHER_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1074*/ meltfptr[1073])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1046*/ meltfptr[1045])); /*internsym:CLASS_FIELD_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1076*/ meltfptr[1075])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1048*/ meltfptr[1047])); /*internsym:CLASS_VALUE_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1078*/ meltfptr[1077])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1050*/ meltfptr[1049])); /*internsym:CLASS_PRIMITIVE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1052*/ meltfptr[1051])); /*internsym:CLASS_PATTERN_EXPANSION_CONTEXT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1082*/ meltfptr[1081])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1054*/ meltfptr[1053])); /*internsym:CLASS_ROOT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1084*/ meltfptr[1083])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1056*/ meltfptr[1055])); /*internsym:PCTX_MEXPANDER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1068*/ meltfptr[1067])); /*internsym:PCTX_PEXPANDER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1070*/ meltfptr[1069])); /*internsym:PCTX_VARMAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1072*/ meltfptr[1071])); /*internsym:PAIRLIST_TO_MULTIPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1124*/ meltfptr[1123])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1096*/ meltfptr[1095])); /*internsym:CLASS_ANY_MATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1098*/ meltfptr[1097])); /*internsym:DISCR_BOX*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1100*/ meltfptr[1099])); /*internsym:MULTIPLE_MAP*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1130*/ meltfptr[1129])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1102*/ meltfptr[1101])); /*internsym:CLASS_FORMAL_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1104*/ meltfptr[1103])); /*internsym:DISCR_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1134*/ meltfptr[1133])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1106*/ meltfptr[1105])); /*internsym:DISCR_CONSTANT_INTEGER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1136*/ meltfptr[1135])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])); /*internsym:CLASS_PATMACRO_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1138*/ meltfptr[1137])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1110*/ meltfptr[1109])); /*internsym:QUESTION*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1105*/ meltfptr[1104])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1077*/ meltfptr[1076])); /*internsym:_*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1108*/ meltfptr[1107])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1080*/ meltfptr[1079])); /*internsym:DISCR_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1142*/ meltfptr[1141])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1114*/ meltfptr[1113])); /*internsym:CLASS_LOCATED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1144*/ meltfptr[1143])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1116*/ meltfptr[1115])); /*internsym:CTYPE_VALUE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1146*/ meltfptr[1145])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1118*/ meltfptr[1117])); /*internsym:DISCR_MAP_OBJECTS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1148*/ meltfptr[1147])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1120*/ meltfptr[1119])); /*internsym:CLASS_CTYPE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1122*/ meltfptr[1121])); /*internsym:PUT_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1154*/ meltfptr[1153])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1126*/ meltfptr[1125])); /*internsym:INITIAL_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1156*/ meltfptr[1155])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1128*/ meltfptr[1127])); /*internsym:WARN_SHADOW*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1160*/ meltfptr[1159])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1132*/ meltfptr[1131])); /*internsym:DISCR_VERBATIM_STRING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1143*/ meltfptr[1142])); /*internkeyw:DOC*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1150*/ meltfptr[1149])); /*internsym:CLASS_ANY_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1181*/ meltfptr[1180])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1153*/ meltfptr[1152])); /*internsym:DEFPRIMITIVE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1183*/ meltfptr[1182])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1155*/ meltfptr[1154])); /*internsym:DEFCITERATOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])); - - /*internsym:DEFVARIADIC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1159*/ meltfptr[1158])); /*internsym:MULTIPLE_EVERY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1164*/ meltfptr[1163])); /*internsym:DEFCMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1198*/ meltfptr[1197])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1166*/ meltfptr[1165])); /*internsym:DEFUNMATCHER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1203*/ meltfptr[1202])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1171*/ meltfptr[1170])); /*internsym:FRESH_ENV*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1176*/ meltfptr[1175])); /*internsym:CLASS_FUNCTION_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1210*/ meltfptr[1209])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1178*/ meltfptr[1177])); /*internsym:DEFUN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1180*/ meltfptr[1179])); /*internsym:DEFINE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1216*/ meltfptr[1215])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1184*/ meltfptr[1183])); /*internkeyw:SUPER*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1219*/ meltfptr[1218])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1187*/ meltfptr[1186])); /*internsym:CLASS_CLASS_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1194*/ meltfptr[1193])); /*internsym:CLASS_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1228*/ meltfptr[1227])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1196*/ meltfptr[1195])); /*internkeyw:FIELDS*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1189*/ meltfptr[1188])); /*internkeyw:PREDEF*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1191*/ meltfptr[1190])); /*internsym:DISCR_CLASS_SEQUENCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1234*/ meltfptr[1233])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1202*/ meltfptr[1201])); /*internsym:DISCR_MAP_STRINGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1236*/ meltfptr[1235])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1204*/ meltfptr[1203])); /*internsym:DISCR_FIELD_SEQUENCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1238*/ meltfptr[1237])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1206*/ meltfptr[1205])); /*internsym:DEFCLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1240*/ meltfptr[1239])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1208*/ meltfptr[1207])); /*internsym:MULTIPLE_ITERATE_TEST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1247*/ meltfptr[1246])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1215*/ meltfptr[1214])); /*internkeyw:TRUE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1244*/ meltfptr[1243])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1212*/ meltfptr[1211])); /*internkeyw:OBJ_NUM*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1250*/ meltfptr[1249])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1218*/ meltfptr[1217])); /*internsym:CLASS_INSTANCE_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1253*/ meltfptr[1252])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1221*/ meltfptr[1220])); /*internsym:DEFINSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1255*/ meltfptr[1254])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1223*/ meltfptr[1222])); /*internsym:MELT_MODE_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1261*/ meltfptr[1260])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1229*/ meltfptr[1228])); /*internsym:CLASS_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1263*/ meltfptr[1262])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1231*/ meltfptr[1230])); /*internkeyw:FORMALS*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1226*/ meltfptr[1225])); /*internsym:DEFSELECTOR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1265*/ meltfptr[1264])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1233*/ meltfptr[1232])); /*internsym:INSTANCE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1269*/ meltfptr[1268])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1237*/ meltfptr[1236])); /*internsym:LOAD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1273*/ meltfptr[1272])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1241*/ meltfptr[1240])); /*internsym:OBJECT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1254*/ meltfptr[1253])); /*internsym:CODE_CHUNK*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1290*/ meltfptr[1289])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1258*/ meltfptr[1257])); /*internsym:UNSAFE_PUT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1294*/ meltfptr[1293])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1262*/ meltfptr[1261])); /*internsym:PUT_FIELDS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1298*/ meltfptr[1297])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1266*/ meltfptr[1265])); /*internsym:UNSAFE_GET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1270*/ meltfptr[1269])); /*internsym:GET_FIELD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1306*/ meltfptr[1305])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1274*/ meltfptr[1273])); /*internsym:SETQ*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1310*/ meltfptr[1309])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1278*/ meltfptr[1277])); /*internsym:IF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1314*/ meltfptr[1313])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1282*/ meltfptr[1281])); /*internsym:CPPIF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1318*/ meltfptr[1317])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1286*/ meltfptr[1285])); /*internsym:GCCIF*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1324*/ meltfptr[1323])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1292*/ meltfptr[1291])); /*internkeyw:ELSE*/ - (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])); + (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V1296*/ meltfptr[1295])); /*internsym:COND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1302*/ meltfptr[1301])); /*internsym:AS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1343*/ meltfptr[1342])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1311*/ meltfptr[1310])); /*internsym:WHEN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1317*/ meltfptr[1316])); /*internsym:AND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1353*/ meltfptr[1352])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1321*/ meltfptr[1320])); /*internsym:OR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1360*/ meltfptr[1359])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1328*/ meltfptr[1327])); /*internsym:TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1366*/ meltfptr[1365])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1334*/ meltfptr[1333])); /*internsym:LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1372*/ meltfptr[1371])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1340*/ meltfptr[1339])); /*internsym:MATCH*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1377*/ meltfptr[1376])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1345*/ meltfptr[1344])); /*internsym:CLASS_LET_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1381*/ meltfptr[1380])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1349*/ meltfptr[1348])); /*internsym:CLASS_FIXED_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1383*/ meltfptr[1382])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1351*/ meltfptr[1350])); /*internsym:LET*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1358*/ meltfptr[1357])); /*internsym:INSTALL_METHOD*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1394*/ meltfptr[1393])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1362*/ meltfptr[1361])); /*internsym:CLASS_LETREC_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1400*/ meltfptr[1399])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1368*/ meltfptr[1367])); /*internsym:LETREC*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1402*/ meltfptr[1401])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1370*/ meltfptr[1369])); /*internsym:LAMBDA*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1376*/ meltfptr[1375])); /*internsym:MULTICALL*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1414*/ meltfptr[1413])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1382*/ meltfptr[1381])); /*internsym:QUOTE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1418*/ meltfptr[1417])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1386*/ meltfptr[1385])); /*internsym:COMMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1390*/ meltfptr[1389])); /*internsym:PROGN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1429*/ meltfptr[1428])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1397*/ meltfptr[1396])); /*internsym:RETURN*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1401*/ meltfptr[1400])); /*internsym:CLASS_LABEL_BINDING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1406*/ meltfptr[1405])); /*internsym:FOREVER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1440*/ meltfptr[1439])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1408*/ meltfptr[1407])); /*internsym:EXIT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1445*/ meltfptr[1444])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1413*/ meltfptr[1412])); /*internsym:COMPILE_WARNING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1449*/ meltfptr[1448])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1417*/ meltfptr[1416])); /*internsym:ASSERT_FAILED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1452*/ meltfptr[1451])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1420*/ meltfptr[1419])); /*internsym:FIND_ENV_DEBUG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1457*/ meltfptr[1456])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1425*/ meltfptr[1424])); /*internsym:ENABLE_CHECKING*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1454*/ meltfptr[1453])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1422*/ meltfptr[1421])); /*internsym:ASSERT_MSG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1427*/ meltfptr[1426])); /*internsym:THE_MELTCALLCOUNT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1462*/ meltfptr[1461])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1430*/ meltfptr[1429])); /*internsym:DEBUG_MSG*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1465*/ meltfptr[1464])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1433*/ meltfptr[1432])); /*internsym:EXPORT_VALUES*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1470*/ meltfptr[1469])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1438*/ meltfptr[1437])); /*internsym:EXPORT_MACRO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1474*/ meltfptr[1473])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1442*/ meltfptr[1441])); /*internsym:EXPORT_PATMACRO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1478*/ meltfptr[1477])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1446*/ meltfptr[1445])); /*internsym:EXPORT_CLASS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1451*/ meltfptr[1450])); /*internsym:EXPORT_SYNONYM*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1455*/ meltfptr[1454])); /*internsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1459*/ meltfptr[1458])); /*internsym:PARENT_MODULE_ENVIRONMENT*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1463*/ meltfptr[1462])); /*internsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1467*/ meltfptr[1466])); /*internsym:FETCH_PREDEFINED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1503*/ meltfptr[1502])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1471*/ meltfptr[1470])); /*internsym:STORE_PREDEFINED*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1507*/ meltfptr[1506])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1475*/ meltfptr[1474])); /*internsym:EXPAND_APPLY*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1509*/ meltfptr[1508])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1477*/ meltfptr[1476])); /*internsym:EXPAND_MSEND*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1511*/ meltfptr[1510])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1479*/ meltfptr[1478])); /*internsym:EXPAND_PAIRLIST_AS_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1513*/ meltfptr[1512])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1481*/ meltfptr[1480])); /*internsym:EXPAND_PRIMITIVE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1515*/ meltfptr[1514])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1483*/ meltfptr[1482])); /*internsym:INSTALL_INITIAL_MACRO*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1517*/ meltfptr[1516])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1485*/ meltfptr[1484])); /*internsym:LAMBDA_ARG_BINDINGS*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1519*/ meltfptr[1518])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1487*/ meltfptr[1486])); /*internsym:MACROEXPAND_1*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1521*/ meltfptr[1520])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1489*/ meltfptr[1488])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1523*/ meltfptr[1522])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1491*/ meltfptr[1490])); /*internsym:PATTERNEXPAND_1*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1525*/ meltfptr[1524])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1493*/ meltfptr[1492])); /*internsym:PATTERNEXPAND_EXPR*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1527*/ meltfptr[1526])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1495*/ meltfptr[1494])); /*internsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1529*/ meltfptr[1528])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1497*/ meltfptr[1496])); /*internsym:PATTERN_WEIGHT_TUPLE*/ - (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1531*/ meltfptr[1530])); + (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1499*/ meltfptr[1498])); /**COMMENT: set retinit from boxloc **/; @@ -44060,21 +43230,21 @@ static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_m { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2584); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2455); if (!marking && melt_is_forwarding) { - dbgprintf ("forward_or_mark_module_start_frame_warmelt_macro forwarding %d pointers in frame %p", 1650, (void*) framptr_); - for (ix = 0; ix < 1650; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); + dbgprintf ("forward_or_mark_module_start_frame_warmelt_macro forwarding %d pointers in frame %p", 1616, (void*) framptr_); + for (ix = 0; ix < 1616; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); return; } /*end forwarding*/ dbgprintf ("forward_or_mark_module_start_frame_warmelt_macro marking in frame %p", (void*) framptr_); -for(ix=0; ix<1650; ix++) +for(ix=0; ix<1616; ix++) if (framptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); } /* end forward_or_mark_module_start_frame_warmelt_macro */ -/* exported 113 field offsets */ +/* exported 109 field offsets */ const int meltfieldoff__ANDPAT_CONJ = 3; /* in CLASS_SOURCE_PATTERN_AND */ const int meltfieldoff__CMEC_COMMENT = 2; /* in CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ const int meltfieldoff__CTPAT_SUBPA = 3; /* in CLASS_SOURCE_PATTERN_CONSTRUCT */ @@ -44184,12 +43354,8 @@ const int meltfieldoff__SUGET_FIELD = 3; /* in CLASS_SOURCE_GET_FIELD */ const int meltfieldoff__SUGET_OBJ = 2; /* in CLASS_SOURCE_GET_FIELD */ const int meltfieldoff__SUPUT_FIELDS = 3; /* in CLASS_SOURCE_PUT_FIELDS */ const int meltfieldoff__SUPUT_OBJ = 2; /* in CLASS_SOURCE_PUT_FIELDS */ -const int meltfieldoff__SVARIADIC_CTYPEHANDLERMAP = 6; /* in CLASS_SOURCE_DEFVARIADIC */ -const int meltfieldoff__SVARIADIC_FINAL = 7; /* in CLASS_SOURCE_DEFVARIADIC */ -const int meltfieldoff__SVARIADIC_INITIAL = 5; /* in CLASS_SOURCE_DEFVARIADIC */ -const int meltfieldoff__SVARI_OPER = 3; /* in CLASS_SOURCE_VARIADIC_APPLICATION */ -/* exported 79 class lengths */ +/* exported 77 class lengths */ const int meltclasslen__CLASS_PATTERN_EXPANSION_CONTEXT = 3; const int meltclasslen__CLASS_SOURCE_APPLY = 4; const int meltclasslen__CLASS_SOURCE_ARGUMENTED_OPERATOR = 3; @@ -44212,7 +43378,6 @@ const int meltclasslen__CLASS_SOURCE_DEFPRIMITIVE = 7; const int meltclasslen__CLASS_SOURCE_DEFSELECTOR = 10; const int meltclasslen__CLASS_SOURCE_DEFUN = 6; const int meltclasslen__CLASS_SOURCE_DEFUNMATCHER = 10; -const int meltclasslen__CLASS_SOURCE_DEFVARIADIC = 8; const int meltclasslen__CLASS_SOURCE_EXIT = 4; const int meltclasslen__CLASS_SOURCE_EXPORTCOMMON = 3; const int meltclasslen__CLASS_SOURCE_EXPORT_CLASS = 3; @@ -44268,7 +43433,6 @@ const int meltclasslen__CLASS_SOURCE_TUPLE = 3; const int meltclasslen__CLASS_SOURCE_UNSAFE_GET_FIELD = 4; const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS = 4; const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3; -const int meltclasslen__CLASS_SOURCE_VARIADIC_APPLICATION = 4; /**** end of melt-sources/warmelt-macro.c ****/ diff --git a/gcc/melt/generated/warmelt-normal-0+01.c b/gcc/melt/generated/warmelt-normal-0+01.c index 8f39ffe27c0..4167bcefbdc 100644 --- a/gcc/melt/generated/warmelt-normal-0+01.c +++ b/gcc/melt/generated/warmelt-normal-0+01.c @@ -12978,7 +12978,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /528f2ef checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /aea18f7 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.CBIND__V39*/ meltfptr[38]))->hd = (melt_ptr_t) (/*_.CBIND__V30*/ meltfptr[29]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normal-0+02.c b/gcc/melt/generated/warmelt-normal-0+02.c index a3bc67f05c2..cc16090a8e9 100644 --- a/gcc/melt/generated/warmelt-normal-0+02.c +++ b/gcc/melt/generated/warmelt-normal-0+02.c @@ -27368,7 +27368,7 @@ lab_endgetargs:; ; MELT_LOCATION("warmelt-normal.melt:3604:/ putpairhead"); /*putpairhead*/ - melt_assertmsg("putpairhead /28a70db7 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /30608d0d checkpair", melt_magic_discr((melt_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.CTUPBIND__V38*/ meltfptr[37]))->hd = (melt_ptr_t) (/*_.CTUPBIND__V36*/ meltfptr[35]); ; /*^touch*/ @@ -28605,7 +28605,7 @@ lab_endgetargs:; ; MELT_LOCATION("warmelt-normal.melt:3689:/ putpairhead"); /*putpairhead*/ - melt_assertmsg("putpairhead /2e43b96 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /1a52c869 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.CLISTBIND__V55*/ meltfptr[54]))->hd = (melt_ptr_t) (/*_.CLISTBIND__V53*/ meltfptr[52]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normal-0.c b/gcc/melt/generated/warmelt-normal-0.c index 05c08ec03d5..66c6e05198c 100644 --- a/gcc/melt/generated/warmelt-normal-0.c +++ b/gcc/melt/generated/warmelt-normal-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -3391,7 +3391,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_normal iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -147); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -1258); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__CLASS_NREP; @@ -5165,7 +5165,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_NREP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__CLASS_NREP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_NREP.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_5__CLASS_NREP.obj_hash = 35722453; + cdat->dobj_5__CLASS_NREP.obj_hash = 856573273; cdat->dobj_5__CLASS_NREP.obj_len = 8; /*inistring dstr_6__CLASS_NREP*/ @@ -5199,7 +5199,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__NREP_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_11__NREP_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__NREP_LOC.obj_num = 0; - cdat->dobj_11__NREP_LOC.obj_hash = 155729583; + cdat->dobj_11__NREP_LOC.obj_hash = 543855093; cdat->dobj_11__NREP_LOC.obj_len = 4; /*inistring dstr_12__NREP_LOC*/ @@ -5225,7 +5225,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__CLASS_NREP_SIMPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__CLASS_NREP_SIMPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_15__CLASS_NREP_SIMPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 995639576; + cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 536922981; cdat->dobj_15__CLASS_NREP_SIMPLE.obj_len = 8; /*inistring dstr_16__CLASS_NREP_SIMPL*/ @@ -5259,7 +5259,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_21__CLASS_NREP_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_21__CLASS_NREP_EXPRESSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 1045273323; + cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 35722453; cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_len = 8; /*inistring dstr_22__CLASS_NREP_EXPRE*/ @@ -5293,7 +5293,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__CLASS_NREP_TYPED_EXPRESSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 323167216; + cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 491578479; cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_len = 8; /*inistring dstr_28__CLASS_NREP_TYPED*/ @@ -5327,7 +5327,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_33__NEXPR_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_33__NEXPR_CTYP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_33__NEXPR_CTYP.obj_num = 1; - cdat->dobj_33__NEXPR_CTYP.obj_hash = 750621668; + cdat->dobj_33__NEXPR_CTYP.obj_hash = 995639576; cdat->dobj_33__NEXPR_CTYP.obj_len = 4; /*inistring dstr_34__NEXPR_CTYP*/ @@ -5353,7 +5353,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 300922324; + cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 1045273323; cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_len = 8; /*inistring dstr_38__CLASS_NREP_TYPED*/ @@ -5387,7 +5387,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__NEXPR_ARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_43__NEXPR_ARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__NEXPR_ARGS.obj_num = 2; - cdat->dobj_43__NEXPR_ARGS.obj_hash = 138118218; + cdat->dobj_43__NEXPR_ARGS.obj_hash = 390055335; cdat->dobj_43__NEXPR_ARGS.obj_len = 4; /*inistring dstr_44__NEXPR_ARGS*/ @@ -5413,7 +5413,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_47__CLASS_NREP_APPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_47__CLASS_NREP_APPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_47__CLASS_NREP_APPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 79799121; + cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 750621668; cdat->dobj_47__CLASS_NREP_APPLY.obj_len = 8; /*inistring dstr_48__CLASS_NREP_APPLY*/ @@ -5447,7 +5447,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_53__NAPP_FUN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_53__NAPP_FUN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_53__NAPP_FUN.obj_num = 3; - cdat->dobj_53__NAPP_FUN.obj_hash = 27989683; + cdat->dobj_53__NAPP_FUN.obj_hash = 439643757; cdat->dobj_53__NAPP_FUN.obj_len = 4; /*inistring dstr_54__NAPP_FUN*/ @@ -5473,7 +5473,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__CLASS_NREP_MULTIAPPLY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 217381472; + cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 138118218; cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_len = 8; /*inistring dstr_58__CLASS_NREP_MULTI*/ @@ -5507,7 +5507,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_63__NMULAPP_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_63__NMULAPP_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_63__NMULAPP_BINDINGS.obj_num = 4; - cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 866324878; + cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 1013420585; cdat->dobj_63__NMULAPP_BINDINGS.obj_len = 4; /*inistring dstr_64__NMULAPP_BINDINGS*/ @@ -5533,7 +5533,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_67__NMULAPP_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_67__NMULAPP_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_67__NMULAPP_BODY.obj_num = 5; - cdat->dobj_67__NMULAPP_BODY.obj_hash = 394892102; + cdat->dobj_67__NMULAPP_BODY.obj_hash = 118594288; cdat->dobj_67__NMULAPP_BODY.obj_len = 4; /*inistring dstr_68__NMULAPP_BODY*/ @@ -5559,7 +5559,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_71__CLASS_NREP_MSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_71__CLASS_NREP_MSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_71__CLASS_NREP_MSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 267460794; + cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 528094112; cdat->dobj_71__CLASS_NREP_MSEND.obj_len = 8; /*inistring dstr_72__CLASS_NREP_MSEND*/ @@ -5593,7 +5593,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_77__NSEND_SEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_77__NSEND_SEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_77__NSEND_SEL.obj_num = 3; - cdat->dobj_77__NSEND_SEL.obj_hash = 1028517875; + cdat->dobj_77__NSEND_SEL.obj_hash = 946468267; cdat->dobj_77__NSEND_SEL.obj_len = 4; /*inistring dstr_78__NSEND_SEL*/ @@ -5619,7 +5619,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_81__NSEND_RECV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_81__NSEND_RECV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_81__NSEND_RECV.obj_num = 4; - cdat->dobj_81__NSEND_RECV.obj_hash = 369246370; + cdat->dobj_81__NSEND_RECV.obj_hash = 540639372; cdat->dobj_81__NSEND_RECV.obj_len = 4; /*inistring dstr_82__NSEND_RECV*/ @@ -5645,7 +5645,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_85__CLASS_NREP_MULTIMSEND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_85__CLASS_NREP_MULTIMSEND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 836352399; + cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 489407412; cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_len = 8; /*inistring dstr_86__CLASS_NREP_MULTI*/ @@ -5679,7 +5679,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91__NMULSEND_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_91__NMULSEND_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BINDINGS.obj_num = 5; - cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 710461250; + cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 640744266; cdat->dobj_91__NMULSEND_BINDINGS.obj_len = 4; /*inistring dstr_92__NMULSEND_BINDING*/ @@ -5705,7 +5705,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_95__NMULSEND_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_95__NMULSEND_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_95__NMULSEND_BODY.obj_num = 6; - cdat->dobj_95__NMULSEND_BODY.obj_hash = 688500383; + cdat->dobj_95__NMULSEND_BODY.obj_hash = 980760548; cdat->dobj_95__NMULSEND_BODY.obj_len = 4; /*inistring dstr_96__NMULSEND_BODY*/ @@ -5731,7 +5731,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_99__CLASS_NREP_CHUNK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_99__CLASS_NREP_CHUNK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_99__CLASS_NREP_CHUNK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 894756394; + cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 611807337; cdat->dobj_99__CLASS_NREP_CHUNK.obj_len = 8; /*inistring dstr_100__CLASS_NREP_CHUNK*/ @@ -5765,7 +5765,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_105__NCHUNK_EXPANSION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_105__NCHUNK_EXPANSION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_EXPANSION.obj_num = 2; - cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 277646007; + cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 72751503; cdat->dobj_105__NCHUNK_EXPANSION.obj_len = 4; /*inistring dstr_106__NCHUNK_EXPANSION*/ @@ -5791,7 +5791,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_109__NCHUNK_OPER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_109__NCHUNK_OPER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_109__NCHUNK_OPER.obj_num = 3; - cdat->dobj_109__NCHUNK_OPER.obj_hash = 579272505; + cdat->dobj_109__NCHUNK_OPER.obj_hash = 132780817; cdat->dobj_109__NCHUNK_OPER.obj_len = 4; /*inistring dstr_110__NCHUNK_OPER*/ @@ -5817,7 +5817,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_113__CLASS_NREP_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_113__CLASS_NREP_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_113__CLASS_NREP_COMMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 14445230; + cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 502069671; cdat->dobj_113__CLASS_NREP_COMMENT.obj_len = 8; /*inistring dstr_114__CLASS_NREP_COMME*/ @@ -5851,7 +5851,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_119__NCOMM_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_119__NCOMM_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_119__NCOMM_STRING.obj_num = 1; - cdat->dobj_119__NCOMM_STRING.obj_hash = 463102141; + cdat->dobj_119__NCOMM_STRING.obj_hash = 464797827; cdat->dobj_119__NCOMM_STRING.obj_len = 4; /*inistring dstr_120__NCOMM_STRING*/ @@ -5877,7 +5877,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_123__CLASS_NREP_LET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_123__CLASS_NREP_LET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_123__CLASS_NREP_LET.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_123__CLASS_NREP_LET.obj_hash = 441606640; + cdat->dobj_123__CLASS_NREP_LET.obj_hash = 579272505; cdat->dobj_123__CLASS_NREP_LET.obj_len = 8; /*inistring dstr_124__CLASS_NREP_LET*/ @@ -5911,7 +5911,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_129__NLET_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_129__NLET_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_129__NLET_BINDINGS.obj_num = 1; - cdat->dobj_129__NLET_BINDINGS.obj_hash = 471203340; + cdat->dobj_129__NLET_BINDINGS.obj_hash = 115537535; cdat->dobj_129__NLET_BINDINGS.obj_len = 4; /*inistring dstr_130__NLET_BINDINGS*/ @@ -5937,7 +5937,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_133__NLET_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_133__NLET_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_133__NLET_BODY.obj_num = 2; - cdat->dobj_133__NLET_BODY.obj_hash = 820029277; + cdat->dobj_133__NLET_BODY.obj_hash = 333715001; cdat->dobj_133__NLET_BODY.obj_len = 4; /*inistring dstr_134__NLET_BODY*/ @@ -5963,7 +5963,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_137__CLASS_NREP_LETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_137__CLASS_NREP_LETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_137__CLASS_NREP_LETREC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 350372574; + cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 347066640; cdat->dobj_137__CLASS_NREP_LETREC.obj_len = 8; /*inistring dstr_138__CLASS_NREP_LETRE*/ @@ -5997,7 +5997,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_143__NLETREC_FILL_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_143__NLETREC_FILL_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_num = 3; - cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_hash = 217865509; + cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_hash = 96681378; cdat->dobj_143__NLETREC_FILL_BINDINGS.obj_len = 4; /*inistring dstr_144__NLETREC_FILL_BIN*/ @@ -6023,7 +6023,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_147__NLETREC_BODY_BINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_147__NLETREC_BODY_BINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_num = 4; - cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_hash = 49371726; + cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_hash = 235724214; cdat->dobj_147__NLETREC_BODY_BINDINGS.obj_len = 4; /*inistring dstr_148__NLETREC_BODY_BIN*/ @@ -6049,7 +6049,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_151__NLETREC_LOCSYMS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_151__NLETREC_LOCSYMS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_151__NLETREC_LOCSYMS.obj_num = 5; - cdat->dobj_151__NLETREC_LOCSYMS.obj_hash = 775500701; + cdat->dobj_151__NLETREC_LOCSYMS.obj_hash = 431935217; cdat->dobj_151__NLETREC_LOCSYMS.obj_len = 4; /*inistring dstr_152__NLETREC_LOCSYMS*/ @@ -6075,7 +6075,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_155__CLASS_NREP_RETURN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_155__CLASS_NREP_RETURN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_155__CLASS_NREP_RETURN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_155__CLASS_NREP_RETURN.obj_hash = 472964410; + cdat->dobj_155__CLASS_NREP_RETURN.obj_hash = 975212110; cdat->dobj_155__CLASS_NREP_RETURN.obj_len = 8; /*inistring dstr_156__CLASS_NREP_RETUR*/ @@ -6109,7 +6109,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_161__NRET_MAIN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_161__NRET_MAIN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_161__NRET_MAIN.obj_num = 1; - cdat->dobj_161__NRET_MAIN.obj_hash = 443959308; + cdat->dobj_161__NRET_MAIN.obj_hash = 1005119613; cdat->dobj_161__NRET_MAIN.obj_len = 4; /*inistring dstr_162__NRET_MAIN*/ @@ -6135,7 +6135,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_165__NRET_REST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_165__NRET_REST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_165__NRET_REST.obj_num = 2; - cdat->dobj_165__NRET_REST.obj_hash = 248875956; + cdat->dobj_165__NRET_REST.obj_hash = 1067478286; cdat->dobj_165__NRET_REST.obj_len = 4; /*inistring dstr_166__NRET_REST*/ @@ -6161,7 +6161,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_169__CLASS_NREP_IFCOMMON", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_169__CLASS_NREP_IFCOMMON.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_hash = 55374392; + cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_hash = 601059884; cdat->dobj_169__CLASS_NREP_IFCOMMON.obj_len = 8; /*inistring dstr_170__CLASS_NREP_IFCOM*/ @@ -6195,7 +6195,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_175__NIF_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_175__NIF_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_175__NIF_THEN.obj_num = 2; - cdat->dobj_175__NIF_THEN.obj_hash = 818081144; + cdat->dobj_175__NIF_THEN.obj_hash = 913156608; cdat->dobj_175__NIF_THEN.obj_len = 4; /*inistring dstr_176__NIF_THEN*/ @@ -6221,7 +6221,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_179__NIF_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_179__NIF_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_179__NIF_ELSE.obj_num = 3; - cdat->dobj_179__NIF_ELSE.obj_hash = 418086662; + cdat->dobj_179__NIF_ELSE.obj_hash = 944819581; cdat->dobj_179__NIF_ELSE.obj_len = 4; /*inistring dstr_180__NIF_ELSE*/ @@ -6247,7 +6247,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_183__CLASS_NREP_IFISA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_183__CLASS_NREP_IFISA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_183__CLASS_NREP_IFISA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_183__CLASS_NREP_IFISA.obj_hash = 294846404; + cdat->dobj_183__CLASS_NREP_IFISA.obj_hash = 885202822; cdat->dobj_183__CLASS_NREP_IFISA.obj_len = 8; /*inistring dstr_184__CLASS_NREP_IFISA*/ @@ -6281,7 +6281,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_189__NIFA_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_189__NIFA_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_189__NIFA_VAL.obj_num = 4; - cdat->dobj_189__NIFA_VAL.obj_hash = 511843584; + cdat->dobj_189__NIFA_VAL.obj_hash = 361092529; cdat->dobj_189__NIFA_VAL.obj_len = 4; /*inistring dstr_190__NIFA_VAL*/ @@ -6307,7 +6307,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_193__NIFA_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_193__NIFA_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_193__NIFA_CLASS.obj_num = 5; - cdat->dobj_193__NIFA_CLASS.obj_hash = 284211335; + cdat->dobj_193__NIFA_CLASS.obj_hash = 343099472; cdat->dobj_193__NIFA_CLASS.obj_len = 4; /*inistring dstr_194__NIFA_CLASS*/ @@ -6333,7 +6333,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_197__CLASS_NREP_IFSAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_197__CLASS_NREP_IFSAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_197__CLASS_NREP_IFSAME.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_197__CLASS_NREP_IFSAME.obj_hash = 1015299711; + cdat->dobj_197__CLASS_NREP_IFSAME.obj_hash = 765429964; cdat->dobj_197__CLASS_NREP_IFSAME.obj_len = 8; /*inistring dstr_198__CLASS_NREP_IFSAM*/ @@ -6367,7 +6367,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_203__NIFS_LEFT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_203__NIFS_LEFT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_203__NIFS_LEFT.obj_num = 4; - cdat->dobj_203__NIFS_LEFT.obj_hash = 787013760; + cdat->dobj_203__NIFS_LEFT.obj_hash = 1028285081; cdat->dobj_203__NIFS_LEFT.obj_len = 4; /*inistring dstr_204__NIFS_LEFT*/ @@ -6393,7 +6393,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_207__NIFS_RIGHT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_207__NIFS_RIGHT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_207__NIFS_RIGHT.obj_num = 5; - cdat->dobj_207__NIFS_RIGHT.obj_hash = 121067818; + cdat->dobj_207__NIFS_RIGHT.obj_hash = 627738045; cdat->dobj_207__NIFS_RIGHT.obj_len = 4; /*inistring dstr_208__NIFS_RIGHT*/ @@ -6419,7 +6419,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_211__CLASS_NREP_IF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_211__CLASS_NREP_IF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_211__CLASS_NREP_IF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_211__CLASS_NREP_IF.obj_hash = 311427331; + cdat->dobj_211__CLASS_NREP_IF.obj_hash = 985517000; cdat->dobj_211__CLASS_NREP_IF.obj_len = 8; /*inistring dstr_212__CLASS_NREP_IF*/ @@ -6453,7 +6453,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_217__NIF_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_217__NIF_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_217__NIF_TEST.obj_num = 4; - cdat->dobj_217__NIF_TEST.obj_hash = 875263895; + cdat->dobj_217__NIF_TEST.obj_hash = 1012264274; cdat->dobj_217__NIF_TEST.obj_len = 4; /*inistring dstr_218__NIF_TEST*/ @@ -6479,7 +6479,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_221__CLASS_NREP_CPPIF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_221__CLASS_NREP_CPPIF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_221__CLASS_NREP_CPPIF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_221__CLASS_NREP_CPPIF.obj_hash = 865464706; + cdat->dobj_221__CLASS_NREP_CPPIF.obj_hash = 121067818; cdat->dobj_221__CLASS_NREP_CPPIF.obj_len = 8; /*inistring dstr_222__CLASS_NREP_CPPIF*/ @@ -6513,7 +6513,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_227__NIFP_COND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_227__NIFP_COND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_227__NIFP_COND.obj_num = 1; - cdat->dobj_227__NIFP_COND.obj_hash = 834676348; + cdat->dobj_227__NIFP_COND.obj_hash = 866261330; cdat->dobj_227__NIFP_COND.obj_len = 4; /*inistring dstr_228__NIFP_COND*/ @@ -6539,7 +6539,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_231__NIFP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_231__NIFP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_231__NIFP_THEN.obj_num = 2; - cdat->dobj_231__NIFP_THEN.obj_hash = 643969053; + cdat->dobj_231__NIFP_THEN.obj_hash = 445356937; cdat->dobj_231__NIFP_THEN.obj_len = 4; /*inistring dstr_232__NIFP_THEN*/ @@ -6565,7 +6565,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_235__NIFP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_235__NIFP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_235__NIFP_ELSE.obj_num = 3; - cdat->dobj_235__NIFP_ELSE.obj_hash = 1008266537; + cdat->dobj_235__NIFP_ELSE.obj_hash = 115040249; cdat->dobj_235__NIFP_ELSE.obj_len = 4; /*inistring dstr_236__NIFP_ELSE*/ @@ -6591,7 +6591,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_239__NIFP_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_239__NIFP_CTYP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_239__NIFP_CTYP.obj_num = 4; - cdat->dobj_239__NIFP_CTYP.obj_hash = 647085874; + cdat->dobj_239__NIFP_CTYP.obj_hash = 865464706; cdat->dobj_239__NIFP_CTYP.obj_len = 4; /*inistring dstr_240__NIFP_CTYP*/ @@ -6617,7 +6617,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_243__CLASS_NREP_PROGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_243__CLASS_NREP_PROGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_243__CLASS_NREP_PROGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_243__CLASS_NREP_PROGN.obj_hash = 885612437; + cdat->dobj_243__CLASS_NREP_PROGN.obj_hash = 742192976; cdat->dobj_243__CLASS_NREP_PROGN.obj_len = 8; /*inistring dstr_244__CLASS_NREP_PROGN*/ @@ -6651,7 +6651,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_249__NPROGN_SEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_249__NPROGN_SEQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_249__NPROGN_SEQ.obj_num = 1; - cdat->dobj_249__NPROGN_SEQ.obj_hash = 551081835; + cdat->dobj_249__NPROGN_SEQ.obj_hash = 595107388; cdat->dobj_249__NPROGN_SEQ.obj_len = 4; /*inistring dstr_250__NPROGN_SEQ*/ @@ -6677,7 +6677,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_253__NPROGN_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_253__NPROGN_LAST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_253__NPROGN_LAST.obj_num = 2; - cdat->dobj_253__NPROGN_LAST.obj_hash = 508791774; + cdat->dobj_253__NPROGN_LAST.obj_hash = 432577800; cdat->dobj_253__NPROGN_LAST.obj_len = 4; /*inistring dstr_254__NPROGN_LAST*/ @@ -6703,7 +6703,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_257__CLASS_NREP_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_257__CLASS_NREP_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_257__CLASS_NREP_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_257__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 445906214; + cdat->dobj_257__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 885612437; cdat->dobj_257__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 8; /*inistring dstr_258__CLASS_NREP_UNSAF*/ @@ -6737,7 +6737,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_263__NUGET_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_263__NUGET_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_263__NUGET_OBJ.obj_num = 1; - cdat->dobj_263__NUGET_OBJ.obj_hash = 676437520; + cdat->dobj_263__NUGET_OBJ.obj_hash = 551081835; cdat->dobj_263__NUGET_OBJ.obj_len = 4; /*inistring dstr_264__NUGET_OBJ*/ @@ -6763,7 +6763,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_267__NUGET_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_267__NUGET_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_267__NUGET_FIELD.obj_num = 2; - cdat->dobj_267__NUGET_FIELD.obj_hash = 313938843; + cdat->dobj_267__NUGET_FIELD.obj_hash = 508791774; cdat->dobj_267__NUGET_FIELD.obj_len = 4; /*inistring dstr_268__NUGET_FIELD*/ @@ -6789,7 +6789,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 892156592; + cdat->dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 510738921; cdat->dobj_271__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 8; /*inistring dstr_272__CLASS_NREP_UNSAF*/ @@ -6823,7 +6823,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_277__NUPUT_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_277__NUPUT_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_277__NUPUT_OBJ.obj_num = 1; - cdat->dobj_277__NUPUT_OBJ.obj_hash = 42913225; + cdat->dobj_277__NUPUT_OBJ.obj_hash = 212673619; cdat->dobj_277__NUPUT_OBJ.obj_len = 4; /*inistring dstr_278__NUPUT_OBJ*/ @@ -6849,7 +6849,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_281__NUPUT_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_281__NUPUT_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_281__NUPUT_FIELDS.obj_num = 2; - cdat->dobj_281__NUPUT_FIELDS.obj_hash = 174883901; + cdat->dobj_281__NUPUT_FIELDS.obj_hash = 496548164; cdat->dobj_281__NUPUT_FIELDS.obj_len = 4; /*inistring dstr_282__NUPUT_FIELDS*/ @@ -6875,7 +6875,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_285__CLASS_NREP_SETQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_285__CLASS_NREP_SETQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_285__CLASS_NREP_SETQ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_285__CLASS_NREP_SETQ.obj_hash = 475197035; + cdat->dobj_285__CLASS_NREP_SETQ.obj_hash = 5580726; cdat->dobj_285__CLASS_NREP_SETQ.obj_len = 8; /*inistring dstr_286__CLASS_NREP_SETQ*/ @@ -6909,7 +6909,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_291__NSTQ_VAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_291__NSTQ_VAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_291__NSTQ_VAR.obj_num = 1; - cdat->dobj_291__NSTQ_VAR.obj_hash = 959918913; + cdat->dobj_291__NSTQ_VAR.obj_hash = 579256844; cdat->dobj_291__NSTQ_VAR.obj_len = 4; /*inistring dstr_292__NSTQ_VAR*/ @@ -6935,7 +6935,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_295__NSTQ_EXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_295__NSTQ_EXP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_295__NSTQ_EXP.obj_num = 2; - cdat->dobj_295__NSTQ_EXP.obj_hash = 673440956; + cdat->dobj_295__NSTQ_EXP.obj_hash = 261195803; cdat->dobj_295__NSTQ_EXP.obj_len = 4; /*inistring dstr_296__NSTQ_EXP*/ @@ -6961,7 +6961,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_299__CLASS_NREP_FOREVER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_299__CLASS_NREP_FOREVER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_299__CLASS_NREP_FOREVER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_299__CLASS_NREP_FOREVER.obj_hash = 611267391; + cdat->dobj_299__CLASS_NREP_FOREVER.obj_hash = 752694489; cdat->dobj_299__CLASS_NREP_FOREVER.obj_len = 8; /*inistring dstr_300__CLASS_NREP_FOREV*/ @@ -6995,7 +6995,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_305__NFOREVER_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_305__NFOREVER_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_305__NFOREVER_BIND.obj_num = 1; - cdat->dobj_305__NFOREVER_BIND.obj_hash = 165299414; + cdat->dobj_305__NFOREVER_BIND.obj_hash = 432676216; cdat->dobj_305__NFOREVER_BIND.obj_len = 4; /*inistring dstr_306__NFOREVER_BIND*/ @@ -7021,7 +7021,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_309__NFOREVER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_309__NFOREVER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_309__NFOREVER_BODY.obj_num = 2; - cdat->dobj_309__NFOREVER_BODY.obj_hash = 745702120; + cdat->dobj_309__NFOREVER_BODY.obj_hash = 490797295; cdat->dobj_309__NFOREVER_BODY.obj_len = 4; /*inistring dstr_310__NFOREVER_BODY*/ @@ -7047,7 +7047,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_313__NFOREVER_RESULT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_313__NFOREVER_RESULT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_313__NFOREVER_RESULT.obj_num = 3; - cdat->dobj_313__NFOREVER_RESULT.obj_hash = 856566405; + cdat->dobj_313__NFOREVER_RESULT.obj_hash = 414207877; cdat->dobj_313__NFOREVER_RESULT.obj_len = 4; /*inistring dstr_314__NFOREVER_RESULT*/ @@ -7073,7 +7073,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_317__CLASS_NREP_EXIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_317__CLASS_NREP_EXIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_317__CLASS_NREP_EXIT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_317__CLASS_NREP_EXIT.obj_hash = 874209538; + cdat->dobj_317__CLASS_NREP_EXIT.obj_hash = 775201387; cdat->dobj_317__CLASS_NREP_EXIT.obj_len = 8; /*inistring dstr_318__CLASS_NREP_EXIT*/ @@ -7107,7 +7107,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_323__NEXIT_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_323__NEXIT_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_323__NEXIT_BIND.obj_num = 1; - cdat->dobj_323__NEXIT_BIND.obj_hash = 636903099; + cdat->dobj_323__NEXIT_BIND.obj_hash = 60232946; cdat->dobj_323__NEXIT_BIND.obj_len = 4; /*inistring dstr_324__NEXIT_BIND*/ @@ -7133,7 +7133,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_327__NEXIT_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_327__NEXIT_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_327__NEXIT_VAL.obj_num = 2; - cdat->dobj_327__NEXIT_VAL.obj_hash = 503987787; + cdat->dobj_327__NEXIT_VAL.obj_hash = 379708069; cdat->dobj_327__NEXIT_VAL.obj_len = 4; /*inistring dstr_328__NEXIT_VAL*/ @@ -7159,7 +7159,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_331__CLASS_NREP_FIELDASSIGN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_331__CLASS_NREP_FIELDASSIGN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_331__CLASS_NREP_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_331__CLASS_NREP_FIELDASSIGN.obj_hash = 67269713; + cdat->dobj_331__CLASS_NREP_FIELDASSIGN.obj_hash = 286277337; cdat->dobj_331__CLASS_NREP_FIELDASSIGN.obj_len = 8; /*inistring dstr_332__CLASS_NREP_FIELD*/ @@ -7193,7 +7193,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_337__NFLA_FIELD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_337__NFLA_FIELD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_337__NFLA_FIELD.obj_num = 1; - cdat->dobj_337__NFLA_FIELD.obj_hash = 39525049; + cdat->dobj_337__NFLA_FIELD.obj_hash = 307350868; cdat->dobj_337__NFLA_FIELD.obj_len = 4; /*inistring dstr_338__NFLA_FIELD*/ @@ -7219,7 +7219,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_341__NFLA_VAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_341__NFLA_VAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_341__NFLA_VAL.obj_num = 2; - cdat->dobj_341__NFLA_VAL.obj_hash = 93057231; + cdat->dobj_341__NFLA_VAL.obj_hash = 641637472; cdat->dobj_341__NFLA_VAL.obj_len = 4; /*inistring dstr_342__NFLA_VAL*/ @@ -7245,7 +7245,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_345__CLASS_NREP_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_345__CLASS_NREP_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_345__CLASS_NREP_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_345__CLASS_NREP_INSTANCE.obj_hash = 117608468; + cdat->dobj_345__CLASS_NREP_INSTANCE.obj_hash = 570265493; cdat->dobj_345__CLASS_NREP_INSTANCE.obj_len = 8; /*inistring dstr_346__CLASS_NREP_INSTA*/ @@ -7279,7 +7279,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_351__NMINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_351__NMINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_351__NMINS_CLASS.obj_num = 1; - cdat->dobj_351__NMINS_CLASS.obj_hash = 441439434; + cdat->dobj_351__NMINS_CLASS.obj_hash = 735686492; cdat->dobj_351__NMINS_CLASS.obj_len = 4; /*inistring dstr_352__NMINS_CLASS*/ @@ -7305,7 +7305,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_355__NMINS_CLADATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_355__NMINS_CLADATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_355__NMINS_CLADATA.obj_num = 2; - cdat->dobj_355__NMINS_CLADATA.obj_hash = 288799692; + cdat->dobj_355__NMINS_CLADATA.obj_hash = 792164334; cdat->dobj_355__NMINS_CLADATA.obj_len = 4; /*inistring dstr_356__NMINS_CLADATA*/ @@ -7331,7 +7331,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__NMINS_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_359__NMINS_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_359__NMINS_FIELDS.obj_num = 3; - cdat->dobj_359__NMINS_FIELDS.obj_hash = 655659755; + cdat->dobj_359__NMINS_FIELDS.obj_hash = 982022181; cdat->dobj_359__NMINS_FIELDS.obj_len = 4; /*inistring dstr_360__NMINS_FIELDS*/ @@ -7357,7 +7357,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_363__CLASS_NREP_LAMBDA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_363__CLASS_NREP_LAMBDA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_363__CLASS_NREP_LAMBDA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_363__CLASS_NREP_LAMBDA.obj_hash = 536470994; + cdat->dobj_363__CLASS_NREP_LAMBDA.obj_hash = 592711098; cdat->dobj_363__CLASS_NREP_LAMBDA.obj_len = 8; /*inistring dstr_364__CLASS_NREP_LAMBD*/ @@ -7391,7 +7391,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__NLAMBDA_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_369__NLAMBDA_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_369__NLAMBDA_PROC.obj_num = 1; - cdat->dobj_369__NLAMBDA_PROC.obj_hash = 451145461; + cdat->dobj_369__NLAMBDA_PROC.obj_hash = 968803654; cdat->dobj_369__NLAMBDA_PROC.obj_len = 4; /*inistring dstr_370__NLAMBDA_PROC*/ @@ -7417,7 +7417,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_373__NLAMBDA_CONSTROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_373__NLAMBDA_CONSTROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_373__NLAMBDA_CONSTROUT.obj_num = 2; - cdat->dobj_373__NLAMBDA_CONSTROUT.obj_hash = 623763933; + cdat->dobj_373__NLAMBDA_CONSTROUT.obj_hash = 972125621; cdat->dobj_373__NLAMBDA_CONSTROUT.obj_len = 4; /*inistring dstr_374__NLAMBDA_CONSTROU*/ @@ -7443,7 +7443,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_377__NLAMBDA_CLOSEDV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_377__NLAMBDA_CLOSEDV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_377__NLAMBDA_CLOSEDV.obj_num = 3; - cdat->dobj_377__NLAMBDA_CLOSEDV.obj_hash = 589773841; + cdat->dobj_377__NLAMBDA_CLOSEDV.obj_hash = 919668066; cdat->dobj_377__NLAMBDA_CLOSEDV.obj_len = 4; /*inistring dstr_378__NLAMBDA_CLOSEDV*/ @@ -7469,7 +7469,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_381__CLASS_NREP_CITERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_381__CLASS_NREP_CITERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_381__CLASS_NREP_CITERATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_381__CLASS_NREP_CITERATION.obj_hash = 291234377; + cdat->dobj_381__CLASS_NREP_CITERATION.obj_hash = 631323901; cdat->dobj_381__CLASS_NREP_CITERATION.obj_len = 8; /*inistring dstr_382__CLASS_NREP_CITER*/ @@ -7503,7 +7503,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_387__NCITER_CITERATOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_387__NCITER_CITERATOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_387__NCITER_CITERATOR.obj_num = 1; - cdat->dobj_387__NCITER_CITERATOR.obj_hash = 146736587; + cdat->dobj_387__NCITER_CITERATOR.obj_hash = 243680713; cdat->dobj_387__NCITER_CITERATOR.obj_len = 4; /*inistring dstr_388__NCITER_CITERATOR*/ @@ -7529,7 +7529,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_391__NCITER_CHUNKBEFORE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_391__NCITER_CHUNKBEFORE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_391__NCITER_CHUNKBEFORE.obj_num = 2; - cdat->dobj_391__NCITER_CHUNKBEFORE.obj_hash = 675753703; + cdat->dobj_391__NCITER_CHUNKBEFORE.obj_hash = 225728983; cdat->dobj_391__NCITER_CHUNKBEFORE.obj_len = 4; /*inistring dstr_392__NCITER_CHUNKBEFO*/ @@ -7555,7 +7555,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_395__NCITER_CHUNKAFTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_395__NCITER_CHUNKAFTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_395__NCITER_CHUNKAFTER.obj_num = 3; - cdat->dobj_395__NCITER_CHUNKAFTER.obj_hash = 176195704; + cdat->dobj_395__NCITER_CHUNKAFTER.obj_hash = 789328663; cdat->dobj_395__NCITER_CHUNKAFTER.obj_len = 4; /*inistring dstr_396__NCITER_CHUNKAFTE*/ @@ -7581,7 +7581,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_399__NCITER_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_399__NCITER_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_399__NCITER_BODY.obj_num = 4; - cdat->dobj_399__NCITER_BODY.obj_hash = 365608931; + cdat->dobj_399__NCITER_BODY.obj_hash = 291234377; cdat->dobj_399__NCITER_BODY.obj_len = 4; /*inistring dstr_400__NCITER_BODY*/ @@ -7607,7 +7607,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_403__NCITER_STATOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_403__NCITER_STATOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_403__NCITER_STATOCC.obj_num = 5; - cdat->dobj_403__NCITER_STATOCC.obj_hash = 566762604; + cdat->dobj_403__NCITER_STATOCC.obj_hash = 146736587; cdat->dobj_403__NCITER_STATOCC.obj_len = 4; /*inistring dstr_404__NCITER_STATOCC*/ @@ -7633,7 +7633,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_407__NCITER_LOCBINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_407__NCITER_LOCBINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_407__NCITER_LOCBINDINGS.obj_num = 6; - cdat->dobj_407__NCITER_LOCBINDINGS.obj_hash = 182804760; + cdat->dobj_407__NCITER_LOCBINDINGS.obj_hash = 675753703; cdat->dobj_407__NCITER_LOCBINDINGS.obj_len = 4; /*inistring dstr_408__NCITER_LOCBINDIN*/ @@ -7659,7 +7659,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_411__NCITER_BODBINDINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_411__NCITER_BODBINDINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_411__NCITER_BODBINDINGS.obj_num = 7; - cdat->dobj_411__NCITER_BODBINDINGS.obj_hash = 128357001; + cdat->dobj_411__NCITER_BODBINDINGS.obj_hash = 176195704; cdat->dobj_411__NCITER_BODBINDINGS.obj_len = 4; /*inistring dstr_412__NCITER_BODBINDIN*/ @@ -7685,7 +7685,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_415__CLASS_NREP_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_415__CLASS_NREP_TESTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_415__CLASS_NREP_TESTS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_415__CLASS_NREP_TESTS.obj_hash = 984885946; + cdat->dobj_415__CLASS_NREP_TESTS.obj_hash = 589090756; cdat->dobj_415__CLASS_NREP_TESTS.obj_len = 8; /*inistring dstr_416__CLASS_NREP_TESTS*/ @@ -7719,7 +7719,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_421__NTESTS_TESTSEQ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_421__NTESTS_TESTSEQ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_421__NTESTS_TESTSEQ.obj_num = 1; - cdat->dobj_421__NTESTS_TESTSEQ.obj_hash = 310325602; + cdat->dobj_421__NTESTS_TESTSEQ.obj_hash = 1069839632; cdat->dobj_421__NTESTS_TESTSEQ.obj_len = 4; /*inistring dstr_422__NTESTS_TESTSEQ*/ @@ -7757,7 +7757,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 318413669; + cdat->dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 128357001; cdat->dobj_427__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_len = 8; /*inistring dstr_428__CLASS_NORMAL_CON*/ @@ -7791,7 +7791,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_433__NCONSB_LOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_433__NCONSB_LOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_433__NCONSB_LOC.obj_num = 1; - cdat->dobj_433__NCONSB_LOC.obj_hash = 145095363; + cdat->dobj_433__NCONSB_LOC.obj_hash = 432819235; cdat->dobj_433__NCONSB_LOC.obj_len = 4; /*inistring dstr_434__NCONSB_LOC*/ @@ -7817,7 +7817,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_437__NCONSB_DISCR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_437__NCONSB_DISCR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_437__NCONSB_DISCR.obj_num = 2; - cdat->dobj_437__NCONSB_DISCR.obj_hash = 16704734; + cdat->dobj_437__NCONSB_DISCR.obj_hash = 764772147; cdat->dobj_437__NCONSB_DISCR.obj_len = 4; /*inistring dstr_438__NCONSB_DISCR*/ @@ -7843,7 +7843,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_441__NCONSB_NLETREC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_441__NCONSB_NLETREC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_441__NCONSB_NLETREC.obj_num = 3; - cdat->dobj_441__NCONSB_NLETREC.obj_hash = 1005483877; + cdat->dobj_441__NCONSB_NLETREC.obj_hash = 318507692; cdat->dobj_441__NCONSB_NLETREC.obj_len = 4; /*inistring dstr_442__NCONSB_NLETREC*/ @@ -7869,7 +7869,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 886049410; + cdat->dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 645307679; cdat->dobj_445__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_len = 8; /*inistring dstr_446__CLASS_NORMAL_CON*/ @@ -7903,7 +7903,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_451__NTUPB_COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_451__NTUPB_COMP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_451__NTUPB_COMP.obj_num = 4; - cdat->dobj_451__NTUPB_COMP.obj_hash = 510182896; + cdat->dobj_451__NTUPB_COMP.obj_hash = 122670847; cdat->dobj_451__NTUPB_COMP.obj_len = 4; /*inistring dstr_452__NTUPB_COMP*/ @@ -7929,7 +7929,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 606474951; + cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 1005483877; cdat->dobj_455__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_len = 8; /*inistring dstr_456__CLASS_NORMAL_CON*/ @@ -7963,7 +7963,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_461__NPAIRB_HEAD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_461__NPAIRB_HEAD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_461__NPAIRB_HEAD.obj_num = 4; - cdat->dobj_461__NPAIRB_HEAD.obj_hash = 189003206; + cdat->dobj_461__NPAIRB_HEAD.obj_hash = 526536570; cdat->dobj_461__NPAIRB_HEAD.obj_len = 4; /*inistring dstr_462__NPAIRB_HEAD*/ @@ -7989,7 +7989,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__NPAIRB_TAIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_465__NPAIRB_TAIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_465__NPAIRB_TAIL.obj_num = 5; - cdat->dobj_465__NPAIRB_TAIL.obj_hash = 667076208; + cdat->dobj_465__NPAIRB_TAIL.obj_hash = 325961501; cdat->dobj_465__NPAIRB_TAIL.obj_len = 4; /*inistring dstr_466__NPAIRB_TAIL*/ @@ -8015,7 +8015,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 777983231; + cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 622978296; cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_len = 8; /*inistring dstr_470__CLASS_NORMAL_CON*/ @@ -8049,7 +8049,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_475__NLISTB_FIRST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_475__NLISTB_FIRST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_475__NLISTB_FIRST.obj_num = 4; - cdat->dobj_475__NLISTB_FIRST.obj_hash = 373096857; + cdat->dobj_475__NLISTB_FIRST.obj_hash = 4857636; cdat->dobj_475__NLISTB_FIRST.obj_len = 4; /*inistring dstr_476__NLISTB_FIRST*/ @@ -8075,7 +8075,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_479__NLISTB_LAST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_479__NLISTB_LAST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_479__NLISTB_LAST.obj_num = 5; - cdat->dobj_479__NLISTB_LAST.obj_hash = 697202918; + cdat->dobj_479__NLISTB_LAST.obj_hash = 862087928; cdat->dobj_479__NLISTB_LAST.obj_len = 4; /*inistring dstr_480__NLISTB_LAST*/ @@ -8101,7 +8101,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_483__NLISTB_PAIRSB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_483__NLISTB_PAIRSB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_483__NLISTB_PAIRSB.obj_num = 6; - cdat->dobj_483__NLISTB_PAIRSB.obj_hash = 839603366; + cdat->dobj_483__NLISTB_PAIRSB.obj_hash = 561064482; cdat->dobj_483__NLISTB_PAIRSB.obj_len = 4; /*inistring dstr_484__NLISTB_PAIRSB*/ @@ -8127,7 +8127,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 452358116; + cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 278519385; cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_len = 8; /*inistring dstr_488__CLASS_NORMAL_CON*/ @@ -8161,7 +8161,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_493__NLAMBDAB_NCLOSED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_493__NLAMBDAB_NCLOSED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_493__NLAMBDAB_NCLOSED.obj_num = 4; - cdat->dobj_493__NLAMBDAB_NCLOSED.obj_hash = 348980058; + cdat->dobj_493__NLAMBDAB_NCLOSED.obj_hash = 901017626; cdat->dobj_493__NLAMBDAB_NCLOSED.obj_len = 4; /*inistring dstr_494__NLAMBDAB_NCLOSED*/ @@ -8187,7 +8187,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__NLAMBDAB_CONSTROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_497__NLAMBDAB_CONSTROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_497__NLAMBDAB_CONSTROUT.obj_num = 5; - cdat->dobj_497__NLAMBDAB_CONSTROUT.obj_hash = 279108063; + cdat->dobj_497__NLAMBDAB_CONSTROUT.obj_hash = 61719066; cdat->dobj_497__NLAMBDAB_CONSTROUT.obj_len = 4; /*inistring dstr_498__NLAMBDAB_CONSTRO*/ @@ -8213,7 +8213,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_501__NLAMBDAB_DATAROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_501__NLAMBDAB_DATAROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_501__NLAMBDAB_DATAROUT.obj_num = 6; - cdat->dobj_501__NLAMBDAB_DATAROUT.obj_hash = 13473526; + cdat->dobj_501__NLAMBDAB_DATAROUT.obj_hash = 943054268; cdat->dobj_501__NLAMBDAB_DATAROUT.obj_len = 4; /*inistring dstr_502__NLAMBDAB_DATAROU*/ @@ -8239,7 +8239,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 827605303; + cdat->dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 437591531; cdat->dobj_505__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_len = 8; /*inistring dstr_506__CLASS_NORMAL_CON*/ @@ -8273,7 +8273,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__NINSTB_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_511__NINSTB_SLOTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_511__NINSTB_SLOTS.obj_num = 4; - cdat->dobj_511__NINSTB_SLOTS.obj_hash = 41760589; + cdat->dobj_511__NINSTB_SLOTS.obj_hash = 221071707; cdat->dobj_511__NINSTB_SLOTS.obj_len = 4; /*inistring dstr_512__NINSTB_SLOTS*/ @@ -8299,7 +8299,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__NINSTB_CLABIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_515__NINSTB_CLABIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_515__NINSTB_CLABIND.obj_num = 5; - cdat->dobj_515__NINSTB_CLABIND.obj_hash = 690127049; + cdat->dobj_515__NINSTB_CLABIND.obj_hash = 1015116359; cdat->dobj_515__NINSTB_CLABIND.obj_len = 4; /*inistring dstr_516__NINSTB_CLABIND*/ @@ -8325,7 +8325,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519__CLASS_NREP_ANYPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_519__CLASS_NREP_ANYPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_519__CLASS_NREP_ANYPROC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_519__CLASS_NREP_ANYPROC.obj_hash = 56872655; + cdat->dobj_519__CLASS_NREP_ANYPROC.obj_hash = 988772274; cdat->dobj_519__CLASS_NREP_ANYPROC.obj_len = 8; /*inistring dstr_520__CLASS_NREP_ANYPR*/ @@ -8359,7 +8359,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__NPROC_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_525__NPROC_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_525__NPROC_BODY.obj_num = 1; - cdat->dobj_525__NPROC_BODY.obj_hash = 288530691; + cdat->dobj_525__NPROC_BODY.obj_hash = 257550267; cdat->dobj_525__NPROC_BODY.obj_len = 4; /*inistring dstr_526__NPROC_BODY*/ @@ -8385,7 +8385,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_529__CLASS_NREP_INITPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_529__CLASS_NREP_INITPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_529__CLASS_NREP_INITPROC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_529__CLASS_NREP_INITPROC.obj_hash = 348763177; + cdat->dobj_529__CLASS_NREP_INITPROC.obj_hash = 690127049; cdat->dobj_529__CLASS_NREP_INITPROC.obj_len = 8; /*inistring dstr_530__CLASS_NREP_INITP*/ @@ -8419,7 +8419,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_535__NINIT_TOPL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_535__NINIT_TOPL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_535__NINIT_TOPL.obj_num = 2; - cdat->dobj_535__NINIT_TOPL.obj_hash = 232051985; + cdat->dobj_535__NINIT_TOPL.obj_hash = 576135019; cdat->dobj_535__NINIT_TOPL.obj_len = 4; /*inistring dstr_536__NINIT_TOPL*/ @@ -8445,7 +8445,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_539__CLASS_NREP_ROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_539__CLASS_NREP_ROUTPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_539__CLASS_NREP_ROUTPROC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_539__CLASS_NREP_ROUTPROC.obj_hash = 179117772; + cdat->dobj_539__CLASS_NREP_ROUTPROC.obj_hash = 288530691; cdat->dobj_539__CLASS_NREP_ROUTPROC.obj_len = 8; /*inistring dstr_540__CLASS_NREP_ROUTP*/ @@ -8479,7 +8479,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545__NRPRO_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_545__NRPRO_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_545__NRPRO_NAME.obj_num = 2; - cdat->dobj_545__NRPRO_NAME.obj_hash = 150292051; + cdat->dobj_545__NRPRO_NAME.obj_hash = 460165669; cdat->dobj_545__NRPRO_NAME.obj_len = 4; /*inistring dstr_546__NRPRO_NAME*/ @@ -8505,7 +8505,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549__NRPRO_ARGB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_549__NRPRO_ARGB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_549__NRPRO_ARGB.obj_num = 3; - cdat->dobj_549__NRPRO_ARGB.obj_hash = 44280234; + cdat->dobj_549__NRPRO_ARGB.obj_hash = 367465036; cdat->dobj_549__NRPRO_ARGB.obj_len = 4; /*inistring dstr_550__NRPRO_ARGB*/ @@ -8531,7 +8531,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__NRPRO_CLOSEDB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_553__NRPRO_CLOSEDB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_553__NRPRO_CLOSEDB.obj_num = 4; - cdat->dobj_553__NRPRO_CLOSEDB.obj_hash = 286500982; + cdat->dobj_553__NRPRO_CLOSEDB.obj_hash = 941428043; cdat->dobj_553__NRPRO_CLOSEDB.obj_len = 4; /*inistring dstr_554__NRPRO_CLOSEDB*/ @@ -8557,7 +8557,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_557__NRPRO_CONST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_557__NRPRO_CONST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_557__NRPRO_CONST.obj_num = 5; - cdat->dobj_557__NRPRO_CONST.obj_hash = 146580673; + cdat->dobj_557__NRPRO_CONST.obj_hash = 179117772; cdat->dobj_557__NRPRO_CONST.obj_len = 4; /*inistring dstr_558__NRPRO_CONST*/ @@ -8583,7 +8583,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_561__NRPRO_DATAROUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_561__NRPRO_DATAROUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_561__NRPRO_DATAROUT.obj_num = 6; - cdat->dobj_561__NRPRO_DATAROUT.obj_hash = 371571318; + cdat->dobj_561__NRPRO_DATAROUT.obj_hash = 150292051; cdat->dobj_561__NRPRO_DATAROUT.obj_len = 4; /*inistring dstr_562__NRPRO_DATAROUT*/ @@ -8609,7 +8609,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_565__NRPRO_DATACLOS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_565__NRPRO_DATACLOS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_565__NRPRO_DATACLOS.obj_num = 7; - cdat->dobj_565__NRPRO_DATACLOS.obj_hash = 140817108; + cdat->dobj_565__NRPRO_DATACLOS.obj_hash = 44280234; cdat->dobj_565__NRPRO_DATACLOS.obj_len = 4; /*inistring dstr_566__NRPRO_DATACLOS*/ @@ -8635,7 +8635,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_569__NRPRO_THUNKLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_569__NRPRO_THUNKLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_569__NRPRO_THUNKLIST.obj_num = 8; - cdat->dobj_569__NRPRO_THUNKLIST.obj_hash = 339777826; + cdat->dobj_569__NRPRO_THUNKLIST.obj_hash = 286500982; cdat->dobj_569__NRPRO_THUNKLIST.obj_len = 4; /*inistring dstr_570__NRPRO_THUNKLIST*/ @@ -8661,7 +8661,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_573__CLASS_NREP_LAMBDAROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_573__CLASS_NREP_LAMBDAROUTPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_573__CLASS_NREP_LAMBDAROUTPROC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_573__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 184309335; + cdat->dobj_573__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 340133048; cdat->dobj_573__CLASS_NREP_LAMBDAROUTPROC.obj_len = 8; /*inistring dstr_574__CLASS_NREP_LAMBD*/ @@ -8695,7 +8695,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_579__CLASS_NREP_DEFUNROUTPROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_579__CLASS_NREP_DEFUNROUTPROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_579__CLASS_NREP_DEFUNROUTPROC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_579__CLASS_NREP_DEFUNROUTPROC.obj_hash = 27303561; + cdat->dobj_579__CLASS_NREP_DEFUNROUTPROC.obj_hash = 140817108; cdat->dobj_579__CLASS_NREP_DEFUNROUTPROC.obj_len = 8; /*inistring dstr_580__CLASS_NREP_DEFUN*/ @@ -8729,7 +8729,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__CLASS_NREP_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_585__CLASS_NREP_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_585__CLASS_NREP_PREDEF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_585__CLASS_NREP_PREDEF.obj_hash = 959568338; + cdat->dobj_585__CLASS_NREP_PREDEF.obj_hash = 265563129; cdat->dobj_585__CLASS_NREP_PREDEF.obj_len = 8; /*inistring dstr_586__CLASS_NREP_PREDE*/ @@ -8763,7 +8763,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_591__NRPREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_591__NRPREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_591__NRPREDEF.obj_num = 1; - cdat->dobj_591__NRPREDEF.obj_hash = 70106816; + cdat->dobj_591__NRPREDEF.obj_hash = 184309335; cdat->dobj_591__NRPREDEF.obj_len = 4; /*inistring dstr_592__NRPREDEF*/ @@ -8789,7 +8789,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__CLASS_NREP_NIL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_595__CLASS_NREP_NIL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_595__CLASS_NREP_NIL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_595__CLASS_NREP_NIL.obj_hash = 1057640759; + cdat->dobj_595__CLASS_NREP_NIL.obj_hash = 27303561; cdat->dobj_595__CLASS_NREP_NIL.obj_len = 8; /*inistring dstr_596__CLASS_NREP_NIL*/ @@ -8823,7 +8823,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_601__CLASS_NREP_QUASIDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_601__CLASS_NREP_QUASIDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_601__CLASS_NREP_QUASIDATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_601__CLASS_NREP_QUASIDATA.obj_hash = 231560131; + cdat->dobj_601__CLASS_NREP_QUASIDATA.obj_hash = 959568338; cdat->dobj_601__CLASS_NREP_QUASIDATA.obj_len = 8; /*inistring dstr_602__CLASS_NREP_QUASI*/ @@ -8857,7 +8857,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_607__CLASS_NREP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_607__CLASS_NREP_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_607__CLASS_NREP_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_607__CLASS_NREP_DATA.obj_hash = 322472562; + cdat->dobj_607__CLASS_NREP_DATA.obj_hash = 417420327; cdat->dobj_607__CLASS_NREP_DATA.obj_len = 8; /*inistring dstr_608__CLASS_NREP_DATA*/ @@ -8891,7 +8891,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__NDATA_NAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_613__NDATA_NAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_613__NDATA_NAME.obj_num = 1; - cdat->dobj_613__NDATA_NAME.obj_hash = 565520194; + cdat->dobj_613__NDATA_NAME.obj_hash = 1057640759; cdat->dobj_613__NDATA_NAME.obj_len = 4; /*inistring dstr_614__NDATA_NAME*/ @@ -8917,7 +8917,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_617__NDATA_DISCRX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_617__NDATA_DISCRX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_617__NDATA_DISCRX.obj_num = 2; - cdat->dobj_617__NDATA_DISCRX.obj_hash = 157310023; + cdat->dobj_617__NDATA_DISCRX.obj_hash = 357862739; cdat->dobj_617__NDATA_DISCRX.obj_len = 4; /*inistring dstr_618__NDATA_DISCRX*/ @@ -8943,7 +8943,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_621__NDATA_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_621__NDATA_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__NDATA_RANK.obj_num = 3; - cdat->dobj_621__NDATA_RANK.obj_hash = 738804766; + cdat->dobj_621__NDATA_RANK.obj_hash = 1031333540; cdat->dobj_621__NDATA_RANK.obj_len = 4; /*inistring dstr_622__NDATA_RANK*/ @@ -8969,7 +8969,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__NDATA_LOCBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_625__NDATA_LOCBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__NDATA_LOCBIND.obj_num = 4; - cdat->dobj_625__NDATA_LOCBIND.obj_hash = 931356332; + cdat->dobj_625__NDATA_LOCBIND.obj_hash = 322472562; cdat->dobj_625__NDATA_LOCBIND.obj_len = 4; /*inistring dstr_626__NDATA_LOCBIND*/ @@ -8995,7 +8995,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__CLASS_NREP_DATAINSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__CLASS_NREP_DATAINSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_629__CLASS_NREP_DATAINSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_629__CLASS_NREP_DATAINSTANCE.obj_hash = 693206599; + cdat->dobj_629__CLASS_NREP_DATAINSTANCE.obj_hash = 341664097; cdat->dobj_629__CLASS_NREP_DATAINSTANCE.obj_len = 8; /*inistring dstr_630__CLASS_NREP_DATAI*/ @@ -9029,7 +9029,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_635__NINST_OBJNUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_635__NINST_OBJNUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_635__NINST_OBJNUM.obj_num = 5; - cdat->dobj_635__NINST_OBJNUM.obj_hash = 901431713; + cdat->dobj_635__NINST_OBJNUM.obj_hash = 79077219; cdat->dobj_635__NINST_OBJNUM.obj_len = 4; /*inistring dstr_636__NINST_OBJNUM*/ @@ -9055,7 +9055,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__NINST_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_639__NINST_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__NINST_PREDEF.obj_num = 6; - cdat->dobj_639__NINST_PREDEF.obj_hash = 674987604; + cdat->dobj_639__NINST_PREDEF.obj_hash = 1009128300; cdat->dobj_639__NINST_PREDEF.obj_len = 4; /*inistring dstr_640__NINST_PREDEF*/ @@ -9081,7 +9081,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__NINST_HASH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_643__NINST_HASH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_643__NINST_HASH.obj_num = 7; - cdat->dobj_643__NINST_HASH.obj_hash = 1002817717; + cdat->dobj_643__NINST_HASH.obj_hash = 299063779; cdat->dobj_643__NINST_HASH.obj_len = 4; /*inistring dstr_644__NINST_HASH*/ @@ -9107,7 +9107,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_647__NINST_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_647__NINST_SLOTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_647__NINST_SLOTS.obj_num = 8; - cdat->dobj_647__NINST_SLOTS.obj_hash = 415896673; + cdat->dobj_647__NINST_SLOTS.obj_hash = 693206599; cdat->dobj_647__NINST_SLOTS.obj_len = 4; /*inistring dstr_648__NINST_SLOTS*/ @@ -9133,7 +9133,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_651__CLASS_NREP_DATASTRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_651__CLASS_NREP_DATASTRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_651__CLASS_NREP_DATASTRING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_651__CLASS_NREP_DATASTRING.obj_hash = 417411422; + cdat->dobj_651__CLASS_NREP_DATASTRING.obj_hash = 301423082; cdat->dobj_651__CLASS_NREP_DATASTRING.obj_len = 8; /*inistring dstr_652__CLASS_NREP_DATAS*/ @@ -9167,7 +9167,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__NSTR_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_657__NSTR_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_657__NSTR_STRING.obj_num = 5; - cdat->dobj_657__NSTR_STRING.obj_hash = 897032090; + cdat->dobj_657__NSTR_STRING.obj_hash = 820422472; cdat->dobj_657__NSTR_STRING.obj_len = 4; /*inistring dstr_658__NSTR_STRING*/ @@ -9193,7 +9193,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_661__CLASS_NREP_DATABOXEDINTEGER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_661__CLASS_NREP_DATABOXEDINTEGER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_661__CLASS_NREP_DATABOXEDINTEGER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_661__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 501168493; + cdat->dobj_661__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 415896673; cdat->dobj_661__CLASS_NREP_DATABOXEDINTEGER.obj_len = 8; /*inistring dstr_662__CLASS_NREP_DATAB*/ @@ -9227,7 +9227,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__NBOXINT_NUM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_667__NBOXINT_NUM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_667__NBOXINT_NUM.obj_num = 5; - cdat->dobj_667__NBOXINT_NUM.obj_hash = 132803060; + cdat->dobj_667__NBOXINT_NUM.obj_hash = 564039685; cdat->dobj_667__NBOXINT_NUM.obj_len = 4; /*inistring dstr_668__NBOXINT_NUM*/ @@ -9253,7 +9253,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_671__CLASS_NREP_DATATUPLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_671__CLASS_NREP_DATATUPLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_671__CLASS_NREP_DATATUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_671__CLASS_NREP_DATATUPLE.obj_hash = 630907420; + cdat->dobj_671__CLASS_NREP_DATATUPLE.obj_hash = 897032090; cdat->dobj_671__CLASS_NREP_DATATUPLE.obj_len = 8; /*inistring dstr_672__CLASS_NREP_DATAT*/ @@ -9287,7 +9287,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_677__NTUP_COMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_677__NTUP_COMP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_677__NTUP_COMP.obj_num = 5; - cdat->dobj_677__NTUP_COMP.obj_hash = 766250183; + cdat->dobj_677__NTUP_COMP.obj_hash = 179919310; cdat->dobj_677__NTUP_COMP.obj_len = 4; /*inistring dstr_678__NTUP_COMP*/ @@ -9313,7 +9313,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_681__CLASS_NREP_DATASYMBOL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_681__CLASS_NREP_DATASYMBOL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_681__CLASS_NREP_DATASYMBOL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_681__CLASS_NREP_DATASYMBOL.obj_hash = 75225579; + cdat->dobj_681__CLASS_NREP_DATASYMBOL.obj_hash = 132803060; cdat->dobj_681__CLASS_NREP_DATASYMBOL.obj_len = 8; /*inistring dstr_682__CLASS_NREP_DATAS*/ @@ -9347,7 +9347,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_687__NDSY_NAMESTR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_687__NDSY_NAMESTR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_687__NDSY_NAMESTR.obj_num = 9; - cdat->dobj_687__NDSY_NAMESTR.obj_hash = 223142826; + cdat->dobj_687__NDSY_NAMESTR.obj_hash = 578358466; cdat->dobj_687__NDSY_NAMESTR.obj_len = 4; /*inistring dstr_688__NDSY_NAMESTR*/ @@ -9373,7 +9373,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_691__CLASS_NREP_DATAKEYWORD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_691__CLASS_NREP_DATAKEYWORD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_691__CLASS_NREP_DATAKEYWORD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_691__CLASS_NREP_DATAKEYWORD.obj_hash = 217578739; + cdat->dobj_691__CLASS_NREP_DATAKEYWORD.obj_hash = 766250183; cdat->dobj_691__CLASS_NREP_DATAKEYWORD.obj_len = 8; /*inistring dstr_692__CLASS_NREP_DATAK*/ @@ -9407,7 +9407,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_697__CLASS_NREP_DATAROUTINE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_697__CLASS_NREP_DATAROUTINE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_697__CLASS_NREP_DATAROUTINE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_697__CLASS_NREP_DATAROUTINE.obj_hash = 548544193; + cdat->dobj_697__CLASS_NREP_DATAROUTINE.obj_hash = 75225579; cdat->dobj_697__CLASS_NREP_DATAROUTINE.obj_len = 8; /*inistring dstr_698__CLASS_NREP_DATAR*/ @@ -9441,7 +9441,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_703__NDROU_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_703__NDROU_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_703__NDROU_PROC.obj_num = 5; - cdat->dobj_703__NDROU_PROC.obj_hash = 295579640; + cdat->dobj_703__NDROU_PROC.obj_hash = 223142826; cdat->dobj_703__NDROU_PROC.obj_len = 4; /*inistring dstr_704__NDROU_PROC*/ @@ -9467,7 +9467,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_707__CLASS_NREP_DATACLOSURE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_707__CLASS_NREP_DATACLOSURE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_707__CLASS_NREP_DATACLOSURE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_707__CLASS_NREP_DATACLOSURE.obj_hash = 631074723; + cdat->dobj_707__CLASS_NREP_DATACLOSURE.obj_hash = 217578739; cdat->dobj_707__CLASS_NREP_DATACLOSURE.obj_len = 8; /*inistring dstr_708__CLASS_NREP_DATAC*/ @@ -9501,7 +9501,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__NDCLO_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_713__NDCLO_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_713__NDCLO_PROC.obj_num = 5; - cdat->dobj_713__NDCLO_PROC.obj_hash = 973660868; + cdat->dobj_713__NDCLO_PROC.obj_hash = 83903230; cdat->dobj_713__NDCLO_PROC.obj_len = 4; /*inistring dstr_714__NDCLO_PROC*/ @@ -9527,7 +9527,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_717__NDCLO_CLOSV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_717__NDCLO_CLOSV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_717__NDCLO_CLOSV.obj_num = 6; - cdat->dobj_717__NDCLO_CLOSV.obj_hash = 577635203; + cdat->dobj_717__NDCLO_CLOSV.obj_hash = 260220896; cdat->dobj_717__NDCLO_CLOSV.obj_len = 4; /*inistring dstr_718__NDCLO_CLOSV*/ @@ -9553,7 +9553,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_721__CLASS_NREP_IMPORTEDVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_721__CLASS_NREP_IMPORTEDVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_721__CLASS_NREP_IMPORTEDVAL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_721__CLASS_NREP_IMPORTEDVAL.obj_hash = 106806648; + cdat->dobj_721__CLASS_NREP_IMPORTEDVAL.obj_hash = 890273648; cdat->dobj_721__CLASS_NREP_IMPORTEDVAL.obj_len = 8; /*inistring dstr_722__CLASS_NREP_IMPOR*/ @@ -9587,7 +9587,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_727__NIMPORT_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_727__NIMPORT_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_727__NIMPORT_SYMB.obj_num = 1; - cdat->dobj_727__NIMPORT_SYMB.obj_hash = 148265119; + cdat->dobj_727__NIMPORT_SYMB.obj_hash = 495088844; cdat->dobj_727__NIMPORT_SYMB.obj_len = 4; /*inistring dstr_728__NIMPORT_SYMB*/ @@ -9613,7 +9613,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_731__NIMPORT_SYDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_731__NIMPORT_SYDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_731__NIMPORT_SYDATA.obj_num = 2; - cdat->dobj_731__NIMPORT_SYDATA.obj_hash = 916600744; + cdat->dobj_731__NIMPORT_SYDATA.obj_hash = 162176231; cdat->dobj_731__NIMPORT_SYDATA.obj_len = 4; /*inistring dstr_732__NIMPORT_SYDATA*/ @@ -9639,7 +9639,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_735__CLASS_NREP_SYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_735__CLASS_NREP_SYMOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_735__CLASS_NREP_SYMOCC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_735__CLASS_NREP_SYMOCC.obj_hash = 776356595; + cdat->dobj_735__CLASS_NREP_SYMOCC.obj_hash = 321284514; cdat->dobj_735__CLASS_NREP_SYMOCC.obj_len = 8; /*inistring dstr_736__CLASS_NREP_SYMOC*/ @@ -9673,7 +9673,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_741__NOCC_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_741__NOCC_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_741__NOCC_SYMB.obj_num = 1; - cdat->dobj_741__NOCC_SYMB.obj_hash = 651592317; + cdat->dobj_741__NOCC_SYMB.obj_hash = 1072242645; cdat->dobj_741__NOCC_SYMB.obj_len = 4; /*inistring dstr_742__NOCC_SYMB*/ @@ -9699,7 +9699,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__NOCC_CTYP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_745__NOCC_CTYP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_745__NOCC_CTYP.obj_num = 2; - cdat->dobj_745__NOCC_CTYP.obj_hash = 543203124; + cdat->dobj_745__NOCC_CTYP.obj_hash = 580225075; cdat->dobj_745__NOCC_CTYP.obj_len = 4; /*inistring dstr_746__NOCC_CTYP*/ @@ -9725,7 +9725,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_749__NOCC_BIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_749__NOCC_BIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_749__NOCC_BIND.obj_num = 3; - cdat->dobj_749__NOCC_BIND.obj_hash = 446458057; + cdat->dobj_749__NOCC_BIND.obj_hash = 135625680; cdat->dobj_749__NOCC_BIND.obj_len = 4; /*inistring dstr_750__NOCC_BIND*/ @@ -9751,7 +9751,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_753__CLASS_NREP_LOCSYMOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_753__CLASS_NREP_LOCSYMOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_753__CLASS_NREP_LOCSYMOCC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_753__CLASS_NREP_LOCSYMOCC.obj_hash = 934844520; + cdat->dobj_753__CLASS_NREP_LOCSYMOCC.obj_hash = 136732584; cdat->dobj_753__CLASS_NREP_LOCSYMOCC.obj_len = 8; /*inistring dstr_754__CLASS_NREP_LOCSY*/ @@ -9785,7 +9785,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_759__CLASS_NREP_CLOSEDOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_759__CLASS_NREP_CLOSEDOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_759__CLASS_NREP_CLOSEDOCC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_759__CLASS_NREP_CLOSEDOCC.obj_hash = 528765489; + cdat->dobj_759__CLASS_NREP_CLOSEDOCC.obj_hash = 543203124; cdat->dobj_759__CLASS_NREP_CLOSEDOCC.obj_len = 8; /*inistring dstr_760__CLASS_NREP_CLOSE*/ @@ -9819,7 +9819,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__NCLOC_PROCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_765__NCLOC_PROCS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_765__NCLOC_PROCS.obj_num = 4; - cdat->dobj_765__NCLOC_PROCS.obj_hash = 194795972; + cdat->dobj_765__NCLOC_PROCS.obj_hash = 446458057; cdat->dobj_765__NCLOC_PROCS.obj_len = 4; /*inistring dstr_766__NCLOC_PROCS*/ @@ -9845,7 +9845,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_769__CLASS_NREP_CONSTOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_769__CLASS_NREP_CONSTOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_769__CLASS_NREP_CONSTOCC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_769__CLASS_NREP_CONSTOCC.obj_hash = 512130846; + cdat->dobj_769__CLASS_NREP_CONSTOCC.obj_hash = 934844520; cdat->dobj_769__CLASS_NREP_CONSTOCC.obj_len = 8; /*inistring dstr_770__CLASS_NREP_CONST*/ @@ -9879,7 +9879,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__CLASS_NREP_QUASICONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_775__CLASS_NREP_QUASICONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_775__CLASS_NREP_QUASICONSTANT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_775__CLASS_NREP_QUASICONSTANT.obj_hash = 546248791; + cdat->dobj_775__CLASS_NREP_QUASICONSTANT.obj_hash = 528765489; cdat->dobj_775__CLASS_NREP_QUASICONSTANT.obj_len = 8; /*inistring dstr_776__CLASS_NREP_QUASI*/ @@ -9913,7 +9913,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_781__NCONST_SVAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_781__NCONST_SVAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_781__NCONST_SVAL.obj_num = 1; - cdat->dobj_781__NCONST_SVAL.obj_hash = 740421032; + cdat->dobj_781__NCONST_SVAL.obj_hash = 194795972; cdat->dobj_781__NCONST_SVAL.obj_len = 4; /*inistring dstr_782__NCONST_SVAL*/ @@ -9939,7 +9939,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_785__NCONST_PROC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_785__NCONST_PROC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_785__NCONST_PROC.obj_num = 2; - cdat->dobj_785__NCONST_PROC.obj_hash = 542706020; + cdat->dobj_785__NCONST_PROC.obj_hash = 475917023; cdat->dobj_785__NCONST_PROC.obj_len = 4; /*inistring dstr_786__NCONST_PROC*/ @@ -9965,7 +9965,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__NCONST_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_789__NCONST_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_789__NCONST_DATA.obj_num = 3; - cdat->dobj_789__NCONST_DATA.obj_hash = 394774801; + cdat->dobj_789__NCONST_DATA.obj_hash = 66217515; cdat->dobj_789__NCONST_DATA.obj_len = 4; /*inistring dstr_790__NCONST_DATA*/ @@ -9991,7 +9991,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_793__CLASS_NREP_CONSTANT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_793__CLASS_NREP_CONSTANT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_793__CLASS_NREP_CONSTANT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_793__CLASS_NREP_CONSTANT.obj_hash = 484933747; + cdat->dobj_793__CLASS_NREP_CONSTANT.obj_hash = 467056010; cdat->dobj_793__CLASS_NREP_CONSTANT.obj_len = 8; /*inistring dstr_794__CLASS_NREP_CONST*/ @@ -10025,7 +10025,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 140788892; + cdat->dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 542706020; cdat->dobj_799__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_800__CLASS_NREP_QUASI*/ @@ -10059,7 +10059,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_805__NQCMEC_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_805__NQCMEC_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_805__NQCMEC_COMMENT.obj_num = 4; - cdat->dobj_805__NQCMEC_COMMENT.obj_hash = 1051730600; + cdat->dobj_805__NQCMEC_COMMENT.obj_hash = 394774801; cdat->dobj_805__NQCMEC_COMMENT.obj_len = 4; /*inistring dstr_806__NQCMEC_COMMENT*/ @@ -10085,7 +10085,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 956099319; + cdat->dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 484933747; cdat->dobj_809__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_810__CLASS_NREP_QUASI*/ @@ -10119,7 +10119,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 21017713; + cdat->dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 140788892; cdat->dobj_815__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_816__CLASS_NREP_QUASI*/ @@ -10153,7 +10153,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 646588850; + cdat->dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 757076436; cdat->dobj_821__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_822__CLASS_NREP_QUASI*/ @@ -10187,7 +10187,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827__CLASS_NREP_FIELDACC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_827__CLASS_NREP_FIELDACC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_827__CLASS_NREP_FIELDACC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_827__CLASS_NREP_FIELDACC.obj_hash = 186922652; + cdat->dobj_827__CLASS_NREP_FIELDACC.obj_hash = 987320608; cdat->dobj_827__CLASS_NREP_FIELDACC.obj_len = 8; /*inistring dstr_828__CLASS_NREP_FIELD*/ @@ -10221,7 +10221,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_833__NACCF_OBJ", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_833__NACCF_OBJ.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_833__NACCF_OBJ.obj_num = 1; - cdat->dobj_833__NACCF_OBJ.obj_hash = 48123502; + cdat->dobj_833__NACCF_OBJ.obj_hash = 21017713; cdat->dobj_833__NACCF_OBJ.obj_len = 4; /*inistring dstr_834__NACCF_OBJ*/ @@ -10247,7 +10247,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_837__NACCF_FLD", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_837__NACCF_FLD.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_837__NACCF_FLD.obj_num = 2; - cdat->dobj_837__NACCF_FLD.obj_hash = 322613003; + cdat->dobj_837__NACCF_FLD.obj_hash = 274948444; cdat->dobj_837__NACCF_FLD.obj_len = 4; /*inistring dstr_838__NACCF_FLD*/ @@ -10273,7 +10273,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841__CLASS_NREP_MULTACC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_841__CLASS_NREP_MULTACC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_841__CLASS_NREP_MULTACC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_841__CLASS_NREP_MULTACC.obj_hash = 1017620740; + cdat->dobj_841__CLASS_NREP_MULTACC.obj_hash = 401990588; cdat->dobj_841__CLASS_NREP_MULTACC.obj_len = 8; /*inistring dstr_842__CLASS_NREP_MULTA*/ @@ -10307,7 +10307,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_847__NACCM_MUL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_847__NACCM_MUL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_847__NACCM_MUL.obj_num = 1; - cdat->dobj_847__NACCM_MUL.obj_hash = 680895538; + cdat->dobj_847__NACCM_MUL.obj_hash = 840254727; cdat->dobj_847__NACCM_MUL.obj_len = 4; /*inistring dstr_848__NACCM_MUL*/ @@ -10333,7 +10333,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_851__NACCM_IX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_851__NACCM_IX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_851__NACCM_IX.obj_num = 2; - cdat->dobj_851__NACCM_IX.obj_hash = 593360550; + cdat->dobj_851__NACCM_IX.obj_hash = 954633620; cdat->dobj_851__NACCM_IX.obj_len = 4; /*inistring dstr_852__NACCM_IX*/ @@ -10359,7 +10359,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_855__CLASS_NREP_STORE_PREDEFINED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_855__CLASS_NREP_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_855__CLASS_NREP_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_855__CLASS_NREP_STORE_PREDEFINED.obj_hash = 37876250; + cdat->dobj_855__CLASS_NREP_STORE_PREDEFINED.obj_hash = 460618886; cdat->dobj_855__CLASS_NREP_STORE_PREDEFINED.obj_len = 8; /*inistring dstr_856__CLASS_NREP_STORE*/ @@ -10393,7 +10393,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_861__NSTPD_PREDEF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_861__NSTPD_PREDEF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_861__NSTPD_PREDEF.obj_num = 1; - cdat->dobj_861__NSTPD_PREDEF.obj_hash = 65329088; + cdat->dobj_861__NSTPD_PREDEF.obj_hash = 319099729; cdat->dobj_861__NSTPD_PREDEF.obj_len = 4; /*inistring dstr_862__NSTPD_PREDEF*/ @@ -10419,7 +10419,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_865__NSTPD_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_865__NSTPD_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_865__NSTPD_VALUE.obj_num = 2; - cdat->dobj_865__NSTPD_VALUE.obj_hash = 781656251; + cdat->dobj_865__NSTPD_VALUE.obj_hash = 944322562; cdat->dobj_865__NSTPD_VALUE.obj_len = 4; /*inistring dstr_866__NSTPD_VALUE*/ @@ -10445,7 +10445,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 283181191; + cdat->dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 329928527; cdat->dobj_869__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_870__CLASS_NREP_UPDAT*/ @@ -10479,7 +10479,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_875__NUCMEB_EXPR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_875__NUCMEB_EXPR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_875__NUCMEB_EXPR.obj_num = 1; - cdat->dobj_875__NUCMEB_EXPR.obj_hash = 726114211; + cdat->dobj_875__NUCMEB_EXPR.obj_hash = 106586601; cdat->dobj_875__NUCMEB_EXPR.obj_len = 4; /*inistring dstr_876__NUCMEB_EXPR*/ @@ -10505,7 +10505,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_879__NCUMEB_COMMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_879__NCUMEB_COMMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_879__NCUMEB_COMMENT.obj_num = 2; - cdat->dobj_879__NCUMEB_COMMENT.obj_hash = 839754152; + cdat->dobj_879__NCUMEB_COMMENT.obj_hash = 784043112; cdat->dobj_879__NCUMEB_COMMENT.obj_len = 4; /*inistring dstr_880__NCUMEB_COMMENT*/ @@ -10530,7 +10530,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_883__HAS_EXTRA_WARNINGS", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_883__HAS_EXTRA_WARNINGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_883__HAS_EXTRA_WARNINGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_883__HAS_EXTRA_WARNINGS.obj_hash = 287705767; + cdat->dobj_883__HAS_EXTRA_WARNINGS.obj_hash = 68610939; cdat->dobj_883__HAS_EXTRA_WARNINGS.obj_len = 5; /*inimult dtup_884__HAS_EXTRA_WARNINGS*/ @@ -11791,7 +11791,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1094__LAST_GLOBPREDEF_INDEX", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1094__LAST_GLOBPREDEF_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1094__LAST_GLOBPREDEF_INDEX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_1094__LAST_GLOBPREDEF_INDEX.obj_hash = 673893018; + cdat->dobj_1094__LAST_GLOBPREDEF_INDEX.obj_hash = 437674361; cdat->dobj_1094__LAST_GLOBPREDEF_INDEX.obj_len = 5; /*inimult dtup_1095__LAST_GLOBPREDEF_INDEX*/ @@ -11864,7 +11864,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1107__NORMAL_EXP", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1107__NORMAL_EXP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1107__NORMAL_EXP.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1107__NORMAL_EXP.obj_hash = 728375194; + cdat->dobj_1107__NORMAL_EXP.obj_hash = 941242715; cdat->dobj_1107__NORMAL_EXP.obj_len = 4; /*inistring dstr_1108__NORMAL_EXP*/ @@ -11985,7 +11985,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1127__GET_CTYPE", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1127__GET_CTYPE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1127__GET_CTYPE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1127__GET_CTYPE.obj_hash = 1064044335; + cdat->dobj_1127__GET_CTYPE.obj_hash = 304305587; cdat->dobj_1127__GET_CTYPE.obj_len = 4; /*inistring dstr_1128__GET_CTYPE*/ @@ -12010,7 +12010,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1131__COMPILE_OBJ", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1131__COMPILE_OBJ", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1131__COMPILE_OBJ.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1131__COMPILE_OBJ.obj_hash = 1047318556; + cdat->dobj_1131__COMPILE_OBJ.obj_hash = 1064044335; cdat->dobj_1131__COMPILE_OBJ.obj_len = 4; /*inistring dstr_1132__COMPILE_OBJ*/ @@ -12239,7 +12239,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1168", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1168.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1168.obj_num = 0; - cdat->dobj_1168.obj_hash = 705114665; + cdat->dobj_1168.obj_hash = 467268930; cdat->dobj_1168.obj_len = 2; /*iniobj dsym_1169__ENV*/ @@ -12261,7 +12261,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1171", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1171.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1171.obj_num = 1; - cdat->dobj_1171.obj_hash = 308642023; + cdat->dobj_1171.obj_hash = 705114665; cdat->dobj_1171.obj_len = 2; /*iniobj dsym_1172__NCX*/ @@ -12283,7 +12283,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1174", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1174.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1174.obj_num = 2; - cdat->dobj_1174.obj_hash = 272446424; + cdat->dobj_1174.obj_hash = 308642023; cdat->dobj_1174.obj_len = 2; /*iniobj dsym_1175__PROCS*/ @@ -12305,7 +12305,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1177", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1177.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1177.obj_num = 3; - cdat->dobj_1177.obj_hash = 22503393; + cdat->dobj_1177.obj_hash = 272446424; cdat->dobj_1177.obj_len = 2; /*iniobj dsym_1178__PSLOC*/ @@ -12327,7 +12327,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1180", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1180.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1180.obj_num = 4; - cdat->dobj_1180.obj_hash = 47965103; + cdat->dobj_1180.obj_hash = 22503393; cdat->dobj_1180.obj_len = 2; /*inimult dtup_1181__NORMALIZE_BINDING*/ @@ -12340,7 +12340,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1182__NORMALIZE_BINDING", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1182__NORMALIZE_BINDING", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1182__NORMALIZE_BINDING.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1182__NORMALIZE_BINDING.obj_hash = 355649737; + cdat->dobj_1182__NORMALIZE_BINDING.obj_hash = 51046060; cdat->dobj_1182__NORMALIZE_BINDING.obj_len = 4; /*inistring dstr_1183__NORMALIZE_BINDIN*/ @@ -13944,7 +13944,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1442", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1442.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1442.obj_num = 0; - cdat->dobj_1442.obj_hash = 609823358; + cdat->dobj_1442.obj_hash = 844924541; cdat->dobj_1442.obj_len = 2; /*iniobj dsym_1443__SYMB*/ @@ -13966,7 +13966,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1445", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1445.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1445.obj_num = 1; - cdat->dobj_1445.obj_hash = 308970349; + cdat->dobj_1445.obj_hash = 130646420; cdat->dobj_1445.obj_len = 2; /*^iniobj*/ @@ -13976,7 +13976,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1446", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1446.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1446.obj_num = 2; - cdat->dobj_1446.obj_hash = 608418384; + cdat->dobj_1446.obj_hash = 308970349; cdat->dobj_1446.obj_len = 2; /*iniobj dsym_1447__SLOC*/ @@ -13998,7 +13998,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1449", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1449.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1449.obj_num = 3; - cdat->dobj_1449.obj_hash = 407917307; + cdat->dobj_1449.obj_hash = 393130037; cdat->dobj_1449.obj_len = 2; /*inimult dtup_1450__PREPARE_CONSTRUCTOR_BINDING*/ @@ -14011,7 +14011,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1451__PREPARE_CONSTRUCTOR_BINDING", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1451__PREPARE_CONSTRUCTOR_BINDING", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1451__PREPARE_CONSTRUCTOR_BINDING.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1451__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 904607334; + cdat->dobj_1451__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 1052159136; cdat->dobj_1451__PREPARE_CONSTRUCTOR_BINDING.obj_len = 4; /*inistring dstr_1452__PREPARE_CONSTRUC*/ @@ -14061,7 +14061,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1459", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1459.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1459.obj_num = 0; - cdat->dobj_1459.obj_hash = 320721747; + cdat->dobj_1459.obj_hash = 869801641; cdat->dobj_1459.obj_len = 2; /*^iniobj*/ @@ -14071,7 +14071,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1460", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1460.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1460.obj_num = 1; - cdat->dobj_1460.obj_hash = 475936924; + cdat->dobj_1460.obj_hash = 320721747; cdat->dobj_1460.obj_len = 2; /*iniobj dsym_1461__CBIND*/ @@ -14093,7 +14093,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1463", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1463.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1463.obj_num = 2; - cdat->dobj_1463.obj_hash = 630091247; + cdat->dobj_1463.obj_hash = 936335028; cdat->dobj_1463.obj_len = 2; /*^iniobj*/ @@ -14103,7 +14103,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1464", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1464.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1464.obj_num = 3; - cdat->dobj_1464.obj_hash = 23245933; + cdat->dobj_1464.obj_hash = 630091247; cdat->dobj_1464.obj_len = 2; /*^iniobj*/ @@ -14113,7 +14113,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1465", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1465.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1465.obj_num = 4; - cdat->dobj_1465.obj_hash = 928108064; + cdat->dobj_1465.obj_hash = 387123294; cdat->dobj_1465.obj_len = 2; /*^iniobj*/ @@ -14123,7 +14123,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1466", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1466.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1466.obj_num = 5; - cdat->dobj_1466.obj_hash = 506517057; + cdat->dobj_1466.obj_hash = 23245933; cdat->dobj_1466.obj_len = 2; /*inimult dtup_1467__NORMAL_LETREC_CONSTRUCTIVE*/ @@ -14136,7 +14136,7 @@ static void initialize_module_meltdata_warmelt_normal (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1468__NORMAL_LETREC_CONSTRUCTIVE", melt_magic_discr (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1468__NORMAL_LETREC_CONSTRUCTIVE", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V16*/ meltfptr[15]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1468__NORMAL_LETREC_CONSTRUCTIVE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ meltfptr[15]); - cdat->dobj_1468__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 697783678; + cdat->dobj_1468__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 420678356; cdat->dobj_1468__NORMAL_LETREC_CONSTRUCTIVE.obj_len = 4; /*inistring dstr_1469__NORMAL_LETREC_CO*/ @@ -15771,7 +15771,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -147; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -1258; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_normal; /**COMMENT: get previous environment **/; @@ -54763,7 +54763,7 @@ static void forward_or_mark_module_start_frame_warmelt_normal (struct callframe_ { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -147); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -1258); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_normal forwarding %d pointers in frame %p", 1995, (void*) framptr_); for (ix = 0; ix < 1995; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-normatch-0+02.c b/gcc/melt/generated/warmelt-normatch-0+02.c index 0aae1ac3b74..3e26bb49f3e 100644 --- a/gcc/melt/generated/warmelt-normatch-0+02.c +++ b/gcc/melt/generated/warmelt-normatch-0+02.c @@ -1715,7 +1715,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /38fe6576 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /8c2b30 checkpair", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.CBIND__V49*/ meltfptr[48]))->hd = (melt_ptr_t) (/*_.CBIND__V41*/ meltfptr[40]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normatch-0+03.c b/gcc/melt/generated/warmelt-normatch-0+03.c index 23ecef979aa..6a23e7ee1b6 100644 --- a/gcc/melt/generated/warmelt-normatch-0+03.c +++ b/gcc/melt/generated/warmelt-normatch-0+03.c @@ -22761,12 +22761,12 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2c17c598 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /d6a2824 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))->hd = (melt_ptr_t) (/*_.NSETFLAG__V18*/ meltfptr[17]); ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /137a8418 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /129b06f7 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NSETFLAG__V23*/ meltfptr[22]))->tl = (meltpair_ptr_t) (/*_.NJUMP__V24*/ meltfptr[23]); ; /*^touch*/ @@ -22774,7 +22774,7 @@ lab_endgetargs:; ; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /1dd43f7f checkpair", melt_magic_discr((melt_ptr_t)(/*_.NJUMP__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /1bcf59d0 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NJUMP__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NJUMP__V24*/ meltfptr[23]))->hd = (melt_ptr_t) (/*_.NJUMP__V20*/ meltfptr[19]); ; /*^touch*/ @@ -23276,12 +23276,12 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2bb370f9 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /122ce9c3 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))->hd = (melt_ptr_t) (/*_.NSETFLAG__V19*/ meltfptr[18]); ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /38b3271e checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /33aefa11 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NSETFLAG__V24*/ meltfptr[23]))->tl = (meltpair_ptr_t) (/*_.NJUMP__V25*/ meltfptr[24]); ; /*^touch*/ @@ -23289,7 +23289,7 @@ lab_endgetargs:; ; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /2826eba6 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NJUMP__V25*/ meltfptr[24]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /6fbb964 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NJUMP__V25*/ meltfptr[24]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NJUMP__V25*/ meltfptr[24]))->hd = (melt_ptr_t) (/*_.NJUMP__V21*/ meltfptr[20]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normatch-0+04.c b/gcc/melt/generated/warmelt-normatch-0+04.c index 42929de2b08..e10339b24e9 100644 --- a/gcc/melt/generated/warmelt-normatch-0+04.c +++ b/gcc/melt/generated/warmelt-normatch-0+04.c @@ -10220,7 +10220,7 @@ lab_endgetargs:; /*^putpairhead*/ /*putpairhead*/ - melt_assertmsg("putpairhead /1d956c39 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NRESBIND__V174*/ meltfptr[173]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairhead /2eb725c5 checkpair", melt_magic_discr((melt_ptr_t)(/*_.NRESBIND__V174*/ meltfptr[173]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.NRESBIND__V174*/ meltfptr[173]))->hd = (melt_ptr_t) (/*_.NRESBIND__V147*/ meltfptr[82]); ; /*^touch*/ diff --git a/gcc/melt/generated/warmelt-normatch-0.c b/gcc/melt/generated/warmelt-normatch-0.c index a2f13f7fc09..94aa4d27ede 100644 --- a/gcc/melt/generated/warmelt-normatch-0.c +++ b/gcc/melt/generated/warmelt-normatch-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -2042,7 +2042,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_normatch iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2144); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -2828); struct cdata_st { struct MELT_OBJECT_STRUCT(3) dsym_1__CLASS_PATTERN_CONTEXT; @@ -3296,7 +3296,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_5__CLASS_PATTERN_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__CLASS_PATTERN_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_hash = 183870709; + cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_hash = 990458358; cdat->dobj_5__CLASS_PATTERN_CONTEXT.obj_len = 8; /*inistring dstr_6__CLASS_PATTERN_CO*/ @@ -3330,7 +3330,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_11__PCTN_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_11__PCTN_NORMCTXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_11__PCTN_NORMCTXT.obj_num = 0; - cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 532840015; + cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 1036346326; cdat->dobj_11__PCTN_NORMCTXT.obj_len = 4; /*inistring dstr_12__PCTN_NORMCTXT*/ @@ -3356,7 +3356,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_15__PCTN_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__PCTN_SRC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_15__PCTN_SRC.obj_num = 1; - cdat->dobj_15__PCTN_SRC.obj_hash = 198849787; + cdat->dobj_15__PCTN_SRC.obj_hash = 620207068; cdat->dobj_15__PCTN_SRC.obj_len = 4; /*inistring dstr_16__PCTN_SRC*/ @@ -3382,7 +3382,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_19__PCTN_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_19__PCTN_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_19__PCTN_ENV.obj_num = 2; - cdat->dobj_19__PCTN_ENV.obj_hash = 217170605; + cdat->dobj_19__PCTN_ENV.obj_hash = 1026516144; cdat->dobj_19__PCTN_ENV.obj_len = 4; /*inistring dstr_20__PCTN_ENV*/ @@ -3408,7 +3408,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_23__PCTN_MAPATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_23__PCTN_MAPATVAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_23__PCTN_MAPATVAR.obj_num = 3; - cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 848963019; + cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 183870709; cdat->dobj_23__PCTN_MAPATVAR.obj_len = 4; /*inistring dstr_24__PCTN_MAPATVAR*/ @@ -3434,7 +3434,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_27__PCTN_MAPATCST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_27__PCTN_MAPATCST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_27__PCTN_MAPATCST.obj_num = 4; - cdat->dobj_27__PCTN_MAPATCST.obj_hash = 993650945; + cdat->dobj_27__PCTN_MAPATCST.obj_hash = 532840015; cdat->dobj_27__PCTN_MAPATCST.obj_len = 4; /*inistring dstr_28__PCTN_MAPATCST*/ @@ -3460,7 +3460,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_31__PCTN_MAPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_31__PCTN_MAPOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_31__PCTN_MAPOR.obj_num = 5; - cdat->dobj_31__PCTN_MAPOR.obj_hash = 801083238; + cdat->dobj_31__PCTN_MAPOR.obj_hash = 198849787; cdat->dobj_31__PCTN_MAPOR.obj_len = 4; /*inistring dstr_32__PCTN_MAPOR*/ @@ -3486,7 +3486,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_35__PCTN_BINDLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35__PCTN_BINDLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_35__PCTN_BINDLIST.obj_num = 6; - cdat->dobj_35__PCTN_BINDLIST.obj_hash = 331845268; + cdat->dobj_35__PCTN_BINDLIST.obj_hash = 217170605; cdat->dobj_35__PCTN_BINDLIST.obj_len = 4; /*inistring dstr_36__PCTN_BINDLIST*/ @@ -3512,7 +3512,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_39__PCTN_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_39__PCTN_STUFFMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_39__PCTN_STUFFMAP.obj_num = 7; - cdat->dobj_39__PCTN_STUFFMAP.obj_hash = 769823250; + cdat->dobj_39__PCTN_STUFFMAP.obj_hash = 848963019; cdat->dobj_39__PCTN_STUFFMAP.obj_len = 4; /*inistring dstr_40__PCTN_STUFFMAP*/ @@ -3538,7 +3538,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_43__PCTN_PVARLOCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_43__PCTN_PVARLOCMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_43__PCTN_PVARLOCMAP.obj_num = 8; - cdat->dobj_43__PCTN_PVARLOCMAP.obj_hash = 78082740; + cdat->dobj_43__PCTN_PVARLOCMAP.obj_hash = 993650945; cdat->dobj_43__PCTN_PVARLOCMAP.obj_len = 4; /*inistring dstr_44__PCTN_PVARLOCMAP*/ @@ -3564,7 +3564,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_47__PCTN_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_47__PCTN_TESTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_47__PCTN_TESTS.obj_num = 9; - cdat->dobj_47__PCTN_TESTS.obj_hash = 210329758; + cdat->dobj_47__PCTN_TESTS.obj_hash = 801083238; cdat->dobj_47__PCTN_TESTS.obj_len = 4; /*inistring dstr_48__PCTN_TESTS*/ @@ -3590,7 +3590,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_51__PCTN_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_51__PCTN_VARHANDLERS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_51__PCTN_VARHANDLERS.obj_num = 10; - cdat->dobj_51__PCTN_VARHANDLERS.obj_hash = 668024769; + cdat->dobj_51__PCTN_VARHANDLERS.obj_hash = 331845268; cdat->dobj_51__PCTN_VARHANDLERS.obj_len = 4; /*inistring dstr_52__PCTN_VARHANDLERS*/ @@ -3627,7 +3627,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_57__SCAN_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_57__SCAN_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_57__SCAN_PATTERN.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_57__SCAN_PATTERN.obj_hash = 653301271; + cdat->dobj_57__SCAN_PATTERN.obj_hash = 956781580; cdat->dobj_57__SCAN_PATTERN.obj_len = 4; /*inistring dstr_58__SCAN_PATTERN*/ @@ -4067,7 +4067,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_130__NORMAL_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_130__NORMAL_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_130__NORMAL_PATTERN.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_130__NORMAL_PATTERN.obj_hash = 1053560952; + cdat->dobj_130__NORMAL_PATTERN.obj_hash = 329651031; cdat->dobj_130__NORMAL_PATTERN.obj_len = 4; /*inistring dstr_131__NORMAL_PATTERN*/ @@ -4093,7 +4093,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_134__CLASS_NORMAL_OR_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_hash = 29312217; + cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_hash = 365986169; cdat->dobj_134__CLASS_NORMAL_OR_VARIABLE.obj_len = 8; /*inistring dstr_135__CLASS_NORMAL_OR_*/ @@ -4127,7 +4127,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_140__NORVAR_NOREXP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_140__NORVAR_NOREXP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_140__NORVAR_NOREXP.obj_num = 0; - cdat->dobj_140__NORVAR_NOREXP.obj_hash = 696460260; + cdat->dobj_140__NORVAR_NOREXP.obj_hash = 765770617; cdat->dobj_140__NORVAR_NOREXP.obj_len = 4; /*inistring dstr_141__NORVAR_NOREXP*/ @@ -4153,7 +4153,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_144__NORVAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_144__NORVAR_LOCSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_144__NORVAR_LOCSYM.obj_num = 1; - cdat->dobj_144__NORVAR_LOCSYM.obj_hash = 518163675; + cdat->dobj_144__NORVAR_LOCSYM.obj_hash = 64388962; cdat->dobj_144__NORVAR_LOCSYM.obj_len = 4; /*inistring dstr_145__NORVAR_LOCSYM*/ @@ -4179,7 +4179,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_148__NORVAR_PATVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_148__NORVAR_PATVAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_148__NORVAR_PATVAR.obj_num = 2; - cdat->dobj_148__NORVAR_PATVAR.obj_hash = 43366624; + cdat->dobj_148__NORVAR_PATVAR.obj_hash = 560174603; cdat->dobj_148__NORVAR_PATVAR.obj_len = 4; /*inistring dstr_149__NORVAR_PATVAR*/ @@ -4205,7 +4205,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_152__NORVAR_NREPOR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_152__NORVAR_NREPOR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_152__NORVAR_NREPOR.obj_num = 3; - cdat->dobj_152__NORVAR_NREPOR.obj_hash = 65142259; + cdat->dobj_152__NORVAR_NREPOR.obj_hash = 29312217; cdat->dobj_152__NORVAR_NREPOR.obj_len = 4; /*inistring dstr_153__NORVAR_NREPOR*/ @@ -4243,7 +4243,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_158__CLASS_NORMTESTER_ANY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_158__CLASS_NORMTESTER_ANY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_hash = 61112902; + cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_hash = 382320532; cdat->dobj_158__CLASS_NORMTESTER_ANY.obj_len = 8; /*inistring dstr_159__CLASS_NORMTESTER*/ @@ -4277,7 +4277,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_164__NTEST_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_164__NTEST_MATCHED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_164__NTEST_MATCHED.obj_num = 1; - cdat->dobj_164__NTEST_MATCHED.obj_hash = 859942946; + cdat->dobj_164__NTEST_MATCHED.obj_hash = 325510660; cdat->dobj_164__NTEST_MATCHED.obj_len = 4; /*inistring dstr_165__NTEST_MATCHED*/ @@ -4303,7 +4303,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_168__NTEST_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_168__NTEST_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_168__NTEST_THEN.obj_num = 2; - cdat->dobj_168__NTEST_THEN.obj_hash = 1037487910; + cdat->dobj_168__NTEST_THEN.obj_hash = 7180016; cdat->dobj_168__NTEST_THEN.obj_len = 4; /*inistring dstr_169__NTEST_THEN*/ @@ -4329,7 +4329,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_172__NTEST_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_172__NTEST_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_172__NTEST_ELSE.obj_num = 3; - cdat->dobj_172__NTEST_ELSE.obj_hash = 542641408; + cdat->dobj_172__NTEST_ELSE.obj_hash = 175137550; cdat->dobj_172__NTEST_ELSE.obj_len = 4; /*inistring dstr_173__NTEST_ELSE*/ @@ -4355,7 +4355,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_176__NTEST_NORMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_176__NTEST_NORMATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_176__NTEST_NORMATCH.obj_num = 4; - cdat->dobj_176__NTEST_NORMATCH.obj_hash = 724487693; + cdat->dobj_176__NTEST_NORMATCH.obj_hash = 61112902; cdat->dobj_176__NTEST_NORMATCH.obj_len = 4; /*inistring dstr_177__NTEST_NORMATCH*/ @@ -4381,7 +4381,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_180__NTEST_LOCCLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_180__NTEST_LOCCLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_180__NTEST_LOCCLIST.obj_num = 5; - cdat->dobj_180__NTEST_LOCCLIST.obj_hash = 569013335; + cdat->dobj_180__NTEST_LOCCLIST.obj_hash = 859942946; cdat->dobj_180__NTEST_LOCCLIST.obj_len = 4; /*inistring dstr_181__NTEST_LOCCLIST*/ @@ -4407,7 +4407,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_184__NTEST_COMEFROM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_184__NTEST_COMEFROM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_184__NTEST_COMEFROM.obj_num = 6; - cdat->dobj_184__NTEST_COMEFROM.obj_hash = 426636500; + cdat->dobj_184__NTEST_COMEFROM.obj_hash = 1037487910; cdat->dobj_184__NTEST_COMEFROM.obj_len = 4; /*inistring dstr_185__NTEST_COMEFROM*/ @@ -4433,7 +4433,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_188__CLASS_NORMTESTER_SUCCESS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_hash = 963032322; + cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_hash = 823977936; cdat->dobj_188__CLASS_NORMTESTER_SUCCESS.obj_len = 8; /*inistring dstr_189__CLASS_NORMTESTER*/ @@ -4467,7 +4467,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_194__NTSUCCESS_DO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_194__NTSUCCESS_DO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_194__NTSUCCESS_DO.obj_num = 7; - cdat->dobj_194__NTSUCCESS_DO.obj_hash = 849835930; + cdat->dobj_194__NTSUCCESS_DO.obj_hash = 305544527; cdat->dobj_194__NTSUCCESS_DO.obj_len = 4; /*inistring dstr_195__NTSUCCESS_DO*/ @@ -4493,7 +4493,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_198__CLASS_NORMTESTER_OR_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_hash = 39523593; + cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_hash = 426636500; cdat->dobj_198__CLASS_NORMTESTER_OR_CLEAR.obj_len = 8; /*inistring dstr_199__CLASS_NORMTESTER*/ @@ -4527,7 +4527,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_204__NTORCLEAR_LOCSYM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_204__NTORCLEAR_LOCSYM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_204__NTORCLEAR_LOCSYM.obj_num = 7; - cdat->dobj_204__NTORCLEAR_LOCSYM.obj_hash = 259967141; + cdat->dobj_204__NTORCLEAR_LOCSYM.obj_hash = 550270276; cdat->dobj_204__NTORCLEAR_LOCSYM.obj_len = 4; /*inistring dstr_205__NTORCLEAR_LOCSYM*/ @@ -4553,7 +4553,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_hash = 601456680; + cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_hash = 849835930; cdat->dobj_208__CLASS_NORMTESTER_OR_INITIAL_CLEAR.obj_len = 8; /*inistring dstr_209__CLASS_NORMTESTER*/ @@ -4587,7 +4587,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_214__CLASS_NORMTESTER_OR_TRANSMIT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_hash = 285969083; + cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_hash = 39523593; cdat->dobj_214__CLASS_NORMTESTER_OR_TRANSMIT.obj_len = 8; /*inistring dstr_215__CLASS_NORMTESTER*/ @@ -4621,7 +4621,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_220__NTORTRANSMIT_DST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_220__NTORTRANSMIT_DST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_220__NTORTRANSMIT_DST.obj_num = 7; - cdat->dobj_220__NTORTRANSMIT_DST.obj_hash = 302318823; + cdat->dobj_220__NTORTRANSMIT_DST.obj_hash = 259967141; cdat->dobj_220__NTORTRANSMIT_DST.obj_len = 4; /*inistring dstr_221__NTORTRANSMIT_DST*/ @@ -4647,7 +4647,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_224__NTORTRANSMIT_SRC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_224__NTORTRANSMIT_SRC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_224__NTORTRANSMIT_SRC.obj_num = 8; - cdat->dobj_224__NTORTRANSMIT_SRC.obj_hash = 598244281; + cdat->dobj_224__NTORTRANSMIT_SRC.obj_hash = 558221159; cdat->dobj_224__NTORTRANSMIT_SRC.obj_len = 4; /*inistring dstr_225__NTORTRANSMIT_SRC*/ @@ -4673,7 +4673,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_228__CLASS_NORMTESTER_ANYTESTER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_hash = 997235753; + cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_hash = 535559201; cdat->dobj_228__CLASS_NORMTESTER_ANYTESTER.obj_len = 8; /*inistring dstr_229__CLASS_NORMTESTER*/ @@ -4707,7 +4707,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_234__CLASS_NORMTESTER_DISJUNCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 952097234; + cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 81881140; cdat->dobj_234__CLASS_NORMTESTER_DISJUNCTION.obj_len = 8; /*inistring dstr_235__CLASS_NORMTESTER*/ @@ -4741,7 +4741,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_240__NTDISJUNCTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_240__NTDISJUNCTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_240__NTDISJUNCTS.obj_num = 7; - cdat->dobj_240__NTDISJUNCTS.obj_hash = 85073729; + cdat->dobj_240__NTDISJUNCTS.obj_hash = 668872709; cdat->dobj_240__NTDISJUNCTS.obj_len = 4; /*inistring dstr_241__NTDISJUNCTS*/ @@ -4767,7 +4767,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_244__NTDISJ_FRESHORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_244__NTDISJ_FRESHORVAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_244__NTDISJ_FRESHORVAR.obj_num = 8; - cdat->dobj_244__NTDISJ_FRESHORVAR.obj_hash = 572856498; + cdat->dobj_244__NTDISJ_FRESHORVAR.obj_hash = 997235753; cdat->dobj_244__NTDISJ_FRESHORVAR.obj_len = 4; /*inistring dstr_245__NTDISJ_FRESHORVA*/ @@ -4793,7 +4793,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_248__NTDISJ_SETORVAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_248__NTDISJ_SETORVAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_248__NTDISJ_SETORVAR.obj_num = 9; - cdat->dobj_248__NTDISJ_SETORVAR.obj_hash = 120439209; + cdat->dobj_248__NTDISJ_SETORVAR.obj_hash = 15274171; cdat->dobj_248__NTDISJ_SETORVAR.obj_len = 4; /*inistring dstr_249__NTDISJ_SETORVAR*/ @@ -4819,7 +4819,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_252__CLASS_NORMTESTER_SAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_252__CLASS_NORMTESTER_SAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_hash = 884821778; + cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_hash = 183250207; cdat->dobj_252__CLASS_NORMTESTER_SAME.obj_len = 8; /*inistring dstr_253__CLASS_NORMTESTER*/ @@ -4853,7 +4853,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_258__NTSAME_IDENTICAL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_258__NTSAME_IDENTICAL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_258__NTSAME_IDENTICAL.obj_num = 7; - cdat->dobj_258__NTSAME_IDENTICAL.obj_hash = 851328573; + cdat->dobj_258__NTSAME_IDENTICAL.obj_hash = 773076287; cdat->dobj_258__NTSAME_IDENTICAL.obj_len = 4; /*inistring dstr_259__NTSAME_IDENTICAL*/ @@ -4879,7 +4879,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_262__CLASS_NORMTESTER_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_262__CLASS_NORMTESTER_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_hash = 762710668; + cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_hash = 120439209; cdat->dobj_262__CLASS_NORMTESTER_MATCHER.obj_len = 8; /*inistring dstr_263__CLASS_NORMTESTER*/ @@ -4913,7 +4913,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_268__NTMATCH_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_268__NTMATCH_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_268__NTMATCH_MATCHER.obj_num = 7; - cdat->dobj_268__NTMATCH_MATCHER.obj_hash = 1001809882; + cdat->dobj_268__NTMATCH_MATCHER.obj_hash = 887069680; cdat->dobj_268__NTMATCH_MATCHER.obj_len = 4; /*inistring dstr_269__NTMATCH_MATCHER*/ @@ -4939,7 +4939,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_272__NTMATCH_MATNDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_272__NTMATCH_MATNDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_272__NTMATCH_MATNDATA.obj_num = 8; - cdat->dobj_272__NTMATCH_MATNDATA.obj_hash = 739644568; + cdat->dobj_272__NTMATCH_MATNDATA.obj_hash = 358662956; cdat->dobj_272__NTMATCH_MATNDATA.obj_len = 4; /*inistring dstr_273__NTMATCH_MATNDATA*/ @@ -4965,7 +4965,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_276__NTMATCH_INARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_276__NTMATCH_INARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_276__NTMATCH_INARGS.obj_num = 9; - cdat->dobj_276__NTMATCH_INARGS.obj_hash = 907000389; + cdat->dobj_276__NTMATCH_INARGS.obj_hash = 195540327; cdat->dobj_276__NTMATCH_INARGS.obj_len = 4; /*inistring dstr_277__NTMATCH_INARGS*/ @@ -4991,7 +4991,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_280__NTMATCH_OUTLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_280__NTMATCH_OUTLOCS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_280__NTMATCH_OUTLOCS.obj_num = 10; - cdat->dobj_280__NTMATCH_OUTLOCS.obj_hash = 38032590; + cdat->dobj_280__NTMATCH_OUTLOCS.obj_hash = 762710668; cdat->dobj_280__NTMATCH_OUTLOCS.obj_len = 4; /*inistring dstr_281__NTMATCH_OUTLOCS*/ @@ -5017,7 +5017,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_284__CLASS_NORMTESTER_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_hash = 742480693; + cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_hash = 162848085; cdat->dobj_284__CLASS_NORMTESTER_INSTANCE.obj_len = 8; /*inistring dstr_285__CLASS_NORMTESTER*/ @@ -5051,7 +5051,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_290__NTINST_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_290__NTINST_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_290__NTINST_CLASS.obj_num = 7; - cdat->dobj_290__NTINST_CLASS.obj_hash = 1000708304; + cdat->dobj_290__NTINST_CLASS.obj_hash = 661504311; cdat->dobj_290__NTINST_CLASS.obj_len = 4; /*inistring dstr_291__NTINST_CLASS*/ @@ -5077,7 +5077,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_294__NTINST_FIELDLOCS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_294__NTINST_FIELDLOCS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_294__NTINST_FIELDLOCS.obj_num = 8; - cdat->dobj_294__NTINST_FIELDLOCS.obj_hash = 39649518; + cdat->dobj_294__NTINST_FIELDLOCS.obj_hash = 135198917; cdat->dobj_294__NTINST_FIELDLOCS.obj_len = 4; /*inistring dstr_295__NTINST_FIELDLOCS*/ @@ -5115,7 +5115,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_300__CLASS_NREP_MATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_300__CLASS_NREP_MATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_300__CLASS_NREP_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_300__CLASS_NREP_MATCH.obj_hash = 820728765; + cdat->dobj_300__CLASS_NREP_MATCH.obj_hash = 41266767; cdat->dobj_300__CLASS_NREP_MATCH.obj_len = 8; /*inistring dstr_301__CLASS_NREP_MATCH*/ @@ -5149,7 +5149,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_306__NMATCH_TESTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_306__NMATCH_TESTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_306__NMATCH_TESTS.obj_num = 2; - cdat->dobj_306__NMATCH_TESTS.obj_hash = 1056428617; + cdat->dobj_306__NMATCH_TESTS.obj_hash = 862371354; cdat->dobj_306__NMATCH_TESTS.obj_len = 4; /*inistring dstr_307__NMATCH_TESTS*/ @@ -5175,7 +5175,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_310__NMATCH_STUFFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_310__NMATCH_STUFFMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_310__NMATCH_STUFFMAP.obj_num = 3; - cdat->dobj_310__NMATCH_STUFFMAP.obj_hash = 107072394; + cdat->dobj_310__NMATCH_STUFFMAP.obj_hash = 748088283; cdat->dobj_310__NMATCH_STUFFMAP.obj_len = 4; /*inistring dstr_311__NMATCH_STUFFMAP*/ @@ -5201,7 +5201,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_314__NMATCH_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_314__NMATCH_MATCHED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_314__NMATCH_MATCHED.obj_num = 4; - cdat->dobj_314__NMATCH_MATCHED.obj_hash = 569338056; + cdat->dobj_314__NMATCH_MATCHED.obj_hash = 786290109; cdat->dobj_314__NMATCH_MATCHED.obj_len = 4; /*inistring dstr_315__NMATCH_MATCHED*/ @@ -5754,7 +5754,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_404__MATCH_GRAPHIC_DOT_PREFIX", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_404__MATCH_GRAPHIC_DOT_PREFIX", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_hash = 609180685; + cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_hash = 522972204; cdat->dobj_404__MATCH_GRAPHIC_DOT_PREFIX.obj_len = 1; /*inirout drout_405__MATCH_GRAPHIC_OPTSET*/ @@ -5840,7 +5840,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_418__CLASS_MATCH_GRAPHIC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_418__CLASS_MATCH_GRAPHIC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_hash = 541316466; + cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_hash = 365359622; cdat->dobj_418__CLASS_MATCH_GRAPHIC.obj_len = 8; /*inistring dstr_419__CLASS_MATCH_GRAP*/ @@ -5874,7 +5874,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_424__MCHGX_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_424__MCHGX_FILENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_424__MCHGX_FILENAME.obj_num = 1; - cdat->dobj_424__MCHGX_FILENAME.obj_hash = 850507121; + cdat->dobj_424__MCHGX_FILENAME.obj_hash = 851383507; cdat->dobj_424__MCHGX_FILENAME.obj_len = 4; /*inistring dstr_425__MCHGX_FILENAME*/ @@ -5900,7 +5900,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_428__MCHGX_NODOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_428__MCHGX_NODOUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_428__MCHGX_NODOUT.obj_num = 2; - cdat->dobj_428__MCHGX_NODOUT.obj_hash = 760318216; + cdat->dobj_428__MCHGX_NODOUT.obj_hash = 805029335; cdat->dobj_428__MCHGX_NODOUT.obj_len = 4; /*inistring dstr_429__MCHGX_NODOUT*/ @@ -5926,7 +5926,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_432__MCHGX_EDGOUT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_432__MCHGX_EDGOUT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_432__MCHGX_EDGOUT.obj_num = 3; - cdat->dobj_432__MCHGX_EDGOUT.obj_hash = 906555898; + cdat->dobj_432__MCHGX_EDGOUT.obj_hash = 763639867; cdat->dobj_432__MCHGX_EDGOUT.obj_len = 4; /*inistring dstr_433__MCHGX_EDGOUT*/ @@ -5952,7 +5952,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_436__MCHGX_DATANAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_436__MCHGX_DATANAMEMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_436__MCHGX_DATANAMEMAP.obj_num = 4; - cdat->dobj_436__MCHGX_DATANAMEMAP.obj_hash = 210734504; + cdat->dobj_436__MCHGX_DATANAMEMAP.obj_hash = 541316466; cdat->dobj_436__MCHGX_DATANAMEMAP.obj_len = 4; /*inistring dstr_437__MCHGX_DATANAMEMA*/ @@ -5978,7 +5978,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_440__MCHGX_STEPNAMEMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_440__MCHGX_STEPNAMEMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_num = 5; - cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_hash = 352073042; + cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_hash = 850507121; cdat->dobj_440__MCHGX_STEPNAMEMAP.obj_len = 4; /*inistring dstr_441__MCHGX_STEPNAMEMA*/ @@ -6015,7 +6015,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_446__MATCHGRAPHIC_LABEL", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_446__MATCHGRAPHIC_LABEL", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_446__MATCHGRAPHIC_LABEL.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_hash = 249836001; + cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_hash = 348052316; cdat->dobj_446__MATCHGRAPHIC_LABEL.obj_len = 4; /*inistring dstr_447__MATCHGRAPHIC_LAB*/ @@ -6228,7 +6228,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_481__CLASS_MATCHING_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_481__CLASS_MATCHING_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_hash = 450284570; + cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_hash = 987247365; cdat->dobj_481__CLASS_MATCHING_CONTEXT.obj_len = 8; /*inistring dstr_482__CLASS_MATCHING_C*/ @@ -6262,7 +6262,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_487__MCTX_NORMCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_487__MCTX_NORMCTXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_487__MCTX_NORMCTXT.obj_num = 0; - cdat->dobj_487__MCTX_NORMCTXT.obj_hash = 20309919; + cdat->dobj_487__MCTX_NORMCTXT.obj_hash = 798209106; cdat->dobj_487__MCTX_NORMCTXT.obj_len = 4; /*inistring dstr_488__MCTX_NORMCTXT*/ @@ -6288,7 +6288,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_491__MCTX_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_491__MCTX_SOURCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_491__MCTX_SOURCE.obj_num = 1; - cdat->dobj_491__MCTX_SOURCE.obj_hash = 121740732; + cdat->dobj_491__MCTX_SOURCE.obj_hash = 68794147; cdat->dobj_491__MCTX_SOURCE.obj_len = 4; /*inistring dstr_492__MCTX_SOURCE*/ @@ -6314,7 +6314,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_495__MCTX_NMATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_495__MCTX_NMATCHED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_495__MCTX_NMATCHED.obj_num = 2; - cdat->dobj_495__MCTX_NMATCHED.obj_hash = 935002663; + cdat->dobj_495__MCTX_NMATCHED.obj_hash = 876048556; cdat->dobj_495__MCTX_NMATCHED.obj_len = 4; /*inistring dstr_496__MCTX_NMATCHED*/ @@ -6340,7 +6340,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_499__MCTX_NMATBIND", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_499__MCTX_NMATBIND.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_499__MCTX_NMATBIND.obj_num = 3; - cdat->dobj_499__MCTX_NMATBIND.obj_hash = 126768409; + cdat->dobj_499__MCTX_NMATBIND.obj_hash = 450284570; cdat->dobj_499__MCTX_NMATBIND.obj_len = 4; /*inistring dstr_500__MCTX_NMATBIND*/ @@ -6366,7 +6366,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_503__MCTX_CASES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_503__MCTX_CASES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_503__MCTX_CASES.obj_num = 4; - cdat->dobj_503__MCTX_CASES.obj_hash = 671351960; + cdat->dobj_503__MCTX_CASES.obj_hash = 20309919; cdat->dobj_503__MCTX_CASES.obj_len = 4; /*inistring dstr_504__MCTX_CASES*/ @@ -6392,7 +6392,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_507__MCTX_ENV", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_507__MCTX_ENV.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_507__MCTX_ENV.obj_num = 5; - cdat->dobj_507__MCTX_ENV.obj_hash = 660408540; + cdat->dobj_507__MCTX_ENV.obj_hash = 121740732; cdat->dobj_507__MCTX_ENV.obj_len = 4; /*inistring dstr_508__MCTX_ENV*/ @@ -6418,7 +6418,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__MCTX_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_511__MCTX_MDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_511__MCTX_MDATA.obj_num = 6; - cdat->dobj_511__MCTX_MDATA.obj_hash = 955688843; + cdat->dobj_511__MCTX_MDATA.obj_hash = 935002663; cdat->dobj_511__MCTX_MDATA.obj_len = 4; /*inistring dstr_512__MCTX_MDATA*/ @@ -6444,7 +6444,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_515__MCTX_VARHANDLERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_515__MCTX_VARHANDLERS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_515__MCTX_VARHANDLERS.obj_num = 7; - cdat->dobj_515__MCTX_VARHANDLERS.obj_hash = 57416003; + cdat->dobj_515__MCTX_VARHANDLERS.obj_hash = 126768409; cdat->dobj_515__MCTX_VARHANDLERS.obj_len = 4; /*inistring dstr_516__MCTX_VARHANDLERS*/ @@ -6470,7 +6470,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_519__MCTX_FLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_519__MCTX_FLAGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_519__MCTX_FLAGS.obj_num = 8; - cdat->dobj_519__MCTX_FLAGS.obj_hash = 698389859; + cdat->dobj_519__MCTX_FLAGS.obj_hash = 671351960; cdat->dobj_519__MCTX_FLAGS.obj_len = 4; /*inistring dstr_520__MCTX_FLAGS*/ @@ -6496,7 +6496,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_523__MCTX_ENDLABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_523__MCTX_ENDLABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_523__MCTX_ENDLABEL.obj_num = 9; - cdat->dobj_523__MCTX_ENDLABEL.obj_hash = 1032458684; + cdat->dobj_523__MCTX_ENDLABEL.obj_hash = 660408540; cdat->dobj_523__MCTX_ENDLABEL.obj_len = 4; /*inistring dstr_524__MCTX_ENDLABEL*/ @@ -6522,7 +6522,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_527__CLASS_MATCH_CASE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_527__CLASS_MATCH_CASE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_527__CLASS_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_527__CLASS_MATCH_CASE.obj_hash = 162516348; + cdat->dobj_527__CLASS_MATCH_CASE.obj_hash = 398529544; cdat->dobj_527__CLASS_MATCH_CASE.obj_len = 8; /*inistring dstr_528__CLASS_MATCH_CASE*/ @@ -6556,7 +6556,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_533__MCASE_MCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_533__MCASE_MCTXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_533__MCASE_MCTXT.obj_num = 1; - cdat->dobj_533__MCASE_MCTXT.obj_hash = 259812605; + cdat->dobj_533__MCASE_MCTXT.obj_hash = 799944421; cdat->dobj_533__MCASE_MCTXT.obj_len = 4; /*inistring dstr_534__MCASE_MCTXT*/ @@ -6582,7 +6582,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_537__MCASE_SOURCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_537__MCASE_SOURCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_537__MCASE_SOURCE.obj_num = 2; - cdat->dobj_537__MCASE_SOURCE.obj_hash = 816629984; + cdat->dobj_537__MCASE_SOURCE.obj_hash = 283982055; cdat->dobj_537__MCASE_SOURCE.obj_len = 4; /*inistring dstr_538__MCASE_SOURCE*/ @@ -6608,7 +6608,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_541__MCASE_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_541__MCASE_INDEX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_541__MCASE_INDEX.obj_num = 3; - cdat->dobj_541__MCASE_INDEX.obj_hash = 688422469; + cdat->dobj_541__MCASE_INDEX.obj_hash = 779334532; cdat->dobj_541__MCASE_INDEX.obj_len = 4; /*inistring dstr_542__MCASE_INDEX*/ @@ -6634,7 +6634,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_545__MCASE_VARMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_545__MCASE_VARMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_545__MCASE_VARMAP.obj_num = 4; - cdat->dobj_545__MCASE_VARMAP.obj_hash = 410436117; + cdat->dobj_545__MCASE_VARMAP.obj_hash = 162516348; cdat->dobj_545__MCASE_VARMAP.obj_len = 4; /*inistring dstr_546__MCASE_VARMAP*/ @@ -6660,7 +6660,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_549__CLASS_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_549__CLASS_MATCHED_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_549__CLASS_MATCHED_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_549__CLASS_MATCHED_DATA.obj_hash = 1041556273; + cdat->dobj_549__CLASS_MATCHED_DATA.obj_hash = 139351534; cdat->dobj_549__CLASS_MATCHED_DATA.obj_len = 8; /*inistring dstr_550__CLASS_MATCHED_DA*/ @@ -6694,7 +6694,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_555__MDATA_SYMB", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_555__MDATA_SYMB.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_555__MDATA_SYMB.obj_num = 1; - cdat->dobj_555__MDATA_SYMB.obj_hash = 980767270; + cdat->dobj_555__MDATA_SYMB.obj_hash = 911024496; cdat->dobj_555__MDATA_SYMB.obj_len = 4; /*inistring dstr_556__MDATA_SYMB*/ @@ -6720,7 +6720,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_559__MDATA_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_559__MDATA_CTYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_559__MDATA_CTYPE.obj_num = 2; - cdat->dobj_559__MDATA_CTYPE.obj_hash = 374776022; + cdat->dobj_559__MDATA_CTYPE.obj_hash = 313903362; cdat->dobj_559__MDATA_CTYPE.obj_len = 4; /*inistring dstr_560__MDATA_CTYPE*/ @@ -6746,7 +6746,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_563__MDATA_ORIG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_563__MDATA_ORIG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_563__MDATA_ORIG.obj_num = 3; - cdat->dobj_563__MDATA_ORIG.obj_hash = 413068897; + cdat->dobj_563__MDATA_ORIG.obj_hash = 991317138; cdat->dobj_563__MDATA_ORIG.obj_len = 4; /*inistring dstr_564__MDATA_ORIG*/ @@ -6772,7 +6772,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_567__MDATA_STEPS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_567__MDATA_STEPS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_567__MDATA_STEPS.obj_num = 4; - cdat->dobj_567__MDATA_STEPS.obj_hash = 966005361; + cdat->dobj_567__MDATA_STEPS.obj_hash = 1041556273; cdat->dobj_567__MDATA_STEPS.obj_len = 4; /*inistring dstr_568__MDATA_STEPS*/ @@ -6798,7 +6798,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__CLASS_MATCHED_NORMAL_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_571__CLASS_MATCHED_NORMAL_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_571__CLASS_MATCHED_NORMAL_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_571__CLASS_MATCHED_NORMAL_DATA.obj_hash = 294065435; + cdat->dobj_571__CLASS_MATCHED_NORMAL_DATA.obj_hash = 893207630; cdat->dobj_571__CLASS_MATCHED_NORMAL_DATA.obj_len = 8; /*inistring dstr_572__CLASS_MATCHED_NO*/ @@ -6832,7 +6832,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_577__CLASS_MATCHED_BINDING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_577__CLASS_MATCHED_BINDING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_577__CLASS_MATCHED_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_577__CLASS_MATCHED_BINDING.obj_hash = 532808497; + cdat->dobj_577__CLASS_MATCHED_BINDING.obj_hash = 413068897; cdat->dobj_577__CLASS_MATCHED_BINDING.obj_len = 8; /*inistring dstr_578__CLASS_MATCHED_BI*/ @@ -6866,7 +6866,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_583__MATCHBIND_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_583__MATCHBIND_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_583__MATCHBIND_DATA.obj_num = 1; - cdat->dobj_583__MATCHBIND_DATA.obj_hash = 347271288; + cdat->dobj_583__MATCHBIND_DATA.obj_hash = 966005361; cdat->dobj_583__MATCHBIND_DATA.obj_len = 4; /*inistring dstr_584__MATCHBIND_DATA*/ @@ -6892,7 +6892,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_587__MATCHBIND_NBOCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_587__MATCHBIND_NBOCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_587__MATCHBIND_NBOCC.obj_num = 2; - cdat->dobj_587__MATCHBIND_NBOCC.obj_hash = 232428619; + cdat->dobj_587__MATCHBIND_NBOCC.obj_hash = 456374371; cdat->dobj_587__MATCHBIND_NBOCC.obj_len = 4; /*inistring dstr_588__MATCHBIND_NBOCC*/ @@ -6942,7 +6942,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_595__CLASS_MATCH_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_595__CLASS_MATCH_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_595__CLASS_MATCH_FLAG.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_595__CLASS_MATCH_FLAG.obj_hash = 755382667; + cdat->dobj_595__CLASS_MATCH_FLAG.obj_hash = 711683088; cdat->dobj_595__CLASS_MATCH_FLAG.obj_len = 8; /*inistring dstr_596__CLASS_MATCH_FLAG*/ @@ -6976,7 +6976,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_601__MFLAG_SPAT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_601__MFLAG_SPAT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_601__MFLAG_SPAT.obj_num = 2; - cdat->dobj_601__MFLAG_SPAT.obj_hash = 107065030; + cdat->dobj_601__MFLAG_SPAT.obj_hash = 657947125; cdat->dobj_601__MFLAG_SPAT.obj_len = 4; /*inistring dstr_602__MFLAG_SPAT*/ @@ -7002,7 +7002,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_605__MFLAG_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_605__MFLAG_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_605__MFLAG_RANK.obj_num = 3; - cdat->dobj_605__MFLAG_RANK.obj_hash = 478252425; + cdat->dobj_605__MFLAG_RANK.obj_hash = 1041760299; cdat->dobj_605__MFLAG_RANK.obj_len = 4; /*inistring dstr_606__MFLAG_RANK*/ @@ -7028,7 +7028,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_609__MFLAG_STRING", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_609__MFLAG_STRING.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_609__MFLAG_STRING.obj_num = 4; - cdat->dobj_609__MFLAG_STRING.obj_hash = 532856111; + cdat->dobj_609__MFLAG_STRING.obj_hash = 562848087; cdat->dobj_609__MFLAG_STRING.obj_len = 4; /*inistring dstr_610__MFLAG_STRING*/ @@ -7054,7 +7054,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__MFLAG_SETSTEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_613__MFLAG_SETSTEP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_613__MFLAG_SETSTEP.obj_num = 5; - cdat->dobj_613__MFLAG_SETSTEP.obj_hash = 820011226; + cdat->dobj_613__MFLAG_SETSTEP.obj_hash = 755382667; cdat->dobj_613__MFLAG_SETSTEP.obj_len = 4; /*inistring dstr_614__MFLAG_SETSTEP*/ @@ -7080,7 +7080,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_617__CLASS_MATCH_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_617__CLASS_MATCH_STEP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_617__CLASS_MATCH_STEP.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_617__CLASS_MATCH_STEP.obj_hash = 242284305; + cdat->dobj_617__CLASS_MATCH_STEP.obj_hash = 927424771; cdat->dobj_617__CLASS_MATCH_STEP.obj_len = 8; /*inistring dstr_618__CLASS_MATCH_STEP*/ @@ -7114,7 +7114,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_623__CLASS_MATCH_STEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_623__CLASS_MATCH_STEP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_623__CLASS_MATCH_STEP_THEN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_623__CLASS_MATCH_STEP_THEN.obj_hash = 143883243; + cdat->dobj_623__CLASS_MATCH_STEP_THEN.obj_hash = 532856111; cdat->dobj_623__CLASS_MATCH_STEP_THEN.obj_len = 8; /*inistring dstr_624__CLASS_MATCH_STEP*/ @@ -7148,7 +7148,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__MSTEP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__MSTEP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__MSTEP_THEN.obj_num = 2; - cdat->dobj_629__MSTEP_THEN.obj_hash = 633813615; + cdat->dobj_629__MSTEP_THEN.obj_hash = 820011226; cdat->dobj_629__MSTEP_THEN.obj_len = 4; /*inistring dstr_630__MSTEP_THEN*/ @@ -7174,7 +7174,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__CLASS_MATCH_STEP_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_633__CLASS_MATCH_STEP_CLEAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_633__CLASS_MATCH_STEP_CLEAR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_633__CLASS_MATCH_STEP_CLEAR.obj_hash = 1001597074; + cdat->dobj_633__CLASS_MATCH_STEP_CLEAR.obj_hash = 242284305; cdat->dobj_633__CLASS_MATCH_STEP_CLEAR.obj_len = 8; /*inistring dstr_634__CLASS_MATCH_STEP*/ @@ -7208,7 +7208,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_639__MSTEP_CLEARDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_639__MSTEP_CLEARDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_639__MSTEP_CLEARDATA.obj_num = 3; - cdat->dobj_639__MSTEP_CLEARDATA.obj_hash = 509145806; + cdat->dobj_639__MSTEP_CLEARDATA.obj_hash = 617746072; cdat->dobj_639__MSTEP_CLEARDATA.obj_len = 4; /*inistring dstr_640__MSTEP_CLEARDATA*/ @@ -7234,7 +7234,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_643__CLASS_MATCH_STEP_WITH_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_643__CLASS_MATCH_STEP_WITH_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_643__CLASS_MATCH_STEP_WITH_FLAG.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_643__CLASS_MATCH_STEP_WITH_FLAG.obj_hash = 6862284; + cdat->dobj_643__CLASS_MATCH_STEP_WITH_FLAG.obj_hash = 633813615; cdat->dobj_643__CLASS_MATCH_STEP_WITH_FLAG.obj_len = 8; /*inistring dstr_644__CLASS_MATCH_STEP*/ @@ -7268,7 +7268,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__MSTEP_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_649__MSTEP_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__MSTEP_FLAG.obj_num = 3; - cdat->dobj_649__MSTEP_FLAG.obj_hash = 882423241; + cdat->dobj_649__MSTEP_FLAG.obj_hash = 408700543; cdat->dobj_649__MSTEP_FLAG.obj_len = 4; /*inistring dstr_650__MSTEP_FLAG*/ @@ -7294,7 +7294,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__CLASS_MATCH_STEP_WITH_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_653__CLASS_MATCH_STEP_WITH_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_653__CLASS_MATCH_STEP_WITH_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_653__CLASS_MATCH_STEP_WITH_DATA.obj_hash = 353203630; + cdat->dobj_653__CLASS_MATCH_STEP_WITH_DATA.obj_hash = 509145806; cdat->dobj_653__CLASS_MATCH_STEP_WITH_DATA.obj_len = 8; /*inistring dstr_654__CLASS_MATCH_STEP*/ @@ -7328,7 +7328,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_659__MSTEP_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_659__MSTEP_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_659__MSTEP_DATA.obj_num = 3; - cdat->dobj_659__MSTEP_DATA.obj_hash = 599488808; + cdat->dobj_659__MSTEP_DATA.obj_hash = 867583250; cdat->dobj_659__MSTEP_DATA.obj_len = 4; /*inistring dstr_660__MSTEP_DATA*/ @@ -7354,7 +7354,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_663__MSTEP_INDEX", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_663__MSTEP_INDEX.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_663__MSTEP_INDEX.obj_num = 4; - cdat->dobj_663__MSTEP_INDEX.obj_hash = 730902204; + cdat->dobj_663__MSTEP_INDEX.obj_hash = 605092919; cdat->dobj_663__MSTEP_INDEX.obj_len = 4; /*inistring dstr_664__MSTEP_INDEX*/ @@ -7380,7 +7380,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_667__CLASS_MATCH_STEP_FLAG_SET", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_667__CLASS_MATCH_STEP_FLAG_SET.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_667__CLASS_MATCH_STEP_FLAG_SET.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_667__CLASS_MATCH_STEP_FLAG_SET.obj_hash = 859791456; + cdat->dobj_667__CLASS_MATCH_STEP_FLAG_SET.obj_hash = 17556948; cdat->dobj_667__CLASS_MATCH_STEP_FLAG_SET.obj_len = 8; /*inistring dstr_668__CLASS_MATCH_STEP*/ @@ -7414,7 +7414,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION.obj_hash = 286358628; + cdat->dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION.obj_hash = 599488808; cdat->dobj_673__CLASS_MATCH_STEP_FLAG_OPERATION.obj_len = 8; /*inistring dstr_674__CLASS_MATCH_STEP*/ @@ -7448,7 +7448,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_679__MSTEP_FLAGARGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_679__MSTEP_FLAGARGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_679__MSTEP_FLAGARGS.obj_num = 4; - cdat->dobj_679__MSTEP_FLAGARGS.obj_hash = 664026938; + cdat->dobj_679__MSTEP_FLAGARGS.obj_hash = 730902204; cdat->dobj_679__MSTEP_FLAGARGS.obj_len = 4; /*inistring dstr_680__MSTEP_FLAGARGS*/ @@ -7474,7 +7474,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_hash = 282983488; + cdat->dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_hash = 859791456; cdat->dobj_683__CLASS_MATCH_STEP_FLAG_CONJONCTION.obj_len = 8; /*inistring dstr_684__CLASS_MATCH_STEP*/ @@ -7508,7 +7508,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_hash = 778674041; + cdat->dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_hash = 286358628; cdat->dobj_689__CLASS_MATCH_STEP_FLAG_DISJONCTION.obj_len = 8; /*inistring dstr_690__CLASS_MATCH_STEP*/ @@ -7542,7 +7542,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG.obj_hash = 899712236; + cdat->dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG.obj_hash = 940637576; cdat->dobj_695__CLASS_MATCH_STEP_SUCCESS_WHEN_FLAG.obj_len = 8; /*inistring dstr_696__CLASS_MATCH_STEP*/ @@ -7576,7 +7576,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_701__MSTEPSUCCESS_VAROCC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_701__MSTEPSUCCESS_VAROCC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_701__MSTEPSUCCESS_VAROCC.obj_num = 4; - cdat->dobj_701__MSTEPSUCCESS_VAROCC.obj_hash = 735526957; + cdat->dobj_701__MSTEPSUCCESS_VAROCC.obj_hash = 282983488; cdat->dobj_701__MSTEPSUCCESS_VAROCC.obj_len = 4; /*inistring dstr_702__MSTEPSUCCESS_VAR*/ @@ -7602,7 +7602,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_705__MSTEPSUCCESS_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_705__MSTEPSUCCESS_BINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_705__MSTEPSUCCESS_BINDS.obj_num = 5; - cdat->dobj_705__MSTEPSUCCESS_BINDS.obj_hash = 962016084; + cdat->dobj_705__MSTEPSUCCESS_BINDS.obj_hash = 119619351; cdat->dobj_705__MSTEPSUCCESS_BINDS.obj_len = 4; /*inistring dstr_706__MSTEPSUCCESS_BIN*/ @@ -7628,7 +7628,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_709__MSTEPSUCCESS_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_709__MSTEPSUCCESS_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_709__MSTEPSUCCESS_BODY.obj_num = 6; - cdat->dobj_709__MSTEPSUCCESS_BODY.obj_hash = 918143178; + cdat->dobj_709__MSTEPSUCCESS_BODY.obj_hash = 838661380; cdat->dobj_709__MSTEPSUCCESS_BODY.obj_len = 4; /*inistring dstr_710__MSTEPSUCCESS_BOD*/ @@ -7654,7 +7654,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_713__CLASS_MATCH_STEP_TEST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_713__CLASS_MATCH_STEP_TEST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_713__CLASS_MATCH_STEP_TEST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_713__CLASS_MATCH_STEP_TEST.obj_hash = 570469705; + cdat->dobj_713__CLASS_MATCH_STEP_TEST.obj_hash = 811221383; cdat->dobj_713__CLASS_MATCH_STEP_TEST.obj_len = 8; /*inistring dstr_714__CLASS_MATCH_STEP*/ @@ -7688,7 +7688,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_719__MSTEP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_719__MSTEP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_719__MSTEP_ELSE.obj_num = 5; - cdat->dobj_719__MSTEP_ELSE.obj_hash = 695725441; + cdat->dobj_719__MSTEP_ELSE.obj_hash = 155607591; cdat->dobj_719__MSTEP_ELSE.obj_len = 4; /*inistring dstr_720__MSTEP_ELSE*/ @@ -7714,7 +7714,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 1009796790; + cdat->dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE.obj_hash = 918143178; cdat->dobj_723__CLASS_MATCH_STEP_TEST_VARIABLE.obj_len = 8; /*inistring dstr_724__CLASS_MATCH_STEP*/ @@ -7748,7 +7748,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_729__MSTEPTESTVAR_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_729__MSTEPTESTVAR_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_729__MSTEPTESTVAR_DATA.obj_num = 6; - cdat->dobj_729__MSTEPTESTVAR_DATA.obj_hash = 459705864; + cdat->dobj_729__MSTEPTESTVAR_DATA.obj_hash = 53200744; cdat->dobj_729__MSTEPTESTVAR_DATA.obj_len = 4; /*inistring dstr_730__MSTEPTESTVAR_DAT*/ @@ -7774,7 +7774,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_733__CLASS_MATCH_STEP_TEST_GROUP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_733__CLASS_MATCH_STEP_TEST_GROUP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_733__CLASS_MATCH_STEP_TEST_GROUP.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_733__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 359182784; + cdat->dobj_733__CLASS_MATCH_STEP_TEST_GROUP.obj_hash = 695725441; cdat->dobj_733__CLASS_MATCH_STEP_TEST_GROUP.obj_len = 8; /*inistring dstr_734__CLASS_MATCH_STEP*/ @@ -7808,7 +7808,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_739__MSTGROUP_START", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_739__MSTGROUP_START.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_739__MSTGROUP_START.obj_num = 6; - cdat->dobj_739__MSTGROUP_START.obj_hash = 710073043; + cdat->dobj_739__MSTGROUP_START.obj_hash = 29846204; cdat->dobj_739__MSTGROUP_START.obj_len = 4; /*inistring dstr_740__MSTGROUP_START*/ @@ -7834,7 +7834,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_743__MSTGROUP_THEN", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_743__MSTGROUP_THEN.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_743__MSTGROUP_THEN.obj_num = 7; - cdat->dobj_743__MSTGROUP_THEN.obj_hash = 1046891718; + cdat->dobj_743__MSTGROUP_THEN.obj_hash = 363775181; cdat->dobj_743__MSTGROUP_THEN.obj_len = 4; /*inistring dstr_744__MSTGROUP_THEN*/ @@ -7860,7 +7860,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_747__MSTGROUP_ELSE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_747__MSTGROUP_ELSE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_747__MSTGROUP_ELSE.obj_num = 8; - cdat->dobj_747__MSTGROUP_ELSE.obj_hash = 39126297; + cdat->dobj_747__MSTGROUP_ELSE.obj_hash = 784453539; cdat->dobj_747__MSTGROUP_ELSE.obj_len = 4; /*inistring dstr_748__MSTGROUP_ELSE*/ @@ -7886,7 +7886,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 98242728; + cdat->dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE.obj_hash = 840088039; cdat->dobj_751__CLASS_MATCH_STEP_TEST_INSTANCE.obj_len = 8; /*inistring dstr_752__CLASS_MATCH_STEP*/ @@ -7920,7 +7920,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_757__MSTINS_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_757__MSTINS_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_757__MSTINS_CLASS.obj_num = 6; - cdat->dobj_757__MSTINS_CLASS.obj_hash = 310873742; + cdat->dobj_757__MSTINS_CLASS.obj_hash = 597798391; cdat->dobj_757__MSTINS_CLASS.obj_len = 4; /*inistring dstr_758__MSTINS_CLASS*/ @@ -7946,7 +7946,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_761__MSTINS_SLOTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_761__MSTINS_SLOTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_761__MSTINS_SLOTS.obj_num = 7; - cdat->dobj_761__MSTINS_SLOTS.obj_hash = 852805006; + cdat->dobj_761__MSTINS_SLOTS.obj_hash = 913818042; cdat->dobj_761__MSTINS_SLOTS.obj_len = 4; /*inistring dstr_762__MSTINS_SLOTS*/ @@ -7972,7 +7972,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_765__CLASS_MATCH_STEP_TEST_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_765__CLASS_MATCH_STEP_TEST_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_765__CLASS_MATCH_STEP_TEST_MATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_765__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 77270996; + cdat->dobj_765__CLASS_MATCH_STEP_TEST_MATCHER.obj_hash = 126411035; cdat->dobj_765__CLASS_MATCH_STEP_TEST_MATCHER.obj_len = 8; /*inistring dstr_766__CLASS_MATCH_STEP*/ @@ -8006,7 +8006,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_771__MSTMA_MATCHER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_771__MSTMA_MATCHER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_771__MSTMA_MATCHER.obj_num = 6; - cdat->dobj_771__MSTMA_MATCHER.obj_hash = 490930229; + cdat->dobj_771__MSTMA_MATCHER.obj_hash = 549733652; cdat->dobj_771__MSTMA_MATCHER.obj_len = 4; /*inistring dstr_772__MSTMA_MATCHER*/ @@ -8032,7 +8032,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_775__MSTMA_BINDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_775__MSTMA_BINDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_775__MSTMA_BINDS.obj_num = 7; - cdat->dobj_775__MSTMA_BINDS.obj_hash = 647828381; + cdat->dobj_775__MSTMA_BINDS.obj_hash = 326403383; cdat->dobj_775__MSTMA_BINDS.obj_len = 4; /*inistring dstr_776__MSTMA_BINDS*/ @@ -8058,7 +8058,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_779__MSTMA_INS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_779__MSTMA_INS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_779__MSTMA_INS.obj_num = 8; - cdat->dobj_779__MSTMA_INS.obj_hash = 565260057; + cdat->dobj_779__MSTMA_INS.obj_hash = 753809069; cdat->dobj_779__MSTMA_INS.obj_len = 4; /*inistring dstr_780__MSTMA_INS*/ @@ -8084,7 +8084,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_783__MSTMA_OUTS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_783__MSTMA_OUTS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_783__MSTMA_OUTS.obj_num = 9; - cdat->dobj_783__MSTMA_OUTS.obj_hash = 844540788; + cdat->dobj_783__MSTMA_OUTS.obj_hash = 77270996; cdat->dobj_783__MSTMA_OUTS.obj_len = 4; /*inistring dstr_784__MSTMA_OUTS*/ @@ -8122,7 +8122,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_789__CLASS_NREP_MATCH_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_789__CLASS_NREP_MATCH_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_789__CLASS_NREP_MATCH_FLAG.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_789__CLASS_NREP_MATCH_FLAG.obj_hash = 364988763; + cdat->dobj_789__CLASS_NREP_MATCH_FLAG.obj_hash = 68057485; cdat->dobj_789__CLASS_NREP_MATCH_FLAG.obj_len = 8; /*inistring dstr_790__CLASS_NREP_MATCH*/ @@ -8156,7 +8156,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_795__NRPFLA_FLAG", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_795__NRPFLA_FLAG.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_795__NRPFLA_FLAG.obj_num = 1; - cdat->dobj_795__NRPFLA_FLAG.obj_hash = 52199939; + cdat->dobj_795__NRPFLA_FLAG.obj_hash = 567662837; cdat->dobj_795__NRPFLA_FLAG.obj_len = 4; /*inistring dstr_796__NRPFLA_FLAG*/ @@ -8182,7 +8182,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_799__NRPFLA_NMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_799__NRPFLA_NMATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_799__NRPFLA_NMATCH.obj_num = 2; - cdat->dobj_799__NRPFLA_NMATCH.obj_hash = 990256026; + cdat->dobj_799__NRPFLA_NMATCH.obj_hash = 213925291; cdat->dobj_799__NRPFLA_NMATCH.obj_len = 4; /*inistring dstr_800__NRPFLA_NMATCH*/ @@ -8208,7 +8208,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_803__CLASS_NREP_MATCHED_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_803__CLASS_NREP_MATCHED_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_803__CLASS_NREP_MATCHED_DATA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_803__CLASS_NREP_MATCHED_DATA.obj_hash = 330245612; + cdat->dobj_803__CLASS_NREP_MATCHED_DATA.obj_hash = 815818308; cdat->dobj_803__CLASS_NREP_MATCHED_DATA.obj_len = 8; /*inistring dstr_804__CLASS_NREP_MATCH*/ @@ -8242,7 +8242,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_809__NRMATD_CTYPE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_809__NRMATD_CTYPE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_809__NRMATD_CTYPE.obj_num = 1; - cdat->dobj_809__NRMATD_CTYPE.obj_hash = 878251794; + cdat->dobj_809__NRMATD_CTYPE.obj_hash = 356548960; cdat->dobj_809__NRMATD_CTYPE.obj_len = 4; /*inistring dstr_810__NRMATD_CTYPE*/ @@ -8268,7 +8268,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_813__NRMATD_MDATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_813__NRMATD_MDATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_813__NRMATD_MDATA.obj_num = 2; - cdat->dobj_813__NRMATD_MDATA.obj_hash = 221896580; + cdat->dobj_813__NRMATD_MDATA.obj_hash = 935483410; cdat->dobj_813__NRMATD_MDATA.obj_len = 4; /*inistring dstr_814__NRMATD_MDATA*/ @@ -8294,7 +8294,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_817__NRMATD_RANK", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_817__NRMATD_RANK.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_817__NRMATD_RANK.obj_num = 3; - cdat->dobj_817__NRMATD_RANK.obj_hash = 887718283; + cdat->dobj_817__NRMATD_RANK.obj_hash = 648682002; cdat->dobj_817__NRMATD_RANK.obj_len = 4; /*inistring dstr_818__NRMATD_RANK*/ @@ -8356,7 +8356,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_827", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_827.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_827.obj_num = 0; - cdat->dobj_827.obj_hash = 1035209271; + cdat->dobj_827.obj_hash = 246284681; cdat->dobj_827.obj_len = 2; /*iniobj dsym_828__FUN*/ @@ -8378,7 +8378,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_830", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_830.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_830.obj_num = 1; - cdat->dobj_830.obj_hash = 353058689; + cdat->dobj_830.obj_hash = 1035209271; cdat->dobj_830.obj_len = 2; /*iniobj dsym_831__CTX*/ @@ -8400,7 +8400,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_833", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_833.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_833.obj_num = 2; - cdat->dobj_833.obj_hash = 846909892; + cdat->dobj_833.obj_hash = 353058689; cdat->dobj_833.obj_len = 2; /*inimult dtup_834__SCAN_SUBPATTERNS*/ @@ -8413,7 +8413,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_835__SCAN_SUBPATTERNS", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_835__SCAN_SUBPATTERNS", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_835__SCAN_SUBPATTERNS.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_835__SCAN_SUBPATTERNS.obj_hash = 482755484; + cdat->dobj_835__SCAN_SUBPATTERNS.obj_hash = 736999885; cdat->dobj_835__SCAN_SUBPATTERNS.obj_len = 4; /*inistring dstr_836__SCAN_SUBPATTERNS*/ @@ -8451,7 +8451,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_841", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_841.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_841.obj_num = 0; - cdat->dobj_841.obj_hash = 241681788; + cdat->dobj_841.obj_hash = 525032858; cdat->dobj_841.obj_len = 2; /*^iniobj*/ @@ -8461,7 +8461,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_842", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_842.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_842.obj_num = 1; - cdat->dobj_842.obj_hash = 837870146; + cdat->dobj_842.obj_hash = 241681788; cdat->dobj_842.obj_len = 2; /*^iniobj*/ @@ -8471,7 +8471,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_843", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_843.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_843.obj_num = 2; - cdat->dobj_843.obj_hash = 957132604; + cdat->dobj_843.obj_hash = 164085262; cdat->dobj_843.obj_len = 2; /*inimult dtup_844__SCAN_STEP_DATA*/ @@ -8484,7 +8484,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_845__SCAN_STEP_DATA", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_845__SCAN_STEP_DATA", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_845__SCAN_STEP_DATA.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_845__SCAN_STEP_DATA.obj_hash = 946463609; + cdat->dobj_845__SCAN_STEP_DATA.obj_hash = 455627922; cdat->dobj_845__SCAN_STEP_DATA.obj_len = 4; /*inistring dstr_846__SCAN_STEP_DATA*/ @@ -8510,7 +8510,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_849", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_849.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_849.obj_num = 0; - cdat->dobj_849.obj_hash = 210981034; + cdat->dobj_849.obj_hash = 500692008; cdat->dobj_849.obj_len = 2; /*^iniobj*/ @@ -8520,7 +8520,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_850", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_850.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_850.obj_num = 1; - cdat->dobj_850.obj_hash = 320975469; + cdat->dobj_850.obj_hash = 313838335; cdat->dobj_850.obj_len = 2; /*^iniobj*/ @@ -8530,7 +8530,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_851", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_851.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_851.obj_num = 2; - cdat->dobj_851.obj_hash = 958272805; + cdat->dobj_851.obj_hash = 210981034; cdat->dobj_851.obj_len = 2; /*inimult dtup_852__SCAN_STEP_FLAG*/ @@ -8543,7 +8543,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_853__SCAN_STEP_FLAG", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_853__SCAN_STEP_FLAG", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_853__SCAN_STEP_FLAG.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_853__SCAN_STEP_FLAG.obj_hash = 150641140; + cdat->dobj_853__SCAN_STEP_FLAG.obj_hash = 819814569; cdat->dobj_853__SCAN_STEP_FLAG.obj_len = 4; /*inistring dstr_854__SCAN_STEP_FLAG*/ @@ -8684,7 +8684,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_876", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_876.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_876.obj_num = 0; - cdat->dobj_876.obj_hash = 756030297; + cdat->dobj_876.obj_hash = 154923510; cdat->dobj_876.obj_len = 2; /*iniobj dsym_877__THENSTEP*/ @@ -8706,7 +8706,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_879", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_879.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_879.obj_num = 1; - cdat->dobj_879.obj_hash = 342742390; + cdat->dobj_879.obj_hash = 1060177360; cdat->dobj_879.obj_len = 2; /*inimult dtup_880__PUT_THEN_MATCH*/ @@ -8719,7 +8719,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_881__PUT_THEN_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_881__PUT_THEN_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_881__PUT_THEN_MATCH.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_881__PUT_THEN_MATCH.obj_hash = 100481399; + cdat->dobj_881__PUT_THEN_MATCH.obj_hash = 523594589; cdat->dobj_881__PUT_THEN_MATCH.obj_len = 4; /*inistring dstr_882__PUT_THEN_MATCH*/ @@ -8781,7 +8781,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_891", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_891.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_891.obj_num = 0; - cdat->dobj_891.obj_hash = 527512605; + cdat->dobj_891.obj_hash = 669656808; cdat->dobj_891.obj_len = 2; /*iniobj dsym_892__ELSESTEP*/ @@ -8803,7 +8803,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_894", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_894.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_894.obj_num = 1; - cdat->dobj_894.obj_hash = 486907978; + cdat->dobj_894.obj_hash = 203511835; cdat->dobj_894.obj_len = 2; /*inimult dtup_895__PUT_ELSE_MATCH*/ @@ -8816,7 +8816,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_896__PUT_ELSE_MATCH", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_896__PUT_ELSE_MATCH", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_896__PUT_ELSE_MATCH.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_896__PUT_ELSE_MATCH.obj_hash = 873641248; + cdat->dobj_896__PUT_ELSE_MATCH.obj_hash = 944077491; cdat->dobj_896__PUT_ELSE_MATCH.obj_len = 4; /*inistring dstr_897__PUT_ELSE_MATCH*/ @@ -8926,7 +8926,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_914", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_914.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_914.obj_num = 0; - cdat->dobj_914.obj_hash = 1031167359; + cdat->dobj_914.obj_hash = 815808912; cdat->dobj_914.obj_len = 2; /*iniobj dsym_915__MDATA*/ @@ -8948,7 +8948,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_917", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_917.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_917.obj_num = 1; - cdat->dobj_917.obj_hash = 534069926; + cdat->dobj_917.obj_hash = 639791338; cdat->dobj_917.obj_len = 2; /*iniobj dsym_918__MCASE*/ @@ -8970,7 +8970,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_920", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_920.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_920.obj_num = 2; - cdat->dobj_920.obj_hash = 61775972; + cdat->dobj_920.obj_hash = 534069926; cdat->dobj_920.obj_len = 2; /*iniobj dsym_921__VARMAP*/ @@ -8992,7 +8992,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_923", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_923.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_923.obj_num = 3; - cdat->dobj_923.obj_hash = 699412690; + cdat->dobj_923.obj_hash = 61775972; cdat->dobj_923.obj_len = 2; /*iniobj dsym_924__SLOC*/ @@ -9014,7 +9014,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_926", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_926.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_926.obj_num = 4; - cdat->dobj_926.obj_hash = 482334054; + cdat->dobj_926.obj_hash = 699412690; cdat->dobj_926.obj_len = 2; /*inimult dtup_927__TRANSLATE_PATTERN*/ @@ -9027,7 +9027,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_928__TRANSLATE_PATTERN", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_928__TRANSLATE_PATTERN", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_928__TRANSLATE_PATTERN.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_928__TRANSLATE_PATTERN.obj_hash = 995759610; + cdat->dobj_928__TRANSLATE_PATTERN.obj_hash = 179869064; cdat->dobj_928__TRANSLATE_PATTERN.obj_len = 4; /*inistring dstr_929__TRANSLATE_PATTER*/ @@ -9218,7 +9218,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_960__MATCHGRAPHIC_ALTSTEP", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_960__MATCHGRAPHIC_ALTSTEP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_960__MATCHGRAPHIC_ALTSTEP.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_960__MATCHGRAPHIC_ALTSTEP.obj_hash = 435326102; + cdat->dobj_960__MATCHGRAPHIC_ALTSTEP.obj_hash = 402776719; cdat->dobj_960__MATCHGRAPHIC_ALTSTEP.obj_len = 4; /*inistring dstr_961__MATCHGRAPHIC_ALT*/ @@ -9383,7 +9383,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_987__CLASS_NREP_ALTMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_987__CLASS_NREP_ALTMATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_987__CLASS_NREP_ALTMATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_987__CLASS_NREP_ALTMATCH.obj_hash = 675516713; + cdat->dobj_987__CLASS_NREP_ALTMATCH.obj_hash = 218931546; cdat->dobj_987__CLASS_NREP_ALTMATCH.obj_len = 8; /*inistring dstr_988__CLASS_NREP_ALTMA*/ @@ -9417,7 +9417,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_993__NAMATCH_MATCHED", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_993__NAMATCH_MATCHED.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_993__NAMATCH_MATCHED.obj_num = 2; - cdat->dobj_993__NAMATCH_MATCHED.obj_hash = 956969165; + cdat->dobj_993__NAMATCH_MATCHED.obj_hash = 610209329; cdat->dobj_993__NAMATCH_MATCHED.obj_len = 4; /*inistring dstr_994__NAMATCH_MATCHED*/ @@ -9443,7 +9443,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_997__NAMATCH_RESULT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_997__NAMATCH_RESULT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_997__NAMATCH_RESULT.obj_num = 3; - cdat->dobj_997__NAMATCH_RESULT.obj_hash = 869626953; + cdat->dobj_997__NAMATCH_RESULT.obj_hash = 760943911; cdat->dobj_997__NAMATCH_RESULT.obj_len = 4; /*inistring dstr_998__NAMATCH_RESULT*/ @@ -9469,7 +9469,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1001__NAMATCH_BODY", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1001__NAMATCH_BODY.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1001__NAMATCH_BODY.obj_num = 4; - cdat->dobj_1001__NAMATCH_BODY.obj_hash = 404176790; + cdat->dobj_1001__NAMATCH_BODY.obj_hash = 591925565; cdat->dobj_1001__NAMATCH_BODY.obj_len = 4; /*inistring dstr_1002__NAMATCH_BODY*/ @@ -9495,7 +9495,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1005__NAMATCH_FLAGS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1005__NAMATCH_FLAGS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1005__NAMATCH_FLAGS.obj_num = 5; - cdat->dobj_1005__NAMATCH_FLAGS.obj_hash = 1072169154; + cdat->dobj_1005__NAMATCH_FLAGS.obj_hash = 675516713; cdat->dobj_1005__NAMATCH_FLAGS.obj_len = 4; /*inistring dstr_1006__NAMATCH_FLAGS*/ @@ -9521,7 +9521,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1009__CLASS_NREP_MATCH_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1009__CLASS_NREP_MATCH_LABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1009__CLASS_NREP_MATCH_LABEL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1009__CLASS_NREP_MATCH_LABEL.obj_hash = 186354236; + cdat->dobj_1009__CLASS_NREP_MATCH_LABEL.obj_hash = 577111847; cdat->dobj_1009__CLASS_NREP_MATCH_LABEL.obj_len = 8; /*inistring dstr_1010__CLASS_NREP_MATCH*/ @@ -9555,7 +9555,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1015__NMLAB_STEP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1015__NMLAB_STEP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1015__NMLAB_STEP.obj_num = 1; - cdat->dobj_1015__NMLAB_STEP.obj_hash = 176883716; + cdat->dobj_1015__NMLAB_STEP.obj_hash = 456056068; cdat->dobj_1015__NMLAB_STEP.obj_len = 4; /*inistring dstr_1016__NMLAB_STEP*/ @@ -9581,7 +9581,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1019__CLASS_NREP_MATCH_LABEL_END", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1019__CLASS_NREP_MATCH_LABEL_END.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1019__CLASS_NREP_MATCH_LABEL_END.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1019__CLASS_NREP_MATCH_LABEL_END.obj_hash = 630588730; + cdat->dobj_1019__CLASS_NREP_MATCH_LABEL_END.obj_hash = 1072169154; cdat->dobj_1019__CLASS_NREP_MATCH_LABEL_END.obj_len = 8; /*inistring dstr_1020__CLASS_NREP_MATCH*/ @@ -9615,7 +9615,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1025__CLASS_NREP_MATCH_JUMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1025__CLASS_NREP_MATCH_JUMP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1025__CLASS_NREP_MATCH_JUMP.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1025__CLASS_NREP_MATCH_JUMP.obj_hash = 760038798; + cdat->dobj_1025__CLASS_NREP_MATCH_JUMP.obj_hash = 186354236; cdat->dobj_1025__CLASS_NREP_MATCH_JUMP.obj_len = 8; /*inistring dstr_1026__CLASS_NREP_MATCH*/ @@ -9649,7 +9649,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1031__NMJMP_LABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1031__NMJMP_LABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1031__NMJMP_LABEL.obj_num = 1; - cdat->dobj_1031__NMJMP_LABEL.obj_hash = 452468669; + cdat->dobj_1031__NMJMP_LABEL.obj_hash = 176883716; cdat->dobj_1031__NMJMP_LABEL.obj_len = 4; /*inistring dstr_1032__NMJMP_LABEL*/ @@ -9675,7 +9675,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1035__CLASS_NREP_MATCH_DATA_ACTION", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1035__CLASS_NREP_MATCH_DATA_ACTION.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1035__CLASS_NREP_MATCH_DATA_ACTION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1035__CLASS_NREP_MATCH_DATA_ACTION.obj_hash = 319741395; + cdat->dobj_1035__CLASS_NREP_MATCH_DATA_ACTION.obj_hash = 630588730; cdat->dobj_1035__CLASS_NREP_MATCH_DATA_ACTION.obj_len = 8; /*inistring dstr_1036__CLASS_NREP_MATCH*/ @@ -9709,7 +9709,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1041__NMDAC_DATA", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1041__NMDAC_DATA.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1041__NMDAC_DATA.obj_num = 1; - cdat->dobj_1041__NMDAC_DATA.obj_hash = 929275105; + cdat->dobj_1041__NMDAC_DATA.obj_hash = 601685467; cdat->dobj_1041__NMDAC_DATA.obj_len = 4; /*inistring dstr_1042__NMDAC_DATA*/ @@ -9735,7 +9735,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER.obj_hash = 132698980; + cdat->dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER.obj_hash = 452468669; cdat->dobj_1045__CLASS_NREP_MATCH_DATA_INITIALIZER.obj_len = 8; /*inistring dstr_1046__CLASS_NREP_MATCH*/ @@ -9769,7 +9769,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR.obj_hash = 726485061; + cdat->dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR.obj_hash = 319741395; cdat->dobj_1051__CLASS_NREP_MATCH_DATA_CLEAR.obj_len = 8; /*inistring dstr_1052__CLASS_NREP_MATCH*/ @@ -9803,7 +9803,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER.obj_hash = 758706437; + cdat->dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER.obj_hash = 193310846; cdat->dobj_1057__CLASS_NREP_MATCH_DATA_FINALIZER.obj_len = 8; /*inistring dstr_1058__CLASS_NREP_MATCH*/ @@ -9837,7 +9837,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A.obj_hash = 534179915; + cdat->dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A.obj_hash = 662290840; cdat->dobj_1063__CLASS_NREP_JUMP_WHEN_IS_A.obj_len = 8; /*inistring dstr_1064__CLASS_NREP_JUMP_*/ @@ -9871,7 +9871,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1069__NTESTISA_VALUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1069__NTESTISA_VALUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1069__NTESTISA_VALUE.obj_num = 1; - cdat->dobj_1069__NTESTISA_VALUE.obj_hash = 733486326; + cdat->dobj_1069__NTESTISA_VALUE.obj_hash = 726485061; cdat->dobj_1069__NTESTISA_VALUE.obj_len = 4; /*inistring dstr_1070__NTESTISA_VALUE*/ @@ -9897,7 +9897,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1073__NTESTISA_CLASS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1073__NTESTISA_CLASS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1073__NTESTISA_CLASS.obj_num = 2; - cdat->dobj_1073__NTESTISA_CLASS.obj_hash = 359301032; + cdat->dobj_1073__NTESTISA_CLASS.obj_hash = 457518177; cdat->dobj_1073__NTESTISA_CLASS.obj_len = 4; /*inistring dstr_1074__NTESTISA_CLASS*/ @@ -9923,7 +9923,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1077__NTESTISA_JUMP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1077__NTESTISA_JUMP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1077__NTESTISA_JUMP.obj_num = 3; - cdat->dobj_1077__NTESTISA_JUMP.obj_hash = 463707046; + cdat->dobj_1077__NTESTISA_JUMP.obj_hash = 357998628; cdat->dobj_1077__NTESTISA_JUMP.obj_len = 4; /*inistring dstr_1078__NTESTISA_JUMP*/ @@ -9949,7 +9949,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT.obj_hash = 802890873; + cdat->dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT.obj_hash = 987264049; cdat->dobj_1081__CLASS_MATCH_NORMALIZATION_CONTEXT.obj_len = 8; /*inistring dstr_1082__CLASS_MATCH_NORM*/ @@ -9983,7 +9983,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1087__MATNORX_RESLOC", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1087__MATNORX_RESLOC.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1087__MATNORX_RESLOC.obj_num = 0; - cdat->dobj_1087__MATNORX_RESLOC.obj_hash = 572426858; + cdat->dobj_1087__MATNORX_RESLOC.obj_hash = 595008332; cdat->dobj_1087__MATNORX_RESLOC.obj_len = 4; /*inistring dstr_1088__MATNORX_RESLOC*/ @@ -10009,7 +10009,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1091__MATNORX_NMATCH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1091__MATNORX_NMATCH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1091__MATNORX_NMATCH.obj_num = 1; - cdat->dobj_1091__MATNORX_NMATCH.obj_hash = 682079037; + cdat->dobj_1091__MATNORX_NMATCH.obj_hash = 28202229; cdat->dobj_1091__MATNORX_NMATCH.obj_len = 4; /*inistring dstr_1092__MATNORX_NMATCH*/ @@ -10035,7 +10035,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1095__MATNORX_DATAMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1095__MATNORX_DATAMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1095__MATNORX_DATAMAP.obj_num = 2; - cdat->dobj_1095__MATNORX_DATAMAP.obj_hash = 628779806; + cdat->dobj_1095__MATNORX_DATAMAP.obj_hash = 229911669; cdat->dobj_1095__MATNORX_DATAMAP.obj_len = 4; /*inistring dstr_1096__MATNORX_DATAMAP*/ @@ -10061,7 +10061,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1099__MATNORX_FLAGMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1099__MATNORX_FLAGMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1099__MATNORX_FLAGMAP.obj_num = 3; - cdat->dobj_1099__MATNORX_FLAGMAP.obj_hash = 379669709; + cdat->dobj_1099__MATNORX_FLAGMAP.obj_hash = 802890873; cdat->dobj_1099__MATNORX_FLAGMAP.obj_len = 4; /*inistring dstr_1100__MATNORX_FLAGMAP*/ @@ -10087,7 +10087,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1103__MATNORX_STEPMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1103__MATNORX_STEPMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1103__MATNORX_STEPMAP.obj_num = 4; - cdat->dobj_1103__MATNORX_STEPMAP.obj_hash = 650975786; + cdat->dobj_1103__MATNORX_STEPMAP.obj_hash = 572426858; cdat->dobj_1103__MATNORX_STEPMAP.obj_len = 4; /*inistring dstr_1104__MATNORX_STEPMAP*/ @@ -10113,7 +10113,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1107__MATNORX_MDATAQUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1107__MATNORX_MDATAQUEUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1107__MATNORX_MDATAQUEUE.obj_num = 5; - cdat->dobj_1107__MATNORX_MDATAQUEUE.obj_hash = 328971555; + cdat->dobj_1107__MATNORX_MDATAQUEUE.obj_hash = 682079037; cdat->dobj_1107__MATNORX_MDATAQUEUE.obj_len = 4; /*inistring dstr_1108__MATNORX_MDATAQUE*/ @@ -10139,7 +10139,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1111__MATNORX_MSTEPQUEUE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1111__MATNORX_MSTEPQUEUE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1111__MATNORX_MSTEPQUEUE.obj_num = 6; - cdat->dobj_1111__MATNORX_MSTEPQUEUE.obj_hash = 97740475; + cdat->dobj_1111__MATNORX_MSTEPQUEUE.obj_hash = 628779806; cdat->dobj_1111__MATNORX_MSTEPQUEUE.obj_len = 4; /*inistring dstr_1112__MATNORX_MSTEPQUE*/ @@ -10165,7 +10165,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1115__MATNORX_BODYLIST", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1115__MATNORX_BODYLIST.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1115__MATNORX_BODYLIST.obj_num = 7; - cdat->dobj_1115__MATNORX_BODYLIST.obj_hash = 793731481; + cdat->dobj_1115__MATNORX_BODYLIST.obj_hash = 379669709; cdat->dobj_1115__MATNORX_BODYLIST.obj_len = 4; /*inistring dstr_1116__MATNORX_BODYLIST*/ @@ -10191,7 +10191,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1119__MATNORX_ENDLABEL", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1119__MATNORX_ENDLABEL.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1119__MATNORX_ENDLABEL.obj_num = 8; - cdat->dobj_1119__MATNORX_ENDLABEL.obj_hash = 1038140953; + cdat->dobj_1119__MATNORX_ENDLABEL.obj_hash = 650975786; cdat->dobj_1119__MATNORX_ENDLABEL.obj_len = 4; /*inistring dstr_1120__MATNORX_ENDLABEL*/ @@ -10217,7 +10217,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1123__MATNORX_MATCHCTXT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1123__MATNORX_MATCHCTXT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_1123__MATNORX_MATCHCTXT.obj_num = 9; - cdat->dobj_1123__MATNORX_MATCHCTXT.obj_hash = 402130825; + cdat->dobj_1123__MATNORX_MATCHCTXT.obj_hash = 328971555; cdat->dobj_1123__MATNORX_MATCHCTXT.obj_len = 4; /*inistring dstr_1124__MATNORX_MATCHCTX*/ @@ -10255,7 +10255,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1129", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1129.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1129.obj_num = 0; - cdat->dobj_1129.obj_hash = 670045567; + cdat->dobj_1129.obj_hash = 97339144; cdat->dobj_1129.obj_len = 2; /*iniobj dsym_1130__NMCTXT*/ @@ -10277,7 +10277,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1132", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1132.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1132.obj_num = 1; - cdat->dobj_1132.obj_hash = 266853362; + cdat->dobj_1132.obj_hash = 412618605; cdat->dobj_1132.obj_len = 2; /*^iniobj*/ @@ -10287,7 +10287,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1133", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1133.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_1133.obj_num = 2; - cdat->dobj_1133.obj_hash = 917964946; + cdat->dobj_1133.obj_hash = 266853362; cdat->dobj_1133.obj_len = 2; /*inimult dtup_1134__NORMALIZE_STEP*/ @@ -10300,7 +10300,7 @@ static void initialize_module_meltdata_warmelt_normatch (initial_frame_st *inifr if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_1135__NORMALIZE_STEP", melt_magic_discr (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_1135__NORMALIZE_STEP", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V8*/ meltfptr[7]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1135__NORMALIZE_STEP.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ meltfptr[7]); - cdat->dobj_1135__NORMALIZE_STEP.obj_hash = 640294678; + cdat->dobj_1135__NORMALIZE_STEP.obj_hash = 208463911; cdat->dobj_1135__NORMALIZE_STEP.obj_len = 4; /*inistring dstr_1136__NORMALIZE_STEP*/ @@ -10793,7 +10793,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2144; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -2828; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_normatch; /**COMMENT: get previous environment **/; @@ -35877,7 +35877,7 @@ static void forward_or_mark_module_start_frame_warmelt_normatch (struct callfram { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2144); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -2828); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_normatch forwarding %d pointers in frame %p", 1369, (void*) framptr_); for (ix = 0; ix < 1369; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); diff --git a/gcc/melt/generated/warmelt-outobj-0.c b/gcc/melt/generated/warmelt-outobj-0.c index 3a31f8493be..3085facbe2e 100644 --- a/gcc/melt/generated/warmelt-outobj-0.c +++ b/gcc/melt/generated/warmelt-outobj-0.c @@ -3,11 +3,11 @@ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* version string of the gcc executable generating this file: */ const char genversionstr_melt[]= - "4.7.0 20110314 (experimental) [melt-branch revision 172470] MELT\1370.7rc2+Apr 14 2011"; + "4.7.0 20110314 (experimental) [melt-branch revision 172473] MELT\1370.7rc2+Apr 15 2011"; /* hash of preprocessed melt-run.h generating this file: */ -const char md5prepromeltrun_melt[]="a0c78f3089048836a37fde69c00cb987"; +const char md5prepromeltrun_melt[]="54475f23ede3c06eed9207e5a89dc229"; #endif /*MELTGCC_DYNAMIC_OBJSTRUCT*/ @@ -1725,7 +1725,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram { #define meltfram__ (*iniframp__) dbgprintf ("start initialize_module_meltdata_warmelt_outobj iniframp__=%p", (void*) iniframp__); - melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -451); + melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash*/ -3636); struct cdata_st { struct MELT_ROUTINE_STRUCT(1) drout_1__OUTDECLINIT_ROOT; @@ -3270,7 +3270,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_121__PREVLOC_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_121__PREVLOC_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_121__PREVLOC_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_121__PREVLOC_CONTAINER.obj_hash = 7802805; + cdat->dobj_121__PREVLOC_CONTAINER.obj_hash = 464429664; cdat->dobj_121__PREVLOC_CONTAINER.obj_len = 1; /*iniobj dsym_122__PREVIMPLBUF_CONTAINER*/ @@ -3291,7 +3291,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_124__PREVIMPLBUF_CONTAINER", melt_magic_discr (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_124__PREVIMPLBUF_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_CONTAINER__V37*/ meltfptr[36]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_124__PREVIMPLBUF_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_CONTAINER__V37*/ meltfptr[36]); - cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_hash = 38416658; + cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_hash = 1032839464; cdat->dobj_124__PREVIMPLBUF_CONTAINER.obj_len = 1; /*inirout drout_125__LINE_AND_FILE_OF_LOCATION*/ @@ -5159,7 +5159,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_430__CLASS_SECONDARY_C_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_430__CLASS_SECONDARY_C_FILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_430__CLASS_SECONDARY_C_FILE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_430__CLASS_SECONDARY_C_FILE.obj_hash = 898287281; + cdat->dobj_430__CLASS_SECONDARY_C_FILE.obj_hash = 916930090; cdat->dobj_430__CLASS_SECONDARY_C_FILE.obj_len = 8; /*inistring dstr_431__CLASS_SECONDARY_*/ @@ -5193,7 +5193,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_436__SECFIL_MODNAM", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_436__SECFIL_MODNAM.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_436__SECFIL_MODNAM.obj_num = 0; - cdat->dobj_436__SECFIL_MODNAM.obj_hash = 452633167; + cdat->dobj_436__SECFIL_MODNAM.obj_hash = 362582469; cdat->dobj_436__SECFIL_MODNAM.obj_len = 4; /*inistring dstr_437__SECFIL_MODNAM*/ @@ -5219,7 +5219,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_440__SECFIL_PATH", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_440__SECFIL_PATH.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_440__SECFIL_PATH.obj_num = 1; - cdat->dobj_440__SECFIL_PATH.obj_hash = 198733116; + cdat->dobj_440__SECFIL_PATH.obj_hash = 822474850; cdat->dobj_440__SECFIL_PATH.obj_len = 4; /*inistring dstr_441__SECFIL_PATH*/ @@ -5245,7 +5245,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_444__SECFIL_DECLBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_444__SECFIL_DECLBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_444__SECFIL_DECLBUF.obj_num = 2; - cdat->dobj_444__SECFIL_DECLBUF.obj_hash = 602011255; + cdat->dobj_444__SECFIL_DECLBUF.obj_hash = 531259143; cdat->dobj_444__SECFIL_DECLBUF.obj_len = 4; /*inistring dstr_445__SECFIL_DECLBUF*/ @@ -5271,7 +5271,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_448__SECFIL_IMPLBUF", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_448__SECFIL_IMPLBUF.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_448__SECFIL_IMPLBUF.obj_num = 3; - cdat->dobj_448__SECFIL_IMPLBUF.obj_hash = 631613220; + cdat->dobj_448__SECFIL_IMPLBUF.obj_hash = 898287281; cdat->dobj_448__SECFIL_IMPLBUF.obj_len = 4; /*inistring dstr_449__SECFIL_IMPLBUF*/ @@ -5296,7 +5296,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_452__GENERATED_C_FILENAME", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_452__GENERATED_C_FILENAME", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_452__GENERATED_C_FILENAME.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_452__GENERATED_C_FILENAME.obj_hash = 907847158; + cdat->dobj_452__GENERATED_C_FILENAME.obj_hash = 58782374; cdat->dobj_452__GENERATED_C_FILENAME.obj_len = 5; /*inimult dtup_453__GENERATED_C_FILENAME*/ @@ -5326,7 +5326,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_457", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_457.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_457.obj_num = 0; - cdat->dobj_457.obj_hash = 69504762; + cdat->dobj_457.obj_hash = 998815645; cdat->dobj_457.obj_len = 2; /*iniobj dsym_458__BASE*/ @@ -5348,7 +5348,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_460", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_460.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_460.obj_num = 1; - cdat->dobj_460.obj_hash = 71290559; + cdat->dobj_460.obj_hash = 69504762; cdat->dobj_460.obj_len = 2; /*iniobj dsym_461__DIR*/ @@ -5370,7 +5370,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_463", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_463.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_463.obj_num = 2; - cdat->dobj_463.obj_hash = 1070180746; + cdat->dobj_463.obj_hash = 71290559; cdat->dobj_463.obj_len = 2; /*iniobj dsym_464__NUM*/ @@ -5392,7 +5392,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_466", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_466.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_466.obj_num = 3; - cdat->dobj_466.obj_hash = 648708745; + cdat->dobj_466.obj_hash = 1070180746; cdat->dobj_466.obj_len = 2; /*inistring dstr_467__meltgc_new_strin*/ @@ -5437,7 +5437,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_475__WANTS_SINGLE_C_FILE", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_475__WANTS_SINGLE_C_FILE", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_475__WANTS_SINGLE_C_FILE.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_475__WANTS_SINGLE_C_FILE.obj_hash = 302303841; + cdat->dobj_475__WANTS_SINGLE_C_FILE.obj_hash = 920218155; cdat->dobj_475__WANTS_SINGLE_C_FILE.obj_len = 5; /*inimult dtup_476__WANTS_SINGLE_C_FILE*/ @@ -5732,7 +5732,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__MELT_ARGUMENT", melt_magic_discr (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__MELT_ARGUMENT", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_525__MELT_ARGUMENT.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE)))); - cdat->dobj_525__MELT_ARGUMENT.obj_hash = 52342234; + cdat->dobj_525__MELT_ARGUMENT.obj_hash = 830414230; cdat->dobj_525__MELT_ARGUMENT.obj_len = 5; /*inimult dtup_526__MELT_ARGUMENT*/ @@ -5762,7 +5762,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_530", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_530.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); cdat->dobj_530.obj_num = 0; - cdat->dobj_530.obj_hash = 409237026; + cdat->dobj_530.obj_hash = 657877267; cdat->dobj_530.obj_len = 2; /*inistring dstr_531__melt_argument_*/ @@ -5855,7 +5855,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_546__HELP_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_546__HELP_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_546__HELP_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_546__HELP_MODE.obj_hash = 110100136; + cdat->dobj_546__HELP_MODE.obj_hash = 12489358; cdat->dobj_546__HELP_MODE.obj_len = 5; /*inistring dstr_547__help*/ @@ -5896,7 +5896,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__NOP_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_553__NOP_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_553__NOP_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_553__NOP_MODE.obj_hash = 996526816; + cdat->dobj_553__NOP_MODE.obj_hash = 1044116383; cdat->dobj_553__NOP_MODE.obj_len = 5; /*inistring dstr_554__nop*/ @@ -5961,7 +5961,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_564__TRANSLATEFILE_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_564__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_564__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_564__TRANSLATEFILE_MODE.obj_hash = 1043473561; + cdat->dobj_564__TRANSLATEFILE_MODE.obj_hash = 739986765; cdat->dobj_564__TRANSLATEFILE_MODE.obj_len = 5; /*inistring dstr_565__translatefile*/ @@ -6002,7 +6002,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_571__TRANSLATETOMODULE_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_571__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_571__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_571__TRANSLATETOMODULE_MODE.obj_hash = 172959485; + cdat->dobj_571__TRANSLATETOMODULE_MODE.obj_hash = 1014744315; cdat->dobj_571__TRANSLATETOMODULE_MODE.obj_len = 5; /*inistring dstr_572__translatetomodul*/ @@ -6043,7 +6043,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_578__TRANSLATEDEBUG_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_578__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_578__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_578__TRANSLATEDEBUG_MODE.obj_hash = 88405037; + cdat->dobj_578__TRANSLATEDEBUG_MODE.obj_hash = 352472459; cdat->dobj_578__TRANSLATEDEBUG_MODE.obj_len = 5; /*inistring dstr_579__translatedebug*/ @@ -6084,7 +6084,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_585__RUNFILE_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_585__RUNFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_585__RUNFILE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_585__RUNFILE_MODE.obj_hash = 552724660; + cdat->dobj_585__RUNFILE_MODE.obj_hash = 963421578; cdat->dobj_585__RUNFILE_MODE.obj_len = 5; /*inistring dstr_586__runfile*/ @@ -6125,7 +6125,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_592__RUNDEBUG_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_592__RUNDEBUG_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_592__RUNDEBUG_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_592__RUNDEBUG_MODE.obj_hash = 59768138; + cdat->dobj_592__RUNDEBUG_MODE.obj_hash = 779497306; cdat->dobj_592__RUNDEBUG_MODE.obj_len = 5; /*inistring dstr_593__rundebug*/ @@ -6173,7 +6173,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_600__TRANSLATEINIT_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_600__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_600__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_600__TRANSLATEINIT_MODE.obj_hash = 731992063; + cdat->dobj_600__TRANSLATEINIT_MODE.obj_hash = 896625855; cdat->dobj_600__TRANSLATEINIT_MODE.obj_len = 5; /*inistring dstr_601__translateinit*/ @@ -6215,7 +6215,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_607__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_607__CLASS_MAKEDOC_INFO.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS)))); cdat->dobj_607__CLASS_MAKEDOC_INFO.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_607__CLASS_MAKEDOC_INFO.obj_hash = 743791490; + cdat->dobj_607__CLASS_MAKEDOC_INFO.obj_hash = 228655387; cdat->dobj_607__CLASS_MAKEDOC_INFO.obj_len = 8; /*inistring dstr_608__CLASS_MAKEDOC_IN*/ @@ -6249,7 +6249,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_613__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_613__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_613__MKDOC_PRIMITIVES.obj_num = 1; - cdat->dobj_613__MKDOC_PRIMITIVES.obj_hash = 598983251; + cdat->dobj_613__MKDOC_PRIMITIVES.obj_hash = 321911309; cdat->dobj_613__MKDOC_PRIMITIVES.obj_len = 4; /*inistring dstr_614__MKDOC_PRIMITIVES*/ @@ -6275,7 +6275,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_617__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_617__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_617__MKDOC_FUNCTIONS.obj_num = 2; - cdat->dobj_617__MKDOC_FUNCTIONS.obj_hash = 1065365921; + cdat->dobj_617__MKDOC_FUNCTIONS.obj_hash = 844630745; cdat->dobj_617__MKDOC_FUNCTIONS.obj_len = 4; /*inistring dstr_618__MKDOC_FUNCTIONS*/ @@ -6301,7 +6301,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_621__MKDOC_CITERATORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_621__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_621__MKDOC_CITERATORS.obj_num = 3; - cdat->dobj_621__MKDOC_CITERATORS.obj_hash = 873240895; + cdat->dobj_621__MKDOC_CITERATORS.obj_hash = 868889137; cdat->dobj_621__MKDOC_CITERATORS.obj_len = 4; /*inistring dstr_622__MKDOC_CITERATORS*/ @@ -6327,7 +6327,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_625__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_625__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_625__MKDOC_CMATCHERS.obj_num = 4; - cdat->dobj_625__MKDOC_CMATCHERS.obj_hash = 7417060; + cdat->dobj_625__MKDOC_CMATCHERS.obj_hash = 743791490; cdat->dobj_625__MKDOC_CMATCHERS.obj_len = 4; /*inistring dstr_626__MKDOC_CMATCHERS*/ @@ -6353,7 +6353,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_629__MKDOC_SELECTORS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_629__MKDOC_SELECTORS.obj_num = 5; - cdat->dobj_629__MKDOC_SELECTORS.obj_hash = 1008509735; + cdat->dobj_629__MKDOC_SELECTORS.obj_hash = 598983251; cdat->dobj_629__MKDOC_SELECTORS.obj_len = 4; /*inistring dstr_630__MKDOC_SELECTORS*/ @@ -6379,7 +6379,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_633__MKDOC_FIELDS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_633__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_633__MKDOC_FIELDS.obj_num = 6; - cdat->dobj_633__MKDOC_FIELDS.obj_hash = 151641676; + cdat->dobj_633__MKDOC_FIELDS.obj_hash = 1065365921; cdat->dobj_633__MKDOC_FIELDS.obj_len = 4; /*inistring dstr_634__MKDOC_FIELDS*/ @@ -6405,7 +6405,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_637__MKDOC_CLASSES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_637__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_637__MKDOC_CLASSES.obj_num = 7; - cdat->dobj_637__MKDOC_CLASSES.obj_hash = 887108972; + cdat->dobj_637__MKDOC_CLASSES.obj_hash = 873240895; cdat->dobj_637__MKDOC_CLASSES.obj_len = 4; /*inistring dstr_638__MKDOC_CLASSES*/ @@ -6431,7 +6431,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_641__MKDOC_INSTANCES", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_641__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_641__MKDOC_INSTANCES.obj_num = 8; - cdat->dobj_641__MKDOC_INSTANCES.obj_hash = 889381390; + cdat->dobj_641__MKDOC_INSTANCES.obj_hash = 7417060; cdat->dobj_641__MKDOC_INSTANCES.obj_len = 4; /*inistring dstr_642__MKDOC_INSTANCES*/ @@ -6457,7 +6457,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_645__MKDOC_MACROS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_645__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_645__MKDOC_MACROS.obj_num = 9; - cdat->dobj_645__MKDOC_MACROS.obj_hash = 370355467; + cdat->dobj_645__MKDOC_MACROS.obj_hash = 1008509735; cdat->dobj_645__MKDOC_MACROS.obj_len = 4; /*inistring dstr_646__MKDOC_MACROS*/ @@ -6483,7 +6483,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_649__MKDOC_PATMACROS", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_649__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_649__MKDOC_PATMACROS.obj_num = 10; - cdat->dobj_649__MKDOC_PATMACROS.obj_hash = 711687434; + cdat->dobj_649__MKDOC_PATMACROS.obj_hash = 151641676; cdat->dobj_649__MKDOC_PATMACROS.obj_len = 4; /*inistring dstr_650__MKDOC_PATMACROS*/ @@ -6509,7 +6509,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_653__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_653__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_653__MKDOC_FORMALOCCMAP.obj_num = 11; - cdat->dobj_653__MKDOC_FORMALOCCMAP.obj_hash = 611273127; + cdat->dobj_653__MKDOC_FORMALOCCMAP.obj_hash = 887108972; cdat->dobj_653__MKDOC_FORMALOCCMAP.obj_len = 4; /*inistring dstr_654__MKDOC_FORMALOCCM*/ @@ -6535,7 +6535,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_657__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_657__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_657__MKDOC_PREDEFMAP.obj_num = 12; - cdat->dobj_657__MKDOC_PREDEFMAP.obj_hash = 210458597; + cdat->dobj_657__MKDOC_PREDEFMAP.obj_hash = 889381390; cdat->dobj_657__MKDOC_PREDEFMAP.obj_len = 4; /*inistring dstr_658__MKDOC_PREDEFMAP*/ @@ -6561,7 +6561,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_661__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_661__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_661__MKDOC_DOCSYMAP.obj_num = 13; - cdat->dobj_661__MKDOC_DOCSYMAP.obj_hash = 324071214; + cdat->dobj_661__MKDOC_DOCSYMAP.obj_hash = 370355467; cdat->dobj_661__MKDOC_DOCSYMAP.obj_len = 4; /*inistring dstr_662__MKDOC_DOCSYMAP*/ @@ -6587,7 +6587,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_665__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((void*)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_665__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD)))); cdat->dobj_665__MKDOC_SUBCLASSMAP.obj_num = 14; - cdat->dobj_665__MKDOC_SUBCLASSMAP.obj_hash = 533107141; + cdat->dobj_665__MKDOC_SUBCLASSMAP.obj_hash = 711687434; cdat->dobj_665__MKDOC_SUBCLASSMAP.obj_len = 4; /*inistring dstr_666__MKDOC_SUBCLASSMA*/ @@ -7074,7 +7074,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_745__MAKEDOC_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_745__MAKEDOC_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_745__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_745__MAKEDOC_MODE.obj_hash = 418489180; + cdat->dobj_745__MAKEDOC_MODE.obj_hash = 530087704; cdat->dobj_745__MAKEDOC_MODE.obj_len = 5; /*inistring dstr_746__makedoc*/ @@ -7489,7 +7489,7 @@ static void initialize_module_meltdata_warmelt_outobj (initial_frame_st *inifram if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_801__RUNTYPESUPPORT_MODE", melt_magic_discr (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_801__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]))->meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_801__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V129*/ meltfptr[128]); - cdat->dobj_801__RUNTYPESUPPORT_MODE.obj_hash = 233370814; + cdat->dobj_801__RUNTYPESUPPORT_MODE.obj_hash = 1038139265; cdat->dobj_801__RUNTYPESUPPORT_MODE.obj_len = 5; /*inistring dstr_802__runtypesupport*/ @@ -7564,7 +7564,7 @@ initial_frame_st meltfram__; melt_topframe = (struct callframe_melt_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ - ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -451; + ((struct callframe_melt_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -3636; ((struct callframe_melt_st*)&meltfram__)->mcfr_forwmarkrout = forward_or_mark_module_start_frame_warmelt_outobj; /**COMMENT: get previous environment **/; @@ -25637,7 +25637,7 @@ static void forward_or_mark_module_start_frame_warmelt_outobj (struct callframe_ { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; - melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -451); + melt_assertmsg ("check module frame", framptr_->mcfr_nbvar == /*minihash*/ -3636); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_outobj forwarding %d pointers in frame %p", 1055, (void*) framptr_); for (ix = 0; ix < 1055; ix++) MELT_FORWARDED(framptr_->mcfr_varptr[ix]); -- cgit v1.2.1