diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-modes.cc')
-rw-r--r-- | gcc/melt/generated/warmelt-modes.cc | 5717 |
1 files changed, 1934 insertions, 3783 deletions
diff --git a/gcc/melt/generated/warmelt-modes.cc b/gcc/melt/generated/warmelt-modes.cc index 53634a23ca0..b300799609a 100644 --- a/gcc/melt/generated/warmelt-modes.cc +++ b/gcc/melt/generated/warmelt-modes.cc @@ -558,8 +558,7 @@ meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE(meltclosure_ptr_t meltclosp_, melt_p /* end of frame for routine meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE fromline 1756 */ - /* classy proc frame meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE */ - MeltFrame_meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE + /* classy proc frame meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE */ MeltFrame_meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE fromline 1785*/ #if ENABLE_CHECKING @@ -572,8 +571,7 @@ meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE(meltclosure_ptr_t meltclosp_, melt_p #define meltframe meltfram__ melt_trace_start("INSTALL_MELT_MODE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -583,14 +581,12 @@ meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE(meltclosure_ptr_t meltclosp_, melt_p /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:40:/ getarg"); - /*_.MODE__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.MODE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto meltlab_endgetargs; - /*_?*/ - meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; + /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -620,8 +616,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -630,8 +625,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:43:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -668,20 +662,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n.. modename="; /*^apply.arg*/ argtab[6].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; - /*_.MELT_DEBUG_FUN__V4*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ - meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:43:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } @@ -694,8 +684,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:43:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -704,11 +693,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -738,12 +725,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_MELT_MODE*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:44:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; @@ -772,31 +757,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 44; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODE__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ - meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:44:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ - meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; + /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:44:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ - meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -808,8 +787,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[4]))) ) /*then*/ @@ -820,8 +798,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])) /*=obj*/; melt_object_get_field(slot,obj, 2, "SYSDATA_MODE_DICT"); - /*_.CMDICT__V8*/ - meltfptr[6] = slot; + /*_.CMDICT__V8*/ meltfptr[6] = slot; }; ; } @@ -832,8 +809,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:46:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -844,8 +820,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MODE__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CNAM__V9*/ - meltfptr[2] = slot; + /*_.CNAM__V9*/ meltfptr[2] = slot; }; ; } @@ -859,12 +834,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L4*/ - meltfnum[0] = + /*_#NULL__L4*/ meltfnum[0] = (/*null*/(/*_.CNAM__V9*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-modes.melt:48:/ cond"); - /*cond*/ - if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#NULL__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -874,14 +847,12 @@ meltlab_endgetargs: /*_.MAKE_STRINGCONST__V10*/ meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[6])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; MELT_LOCATION("warmelt-modes.melt:49:/ compute"); - /*_.CNAM__V9*/ - meltfptr[2] = /*_.SETQ___V11*/ meltfptr[10] = /*_.MAKE_STRINGCONST__V10*/ meltfptr[9];; + /*_.CNAM__V9*/ meltfptr[2] = /*_.SETQ___V11*/ meltfptr[10] = /*_.MAKE_STRINGCONST__V10*/ meltfptr[9];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:50:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -914,11 +885,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.SETQ___V11*/ meltfptr[10] = 0 ; } ; } /*noelse*/ @@ -926,13 +895,11 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.MAPSTRING_GETSTR__V12*/ - meltfptr[9] = + /*_.MAPSTRING_GETSTR__V12*/ meltfptr[9] = (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.CMDICT__V8*/ meltfptr[6]), melt_string_str((melt_ptr_t)(/*_.CNAM__V9*/ meltfptr[2]))));; MELT_LOCATION("warmelt-modes.melt:51:/ cond"); - /*cond*/ - if (/*_.MAPSTRING_GETSTR__V12*/ meltfptr[9]) /*then*/ + /*cond*/ if (/*_.MAPSTRING_GETSTR__V12*/ meltfptr[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -987,8 +954,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -997,8 +963,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:66:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1031,20 +996,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "install_melt_mode mode="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODE__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ - meltfptr[10] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:66:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ - meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } @@ -1057,8 +1018,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:66:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1067,11 +1027,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V13*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1101,25 +1059,20 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:45:/ clear"); - /*clear*/ /*_.CMDICT__V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.CMDICT__V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.CNAM__V9*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.CNAM__V9*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPSTRING_GETSTR__V12*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.MAPSTRING_GETSTR__V12*/ meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:40:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; } ; @@ -1203,8 +1156,7 @@ meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t /* end of frame for routine meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD fromline 1756 */ - /* classy proc frame meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD */ - MeltFrame_meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD + /* classy proc frame meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD */ MeltFrame_meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -1217,8 +1169,7 @@ meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t #define meltframe meltfram__ melt_trace_start("RUNFILE_DOCMD", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1228,14 +1179,12 @@ meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:74:/ getarg"); - /*_.CMD__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -1267,8 +1216,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1277,8 +1225,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:75:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1315,20 +1262,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:75:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -1341,8 +1284,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:75:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1351,11 +1293,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1378,14 +1318,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:76:/ quasiblock"); - /*_.PARMODENV__V7*/ - meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:78:/ cond"); - /*cond*/ - if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -1394,25 +1332,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:78:/ cond.else"); - /*_.CURENV__V8*/ - meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o0 = + /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ - meltfptr[8] = + /*_.INARG__V9*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o1 = + /*_?*/ meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ - meltfptr[9] = + /*_.OUTARG__V10*/ meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; #if MELT_HAVE_DEBUG @@ -1434,8 +1367,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1444,8 +1376,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:82:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1490,20 +1421,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " outarg="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ - meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; + /*_._IF___V11*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:82:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0 ; } ; } @@ -1516,8 +1443,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:82:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1526,11 +1452,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1560,12 +1484,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[0] = + /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:86:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[10] = (/*nil*/NULL);; @@ -1594,31 +1516,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 86; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:86:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:86:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1629,18 +1545,15 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:87:/ quasiblock"); - /*_.MODULNAM__V17*/ - meltfptr[10] = (/*nil*/NULL);; + /*_.MODULNAM__V17*/ meltfptr[10] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_STRING__L6*/ - meltfnum[1] = + /*_#IS_STRING__L6*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:90:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1648,26 +1561,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:91:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V19*/ meltfptr[18] = /*_.OUTARG__V10*/ meltfptr[9];; - /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ - meltfptr[19] = + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V19*/ meltfptr[18] = /*_.OUTARG__V10*/ meltfptr[9];; + /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODULNAM__V17*/ meltfptr[10])), ( ".cc"))) ;; MELT_LOCATION("warmelt-modes.melt:92:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V21*/ meltfptr[20] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19];; - /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ - meltfptr[21] = + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V21*/ meltfptr[20] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19];; + /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21] = /*make_string_without_dynloaded_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODULNAM__V17*/ meltfptr[10])), MELT_DYNLOADED_SUFFIX));; MELT_LOCATION("warmelt-modes.melt:94:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V23*/ meltfptr[22] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21];; + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V23*/ meltfptr[22] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:96:/ cppif.then"); @@ -1688,8 +1596,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1698,8 +1605,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:96:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1734,20 +1640,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = " with outarg"; - /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ - meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:96:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; } ; } @@ -1760,8 +1662,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:96:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1770,11 +1671,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1797,31 +1696,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:90:/ quasiblock"); - /*_.PROGN___V26*/ - meltfptr[24] = /*_.OUTARG__V10*/ meltfptr[9];; + /*_.PROGN___V26*/ meltfptr[24] = /*_.OUTARG__V10*/ meltfptr[9];; /*^compute*/ - /*_.MODSRCNAME__V18*/ - meltfptr[17] = /*_.PROGN___V26*/ meltfptr[24];; + /*_.MODSRCNAME__V18*/ meltfptr[17] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:90:/ clear"); - /*clear*/ /*_.SETQ___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.SETQ___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PROGN___V26*/ meltfptr[24] = 0 ; } ; } @@ -1835,12 +1726,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L9*/ - meltfnum[7] = + /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:98:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1851,8 +1740,7 @@ meltlab_endgetargs: (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]))));; MELT_LOCATION("warmelt-modes.melt:99:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V29*/ meltfptr[19] = /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18];; + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V29*/ meltfptr[19] = /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:100:/ cppif.then"); @@ -1873,8 +1761,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1883,8 +1770,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:100:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1919,20 +1805,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = " with inarg"; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ - meltfptr[20] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21];; + /*_._IF___V30*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:100:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21] = 0 ; } ; } @@ -1945,8 +1827,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:100:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1955,11 +1836,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1979,33 +1858,26 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ - meltfptr[22] = + /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22] = (meltgc_new_string_tempname_suffixed((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])), ( ".cc")));; MELT_LOCATION("warmelt-modes.melt:98:/ quasiblock"); - /*_.PROGN___V33*/ - meltfptr[24] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22];; + /*_.PROGN___V33*/ meltfptr[24] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22];; /*^compute*/ - /*_._IFELSE___V27*/ - meltfptr[23] = /*_.PROGN___V33*/ meltfptr[24];; + /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V33*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:98:/ clear"); - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V28*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.SETQ___V29*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V33*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PROGN___V33*/ meltfptr[24] = 0 ; } ; } @@ -2030,15 +1902,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9]; - /*_.ERROR_AT__V34*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V34*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:105:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:105:/ locexp"); @@ -2053,41 +1923,32 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-modes.melt:102:/ quasiblock"); - /*_.PROGN___V36*/ - meltfptr[18] = /*_.RETURN___V35*/ meltfptr[20];; + /*_.PROGN___V36*/ meltfptr[18] = /*_.RETURN___V35*/ meltfptr[20];; /*^compute*/ - /*_._IFELSE___V27*/ - meltfptr[23] = /*_.PROGN___V36*/ meltfptr[18];; + /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V36*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:98:/ clear"); - /*clear*/ /*_.ERROR_AT__V34*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.ERROR_AT__V34*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V35*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V35*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V36*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.PROGN___V36*/ meltfptr[18] = 0 ; } ; } ; - /*_.MODSRCNAME__V18*/ - meltfptr[17] = /*_._IFELSE___V27*/ meltfptr[23];; + /*_.MODSRCNAME__V18*/ meltfptr[17] = /*_._IFELSE___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:90:/ clear"); - /*clear*/ /*_#IS_STRING__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ meltfptr[23] = 0 ; } ; } @@ -2095,8 +1956,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:108:/ quasiblock"); - /*_.MODSRCBASE__V38*/ - meltfptr[22] = + /*_.MODSRCBASE__V38*/ meltfptr[22] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODSRCNAME__V18*/ meltfptr[17])), @@ -2121,8 +1981,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2131,8 +1990,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:110:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2177,20 +2035,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " modsrcbase="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ - meltfptr[24] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21];; + /*_._IF___V39*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:110:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21] = 0 ; } ; } @@ -2203,8 +2057,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:110:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2213,11 +2066,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2249,8 +2100,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2273,8 +2123,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2283,8 +2132,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:114:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2321,20 +2169,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V43*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23];; + /*_._IF___V42*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:114:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23] = 0 ; } ; } @@ -2347,8 +2191,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:114:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2357,11 +2200,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V42*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2384,11 +2225,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:116:/ locexp"); - /*generate_flavored_melt_module*/ - melt_compile_source (melt_string_str ((melt_ptr_t)/*_.MODSRCBASE__V38*/ meltfptr[22]), - melt_string_str ((melt_ptr_t)/*_.MODULNAM__V17*/ meltfptr[10]), - NULL, - melt_string_str ((melt_ptr_t)(/*!konst_8*/ meltfrout->tabval[8]))); /*generate_flavored_melt_module*/ + /*generate_flavored_melt_module*/ melt_compile_source (melt_string_str ((melt_ptr_t)/*_.MODSRCBASE__V38*/ meltfptr[22]), + melt_string_str ((melt_ptr_t)/*_.MODULNAM__V17*/ meltfptr[10]), + NULL, + melt_string_str ((melt_ptr_t)(/*!konst_8*/ meltfrout->tabval[8]))); /*generate_flavored_melt_module*/ ; } ; @@ -2412,8 +2252,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2422,8 +2261,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:117:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2460,20 +2298,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ - meltfptr[21] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24];; + /*_._IF___V44*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:117:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24] = 0 ; } ; } @@ -2486,8 +2320,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:117:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2496,11 +2329,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V44*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2520,8 +2351,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ - meltfptr[23] = + /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23] = meltgc_start_flavored_module ((melt_ptr_t)/*_.CURENV__V8*/ meltfptr[7], melt_string_str ((melt_ptr_t) /*_.MODULNAM__V17*/ meltfptr[10]), melt_string_str ((melt_ptr_t) (/*!konst_9*/ meltfrout->tabval[9]))); @@ -2529,8 +2359,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:120:/ locexp"); - /*ignore*/ - (void)(/*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23]); + /*ignore*/(void)(/*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23]); } ; @@ -2553,8 +2382,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2563,8 +2391,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:121:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2603,20 +2430,16 @@ meltlab_endgetargs: argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; /*^apply.arg*/ argtab[7].meltbp_cstring = " return :true"; - /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V47*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24];; + /*_._IF___V47*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:121:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24] = 0 ; } ; } @@ -2629,8 +2452,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:121:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2639,11 +2461,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V47*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2669,8 +2489,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:123:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = (/*!konst_10_TRUE*/ meltfrout->tabval[10]);; + /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_TRUE*/ meltfrout->tabval[10]);; { MELT_LOCATION("warmelt-modes.melt:123:/ locexp"); @@ -2685,73 +2504,52 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V37*/ - meltfptr[19] = /*_.RETURN___V49*/ meltfptr[21];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V37*/ meltfptr[19] = /*_.RETURN___V49*/ meltfptr[21];; MELT_LOCATION("warmelt-modes.melt:108:/ clear"); - /*clear*/ /*_.MODSRCBASE__V38*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MODSRCBASE__V38*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V49*/ - meltfptr[21] = 0 ; - /*_.LET___V16*/ - meltfptr[14] = /*_.LET___V37*/ meltfptr[19];; + /*clear*/ /*_.RETURN___V49*/ meltfptr[21] = 0 ; + /*_.LET___V16*/ meltfptr[14] = /*_.LET___V37*/ meltfptr[19];; MELT_LOCATION("warmelt-modes.melt:87:/ clear"); - /*clear*/ /*_.MODULNAM__V17*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.MODULNAM__V17*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MODSRCNAME__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MODSRCNAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ - meltfptr[19] = 0 ; - /*_.LET___V6*/ - meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; + /*clear*/ /*_.LET___V37*/ meltfptr[19] = 0 ; + /*_.LET___V6*/ meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:76:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V16*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:74:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:74:/ locexp"); @@ -2766,13 +2564,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; } ; @@ -2856,8 +2652,7 @@ meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD fromline 1756 */ - /* classy proc frame meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD */ - MeltFrame_meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD + /* classy proc frame meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD */ MeltFrame_meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -2870,8 +2665,7 @@ meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("RUNDEBUG_DOCMD", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2881,14 +2675,12 @@ meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:137:/ getarg"); - /*_.CMD__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -2920,8 +2712,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2930,8 +2721,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:138:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2968,20 +2758,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:138:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -2994,8 +2780,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:138:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3004,11 +2789,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3031,14 +2814,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:139:/ quasiblock"); - /*_.PARMODENV__V7*/ - meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:141:/ cond"); - /*cond*/ - if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -3047,25 +2828,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:141:/ cond.else"); - /*_.CURENV__V8*/ - meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o0 = + /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ - meltfptr[8] = + /*_.INARG__V9*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o1 = + /*_?*/ meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ - meltfptr[9] = + /*_.OUTARG__V10*/ meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; #if MELT_HAVE_DEBUG @@ -3087,8 +2863,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3097,8 +2872,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:145:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3143,20 +2917,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " outarg="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V12*/ - meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ - meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; + /*_._IF___V11*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:145:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0 ; } ; } @@ -3169,8 +2939,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:145:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3179,11 +2948,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3213,12 +2980,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[0] = + /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:149:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[10] = (/*nil*/NULL);; @@ -3247,31 +3012,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 149; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ - meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:149:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ - meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; + /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:149:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ - meltfptr[10] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3282,18 +3041,15 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:150:/ quasiblock"); - /*_.MODULNAM__V17*/ - meltfptr[10] = (/*nil*/NULL);; + /*_.MODULNAM__V17*/ meltfptr[10] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_STRING__L6*/ - meltfnum[1] = + /*_#IS_STRING__L6*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:153:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3301,26 +3057,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:154:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V19*/ meltfptr[18] = /*_.OUTARG__V10*/ meltfptr[9];; - /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ - meltfptr[19] = + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V19*/ meltfptr[18] = /*_.OUTARG__V10*/ meltfptr[9];; + /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODULNAM__V17*/ meltfptr[10])), ( ".cc"))) ;; MELT_LOCATION("warmelt-modes.melt:155:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V21*/ meltfptr[20] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19];; - /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ - meltfptr[21] = + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V21*/ meltfptr[20] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19];; + /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21] = /*make_string_without_dynloaded_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODULNAM__V17*/ meltfptr[10])), MELT_DYNLOADED_SUFFIX));; MELT_LOCATION("warmelt-modes.melt:157:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V23*/ meltfptr[22] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21];; + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V23*/ meltfptr[22] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:159:/ cppif.then"); @@ -3341,8 +3092,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3351,8 +3101,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:159:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3387,20 +3136,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = " with outarg"; - /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ - meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:159:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; } ; } @@ -3413,8 +3158,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:159:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3423,11 +3167,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3450,31 +3192,23 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:153:/ quasiblock"); - /*_.PROGN___V26*/ - meltfptr[24] = /*_.OUTARG__V10*/ meltfptr[9];; + /*_.PROGN___V26*/ meltfptr[24] = /*_.OUTARG__V10*/ meltfptr[9];; /*^compute*/ - /*_.MODSRCNAME__V18*/ - meltfptr[17] = /*_.PROGN___V26*/ meltfptr[24];; + /*_.MODSRCNAME__V18*/ meltfptr[17] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:153:/ clear"); - /*clear*/ /*_.SETQ___V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.SETQ___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.SETQ___V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PROGN___V26*/ meltfptr[24] = 0 ; } ; } @@ -3488,12 +3222,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L9*/ - meltfnum[7] = + /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:161:/ cond"); - /*cond*/ - if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#IS_STRING__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3504,8 +3236,7 @@ meltlab_endgetargs: (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]))));; MELT_LOCATION("warmelt-modes.melt:162:/ compute"); - /*_.MODULNAM__V17*/ - meltfptr[10] = /*_.SETQ___V29*/ meltfptr[19] = /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18];; + /*_.MODULNAM__V17*/ meltfptr[10] = /*_.SETQ___V29*/ meltfptr[19] = /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:163:/ cppif.then"); @@ -3526,8 +3257,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3536,8 +3266,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:163:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3572,20 +3301,16 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; /*^apply.arg*/ argtab[5].meltbp_cstring = " with inarg"; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ - meltfptr[20] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21];; + /*_._IF___V30*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:163:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[21] = 0 ; } ; } @@ -3598,8 +3323,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:163:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3608,11 +3332,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3632,33 +3354,26 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ - meltfptr[22] = + /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22] = (meltgc_new_string_tempname_suffixed((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])), ( ".cc")));; MELT_LOCATION("warmelt-modes.melt:161:/ quasiblock"); - /*_.PROGN___V33*/ - meltfptr[24] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22];; + /*_.PROGN___V33*/ meltfptr[24] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22];; /*^compute*/ - /*_._IFELSE___V27*/ - meltfptr[23] = /*_.PROGN___V33*/ meltfptr[24];; + /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V33*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:161:/ clear"); - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V28*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V28*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.SETQ___V29*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V32*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V33*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PROGN___V33*/ meltfptr[24] = 0 ; } ; } @@ -3683,15 +3398,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9]; - /*_.ERROR_AT__V34*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V34*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:168:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:168:/ locexp"); @@ -3706,41 +3419,32 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; MELT_LOCATION("warmelt-modes.melt:165:/ quasiblock"); - /*_.PROGN___V36*/ - meltfptr[18] = /*_.RETURN___V35*/ meltfptr[20];; + /*_.PROGN___V36*/ meltfptr[18] = /*_.RETURN___V35*/ meltfptr[20];; /*^compute*/ - /*_._IFELSE___V27*/ - meltfptr[23] = /*_.PROGN___V36*/ meltfptr[18];; + /*_._IFELSE___V27*/ meltfptr[23] = /*_.PROGN___V36*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:161:/ clear"); - /*clear*/ /*_.ERROR_AT__V34*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.ERROR_AT__V34*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V35*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V35*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V36*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.PROGN___V36*/ meltfptr[18] = 0 ; } ; } ; - /*_.MODSRCNAME__V18*/ - meltfptr[17] = /*_._IFELSE___V27*/ meltfptr[23];; + /*_.MODSRCNAME__V18*/ meltfptr[17] = /*_._IFELSE___V27*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:153:/ clear"); - /*clear*/ /*_#IS_STRING__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_STRING__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ meltfptr[23] = 0 ; } ; } @@ -3748,8 +3452,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:171:/ quasiblock"); - /*_.MODSRCBASE__V38*/ - meltfptr[22] = + /*_.MODSRCBASE__V38*/ meltfptr[22] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t)(/*_.MODSRCNAME__V18*/ meltfptr[17])), @@ -3774,8 +3477,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3784,8 +3486,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:173:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3830,20 +3531,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " modsrcbase="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; - /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ - meltfptr[24] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21];; + /*_._IF___V39*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:173:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[21] = 0 ; } ; } @@ -3856,8 +3553,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:173:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3866,11 +3562,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3902,8 +3596,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -3926,8 +3619,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3936,8 +3628,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:177:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3974,20 +3665,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V43*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V42*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23];; + /*_._IF___V42*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:177:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[23] = 0 ; } ; } @@ -4000,8 +3687,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:177:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4010,11 +3696,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V42*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4037,11 +3721,10 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:179:/ locexp"); - /*generate_flavored_melt_module*/ - melt_compile_source (melt_string_str ((melt_ptr_t)/*_.MODSRCBASE__V38*/ meltfptr[22]), - melt_string_str ((melt_ptr_t)/*_.MODULNAM__V17*/ meltfptr[10]), - NULL, - melt_string_str ((melt_ptr_t)(/*!konst_8*/ meltfrout->tabval[8]))); /*generate_flavored_melt_module*/ + /*generate_flavored_melt_module*/ melt_compile_source (melt_string_str ((melt_ptr_t)/*_.MODSRCBASE__V38*/ meltfptr[22]), + melt_string_str ((melt_ptr_t)/*_.MODULNAM__V17*/ meltfptr[10]), + NULL, + melt_string_str ((melt_ptr_t)(/*!konst_8*/ meltfrout->tabval[8]))); /*generate_flavored_melt_module*/ ; } ; @@ -4065,8 +3748,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4075,8 +3757,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:180:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4113,20 +3794,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULNAM__V17*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ - meltfptr[21] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24];; + /*_._IF___V44*/ meltfptr[21] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:180:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[24] = 0 ; } ; } @@ -4139,8 +3816,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:180:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4149,11 +3825,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IF___V44*/ meltfptr[21] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4173,8 +3847,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ - meltfptr[23] = + /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23] = meltgc_start_flavored_module ((melt_ptr_t)/*_.CURENV__V8*/ meltfptr[7], melt_string_str ((melt_ptr_t) /*_.MODULNAM__V17*/ meltfptr[10]), melt_string_str ((melt_ptr_t) (/*!konst_9*/ meltfrout->tabval[9]))); @@ -4182,8 +3855,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:183:/ locexp"); - /*ignore*/ - (void)(/*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23]); + /*ignore*/(void)(/*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23]); } ; @@ -4206,8 +3878,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4216,8 +3887,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:184:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4256,20 +3926,16 @@ meltlab_endgetargs: argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODSRCBASE__V38*/ meltfptr[22]; /*^apply.arg*/ argtab[7].meltbp_cstring = " return :true"; - /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V47*/ - meltfptr[18] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24];; + /*_._IF___V47*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:184:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[24] = 0 ; } ; } @@ -4282,8 +3948,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:184:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4292,11 +3957,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V47*/ - meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V47*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4322,8 +3985,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:186:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = (/*!konst_10_TRUE*/ meltfrout->tabval[10]);; + /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_10_TRUE*/ meltfrout->tabval[10]);; { MELT_LOCATION("warmelt-modes.melt:186:/ locexp"); @@ -4338,73 +4000,52 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V37*/ - meltfptr[19] = /*_.RETURN___V49*/ meltfptr[21];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V37*/ meltfptr[19] = /*_.RETURN___V49*/ meltfptr[21];; MELT_LOCATION("warmelt-modes.melt:171:/ clear"); - /*clear*/ /*_.MODSRCBASE__V38*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.MODSRCBASE__V38*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V41*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.START_MELT_MODULE_OF_FLAVOR__V46*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V49*/ - meltfptr[21] = 0 ; - /*_.LET___V16*/ - meltfptr[14] = /*_.LET___V37*/ meltfptr[19];; + /*clear*/ /*_.RETURN___V49*/ meltfptr[21] = 0 ; + /*_.LET___V16*/ meltfptr[14] = /*_.LET___V37*/ meltfptr[19];; MELT_LOCATION("warmelt-modes.melt:150:/ clear"); - /*clear*/ /*_.MODULNAM__V17*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.MODULNAM__V17*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MODSRCNAME__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.MODSRCNAME__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ - meltfptr[19] = 0 ; - /*_.LET___V6*/ - meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; + /*clear*/ /*_.LET___V37*/ meltfptr[19] = 0 ; + /*_.LET___V6*/ meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:139:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V16*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V16*/ meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:137:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:137:/ locexp"); @@ -4419,13 +4060,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; } ; @@ -4508,8 +4147,7 @@ meltrout_4_WARMELTmiMODES_EVAL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /* end of frame for routine meltrout_4_WARMELTmiMODES_EVAL_DOCMD fromline 1756 */ - /* classy proc frame meltrout_4_WARMELTmiMODES_EVAL_DOCMD */ - MeltFrame_meltrout_4_WARMELTmiMODES_EVAL_DOCMD + /* classy proc frame meltrout_4_WARMELTmiMODES_EVAL_DOCMD */ MeltFrame_meltrout_4_WARMELTmiMODES_EVAL_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_4_WARMELTmiMODES_EVAL_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -4522,8 +4160,7 @@ meltrout_4_WARMELTmiMODES_EVAL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me #define meltframe meltfram__ melt_trace_start("EVAL_DOCMD", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4533,14 +4170,12 @@ meltrout_4_WARMELTmiMODES_EVAL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:201:/ getarg"); - /*_.CMD__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -4572,8 +4207,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4582,8 +4216,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:202:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4620,20 +4253,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:202:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -4646,8 +4275,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:202:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4656,11 +4284,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4683,26 +4309,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:203:/ quasiblock"); - /*_.PARMODENV__V7*/ - meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; /*^compute*/ - /*_.CURENV__V8*/ - meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; + /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o0 = + /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ - meltfptr[8] = + /*_.INARG__V9*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_.INEXPRS__V10*/ - meltfptr[9] = + /*_.INEXPRS__V10*/ meltfptr[9] = (meltgc_read_from_val ((melt_ptr_t) (/*_.INARG__V9*/ meltfptr[8]), NULL));; MELT_LOCATION("warmelt-modes.melt:208:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[4]))) ) /*then*/ @@ -4713,8 +4333,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])) /*=obj*/; melt_object_get_field(slot,obj, 6, "SYSDATA_STDOUT"); - /*_.STDOUT__V11*/ - meltfptr[10] = slot; + /*_.STDOUT__V11*/ meltfptr[10] = slot; }; ; } @@ -4725,8 +4344,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OCCMAP__V12*/ - meltfptr[11] = + /*_.OCCMAP__V12*/ meltfptr[11] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[5])), (50)));; { @@ -4757,8 +4375,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4767,8 +4384,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:216:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4813,20 +4429,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n inexprs="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.INEXPRS__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ - meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:216:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } @@ -4839,8 +4451,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:216:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4849,11 +4460,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4883,12 +4492,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[0] = + /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-modes.melt:220:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[12] = (/*nil*/NULL);; @@ -4917,31 +4524,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 220; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:220:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:220:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4952,8 +4553,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:221:/ quasiblock"); - /*_#NBEXPRS__L6*/ - meltfnum[1] = + /*_#NBEXPRS__L6*/ meltfnum[1] = (melt_list_length((melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9])));; MELT_LOCATION("warmelt-modes.melt:223:/ quasiblock"); @@ -4970,8 +4570,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_9_EVALmiMODE*/ meltfrout->tabval[9]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8]; - /*_.NE__V20*/ - meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NE__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4994,8 +4593,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5004,8 +4602,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:225:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5038,20 +4635,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "eval_docmd newenv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NE__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V21*/ - meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; + /*_._IF___V21*/ meltfptr[20] = /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:225:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0 ; } ; } @@ -5064,8 +4657,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:225:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5074,11 +4666,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V21*/ meltfptr[20] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5098,14 +4688,11 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V19*/ - meltfptr[12] = /*_.NE__V20*/ meltfptr[19];; + /*_.LET___V19*/ meltfptr[12] = /*_.NE__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-modes.melt:223:/ clear"); - /*clear*/ /*_.NE__V20*/ - meltfptr[19] = 0 ; - /*_.NEWENV__V23*/ - meltfptr[21] = /*_.LET___V19*/ meltfptr[12];; + /*clear*/ /*_.NE__V20*/ meltfptr[19] = 0 ; + /*_.NEWENV__V23*/ meltfptr[21] = /*_.LET___V19*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; @@ -5116,23 +4703,19 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V23*/ meltfptr[21]; - /*_.RES__V24*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.RES__V24*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#DEBUG_DEPTH__L9*/ - meltfnum[7] = + /*_#DEBUG_DEPTH__L9*/ meltfnum[7] = (long) (melt_debug_depth ());; /*^compute*/ - /*_#plI__L10*/ - meltfnum[0] = + /*_#plI__L10*/ meltfnum[0] = ((3) + (/*_#DEBUG_DEPTH__L9*/ meltfnum[7]));; /*^compute*/ - /*_.BOX__V25*/ - meltfptr[19] = + /*_.BOX__V25*/ meltfptr[19] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#plI__L10*/ meltfnum[0]));; MELT_LOCATION("warmelt-modes.melt:228:/ quasiblock"); @@ -5142,8 +4725,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[11])), (3), "CLASS_DEBUG_OUTPUT_INFORMATION"); - /*_.INST__V27*/ - meltfptr[26] = + /*_.INST__V27*/ meltfptr[26] = newobj; }; ; @@ -5166,8 +4748,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.DBGI__V26*/ - meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.DBGI__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:233:/ cppif.then"); @@ -5188,8 +4769,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5198,8 +4778,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:233:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5240,20 +4819,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n dbgi="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V29*/ - meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ - meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:233:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; } ; } @@ -5266,8 +4841,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:233:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5276,11 +4850,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5300,8 +4872,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_#DEBUG_DEPTH__L13*/ - meltfnum[11] = + /*_#DEBUG_DEPTH__L13*/ meltfnum[11] = (long) (melt_debug_depth ());; MELT_CHECK_SIGNAL(); @@ -5321,8 +4892,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#DEBUG_DEPTH__L13*/ meltfnum[11]; /*^apply.arg*/ argtab[4].meltbp_cstring = ") is ...\n"; - /*_.ADD2OUT__V30*/ - meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V30*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5337,8 +4907,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V26*/ meltfptr[25]; /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.DBG_OUT__V31*/ - meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DBG_OUT__V31*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -5351,8 +4920,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n;;; *** end of evaluated result *** \n "; - /*_.ADD2OUT__V32*/ - meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5361,8 +4929,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:237:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = (/*!konst_14_TRUE*/ meltfrout->tabval[14]);; + /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_14_TRUE*/ meltfrout->tabval[14]);; { MELT_LOCATION("warmelt-modes.melt:237:/ locexp"); @@ -5377,88 +4944,62 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V18*/ - meltfptr[16] = /*_.RETURN___V33*/ meltfptr[32];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V33*/ meltfptr[32];; MELT_LOCATION("warmelt-modes.melt:221:/ clear"); - /*clear*/ /*_#NBEXPRS__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBEXPRS__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.NEWENV__V23*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V24*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.RES__V24*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_#DEBUG_DEPTH__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#DEBUG_DEPTH__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#plI__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.BOX__V25*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.BOX__V25*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.DBGI__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.DBGI__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#DEBUG_DEPTH__L13*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#DEBUG_DEPTH__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V30*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.ADD2OUT__V30*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.DBG_OUT__V31*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.DBG_OUT__V31*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.ADD2OUT__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V33*/ - meltfptr[32] = 0 ; - /*_.LET___V6*/ - meltfptr[4] = /*_.LET___V18*/ meltfptr[16];; + /*clear*/ /*_.RETURN___V33*/ meltfptr[32] = 0 ; + /*_.LET___V6*/ meltfptr[4] = /*_.LET___V18*/ meltfptr[16];; MELT_LOCATION("warmelt-modes.melt:203:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.INEXPRS__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.INEXPRS__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.STDOUT__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.STDOUT__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.OCCMAP__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OCCMAP__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:201:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:201:/ locexp"); @@ -5473,13 +5014,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; } ; @@ -5562,8 +5101,7 @@ meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD fromline 1756 */ - /* classy proc frame meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD */ - MeltFrame_meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD + /* classy proc frame meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD */ MeltFrame_meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -5576,8 +5114,7 @@ meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("EVALFILE_DOCMD", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5587,14 +5124,12 @@ meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:252:/ getarg"); - /*_.CMD__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -5626,8 +5161,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5636,8 +5170,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:253:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5674,20 +5207,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:253:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -5700,8 +5229,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:253:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5710,11 +5238,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5737,26 +5263,20 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:254:/ quasiblock"); - /*_.PARMODENV__V7*/ - meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; /*^compute*/ - /*_.CURENV__V8*/ - meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; + /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; /*^compute*/ - /*_?*/ - meltfram__.loc_CSTRING__o0 = + /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ - meltfptr[8] = + /*_.INARG__V9*/ meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_.INEXPRS__V10*/ - meltfptr[9] = + /*_.INEXPRS__V10*/ meltfptr[9] = (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])), (char*)0));; MELT_LOCATION("warmelt-modes.melt:259:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[4]))) ) /*then*/ @@ -5767,8 +5287,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[3])) /*=obj*/; melt_object_get_field(slot,obj, 6, "SYSDATA_STDOUT"); - /*_.STDOUT__V11*/ - meltfptr[10] = slot; + /*_.STDOUT__V11*/ meltfptr[10] = slot; }; ; } @@ -5779,8 +5298,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.OCCMAP__V12*/ - meltfptr[11] = + /*_.OCCMAP__V12*/ meltfptr[11] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[5])), (50)));; { @@ -5811,8 +5329,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5821,8 +5338,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:267:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5867,20 +5383,16 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\n inexprs="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.INEXPRS__V10*/ meltfptr[9]; - /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V13*/ - meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*_._IF___V13*/ meltfptr[12] = /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:267:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0 ; } ; } @@ -5893,8 +5405,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:267:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -5903,11 +5414,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V13*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5937,12 +5446,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[0] = + /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-modes.melt:271:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[12] = (/*nil*/NULL);; @@ -5971,31 +5478,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 271; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ - meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ meltfptr[12] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:271:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ - meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; + /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:271:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ meltfptr[12] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6006,8 +5507,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:272:/ quasiblock"); - /*_#NBEXPRS__L6*/ - meltfnum[1] = + /*_#NBEXPRS__L6*/ meltfnum[1] = (melt_list_length((melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9])));; MELT_LOCATION("warmelt-modes.melt:274:/ quasiblock"); @@ -6023,8 +5523,7 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x1*/ - /*_.TUPLREC___V21*/ - meltfptr[20] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; + /*_.TUPLREC___V21*/ meltfptr[20] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; meltletrec_1_ptr->rtup_0__TUPLREC__x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x1.nbval = 2; @@ -6044,16 +5543,13 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V21*/ meltfptr[20]); ; - /*_.TUPLE___V20*/ - meltfptr[19] = /*_.TUPLREC___V21*/ meltfptr[20];; + /*_.TUPLE___V20*/ meltfptr[19] = /*_.TUPLREC___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:274:/ clear"); - /*clear*/ /*_.TUPLREC___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.TUPLREC___V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.TUPLREC___V21*/ meltfptr[20] = 0 ; } /*end multiallocblock*/ ; @@ -6066,8 +5562,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V20*/ meltfptr[19]; - /*_.NE__V22*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NE__V22*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -6090,8 +5585,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6100,8 +5594,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:276:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6134,20 +5627,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "evalfile_docmd newenv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NE__V22*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V23*/ - meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; + /*_._IF___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:276:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0 ; } ; } @@ -6160,8 +5649,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:276:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6170,11 +5658,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V23*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6194,17 +5680,13 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V19*/ - meltfptr[12] = /*_.NE__V22*/ meltfptr[20];; + /*_.LET___V19*/ meltfptr[12] = /*_.NE__V22*/ meltfptr[20];; MELT_LOCATION("warmelt-modes.melt:274:/ clear"); - /*clear*/ /*_.TUPLE___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.TUPLE___V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.NE__V22*/ - meltfptr[20] = 0 ; - /*_.NEWENV__V25*/ - meltfptr[23] = /*_.LET___V19*/ meltfptr[12];; + /*clear*/ /*_.NE__V22*/ meltfptr[20] = 0 ; + /*_.NEWENV__V25*/ meltfptr[23] = /*_.LET___V19*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; @@ -6215,19 +5697,16 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NEWENV__V25*/ meltfptr[23]; - /*_.RES__V26*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.RES__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INEXPRS__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#DEBUG_DEPTH__L9*/ - meltfnum[7] = + /*_#DEBUG_DEPTH__L9*/ meltfnum[7] = (long) (melt_debug_depth ());; /*^compute*/ - /*_.MAKE_INTEGERBOX__V27*/ - meltfptr[19] = + /*_.MAKE_INTEGERBOX__V27*/ meltfptr[19] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[12])), (/*_#DEBUG_DEPTH__L9*/ meltfnum[7])));; MELT_LOCATION("warmelt-modes.melt:279:/ quasiblock"); @@ -6237,8 +5716,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[11])), (3), "CLASS_DEBUG_OUTPUT_INFORMATION"); - /*_.INST__V29*/ - meltfptr[28] = + /*_.INST__V29*/ meltfptr[28] = newobj; }; ; @@ -6261,8 +5739,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; - /*_.DBGI__V28*/ - meltfptr[20] = /*_.INST__V29*/ meltfptr[28];; + /*_.DBGI__V28*/ meltfptr[20] = /*_.INST__V29*/ meltfptr[28];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:285:/ cppif.then"); @@ -6283,8 +5760,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6293,8 +5769,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:285:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6335,20 +5810,16 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "\n dbgi="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V28*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ - meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:285:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } @@ -6361,8 +5832,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:285:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6371,11 +5841,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6413,8 +5881,7 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBEXPRS__L6*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = " expression[s] is ...\n"; - /*_.ADD2OUT__V32*/ - meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V32*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6429,8 +5896,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V28*/ meltfptr[20]; /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.DBG_OUT__V33*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.RES__V26*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DBG_OUT__V33*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.RES__V26*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6443,8 +5909,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n;;; *** end of evaluated result *** \n "; - /*_.ADD2OUT__V34*/ - meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.STDOUT__V11*/ meltfptr[10]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6453,8 +5918,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:289:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = (/*!konst_15_TRUE*/ meltfrout->tabval[15]);; + /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_15_TRUE*/ meltfrout->tabval[15]);; { MELT_LOCATION("warmelt-modes.melt:289:/ locexp"); @@ -6469,82 +5933,58 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V18*/ - meltfptr[16] = /*_.RETURN___V35*/ meltfptr[34];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V35*/ meltfptr[34];; MELT_LOCATION("warmelt-modes.melt:272:/ clear"); - /*clear*/ /*_#NBEXPRS__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NBEXPRS__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWENV__V25*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.NEWENV__V25*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V26*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.RES__V26*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#DEBUG_DEPTH__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#DEBUG_DEPTH__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V27*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V27*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.DBGI__V28*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.DBGI__V28*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V32*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V32*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.DBG_OUT__V33*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.DBG_OUT__V33*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.ADD2OUT__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V35*/ - meltfptr[34] = 0 ; - /*_.LET___V6*/ - meltfptr[4] = /*_.LET___V18*/ meltfptr[16];; + /*clear*/ /*_.RETURN___V35*/ meltfptr[34] = 0 ; + /*_.LET___V6*/ meltfptr[4] = /*_.LET___V18*/ meltfptr[16];; MELT_LOCATION("warmelt-modes.melt:254:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ - meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ - meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.INEXPRS__V10*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.INEXPRS__V10*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.STDOUT__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.STDOUT__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.OCCMAP__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.OCCMAP__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V18*/ - meltfptr[16] = 0 ; + /*clear*/ /*_.LET___V18*/ meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:252:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:252:/ locexp"); @@ -6559,13 +5999,11 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; } ; @@ -6647,8 +6085,7 @@ meltrout_6_WARMELTmiMODES_REPL_PROCESSOR(meltclosure_ptr_t meltclosp_, melt_ptr_ /* end of frame for routine meltrout_6_WARMELTmiMODES_REPL_PROCESSOR fromline 1756 */ - /* classy proc frame meltrout_6_WARMELTmiMODES_REPL_PROCESSOR */ - MeltFrame_meltrout_6_WARMELTmiMODES_REPL_PROCESSOR + /* classy proc frame meltrout_6_WARMELTmiMODES_REPL_PROCESSOR */ MeltFrame_meltrout_6_WARMELTmiMODES_REPL_PROCESSOR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_6_WARMELTmiMODES_REPL_PROCESSOR fromline 1785*/ #if ENABLE_CHECKING @@ -6661,8 +6098,7 @@ meltrout_6_WARMELTmiMODES_REPL_PROCESSOR(meltclosure_ptr_t meltclosp_, melt_ptr_ #define meltframe meltfram__ melt_trace_start("REPL_PROCESSOR", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -6672,14 +6108,12 @@ meltrout_6_WARMELTmiMODES_REPL_PROCESSOR(meltclosure_ptr_t meltclosp_, melt_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:311:/ getarg"); - /*_.INCH__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.INCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.INLIST__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.INLIST__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.INLIST__V3*/ meltfptr[2])) != NULL); ; @@ -6711,8 +6145,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6721,8 +6154,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:312:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6759,20 +6191,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = "\n inlist="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.INLIST__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:312:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -6785,8 +6213,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:312:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6795,11 +6222,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6829,12 +6254,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:313:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -6863,31 +6286,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 313; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INCH__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:313:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ - meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:313:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6899,8 +6316,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[1]))) ) /*then*/ @@ -6911,8 +6327,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.INCH__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "INCH_DATA"); - /*_.REPLDATA__V10*/ - meltfptr[3] = slot; + /*_.REPLDATA__V10*/ meltfptr[3] = slot; }; ; } @@ -6923,8 +6338,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:315:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_READ_EVAL_PRINT_LOOP_DATA*/ meltfrout->tabval[3]))) ) /*then*/ @@ -6935,8 +6349,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "REPL_ENV"); - /*_.REPLENV__V11*/ - meltfptr[10] = slot; + /*_.REPLENV__V11*/ meltfptr[10] = slot; }; ; } @@ -6947,8 +6360,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:316:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_READ_EVAL_PRINT_LOOP_DATA*/ meltfrout->tabval[3]))) ) /*then*/ @@ -6959,8 +6371,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 2, "REPL_COUNTER"); - /*_.REPLCOUNTERV__V12*/ - meltfptr[11] = slot; + /*_.REPLCOUNTERV__V12*/ meltfptr[11] = slot; }; ; } @@ -6971,8 +6382,7 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:317:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_READ_EVAL_PRINT_LOOP_DATA*/ meltfrout->tabval[3]))) ) /*then*/ @@ -6983,8 +6393,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 3, "REPL_CONTREF"); - /*_.REPLCONTREF__V13*/ - meltfptr[12] = slot; + /*_.REPLCONTREF__V13*/ meltfptr[12] = slot; }; ; } @@ -6995,8 +6404,7 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#REPLCOUNT__L4*/ - meltfnum[0] = + /*_#REPLCOUNT__L4*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.REPLCOUNTERV__V12*/ meltfptr[11])));; #if MELT_HAVE_DEBUG @@ -7008,12 +6416,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ - meltfnum[1] = + /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.REPLDATA__V10*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_READ_EVAL_PRINT_LOOP_DATA*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:320:/ cond"); - /*cond*/ - if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[14] = (/*nil*/NULL);; @@ -7042,31 +6448,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 320; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.REPLDATA__V10*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:320:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; + /*_.IFCPP___V14*/ meltfptr[13] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:320:/ clear"); - /*clear*/ /*_#IS_A__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7084,12 +6484,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ - meltfnum[1] = + /*_#IS_A__L6*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.REPLENV__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:321:/ cond"); - /*cond*/ - if (/*_#IS_A__L6*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[14] = (/*nil*/NULL);; @@ -7118,31 +6516,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 321; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.REPLENV__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:321:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[14];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:321:/ clear"); - /*clear*/ /*_#IS_A__L6*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L6*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7160,12 +6552,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_INTEGERBOX__L7*/ - meltfnum[1] = + /*_#IS_INTEGERBOX__L7*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.REPLCOUNTERV__V12*/ meltfptr[11])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-modes.melt:322:/ cond"); - /*cond*/ - if (/*_#IS_INTEGERBOX__L7*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[14] = (/*nil*/NULL);; @@ -7194,31 +6584,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 322; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.REPLCOUNTERV__V12*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ - meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ meltfptr[14] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:322:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ - meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[14];; + /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:322:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_INTEGERBOX__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ - meltfptr[14] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ meltfptr[14] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7230,12 +6614,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L8*/ - meltfnum[1] = + /*_#NULL__L8*/ meltfnum[1] = (/*null*/(/*_.INLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-modes.melt:323:/ cond"); - /*cond*/ - if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7256,8 +6638,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:330:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLCONTREF__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7308,12 +6689,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L9*/ - meltfnum[8] = + /*_#IS_LIST__L9*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.INLIST__V3*/ meltfptr[2])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-modes.melt:333:/ cond"); - /*cond*/ - if (/*_#IS_LIST__L9*/ meltfnum[8]) /*then*/ + /*cond*/ if (/*_#IS_LIST__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);; @@ -7342,31 +6721,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 333; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.INLIST__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V25*/ - meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; + /*_._IFELSE___V25*/ meltfptr[24] = /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:333:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V26*/ meltfptr[25] = 0 ; } ; } ; - /*_.IFCPP___V24*/ - meltfptr[14] = /*_._IFELSE___V25*/ meltfptr[24];; + /*_.IFCPP___V24*/ meltfptr[14] = /*_._IFELSE___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:333:/ clear"); - /*clear*/ /*_#IS_LIST__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_LIST__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_._IFELSE___V25*/ meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7375,12 +6748,10 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; /*^compute*/ - /*_#plI__L10*/ - meltfnum[8] = + /*_#plI__L10*/ meltfnum[8] = ((/*_#REPLCOUNT__L4*/ meltfnum[0]) + (1));; MELT_LOCATION("warmelt-modes.melt:334:/ compute"); - /*_#REPLCOUNT__L4*/ - meltfnum[0] = /*_#SETQ___L11*/ meltfnum[10] = /*_#plI__L10*/ meltfnum[8];; + /*_#REPLCOUNT__L4*/ meltfnum[0] = /*_#SETQ___L11*/ meltfnum[10] = /*_#plI__L10*/ meltfnum[8];; { MELT_LOCATION("warmelt-modes.melt:335:/ locexp"); @@ -7390,12 +6761,10 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:336:/ quasiblock"); - /*_#INLISTLEN__L12*/ - meltfnum[11] = + /*_#INLISTLEN__L12*/ meltfnum[11] = (melt_list_length((melt_ptr_t)(/*_.INLIST__V3*/ meltfptr[2])));; MELT_LOCATION("warmelt-modes.melt:338:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ meltfrout->tabval[7]))) ) /*then*/ @@ -7406,8 +6775,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ meltfrout->tabval[6])) /*=obj*/; melt_object_get_field(slot,obj, 6, "SYSDATA_STDOUT"); - /*_.STDOUT__V28*/ - meltfptr[24] = slot; + /*_.STDOUT__V28*/ meltfptr[24] = slot; }; ; } @@ -7437,8 +6805,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[12] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7447,8 +6814,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:340:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7481,20 +6847,16 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "repl_processor stdout="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.STDOUT__V28*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ - meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:340:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; } ; } @@ -7507,8 +6869,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:340:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7517,11 +6878,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7551,12 +6910,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OUT__L15*/ - meltfnum[13] = + /*_#IS_OUT__L15*/ meltfnum[13] = (melt_is_out ((melt_ptr_t) /*_.STDOUT__V28*/ meltfptr[24])) ;; MELT_LOCATION("warmelt-modes.melt:341:/ cond"); - /*cond*/ - if (/*_#IS_OUT__L15*/ meltfnum[13]) /*then*/ + /*cond*/ if (/*_#IS_OUT__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V32*/ meltfptr[28] = (/*nil*/NULL);; @@ -7585,31 +6942,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 341; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.STDOUT__V28*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V33*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V32*/ - meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; + /*_._IFELSE___V32*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:341:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V33*/ meltfptr[32] = 0 ; } ; } ; - /*_.IFCPP___V31*/ - meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; + /*_.IFCPP___V31*/ meltfptr[29] = /*_._IFELSE___V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:341:/ clear"); - /*clear*/ /*_#IS_OUT__L15*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#IS_OUT__L15*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V32*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IFELSE___V32*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7631,8 +6982,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:348:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.REPLCONTREF__V13*/ meltfptr[12]), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7662,26 +7012,21 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:349:/ quasiblock"); - /*_.RES__V35*/ - meltfptr[28] = (/*nil*/NULL);; + /*_.RES__V35*/ meltfptr[28] = (/*nil*/NULL);; /*^compute*/ - /*_.OCCMAP__V36*/ - meltfptr[35] = + /*_.OCCMAP__V36*/ meltfptr[35] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[8])), (50)));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#DEBUG_DEPTH__L16*/ - meltfnum[12] = + /*_#DEBUG_DEPTH__L16*/ meltfnum[12] = (long) (melt_debug_depth ());; /*^compute*/ - /*_#plI__L17*/ - meltfnum[13] = + /*_#plI__L17*/ meltfnum[13] = ((3) + (/*_#DEBUG_DEPTH__L16*/ meltfnum[12]));; /*^compute*/ - /*_.BOX__V37*/ - meltfptr[36] = + /*_.BOX__V37*/ meltfptr[36] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#plI__L17*/ meltfnum[13]));; MELT_LOCATION("warmelt-modes.melt:351:/ quasiblock"); @@ -7691,8 +7036,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[9])), (3), "CLASS_DEBUG_INFORMATION"); - /*_.INST__V39*/ - meltfptr[38] = + /*_.INST__V39*/ meltfptr[38] = newobj; }; ; @@ -7715,8 +7059,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V39*/ meltfptr[38], "newly made instance"); ; - /*_.DBGI__V38*/ - meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; + /*_.DBGI__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:356:/ cppif.then"); @@ -7737,8 +7080,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ - meltfnum[17] = + /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7747,8 +7089,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:356:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7791,20 +7132,16 @@ meltlab_endgetargs: argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V38*/ meltfptr[37]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V41*/ - meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ - meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; + /*_._IF___V40*/ meltfptr[39] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:356:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0 ; } ; } @@ -7817,8 +7154,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:356:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7827,11 +7163,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_._IF___V40*/ meltfptr[39] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7869,13 +7203,11 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.REPLENV__V11*/ meltfptr[10]; - /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ - meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INLIST__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_RUN_MELT_EXPRESSIONS*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.INLIST__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.RES__V35*/ - meltfptr[28] = /*_.SETQ___V43*/ meltfptr[39] = /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ meltfptr[40];; + /*_.RES__V35*/ meltfptr[28] = /*_.SETQ___V43*/ meltfptr[39] = /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ meltfptr[40];; /* block_signals meltcit1__BLKSIGNAL end */ melt_blocklevel_signals = meltcit1__BLKSIGNAL_lev; MELT_CHECK_SIGNAL(); @@ -7884,11 +7216,9 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:358:/ clear"); - /*clear*/ /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V42*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V43*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.SETQ___V43*/ meltfptr[39] = 0 ; } /*endciterblock BLOCK_SIGNALS*/ ; @@ -7911,8 +7241,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L20*/ - meltfnum[18] = + /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7921,8 +7250,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:361:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7965,20 +7293,16 @@ meltlab_endgetargs: argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V38*/ meltfptr[37]; /*^apply.arg*/ argtab[9].meltbp_cstring = "\n"; - /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V44*/ - meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; + /*_._IF___V44*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:361:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L21*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L21*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0 ; } ; } @@ -7991,8 +7315,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:361:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8001,11 +7324,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L20*/ - meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V44*/ meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8028,12 +7349,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L22*/ - meltfnum[17] = + /*_#NULL__L22*/ meltfnum[17] = (/*null*/(/*_.RES__V35*/ meltfptr[28]) == NULL);; MELT_LOCATION("warmelt-modes.melt:362:/ cond"); - /*cond*/ - if (/*_#NULL__L22*/ meltfnum[17]) /*then*/ + /*cond*/ if (/*_#NULL__L22*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8054,17 +7373,14 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#REPLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " is null!\n\n"; - /*_.ADD2OUT__V47*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V47*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ - meltfptr[44] = /*_.ADD2OUT__V47*/ meltfptr[43];; + /*_._IFELSE___V46*/ meltfptr[44] = /*_.ADD2OUT__V47*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:362:/ clear"); - /*clear*/ /*_.ADD2OUT__V47*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.ADD2OUT__V47*/ meltfptr[43] = 0 ; } ; } @@ -8089,8 +7405,7 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#REPLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " is:\n"; - /*_.ADD2OUT__V48*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V48*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -8105,8 +7420,7 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V38*/ meltfptr[37]; /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.DBG_OUT__V49*/ - meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.RES__V35*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.DBG_OUT__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.RES__V35*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -8119,148 +7433,108 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\n\n"; - /*_.ADD2OUT__V50*/ - meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.STDOUT__V28*/ meltfptr[24]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:364:/ quasiblock"); - /*_.PROGN___V51*/ - meltfptr[50] = /*_.ADD2OUT__V50*/ meltfptr[49];; + /*_.PROGN___V51*/ meltfptr[50] = /*_.ADD2OUT__V50*/ meltfptr[49];; /*^compute*/ - /*_._IFELSE___V46*/ - meltfptr[44] = /*_.PROGN___V51*/ meltfptr[50];; + /*_._IFELSE___V46*/ meltfptr[44] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:362:/ clear"); - /*clear*/ /*_.ADD2OUT__V48*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.ADD2OUT__V48*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.DBG_OUT__V49*/ - meltfptr[48] = 0 ; + /*clear*/ /*_.DBG_OUT__V49*/ meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V50*/ - meltfptr[49] = 0 ; + /*clear*/ /*_.ADD2OUT__V50*/ meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ - meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ; } ; } ; - /*_.LET___V34*/ - meltfptr[32] = /*_._IFELSE___V46*/ meltfptr[44];; + /*_.LET___V34*/ meltfptr[32] = /*_._IFELSE___V46*/ meltfptr[44];; MELT_LOCATION("warmelt-modes.melt:349:/ clear"); - /*clear*/ /*_.RES__V35*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.RES__V35*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.OCCMAP__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.OCCMAP__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#DEBUG_DEPTH__L16*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#DEBUG_DEPTH__L16*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L17*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L17*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.BOX__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.BOX__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.DBGI__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.DBGI__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L22*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#NULL__L22*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V46*/ - meltfptr[44] = 0 ; - /*_.LET___V27*/ - meltfptr[25] = /*_.LET___V34*/ meltfptr[32];; + /*clear*/ /*_._IFELSE___V46*/ meltfptr[44] = 0 ; + /*_.LET___V27*/ meltfptr[25] = /*_.LET___V34*/ meltfptr[32];; MELT_LOCATION("warmelt-modes.melt:336:/ clear"); - /*clear*/ /*_#INLISTLEN__L12*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#INLISTLEN__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.STDOUT__V28*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.STDOUT__V28*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.IFCPP___V31*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V34*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.LET___V34*/ meltfptr[32] = 0 ; MELT_LOCATION("warmelt-modes.melt:332:/ quasiblock"); - /*_.PROGN___V52*/ - meltfptr[43] = /*_.LET___V27*/ meltfptr[25];; + /*_.PROGN___V52*/ meltfptr[43] = /*_.LET___V27*/ meltfptr[25];; /*^compute*/ - /*_._IFELSE___V23*/ - meltfptr[21] = /*_.PROGN___V52*/ meltfptr[43];; + /*_._IFELSE___V23*/ meltfptr[21] = /*_.PROGN___V52*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:323:/ clear"); - /*clear*/ /*_.IFCPP___V24*/ - meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V24*/ meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#plI__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#SETQ___L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V52*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V52*/ meltfptr[43] = 0 ; } ; } ; - /*_.LET___V9*/ - meltfptr[7] = /*_._IFELSE___V23*/ meltfptr[21];; + /*_.LET___V9*/ meltfptr[7] = /*_._IFELSE___V23*/ meltfptr[21];; MELT_LOCATION("warmelt-modes.melt:314:/ clear"); - /*clear*/ /*_.REPLDATA__V10*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.REPLDATA__V10*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLENV__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.REPLENV__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLCOUNTERV__V12*/ - meltfptr[11] = 0 ; + /*clear*/ /*_.REPLCOUNTERV__V12*/ meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLCONTREF__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.REPLCONTREF__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_#REPLCOUNT__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#REPLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L8*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L8*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ - meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ meltfptr[21] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:311:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-modes.melt:311:/ locexp"); @@ -8275,16 +7549,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; @@ -8366,8 +7637,7 @@ meltrout_7_WARMELTmiMODES_REPL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /* end of frame for routine meltrout_7_WARMELTmiMODES_REPL_DOCMD fromline 1756 */ - /* classy proc frame meltrout_7_WARMELTmiMODES_REPL_DOCMD */ - MeltFrame_meltrout_7_WARMELTmiMODES_REPL_DOCMD + /* classy proc frame meltrout_7_WARMELTmiMODES_REPL_DOCMD */ MeltFrame_meltrout_7_WARMELTmiMODES_REPL_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_7_WARMELTmiMODES_REPL_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -8380,8 +7650,7 @@ meltrout_7_WARMELTmiMODES_REPL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me #define meltframe meltfram__ melt_trace_start("REPL_DOCMD", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8391,14 +7660,12 @@ meltrout_7_WARMELTmiMODES_REPL_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:373:/ getarg"); - /*_.CMD__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -8430,8 +7697,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8440,8 +7706,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:374:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8478,20 +7743,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ - meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:374:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; } ; } @@ -8504,8 +7765,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:374:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8514,11 +7774,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8548,12 +7806,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-modes.melt:375:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[3] = (/*nil*/NULL);; @@ -8582,31 +7838,25 @@ meltlab_endgetargs: argtab[2].meltbp_long = 375; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V7*/ - meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; + /*_._IFELSE___V7*/ meltfptr[3] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:375:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; - /*_.IFCPP___V6*/ - meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; + /*_.IFCPP___V6*/ meltfptr[4] = /*_._IFELSE___V7*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:375:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V7*/ - meltfptr[3] = 0 ; + /*clear*/ /*_._IFELSE___V7*/ meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8640,8 +7890,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_4*/ meltfrout->tabval[4]); - /*_.NEWENV__V10*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NEWENV__V10*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -8655,8 +7904,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[5])), (1), "CLASS_REFERENCE"); - /*_.INST__V12*/ - meltfptr[11] = + /*_.INST__V12*/ meltfptr[11] = newobj; }; ; @@ -8664,11 +7912,9 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V12*/ meltfptr[11], "newly made instance"); ; - /*_.REFCONT__V11*/ - meltfptr[10] = /*_.INST__V12*/ meltfptr[11];; + /*_.REFCONT__V11*/ meltfptr[10] = /*_.INST__V12*/ meltfptr[11];; /*^compute*/ - /*_.EVALCOUNTER__V13*/ - meltfptr[12] = + /*_.EVALCOUNTER__V13*/ meltfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[6])), (0)));; MELT_CHECK_SIGNAL(); @@ -8681,8 +7927,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_READ_EVAL_PRINT_LOOP_DATA*/ meltfrout->tabval[7])), (5), "CLASS_READ_EVAL_PRINT_LOOP_DATA"); - /*_.INST__V15*/ - meltfptr[14] = + /*_.INST__V15*/ meltfptr[14] = newobj; }; ; @@ -8705,14 +7950,12 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V15*/ meltfptr[14], "newly made instance"); ; - /*_.REPLDATA__V14*/ - meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; + /*_.REPLDATA__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:393:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V17*/ - meltfptr[16] = + /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[16] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (1)); ; /*^putclosedv*/ @@ -8721,14 +7964,12 @@ meltlab_endgetargs: 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)(/*_.REFCONT__V11*/ meltfptr[10]); ; - /*_.CONTFUN__V16*/ - meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; + /*_.CONTFUN__V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-modes.melt:394:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V19*/ - meltfptr[18] = + /*newclosure*/ /*_.LAMBDA___V19*/ meltfptr[18] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ meltfrout->tabval[14])), (2)); ; /*^putclosedv*/ @@ -8743,8 +7984,7 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ meltfptr[18]))); ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ meltfptr[18])->tabval[1] = (melt_ptr_t)(/*_.EVALCOUNTER__V13*/ meltfptr[12]); ; - /*_.WAITFUN__V18*/ - meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; + /*_.WAITFUN__V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; MELT_CHECK_SIGNAL(); ; @@ -8756,8 +7996,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[15])), (2), "CLASS_VALUE_BINDING"); - /*_.INST__V21*/ - meltfptr[20] = + /*_.INST__V21*/ meltfptr[20] = newobj; }; ; @@ -8775,8 +8014,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V21*/ meltfptr[20], "newly made instance"); ; - /*_.CONTVALBIND__V20*/ - meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; + /*_.CONTVALBIND__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; MELT_CHECK_SIGNAL(); ; @@ -8788,8 +8026,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[15])), (2), "CLASS_VALUE_BINDING"); - /*_.INST__V23*/ - meltfptr[22] = + /*_.INST__V23*/ meltfptr[22] = newobj; }; ; @@ -8807,8 +8044,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V23*/ meltfptr[22], "newly made instance"); ; - /*_.WAITREPLBIND__V22*/ - meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; + /*_.WAITREPLBIND__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; MELT_CHECK_SIGNAL(); ; @@ -8819,8 +8055,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CONTVALBIND__V20*/ meltfptr[19]; - /*_.PUT_ENV__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V10*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V10*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -8833,8 +8068,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.WAITREPLBIND__V22*/ meltfptr[21]; - /*_.PUT_ENV__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V10*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.PUT_ENV__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.NEWENV__V10*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -8857,8 +8091,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8867,8 +8100,7 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:432:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8905,20 +8137,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " repldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.REPLDATA__V14*/ meltfptr[13]; - /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:432:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; } ; } @@ -8931,8 +8159,7 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:432:/ locexp"); - /*void*/ - (void)0; + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8941,11 +8168,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8977,16 +8202,14 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.REPLDATA__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[1].meltbp_long = 0; - /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V28*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[19])), (melt_ptr_t)((/*!REPL_PROCESSOR*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V28*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ meltfrout->tabval[19])), (melt_ptr_t)((/*!REPL_PROCESSOR*/ meltfrout->tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:436:/ quasiblock"); /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V30*/ - meltfptr[29] = + /*newclosure*/ /*_.LAMBDA___V30*/ meltfptr[29] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ meltfrout->tabval[23])), (1)); ; /*^putclosedv*/ @@ -8995,8 +8218,7 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ meltfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ meltfptr[29])->tabval[0] = (melt_ptr_t)(/*_.WAITFUN__V18*/ meltfptr[17]); ; - /*_.LAMBDA___V29*/ - meltfptr[25] = /*_.LAMBDA___V30*/ meltfptr[29];; + /*_.LAMBDA___V29*/ meltfptr[25] = /*_.LAMBDA___V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; @@ -9010,8 +8232,7 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V33*/ - meltfptr[32] = + /*newclosure*/ /*_.LAMBDA___V33*/ meltfptr[32] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (1)); ; /*^putclosedv*/ @@ -9020,8 +8241,7 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V33*/ meltfptr[32]))); ((meltclosure_ptr_t)/*_.LAMBDA___V33*/ meltfptr[32])->tabval[0] = (melt_ptr_t)(/*_.WAITFUN__V18*/ meltfptr[17]); ; - /*_.LAMBDA___V32*/ - meltfptr[31] = /*_.LAMBDA___V33*/ meltfptr[32];; + /*_.LAMBDA___V32*/ meltfptr[31] = /*_.LAMBDA___V33*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; @@ -9035,8 +8255,7 @@ meltlab_endgetargs: /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V36*/ - meltfptr[35] = + /*newclosure*/ /*_.LAMBDA___V36*/ meltfptr[35] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ meltfrout->tabval[29])), (1)); ; /*^putclosedv*/ @@ -9045,8 +8264,7 @@ meltlab_endgetargs: melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[0] = (melt_ptr_t)(/*_.WAITFUN__V18*/ meltfptr[17]); ; - /*_.LAMBDA___V35*/ - meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; + /*_.LAMBDA___V35*/ meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; @@ -9071,8 +8289,7 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:468:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.REPLDATA__V14*/ meltfptr[13];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.REPLDATA__V14*/ meltfptr[13];; { MELT_LOCATION("warmelt-modes.melt:468:/ locexp"); @@ -9087,76 +8304,54 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V9*/ - meltfptr[7] = /*_.RETURN___V39*/ meltfptr[38];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V9*/ meltfptr[7] = /*_.RETURN___V39*/ meltfptr[38];; MELT_LOCATION("warmelt-modes.melt:385:/ clear"); - /*clear*/ /*_.NEWENV__V10*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.NEWENV__V10*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.REFCONT__V11*/ - meltfptr[10] = 0 ; + /*clear*/ /*_.REFCONT__V11*/ meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.EVALCOUNTER__V13*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.EVALCOUNTER__V13*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.REPLDATA__V14*/ - meltfptr[13] = 0 ; + /*clear*/ /*_.REPLDATA__V14*/ meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.CONTFUN__V16*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.CONTFUN__V16*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.WAITFUN__V18*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.WAITFUN__V18*/ meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.CONTVALBIND__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.CONTVALBIND__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.WAITREPLBIND__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.WAITREPLBIND__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PUT_ENV__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PUT_ENV__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PUT_ENV__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V28*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V29*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.LAMBDA___V29*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.REGISTER_ALL_PASSES_END_FIRST__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.REGISTER_ALL_PASSES_END_FIRST__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.LAMBDA___V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.AT_FINISH_UNIT_FIRST__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.AT_FINISH_UNIT_FIRST__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.LAMBDA___V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.LAMBDA___V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.AT_EXIT_LAST__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.AT_EXIT_LAST__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.WAITFUN__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.WAITFUN__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.RETURN___V39*/ meltfptr[38] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:373:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-modes.melt:373:/ locexp"); @@ -9171,16 +8366,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V6*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ - meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; } ; @@ -9206,8 +8398,7 @@ const char melt_module_is_gpl_compatible[]= "warmelt-modes: GPLv3+"; /* the frame for initial routine */ /** start of frame for melt_start_this_module of CLASS_INITIAL_MODULE_ROUTINEOBJ from 1555**/ -/*curframdeclclassy*/ -class Melt_InitialClassyFrame_WARMELTmiMODES_h197312044// fromline 1568 +/*curframdeclclassy*/ class Melt_InitialClassyFrame_WARMELTmiMODES_h197312044// fromline 1568 : public Melt_CallFrameWithValues<648> { public: /* fromline 1572*/ @@ -9799,8 +8990,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V95*/ meltfptr[94]) + /*uniqueobj*/ if (!/*_._VALDATA___V95*/ meltfptr[94]) /*_._VALDATA___V95*/ meltfptr[94] = (melt_ptr_t )&meltcdat->dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9810,32 +9000,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_2__HOOK_FRESH_ENVIRONMENT_R*/ - /*_._VALSTR___V96*/ - meltfptr[95] = (melt_ptr_t) &meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R; + /*_._VALSTR___V96*/ meltfptr[95] = (melt_ptr_t) &meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R; meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val, "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", sizeof (meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val, "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", sizeof (meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val)-1); meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.val[38] = (char)0 ; meltcdat->dstr_2__HOOK_FRESH_ENVIRONMENT_R.slen = 38 ; /*inirout drout_3__INSTALL_MELT_MODE*/ - /*iniroutlocvar*/ /*_._VALROUT___V97*/ - meltfptr[96] = (melt_ptr_t) &meltcdat->drout_3__INSTALL_MELT_MODE; + /*iniroutlocvar*/ /*_._VALROUT___V97*/ meltfptr[96] = (melt_ptr_t) &meltcdat->drout_3__INSTALL_MELT_MODE; meltcdat->drout_3__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_3__INSTALL_MELT_MODE.routdescr, "INSTALL_MELT_MODE @warmelt-modes.melt:40", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_3__INSTALL_MELT_MODE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_3__INSTALL_MELT_MODE, meltrout_1_WARMELTmiMODES_INSTALL_MELT_MODE); /*iniclos dclo_4__INSTALL_MELT_MODE*/ - /*_._VALCLO___V98*/ - meltfptr[97] = (melt_ptr_t) &meltcdat->dclo_4__INSTALL_MELT_MODE; + /*_._VALCLO___V98*/ meltfptr[97] = (melt_ptr_t) &meltcdat->dclo_4__INSTALL_MELT_MODE; meltcdat->dclo_4__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_4__INSTALL_MELT_MODE.nbval = 0; /*iniobj dsym_5__MELT_DEBUG_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V99*/ meltfptr[98]) + /*uniqueobj*/ if (!/*_._VALDATA___V99*/ meltfptr[98]) /*_._VALDATA___V99*/ meltfptr[98] = (melt_ptr_t )&meltcdat->dsym_5__MELT_DEBUG_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_5__MELT_DEBUG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_5__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9845,18 +9030,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_6__MELT_DEBUG_FUN*/ - /*_._VALSTR___V100*/ - meltfptr[99] = (melt_ptr_t) &meltcdat->dstr_6__MELT_DEBUG_FUN; + /*_._VALSTR___V100*/ meltfptr[99] = (melt_ptr_t) &meltcdat->dstr_6__MELT_DEBUG_FUN; meltcdat->dstr_6__MELT_DEBUG_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_6__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_6__MELT_DEBUG_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_6__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (meltcdat->dstr_6__MELT_DEBUG_FUN.val)-1); meltcdat->dstr_6__MELT_DEBUG_FUN.val[14] = (char)0 ; meltcdat->dstr_6__MELT_DEBUG_FUN.slen = 14 ; /*iniobj dsym_7__CLASS_MELT_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V101*/ meltfptr[100]) + /*uniqueobj*/ if (!/*_._VALDATA___V101*/ meltfptr[100]) /*_._VALDATA___V101*/ meltfptr[100] = (melt_ptr_t )&meltcdat->dsym_7__CLASS_MELT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_7__CLASS_MELT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_7__CLASS_MELT_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9866,18 +9048,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_8__CLASS_MELT_MODE*/ - /*_._VALSTR___V102*/ - meltfptr[101] = (melt_ptr_t) &meltcdat->dstr_8__CLASS_MELT_MODE; + /*_._VALSTR___V102*/ meltfptr[101] = (melt_ptr_t) &meltcdat->dstr_8__CLASS_MELT_MODE; meltcdat->dstr_8__CLASS_MELT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_8__CLASS_MELT_MODE.val, "CLASS_MELT_MODE", sizeof (meltcdat->dstr_8__CLASS_MELT_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_8__CLASS_MELT_MODE.val, "CLASS_MELT_MODE", sizeof (meltcdat->dstr_8__CLASS_MELT_MODE.val)-1); meltcdat->dstr_8__CLASS_MELT_MODE.val[15] = (char)0 ; meltcdat->dstr_8__CLASS_MELT_MODE.slen = 15 ; /*iniobj dsym_9__MELT_ASSERT_FAILURE_FUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V103*/ meltfptr[102]) + /*uniqueobj*/ if (!/*_._VALDATA___V103*/ meltfptr[102]) /*_._VALDATA___V103*/ meltfptr[102] = (melt_ptr_t )&meltcdat->dsym_9__MELT_ASSERT_FAILURE_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_9__MELT_ASSERT_FAILURE_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_9__MELT_ASSERT_FAILURE_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9887,18 +9066,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_10__MELT_ASSERT_FAILURE_FUN*/ - /*_._VALSTR___V104*/ - meltfptr[103] = (melt_ptr_t) &meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN; + /*_._VALSTR___V104*/ meltfptr[103] = (melt_ptr_t) &meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN; meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.val)-1); meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.val[23] = (char)0 ; meltcdat->dstr_10__MELT_ASSERT_FAILURE_FUN.slen = 23 ; /*iniobj dsym_11__INITIAL_SYSTEM_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V105*/ meltfptr[104]) + /*uniqueobj*/ if (!/*_._VALDATA___V105*/ meltfptr[104]) /*_._VALDATA___V105*/ meltfptr[104] = (melt_ptr_t )&meltcdat->dsym_11__INITIAL_SYSTEM_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_11__INITIAL_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_11__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9908,18 +9084,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_12__INITIAL_SYSTEM_DATA*/ - /*_._VALSTR___V106*/ - meltfptr[105] = (melt_ptr_t) &meltcdat->dstr_12__INITIAL_SYSTEM_DATA; + /*_._VALSTR___V106*/ meltfptr[105] = (melt_ptr_t) &meltcdat->dstr_12__INITIAL_SYSTEM_DATA; meltcdat->dstr_12__INITIAL_SYSTEM_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_12__INITIAL_SYSTEM_DATA.val, "INITIAL_SYSTEM_DATA", sizeof (meltcdat->dstr_12__INITIAL_SYSTEM_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_12__INITIAL_SYSTEM_DATA.val, "INITIAL_SYSTEM_DATA", sizeof (meltcdat->dstr_12__INITIAL_SYSTEM_DATA.val)-1); meltcdat->dstr_12__INITIAL_SYSTEM_DATA.val[19] = (char)0 ; meltcdat->dstr_12__INITIAL_SYSTEM_DATA.slen = 19 ; /*iniobj dsym_13__CLASS_SYSTEM_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V107*/ meltfptr[106]) + /*uniqueobj*/ if (!/*_._VALDATA___V107*/ meltfptr[106]) /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t )&meltcdat->dsym_13__CLASS_SYSTEM_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_13__CLASS_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_13__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9929,18 +9102,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_14__CLASS_SYSTEM_DATA*/ - /*_._VALSTR___V108*/ - meltfptr[107] = (melt_ptr_t) &meltcdat->dstr_14__CLASS_SYSTEM_DATA; + /*_._VALSTR___V108*/ meltfptr[107] = (melt_ptr_t) &meltcdat->dstr_14__CLASS_SYSTEM_DATA; meltcdat->dstr_14__CLASS_SYSTEM_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_14__CLASS_SYSTEM_DATA.val, "CLASS_SYSTEM_DATA", sizeof (meltcdat->dstr_14__CLASS_SYSTEM_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_14__CLASS_SYSTEM_DATA.val, "CLASS_SYSTEM_DATA", sizeof (meltcdat->dstr_14__CLASS_SYSTEM_DATA.val)-1); meltcdat->dstr_14__CLASS_SYSTEM_DATA.val[17] = (char)0 ; meltcdat->dstr_14__CLASS_SYSTEM_DATA.slen = 17 ; /*iniobj dsym_15__CLASS_NAMED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V109*/ meltfptr[108]) + /*uniqueobj*/ if (!/*_._VALDATA___V109*/ meltfptr[108]) /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t )&meltcdat->dsym_15__CLASS_NAMED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_15__CLASS_NAMED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_15__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9950,18 +9120,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_16__CLASS_NAMED*/ - /*_._VALSTR___V110*/ - meltfptr[109] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_NAMED; + /*_._VALSTR___V110*/ meltfptr[109] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_NAMED; meltcdat->dstr_16__CLASS_NAMED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_16__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_16__CLASS_NAMED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_16__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_16__CLASS_NAMED.val)-1); meltcdat->dstr_16__CLASS_NAMED.val[11] = (char)0 ; meltcdat->dstr_16__CLASS_NAMED.slen = 11 ; /*iniobj dsym_17__DISCR_STRING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V111*/ meltfptr[110]) + /*uniqueobj*/ if (!/*_._VALDATA___V111*/ meltfptr[110]) /*_._VALDATA___V111*/ meltfptr[110] = (melt_ptr_t )&meltcdat->dsym_17__DISCR_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_17__DISCR_STRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_17__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9971,18 +9138,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_18__DISCR_STRING*/ - /*_._VALSTR___V112*/ - meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_18__DISCR_STRING; + /*_._VALSTR___V112*/ meltfptr[111] = (melt_ptr_t) &meltcdat->dstr_18__DISCR_STRING; meltcdat->dstr_18__DISCR_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_18__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_18__DISCR_STRING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_18__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_18__DISCR_STRING.val)-1); meltcdat->dstr_18__DISCR_STRING.val[12] = (char)0 ; meltcdat->dstr_18__DISCR_STRING.slen = 12 ; /*iniobj dsym_19__INSTALL_MELT_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V113*/ meltfptr[112]) + /*uniqueobj*/ if (!/*_._VALDATA___V113*/ meltfptr[112]) /*_._VALDATA___V113*/ meltfptr[112] = (melt_ptr_t )&meltcdat->dsym_19__INSTALL_MELT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_19__INSTALL_MELT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_19__INSTALL_MELT_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -9992,32 +9156,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_20__INSTALL_MELT_MODE*/ - /*_._VALSTR___V114*/ - meltfptr[113] = (melt_ptr_t) &meltcdat->dstr_20__INSTALL_MELT_MODE; + /*_._VALSTR___V114*/ meltfptr[113] = (melt_ptr_t) &meltcdat->dstr_20__INSTALL_MELT_MODE; meltcdat->dstr_20__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_20__INSTALL_MELT_MODE.val, "INSTALL_MELT_MODE", sizeof (meltcdat->dstr_20__INSTALL_MELT_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_20__INSTALL_MELT_MODE.val, "INSTALL_MELT_MODE", sizeof (meltcdat->dstr_20__INSTALL_MELT_MODE.val)-1); meltcdat->dstr_20__INSTALL_MELT_MODE.val[17] = (char)0 ; meltcdat->dstr_20__INSTALL_MELT_MODE.slen = 17 ; /*inirout drout_21__RUNFILE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V115*/ - meltfptr[114] = (melt_ptr_t) &meltcdat->drout_21__RUNFILE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V115*/ meltfptr[114] = (melt_ptr_t) &meltcdat->drout_21__RUNFILE_DOCMD; meltcdat->drout_21__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_21__RUNFILE_DOCMD.routdescr, "RUNFILE_DOCMD @warmelt-modes.melt:74", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_21__RUNFILE_DOCMD.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_21__RUNFILE_DOCMD, meltrout_2_WARMELTmiMODES_RUNFILE_DOCMD); /*iniclos dclo_22__RUNFILE_DOCMD*/ - /*_._VALCLO___V120*/ - meltfptr[119] = (melt_ptr_t) &meltcdat->dclo_22__RUNFILE_DOCMD; + /*_._VALCLO___V120*/ meltfptr[119] = (melt_ptr_t) &meltcdat->dclo_22__RUNFILE_DOCMD; meltcdat->dclo_22__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_22__RUNFILE_DOCMD.nbval = 0; /*iniobj dsym_23__INITIAL_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V121*/ meltfptr[120]) + /*uniqueobj*/ if (!/*_._VALDATA___V121*/ meltfptr[120]) /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t )&meltcdat->dsym_23__INITIAL_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_23__INITIAL_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_23__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10027,18 +9186,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_24__INITIAL_ENVIRONMENT*/ - /*_._VALSTR___V122*/ - meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_24__INITIAL_ENVIRONMENT; + /*_._VALSTR___V122*/ meltfptr[121] = (melt_ptr_t) &meltcdat->dstr_24__INITIAL_ENVIRONMENT; meltcdat->dstr_24__INITIAL_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_24__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_24__INITIAL_ENVIRONMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_24__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_24__INITIAL_ENVIRONMENT.val)-1); meltcdat->dstr_24__INITIAL_ENVIRONMENT.val[19] = (char)0 ; meltcdat->dstr_24__INITIAL_ENVIRONMENT.slen = 19 ; /*iniobj dsym_25__CLASS_ENVIRONMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V123*/ meltfptr[122]) + /*uniqueobj*/ if (!/*_._VALDATA___V123*/ meltfptr[122]) /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t )&meltcdat->dsym_25__CLASS_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_25__CLASS_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_25__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10048,18 +9204,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_26__CLASS_ENVIRONMENT*/ - /*_._VALSTR___V124*/ - meltfptr[123] = (melt_ptr_t) &meltcdat->dstr_26__CLASS_ENVIRONMENT; + /*_._VALSTR___V124*/ meltfptr[123] = (melt_ptr_t) &meltcdat->dstr_26__CLASS_ENVIRONMENT; meltcdat->dstr_26__CLASS_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_26__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_26__CLASS_ENVIRONMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_26__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_26__CLASS_ENVIRONMENT.val)-1); meltcdat->dstr_26__CLASS_ENVIRONMENT.val[17] = (char)0 ; meltcdat->dstr_26__CLASS_ENVIRONMENT.slen = 17 ; /*iniobj dsym_27__ERROR_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V125*/ meltfptr[124]) + /*uniqueobj*/ if (!/*_._VALDATA___V125*/ meltfptr[124]) /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t )&meltcdat->dsym_27__ERROR_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_27__ERROR_AT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_27__ERROR_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10069,18 +9222,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_28__ERROR_AT*/ - /*_._VALSTR___V126*/ - meltfptr[125] = (melt_ptr_t) &meltcdat->dstr_28__ERROR_AT; + /*_._VALSTR___V126*/ meltfptr[125] = (melt_ptr_t) &meltcdat->dstr_28__ERROR_AT; meltcdat->dstr_28__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_28__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_28__ERROR_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_28__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_28__ERROR_AT.val)-1); meltcdat->dstr_28__ERROR_AT.val[8] = (char)0 ; meltcdat->dstr_28__ERROR_AT.slen = 8 ; /*iniobj dsym_29__TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V127*/ meltfptr[126]) + /*uniqueobj*/ if (!/*_._VALDATA___V127*/ meltfptr[126]) /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t )&meltcdat->dsym_29__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__TRANSLATE_TO_CC_MODULE_MELT_SOURCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_29__TRANSLATE_TO_CC_MODULE_MELT_SOURCES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10090,38 +9240,31 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_30__TRANSLATE_TO_CC_MODULE_M*/ - /*_._VALSTR___V128*/ - meltfptr[127] = (melt_ptr_t) &meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M; + /*_._VALSTR___V128*/ meltfptr[127] = (melt_ptr_t) &meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M; meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.val, "TRANSLATE_TO_CC_MODULE_MELT_SOURCES", sizeof (meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.val, "TRANSLATE_TO_CC_MODULE_MELT_SOURCES", sizeof (meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.val)-1); meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.val[35] = (char)0 ; meltcdat->dstr_30__TRANSLATE_TO_CC_MODULE_M.slen = 35 ; /*inistring dstr_31__quicklybuilt*/ - /*_._VALSTR___V116*/ - meltfptr[115] = (melt_ptr_t) &meltcdat->dstr_31__quicklybuilt; + /*_._VALSTR___V116*/ meltfptr[115] = (melt_ptr_t) &meltcdat->dstr_31__quicklybuilt; meltcdat->dstr_31__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_31__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_31__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_31__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_31__quicklybuilt.val)-1); meltcdat->dstr_31__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_31__quicklybuilt.slen = 12 ; /*inistring dstr_32__quicklybuilt*/ - /*_._VALSTR___V117*/ - meltfptr[116] = (melt_ptr_t) &meltcdat->dstr_32__quicklybuilt; + /*_._VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) &meltcdat->dstr_32__quicklybuilt; meltcdat->dstr_32__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_32__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_32__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_32__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_32__quicklybuilt.val)-1); meltcdat->dstr_32__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_32__quicklybuilt.slen = 12 ; /*iniobj dsym_33__TRUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V118*/ meltfptr[117]) + /*uniqueobj*/ if (!/*_._VALDATA___V118*/ meltfptr[117]) /*_._VALDATA___V118*/ meltfptr[117] = (melt_ptr_t )&meltcdat->dsym_33__TRUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_33__TRUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_33__TRUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10131,18 +9274,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_34__TRUE*/ - /*_._VALSTR___V119*/ - meltfptr[118] = (melt_ptr_t) &meltcdat->dstr_34__TRUE; + /*_._VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) &meltcdat->dstr_34__TRUE; meltcdat->dstr_34__TRUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_34__TRUE.val, "TRUE", sizeof (meltcdat->dstr_34__TRUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_34__TRUE.val, "TRUE", sizeof (meltcdat->dstr_34__TRUE.val)-1); meltcdat->dstr_34__TRUE.val[4] = (char)0 ; meltcdat->dstr_34__TRUE.slen = 4 ; /*iniobj dsym_35__RUNFILE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V129*/ meltfptr[128]) + /*uniqueobj*/ if (!/*_._VALDATA___V129*/ meltfptr[128]) /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t )&meltcdat->dsym_35__RUNFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_35__RUNFILE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_35__RUNFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10152,19 +9292,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_36__RUNFILE_MODE*/ - /*_._VALSTR___V130*/ - meltfptr[129] = (melt_ptr_t) &meltcdat->dstr_36__RUNFILE_MODE; + /*_._VALSTR___V130*/ meltfptr[129] = (melt_ptr_t) &meltcdat->dstr_36__RUNFILE_MODE; meltcdat->dstr_36__RUNFILE_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_36__RUNFILE_MODE.val, "RUNFILE_MODE", sizeof (meltcdat->dstr_36__RUNFILE_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_36__RUNFILE_MODE.val, "RUNFILE_MODE", sizeof (meltcdat->dstr_36__RUNFILE_MODE.val)-1); meltcdat->dstr_36__RUNFILE_MODE.val[12] = (char)0 ; meltcdat->dstr_36__RUNFILE_MODE.slen = 12 ; MELT_LOCATION("warmelt-modes.melt:126:/ iniobj"); /*iniobj dobj_37__RUNFILE_MODE*/ - /*_._VALDATA___V131*/ - meltfptr[130] = (melt_ptr_t )&meltcdat->dobj_37__RUNFILE_MODE; + /*_._VALDATA___V131*/ meltfptr[130] = (melt_ptr_t )&meltcdat->dobj_37__RUNFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_37__RUNFILE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_37__RUNFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_37__RUNFILE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -10173,54 +9310,45 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_38__translate_and_run_a_mel*/ - /*_._VALSTR___V132*/ - meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_38__translate_and_run_a_mel; + /*_._VALSTR___V132*/ meltfptr[131] = (melt_ptr_t) &meltcdat->dstr_38__translate_and_run_a_mel; meltcdat->dstr_38__translate_and_run_a_mel.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_38__translate_and_run_a_mel.val, "translate and run a .melt file.\n \t ARGUMENT=\ + /*small inistring*/ strncpy(meltcdat->dstr_38__translate_and_run_a_mel.val, "translate and run a .melt file.\n \t ARGUMENT=\ \ninput file; [OUTPUT=generated C]. The module is quickly compiled\ and\nhas basic debug support thru DEBUG, ASSERT_MSG...", sizeof (meltcdat->dstr_38__translate_and_run_a_mel.val)-1); meltcdat->dstr_38__translate_and_run_a_mel.val[163] = (char)0 ; meltcdat->dstr_38__translate_and_run_a_mel.slen = 163 ; /*inirout drout_39__RUNDEBUG_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V133*/ - meltfptr[132] = (melt_ptr_t) &meltcdat->drout_39__RUNDEBUG_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V133*/ meltfptr[132] = (melt_ptr_t) &meltcdat->drout_39__RUNDEBUG_DOCMD; meltcdat->drout_39__RUNDEBUG_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_39__RUNDEBUG_DOCMD.routdescr, "RUNDEBUG_DOCMD @warmelt-modes.melt:137", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_39__RUNDEBUG_DOCMD.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_39__RUNDEBUG_DOCMD, meltrout_3_WARMELTmiMODES_RUNDEBUG_DOCMD); /*iniclos dclo_40__RUNDEBUG_DOCMD*/ - /*_._VALCLO___V136*/ - meltfptr[135] = (melt_ptr_t) &meltcdat->dclo_40__RUNDEBUG_DOCMD; + /*_._VALCLO___V136*/ meltfptr[135] = (melt_ptr_t) &meltcdat->dclo_40__RUNDEBUG_DOCMD; meltcdat->dclo_40__RUNDEBUG_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_40__RUNDEBUG_DOCMD.nbval = 0; /*inistring dstr_41__debugnoline*/ - /*_._VALSTR___V134*/ - meltfptr[133] = (melt_ptr_t) &meltcdat->dstr_41__debugnoline; + /*_._VALSTR___V134*/ meltfptr[133] = (melt_ptr_t) &meltcdat->dstr_41__debugnoline; meltcdat->dstr_41__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_41__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_41__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_41__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_41__debugnoline.val)-1); meltcdat->dstr_41__debugnoline.val[11] = (char)0 ; meltcdat->dstr_41__debugnoline.slen = 11 ; /*inistring dstr_42__debugnoline*/ - /*_._VALSTR___V135*/ - meltfptr[134] = (melt_ptr_t) &meltcdat->dstr_42__debugnoline; + /*_._VALSTR___V135*/ meltfptr[134] = (melt_ptr_t) &meltcdat->dstr_42__debugnoline; meltcdat->dstr_42__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_42__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_42__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_42__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_42__debugnoline.val)-1); meltcdat->dstr_42__debugnoline.val[11] = (char)0 ; meltcdat->dstr_42__debugnoline.slen = 11 ; /*iniobj dsym_43__RUNDEBUG_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V137*/ meltfptr[136]) + /*uniqueobj*/ if (!/*_._VALDATA___V137*/ meltfptr[136]) /*_._VALDATA___V137*/ meltfptr[136] = (melt_ptr_t )&meltcdat->dsym_43__RUNDEBUG_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_43__RUNDEBUG_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_43__RUNDEBUG_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10230,19 +9358,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_44__RUNDEBUG_MODE*/ - /*_._VALSTR___V138*/ - meltfptr[137] = (melt_ptr_t) &meltcdat->dstr_44__RUNDEBUG_MODE; + /*_._VALSTR___V138*/ meltfptr[137] = (melt_ptr_t) &meltcdat->dstr_44__RUNDEBUG_MODE; meltcdat->dstr_44__RUNDEBUG_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_44__RUNDEBUG_MODE.val, "RUNDEBUG_MODE", sizeof (meltcdat->dstr_44__RUNDEBUG_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_44__RUNDEBUG_MODE.val, "RUNDEBUG_MODE", sizeof (meltcdat->dstr_44__RUNDEBUG_MODE.val)-1); meltcdat->dstr_44__RUNDEBUG_MODE.val[13] = (char)0 ; meltcdat->dstr_44__RUNDEBUG_MODE.slen = 13 ; MELT_LOCATION("warmelt-modes.melt:191:/ iniobj"); /*iniobj dobj_45__RUNDEBUG_MODE*/ - /*_._VALDATA___V139*/ - meltfptr[138] = (melt_ptr_t )&meltcdat->dobj_45__RUNDEBUG_MODE; + /*_._VALDATA___V139*/ meltfptr[138] = (melt_ptr_t )&meltcdat->dobj_45__RUNDEBUG_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_45__RUNDEBUG_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_45__RUNDEBUG_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_45__RUNDEBUG_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -10251,33 +9376,28 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_46__translate_and_run_a_mel*/ - /*_._VALSTR___V140*/ - meltfptr[139] = (melt_ptr_t) &meltcdat->dstr_46__translate_and_run_a_mel; + /*_._VALSTR___V140*/ meltfptr[139] = (melt_ptr_t) &meltcdat->dstr_46__translate_and_run_a_mel; meltcdat->dstr_46__translate_and_run_a_mel.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_46__translate_and_run_a_mel.val, "translate and run a .melt file for debug;\ + /*small inistring*/ strncpy(meltcdat->dstr_46__translate_and_run_a_mel.val, "translate and run a .melt file for debug;\ \n\n\t ARGUMENT= input file; [OUTPUT=generated C]", sizeof (meltcdat->dstr_46__translate_and_run_a_mel.val)-1); meltcdat->dstr_46__translate_and_run_a_mel.val[88] = (char)0 ; meltcdat->dstr_46__translate_and_run_a_mel.slen = 88 ; /*inirout drout_47__EVAL_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V141*/ - meltfptr[140] = (melt_ptr_t) &meltcdat->drout_47__EVAL_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V141*/ meltfptr[140] = (melt_ptr_t) &meltcdat->drout_47__EVAL_DOCMD; meltcdat->drout_47__EVAL_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_47__EVAL_DOCMD.routdescr, "EVAL_DOCMD @warmelt-modes.melt:201", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_47__EVAL_DOCMD.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_47__EVAL_DOCMD, meltrout_4_WARMELTmiMODES_EVAL_DOCMD); /*iniclos dclo_48__EVAL_DOCMD*/ - /*_._VALCLO___V144*/ - meltfptr[143] = (melt_ptr_t) &meltcdat->dclo_48__EVAL_DOCMD; + /*_._VALCLO___V144*/ meltfptr[143] = (melt_ptr_t) &meltcdat->dclo_48__EVAL_DOCMD; meltcdat->dclo_48__EVAL_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_48__EVAL_DOCMD.nbval = 0; /*iniobj dsym_49__DISCR_MAP_OBJECTS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V145*/ meltfptr[144]) + /*uniqueobj*/ if (!/*_._VALDATA___V145*/ meltfptr[144]) /*_._VALDATA___V145*/ meltfptr[144] = (melt_ptr_t )&meltcdat->dsym_49__DISCR_MAP_OBJECTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_49__DISCR_MAP_OBJECTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_49__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10287,18 +9407,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_50__DISCR_MAP_OBJECTS*/ - /*_._VALSTR___V146*/ - meltfptr[145] = (melt_ptr_t) &meltcdat->dstr_50__DISCR_MAP_OBJECTS; + /*_._VALSTR___V146*/ meltfptr[145] = (melt_ptr_t) &meltcdat->dstr_50__DISCR_MAP_OBJECTS; meltcdat->dstr_50__DISCR_MAP_OBJECTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_50__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_50__DISCR_MAP_OBJECTS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_50__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_50__DISCR_MAP_OBJECTS.val)-1); meltcdat->dstr_50__DISCR_MAP_OBJECTS.val[17] = (char)0 ; meltcdat->dstr_50__DISCR_MAP_OBJECTS.slen = 17 ; /*iniobj dsym_51__FRESH_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V147*/ meltfptr[146]) + /*uniqueobj*/ if (!/*_._VALDATA___V147*/ meltfptr[146]) /*_._VALDATA___V147*/ meltfptr[146] = (melt_ptr_t )&meltcdat->dsym_51__FRESH_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_51__FRESH_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_51__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10308,18 +9425,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_52__FRESH_ENV*/ - /*_._VALSTR___V148*/ - meltfptr[147] = (melt_ptr_t) &meltcdat->dstr_52__FRESH_ENV; + /*_._VALSTR___V148*/ meltfptr[147] = (melt_ptr_t) &meltcdat->dstr_52__FRESH_ENV; meltcdat->dstr_52__FRESH_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_52__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_52__FRESH_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_52__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_52__FRESH_ENV.val)-1); meltcdat->dstr_52__FRESH_ENV.val[9] = (char)0 ; meltcdat->dstr_52__FRESH_ENV.slen = 9 ; /*iniobj dsym_53__EVALmiMODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V142*/ meltfptr[141]) + /*uniqueobj*/ if (!/*_._VALDATA___V142*/ meltfptr[141]) /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t )&meltcdat->dsym_53__EVALmiMODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_53__EVALmiMODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_53__EVALmiMODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10329,18 +9443,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_54__EVAL_MODE*/ - /*_._VALSTR___V143*/ - meltfptr[142] = (melt_ptr_t) &meltcdat->dstr_54__EVAL_MODE; + /*_._VALSTR___V143*/ meltfptr[142] = (melt_ptr_t) &meltcdat->dstr_54__EVAL_MODE; meltcdat->dstr_54__EVAL_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_54__EVAL_MODE.val, "EVAL-MODE", sizeof (meltcdat->dstr_54__EVAL_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_54__EVAL_MODE.val, "EVAL-MODE", sizeof (meltcdat->dstr_54__EVAL_MODE.val)-1); meltcdat->dstr_54__EVAL_MODE.val[9] = (char)0 ; meltcdat->dstr_54__EVAL_MODE.slen = 9 ; /*iniobj dsym_55__TRANSLATE_RUN_MELT_EXPRESSIONS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V149*/ meltfptr[148]) + /*uniqueobj*/ if (!/*_._VALDATA___V149*/ meltfptr[148]) /*_._VALDATA___V149*/ meltfptr[148] = (melt_ptr_t )&meltcdat->dsym_55__TRANSLATE_RUN_MELT_EXPRESSIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_55__TRANSLATE_RUN_MELT_EXPRESSIONS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_55__TRANSLATE_RUN_MELT_EXPRESSIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10350,18 +9461,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_56__TRANSLATE_RUN_MELT_EXPRE*/ - /*_._VALSTR___V150*/ - meltfptr[149] = (melt_ptr_t) &meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE; + /*_._VALSTR___V150*/ meltfptr[149] = (melt_ptr_t) &meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE; meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.val, "TRANSLATE_RUN_MELT_EXPRESSIONS", sizeof (meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.val, "TRANSLATE_RUN_MELT_EXPRESSIONS", sizeof (meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.val)-1); meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.val[30] = (char)0 ; meltcdat->dstr_56__TRANSLATE_RUN_MELT_EXPRE.slen = 30 ; /*iniobj dsym_57__CLASS_DEBUG_OUTPUT_INFORMATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V151*/ meltfptr[150]) + /*uniqueobj*/ if (!/*_._VALDATA___V151*/ meltfptr[150]) /*_._VALDATA___V151*/ meltfptr[150] = (melt_ptr_t )&meltcdat->dsym_57__CLASS_DEBUG_OUTPUT_INFORMATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_57__CLASS_DEBUG_OUTPUT_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_57__CLASS_DEBUG_OUTPUT_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10371,18 +9479,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_58__CLASS_DEBUG_OUTPUT_INFOR*/ - /*_._VALSTR___V152*/ - meltfptr[151] = (melt_ptr_t) &meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR; + /*_._VALSTR___V152*/ meltfptr[151] = (melt_ptr_t) &meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR; meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.val, "CLASS_DEBUG_OUTPUT_INFORMATION", sizeof (meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.val, "CLASS_DEBUG_OUTPUT_INFORMATION", sizeof (meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.val)-1); meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.val[30] = (char)0 ; meltcdat->dstr_58__CLASS_DEBUG_OUTPUT_INFOR.slen = 30 ; /*iniobj dsym_59__ADD2OUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V153*/ meltfptr[152]) + /*uniqueobj*/ if (!/*_._VALDATA___V153*/ meltfptr[152]) /*_._VALDATA___V153*/ meltfptr[152] = (melt_ptr_t )&meltcdat->dsym_59__ADD2OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_59__ADD2OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_59__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10392,18 +9497,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_60__ADD2OUT*/ - /*_._VALSTR___V154*/ - meltfptr[153] = (melt_ptr_t) &meltcdat->dstr_60__ADD2OUT; + /*_._VALSTR___V154*/ meltfptr[153] = (melt_ptr_t) &meltcdat->dstr_60__ADD2OUT; meltcdat->dstr_60__ADD2OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_60__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_60__ADD2OUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_60__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_60__ADD2OUT.val)-1); meltcdat->dstr_60__ADD2OUT.val[7] = (char)0 ; meltcdat->dstr_60__ADD2OUT.slen = 7 ; /*iniobj dsym_61__DBG_OUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V155*/ meltfptr[154]) + /*uniqueobj*/ if (!/*_._VALDATA___V155*/ meltfptr[154]) /*_._VALDATA___V155*/ meltfptr[154] = (melt_ptr_t )&meltcdat->dsym_61__DBG_OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_61__DBG_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_61__DBG_OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10413,18 +9515,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_62__DBG_OUT*/ - /*_._VALSTR___V156*/ - meltfptr[155] = (melt_ptr_t) &meltcdat->dstr_62__DBG_OUT; + /*_._VALSTR___V156*/ meltfptr[155] = (melt_ptr_t) &meltcdat->dstr_62__DBG_OUT; meltcdat->dstr_62__DBG_OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_62__DBG_OUT.val, "DBG_OUT", sizeof (meltcdat->dstr_62__DBG_OUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_62__DBG_OUT.val, "DBG_OUT", sizeof (meltcdat->dstr_62__DBG_OUT.val)-1); meltcdat->dstr_62__DBG_OUT.val[7] = (char)0 ; meltcdat->dstr_62__DBG_OUT.slen = 7 ; /*iniobj dsym_63__EVAL_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V157*/ meltfptr[156]) + /*uniqueobj*/ if (!/*_._VALDATA___V157*/ meltfptr[156]) /*_._VALDATA___V157*/ meltfptr[156] = (melt_ptr_t )&meltcdat->dsym_63__EVAL_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_63__EVAL_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_63__EVAL_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10434,19 +9533,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_64__EVAL_MODE*/ - /*_._VALSTR___V158*/ - meltfptr[157] = (melt_ptr_t) &meltcdat->dstr_64__EVAL_MODE; + /*_._VALSTR___V158*/ meltfptr[157] = (melt_ptr_t) &meltcdat->dstr_64__EVAL_MODE; meltcdat->dstr_64__EVAL_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_64__EVAL_MODE.val, "EVAL_MODE", sizeof (meltcdat->dstr_64__EVAL_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_64__EVAL_MODE.val, "EVAL_MODE", sizeof (meltcdat->dstr_64__EVAL_MODE.val)-1); meltcdat->dstr_64__EVAL_MODE.val[9] = (char)0 ; meltcdat->dstr_64__EVAL_MODE.slen = 9 ; MELT_LOCATION("warmelt-modes.melt:240:/ iniobj"); /*iniobj dobj_65__EVAL_MODE*/ - /*_._VALDATA___V159*/ - meltfptr[158] = (melt_ptr_t )&meltcdat->dobj_65__EVAL_MODE; + /*_._VALDATA___V159*/ meltfptr[158] = (melt_ptr_t )&meltcdat->dobj_65__EVAL_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_65__EVAL_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_65__EVAL_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_65__EVAL_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -10455,33 +9551,28 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_66__translate_and_run_i_e_*/ - /*_._VALSTR___V160*/ - meltfptr[159] = (melt_ptr_t) &meltcdat->dstr_66__translate_and_run_i_e_; + /*_._VALSTR___V160*/ meltfptr[159] = (melt_ptr_t) &meltcdat->dstr_66__translate_and_run_i_e_; meltcdat->dstr_66__translate_and_run_i_e_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_66__translate_and_run_i_e_.val, "translate and run, i.e. evaluate, MELT expressions, displaying the\ + /*small inistring*/ strncpy(meltcdat->dstr_66__translate_and_run_i_e_.val, "translate and run, i.e. evaluate, MELT expressions, displaying the\ last evaluated result;\n\n\t ARGUMENT= expressions to evaluate", sizeof (meltcdat->dstr_66__translate_and_run_i_e_.val)-1); meltcdat->dstr_66__translate_and_run_i_e_.val[126] = (char)0 ; meltcdat->dstr_66__translate_and_run_i_e_.slen = 126 ; /*inirout drout_67__EVALFILE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V161*/ - meltfptr[160] = (melt_ptr_t) &meltcdat->drout_67__EVALFILE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V161*/ meltfptr[160] = (melt_ptr_t) &meltcdat->drout_67__EVALFILE_DOCMD; meltcdat->drout_67__EVALFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_67__EVALFILE_DOCMD.routdescr, "EVALFILE_DOCMD @warmelt-modes.melt:252", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_67__EVALFILE_DOCMD.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_67__EVALFILE_DOCMD, meltrout_5_WARMELTmiMODES_EVALFILE_DOCMD); /*iniclos dclo_68__EVALFILE_DOCMD*/ - /*_._VALCLO___V164*/ - meltfptr[163] = (melt_ptr_t) &meltcdat->dclo_68__EVALFILE_DOCMD; + /*_._VALCLO___V164*/ meltfptr[163] = (melt_ptr_t) &meltcdat->dclo_68__EVALFILE_DOCMD; meltcdat->dclo_68__EVALFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_68__EVALFILE_DOCMD.nbval = 0; /*iniobj dsym_69__EVALmiFILE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V162*/ meltfptr[161]) + /*uniqueobj*/ if (!/*_._VALDATA___V162*/ meltfptr[161]) /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t )&meltcdat->dsym_69__EVALmiFILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_69__EVALmiFILE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_69__EVALmiFILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10491,18 +9582,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_70__EVAL_FILE*/ - /*_._VALSTR___V163*/ - meltfptr[162] = (melt_ptr_t) &meltcdat->dstr_70__EVAL_FILE; + /*_._VALSTR___V163*/ meltfptr[162] = (melt_ptr_t) &meltcdat->dstr_70__EVAL_FILE; meltcdat->dstr_70__EVAL_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_70__EVAL_FILE.val, "EVAL-FILE", sizeof (meltcdat->dstr_70__EVAL_FILE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_70__EVAL_FILE.val, "EVAL-FILE", sizeof (meltcdat->dstr_70__EVAL_FILE.val)-1); meltcdat->dstr_70__EVAL_FILE.val[9] = (char)0 ; meltcdat->dstr_70__EVAL_FILE.slen = 9 ; /*iniobj dsym_71__DISCR_CONSTANT_INTEGER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V165*/ meltfptr[164]) + /*uniqueobj*/ if (!/*_._VALDATA___V165*/ meltfptr[164]) /*_._VALDATA___V165*/ meltfptr[164] = (melt_ptr_t )&meltcdat->dsym_71__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__DISCR_CONSTANT_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_71__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10512,18 +9600,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_72__DISCR_CONSTANT_INTEGER*/ - /*_._VALSTR___V166*/ - meltfptr[165] = (melt_ptr_t) &meltcdat->dstr_72__DISCR_CONSTANT_INTEGER; + /*_._VALSTR___V166*/ meltfptr[165] = (melt_ptr_t) &meltcdat->dstr_72__DISCR_CONSTANT_INTEGER; meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.val)-1); meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.val[22] = (char)0 ; meltcdat->dstr_72__DISCR_CONSTANT_INTEGER.slen = 22 ; /*iniobj dsym_73__EVALFILE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V167*/ meltfptr[166]) + /*uniqueobj*/ if (!/*_._VALDATA___V167*/ meltfptr[166]) /*_._VALDATA___V167*/ meltfptr[166] = (melt_ptr_t )&meltcdat->dsym_73__EVALFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_73__EVALFILE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_73__EVALFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10533,19 +9618,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_74__EVALFILE_MODE*/ - /*_._VALSTR___V168*/ - meltfptr[167] = (melt_ptr_t) &meltcdat->dstr_74__EVALFILE_MODE; + /*_._VALSTR___V168*/ meltfptr[167] = (melt_ptr_t) &meltcdat->dstr_74__EVALFILE_MODE; meltcdat->dstr_74__EVALFILE_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_74__EVALFILE_MODE.val, "EVALFILE_MODE", sizeof (meltcdat->dstr_74__EVALFILE_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_74__EVALFILE_MODE.val, "EVALFILE_MODE", sizeof (meltcdat->dstr_74__EVALFILE_MODE.val)-1); meltcdat->dstr_74__EVALFILE_MODE.val[13] = (char)0 ; meltcdat->dstr_74__EVALFILE_MODE.slen = 13 ; MELT_LOCATION("warmelt-modes.melt:292:/ iniobj"); /*iniobj dobj_75__EVALFILE_MODE*/ - /*_._VALDATA___V169*/ - meltfptr[168] = (melt_ptr_t )&meltcdat->dobj_75__EVALFILE_MODE; + /*_._VALDATA___V169*/ meltfptr[168] = (melt_ptr_t )&meltcdat->dobj_75__EVALFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_75__EVALFILE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_75__EVALFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_75__EVALFILE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -10554,19 +9636,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_76__translate_and_run_i_e_*/ - /*_._VALSTR___V170*/ - meltfptr[169] = (melt_ptr_t) &meltcdat->dstr_76__translate_and_run_i_e_; + /*_._VALSTR___V170*/ meltfptr[169] = (melt_ptr_t) &meltcdat->dstr_76__translate_and_run_i_e_; meltcdat->dstr_76__translate_and_run_i_e_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_76__translate_and_run_i_e_.val, "translate and run, i.e. evaluate, MELT expressions from a file, displaying\ + /*small inistring*/ strncpy(meltcdat->dstr_76__translate_and_run_i_e_.val, "translate and run, i.e. evaluate, MELT expressions from a file, displaying\ the last evaluated result;\n\n\t ARGUMENT= file name, or - for stdin", sizeof (meltcdat->dstr_76__translate_and_run_i_e_.val)-1); meltcdat->dstr_76__translate_and_run_i_e_.val[140] = (char)0 ; meltcdat->dstr_76__translate_and_run_i_e_.slen = 140 ; /*iniobj dsym_77__CLASS_READ_EVAL_PRINT_LOOP_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V171*/ meltfptr[170]) + /*uniqueobj*/ if (!/*_._VALDATA___V171*/ meltfptr[170]) /*_._VALDATA___V171*/ meltfptr[170] = (melt_ptr_t )&meltcdat->dsym_77__CLASS_READ_EVAL_PRINT_LOOP_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_77__CLASS_READ_EVAL_PRINT_LOOP_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_77__CLASS_READ_EVAL_PRINT_LOOP_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10576,18 +9655,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_78__CLASS_READ_EVAL_PRINT_LO*/ - /*_._VALSTR___V172*/ - meltfptr[171] = (melt_ptr_t) &meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO; + /*_._VALSTR___V172*/ meltfptr[171] = (melt_ptr_t) &meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO; meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.val)-1); meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.val[31] = (char)0 ; meltcdat->dstr_78__CLASS_READ_EVAL_PRINT_LO.slen = 31 ; /*iniobj dsym_79__CLASS_PROPED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V173*/ meltfptr[172]) + /*uniqueobj*/ if (!/*_._VALDATA___V173*/ meltfptr[172]) /*_._VALDATA___V173*/ meltfptr[172] = (melt_ptr_t )&meltcdat->dsym_79__CLASS_PROPED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_79__CLASS_PROPED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_79__CLASS_PROPED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10597,19 +9673,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_80__CLASS_PROPED*/ - /*_._VALSTR___V174*/ - meltfptr[173] = (melt_ptr_t) &meltcdat->dstr_80__CLASS_PROPED; + /*_._VALSTR___V174*/ meltfptr[173] = (melt_ptr_t) &meltcdat->dstr_80__CLASS_PROPED; meltcdat->dstr_80__CLASS_PROPED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_80__CLASS_PROPED.val, "CLASS_PROPED", sizeof (meltcdat->dstr_80__CLASS_PROPED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_80__CLASS_PROPED.val, "CLASS_PROPED", sizeof (meltcdat->dstr_80__CLASS_PROPED.val)-1); meltcdat->dstr_80__CLASS_PROPED.val[12] = (char)0 ; meltcdat->dstr_80__CLASS_PROPED.slen = 12 ; MELT_LOCATION("warmelt-modes.melt:304:/ iniobj"); /*iniobj dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA*/ - /*_._VALDATA___V175*/ - meltfptr[174] = (melt_ptr_t )&meltcdat->dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA; + /*_._VALDATA___V175*/ meltfptr[174] = (melt_ptr_t )&meltcdat->dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_81__CLASS_READ_EVAL_PRINT_LOOP_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -10619,28 +9692,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_82__CLASS_READ_EVAL_PRINT_LO*/ - /*_._VALSTR___V176*/ - meltfptr[175] = (melt_ptr_t) &meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO; + /*_._VALSTR___V176*/ meltfptr[175] = (melt_ptr_t) &meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO; meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.val)-1); meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.val[31] = (char)0 ; meltcdat->dstr_82__CLASS_READ_EVAL_PRINT_LO.slen = 31 ; /*inimult dtup_83_syCLASS_READ_EVAL_PRINT_LOOP_DATA*/ - /*_._VALTUP___V177*/ - meltfptr[176] = (melt_ptr_t) &meltcdat->dtup_83_syCLASS_READ_EVAL_PRINT_LOOP_DATA; + /*_._VALTUP___V177*/ meltfptr[176] = (melt_ptr_t) &meltcdat->dtup_83_syCLASS_READ_EVAL_PRINT_LOOP_DATA; meltcdat->dtup_83_syCLASS_READ_EVAL_PRINT_LOOP_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_83_syCLASS_READ_EVAL_PRINT_LOOP_DATA.nbval = 2; /*inimult dtup_84_syCLASS_READ_EVAL_PRINT_LOOP_DATA*/ - /*_._VALTUP___V186*/ - meltfptr[185] = (melt_ptr_t) &meltcdat->dtup_84_syCLASS_READ_EVAL_PRINT_LOOP_DATA; + /*_._VALTUP___V186*/ meltfptr[185] = (melt_ptr_t) &meltcdat->dtup_84_syCLASS_READ_EVAL_PRINT_LOOP_DATA; meltcdat->dtup_84_syCLASS_READ_EVAL_PRINT_LOOP_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_84_syCLASS_READ_EVAL_PRINT_LOOP_DATA.nbval = 5; /*iniobj dsym_85__REPL_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V187*/ meltfptr[186]) + /*uniqueobj*/ if (!/*_._VALDATA___V187*/ meltfptr[186]) /*_._VALDATA___V187*/ meltfptr[186] = (melt_ptr_t )&meltcdat->dsym_85__REPL_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__REPL_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_85__REPL_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10650,19 +9718,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_86__REPL_ENV*/ - /*_._VALSTR___V188*/ - meltfptr[187] = (melt_ptr_t) &meltcdat->dstr_86__REPL_ENV; + /*_._VALSTR___V188*/ meltfptr[187] = (melt_ptr_t) &meltcdat->dstr_86__REPL_ENV; meltcdat->dstr_86__REPL_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_86__REPL_ENV.val, "REPL_ENV", sizeof (meltcdat->dstr_86__REPL_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_86__REPL_ENV.val, "REPL_ENV", sizeof (meltcdat->dstr_86__REPL_ENV.val)-1); meltcdat->dstr_86__REPL_ENV.val[8] = (char)0 ; meltcdat->dstr_86__REPL_ENV.slen = 8 ; /*^iniobj*/ /*iniobj dobj_87__REPL_ENV*/ - /*_._VALDATA___V178*/ - meltfptr[177] = (melt_ptr_t )&meltcdat->dobj_87__REPL_ENV; + /*_._VALDATA___V178*/ meltfptr[177] = (melt_ptr_t )&meltcdat->dobj_87__REPL_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_87__REPL_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_87__REPL_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_87__REPL_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -10672,18 +9737,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_88__REPL_ENV*/ - /*_._VALSTR___V179*/ - meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_88__REPL_ENV; + /*_._VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) &meltcdat->dstr_88__REPL_ENV; meltcdat->dstr_88__REPL_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_88__REPL_ENV.val, "REPL_ENV", sizeof (meltcdat->dstr_88__REPL_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_88__REPL_ENV.val, "REPL_ENV", sizeof (meltcdat->dstr_88__REPL_ENV.val)-1); meltcdat->dstr_88__REPL_ENV.val[8] = (char)0 ; meltcdat->dstr_88__REPL_ENV.slen = 8 ; /*iniobj dsym_89__REPL_COUNTER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V189*/ meltfptr[188]) + /*uniqueobj*/ if (!/*_._VALDATA___V189*/ meltfptr[188]) /*_._VALDATA___V189*/ meltfptr[188] = (melt_ptr_t )&meltcdat->dsym_89__REPL_COUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__REPL_COUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_89__REPL_COUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10693,19 +9755,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_90__REPL_COUNTER*/ - /*_._VALSTR___V190*/ - meltfptr[189] = (melt_ptr_t) &meltcdat->dstr_90__REPL_COUNTER; + /*_._VALSTR___V190*/ meltfptr[189] = (melt_ptr_t) &meltcdat->dstr_90__REPL_COUNTER; meltcdat->dstr_90__REPL_COUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_90__REPL_COUNTER.val, "REPL_COUNTER", sizeof (meltcdat->dstr_90__REPL_COUNTER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_90__REPL_COUNTER.val, "REPL_COUNTER", sizeof (meltcdat->dstr_90__REPL_COUNTER.val)-1); meltcdat->dstr_90__REPL_COUNTER.val[12] = (char)0 ; meltcdat->dstr_90__REPL_COUNTER.slen = 12 ; /*^iniobj*/ /*iniobj dobj_91__REPL_COUNTER*/ - /*_._VALDATA___V180*/ - meltfptr[179] = (melt_ptr_t )&meltcdat->dobj_91__REPL_COUNTER; + /*_._VALDATA___V180*/ meltfptr[179] = (melt_ptr_t )&meltcdat->dobj_91__REPL_COUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_91__REPL_COUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_91__REPL_COUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_91__REPL_COUNTER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -10715,18 +9774,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_92__REPL_COUNTER*/ - /*_._VALSTR___V181*/ - meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_92__REPL_COUNTER; + /*_._VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) &meltcdat->dstr_92__REPL_COUNTER; meltcdat->dstr_92__REPL_COUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_92__REPL_COUNTER.val, "REPL_COUNTER", sizeof (meltcdat->dstr_92__REPL_COUNTER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_92__REPL_COUNTER.val, "REPL_COUNTER", sizeof (meltcdat->dstr_92__REPL_COUNTER.val)-1); meltcdat->dstr_92__REPL_COUNTER.val[12] = (char)0 ; meltcdat->dstr_92__REPL_COUNTER.slen = 12 ; /*iniobj dsym_93__REPL_CONTREF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V191*/ meltfptr[190]) + /*uniqueobj*/ if (!/*_._VALDATA___V191*/ meltfptr[190]) /*_._VALDATA___V191*/ meltfptr[190] = (melt_ptr_t )&meltcdat->dsym_93__REPL_CONTREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_93__REPL_CONTREF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_93__REPL_CONTREF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10736,19 +9792,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_94__REPL_CONTREF*/ - /*_._VALSTR___V192*/ - meltfptr[191] = (melt_ptr_t) &meltcdat->dstr_94__REPL_CONTREF; + /*_._VALSTR___V192*/ meltfptr[191] = (melt_ptr_t) &meltcdat->dstr_94__REPL_CONTREF; meltcdat->dstr_94__REPL_CONTREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_94__REPL_CONTREF.val, "REPL_CONTREF", sizeof (meltcdat->dstr_94__REPL_CONTREF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_94__REPL_CONTREF.val, "REPL_CONTREF", sizeof (meltcdat->dstr_94__REPL_CONTREF.val)-1); meltcdat->dstr_94__REPL_CONTREF.val[12] = (char)0 ; meltcdat->dstr_94__REPL_CONTREF.slen = 12 ; /*^iniobj*/ /*iniobj dobj_95__REPL_CONTREF*/ - /*_._VALDATA___V182*/ - meltfptr[181] = (melt_ptr_t )&meltcdat->dobj_95__REPL_CONTREF; + /*_._VALDATA___V182*/ meltfptr[181] = (melt_ptr_t )&meltcdat->dobj_95__REPL_CONTREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_95__REPL_CONTREF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_95__REPL_CONTREF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_95__REPL_CONTREF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -10758,18 +9811,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_96__REPL_CONTREF*/ - /*_._VALSTR___V183*/ - meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_96__REPL_CONTREF; + /*_._VALSTR___V183*/ meltfptr[182] = (melt_ptr_t) &meltcdat->dstr_96__REPL_CONTREF; meltcdat->dstr_96__REPL_CONTREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_96__REPL_CONTREF.val, "REPL_CONTREF", sizeof (meltcdat->dstr_96__REPL_CONTREF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_96__REPL_CONTREF.val, "REPL_CONTREF", sizeof (meltcdat->dstr_96__REPL_CONTREF.val)-1); meltcdat->dstr_96__REPL_CONTREF.val[12] = (char)0 ; meltcdat->dstr_96__REPL_CONTREF.slen = 12 ; /*iniobj dsym_97__REPL_DATA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V193*/ meltfptr[192]) + /*uniqueobj*/ if (!/*_._VALDATA___V193*/ meltfptr[192]) /*_._VALDATA___V193*/ meltfptr[192] = (melt_ptr_t )&meltcdat->dsym_97__REPL_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_97__REPL_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_97__REPL_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10779,19 +9829,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_98__REPL_DATA*/ - /*_._VALSTR___V194*/ - meltfptr[193] = (melt_ptr_t) &meltcdat->dstr_98__REPL_DATA; + /*_._VALSTR___V194*/ meltfptr[193] = (melt_ptr_t) &meltcdat->dstr_98__REPL_DATA; meltcdat->dstr_98__REPL_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_98__REPL_DATA.val, "REPL_DATA", sizeof (meltcdat->dstr_98__REPL_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_98__REPL_DATA.val, "REPL_DATA", sizeof (meltcdat->dstr_98__REPL_DATA.val)-1); meltcdat->dstr_98__REPL_DATA.val[9] = (char)0 ; meltcdat->dstr_98__REPL_DATA.slen = 9 ; /*^iniobj*/ /*iniobj dobj_99__REPL_DATA*/ - /*_._VALDATA___V184*/ - meltfptr[183] = (melt_ptr_t )&meltcdat->dobj_99__REPL_DATA; + /*_._VALDATA___V184*/ meltfptr[183] = (melt_ptr_t )&meltcdat->dobj_99__REPL_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_99__REPL_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_99__REPL_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_99__REPL_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -10801,32 +9848,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_100__REPL_DATA*/ - /*_._VALSTR___V185*/ - meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_100__REPL_DATA; + /*_._VALSTR___V185*/ meltfptr[184] = (melt_ptr_t) &meltcdat->dstr_100__REPL_DATA; meltcdat->dstr_100__REPL_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_100__REPL_DATA.val, "REPL_DATA", sizeof (meltcdat->dstr_100__REPL_DATA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_100__REPL_DATA.val, "REPL_DATA", sizeof (meltcdat->dstr_100__REPL_DATA.val)-1); meltcdat->dstr_100__REPL_DATA.val[9] = (char)0 ; meltcdat->dstr_100__REPL_DATA.slen = 9 ; /*inirout drout_101__REPL_PROCESSOR*/ - /*iniroutlocvar*/ /*_._VALROUT___V195*/ - meltfptr[194] = (melt_ptr_t) &meltcdat->drout_101__REPL_PROCESSOR; + /*iniroutlocvar*/ /*_._VALROUT___V195*/ meltfptr[194] = (melt_ptr_t) &meltcdat->drout_101__REPL_PROCESSOR; meltcdat->drout_101__REPL_PROCESSOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_101__REPL_PROCESSOR.routdescr, "REPL_PROCESSOR @warmelt-modes.melt:311", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_101__REPL_PROCESSOR.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_101__REPL_PROCESSOR, meltrout_6_WARMELTmiMODES_REPL_PROCESSOR); /*iniclos dclo_102__REPL_PROCESSOR*/ - /*_._VALCLO___V196*/ - meltfptr[195] = (melt_ptr_t) &meltcdat->dclo_102__REPL_PROCESSOR; + /*_._VALCLO___V196*/ meltfptr[195] = (melt_ptr_t) &meltcdat->dclo_102__REPL_PROCESSOR; meltcdat->dclo_102__REPL_PROCESSOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_102__REPL_PROCESSOR.nbval = 0; /*iniobj dsym_103__CLASS_INPUT_CHANNEL_HANDLER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V197*/ meltfptr[196]) + /*uniqueobj*/ if (!/*_._VALDATA___V197*/ meltfptr[196]) /*_._VALDATA___V197*/ meltfptr[196] = (melt_ptr_t )&meltcdat->dsym_103__CLASS_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_103__CLASS_INPUT_CHANNEL_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_103__CLASS_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10836,18 +9878,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_104__CLASS_INPUT_CHANNEL_HAND*/ - /*_._VALSTR___V198*/ - meltfptr[197] = (melt_ptr_t) &meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND; + /*_._VALSTR___V198*/ meltfptr[197] = (melt_ptr_t) &meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND; meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.val, "CLASS_INPUT_CHANNEL_HANDLER", sizeof (meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.val, "CLASS_INPUT_CHANNEL_HANDLER", sizeof (meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.val)-1); meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.val[27] = (char)0 ; meltcdat->dstr_104__CLASS_INPUT_CHANNEL_HAND.slen = 27 ; /*iniobj dsym_105__CLASS_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V199*/ meltfptr[198]) + /*uniqueobj*/ if (!/*_._VALDATA___V199*/ meltfptr[198]) /*_._VALDATA___V199*/ meltfptr[198] = (melt_ptr_t )&meltcdat->dsym_105__CLASS_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__CLASS_REFERENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_105__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10857,18 +9896,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_106__CLASS_REFERENCE*/ - /*_._VALSTR___V200*/ - meltfptr[199] = (melt_ptr_t) &meltcdat->dstr_106__CLASS_REFERENCE; + /*_._VALSTR___V200*/ meltfptr[199] = (melt_ptr_t) &meltcdat->dstr_106__CLASS_REFERENCE; meltcdat->dstr_106__CLASS_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_106__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_106__CLASS_REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_106__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_106__CLASS_REFERENCE.val)-1); meltcdat->dstr_106__CLASS_REFERENCE.val[15] = (char)0 ; meltcdat->dstr_106__CLASS_REFERENCE.slen = 15 ; /*iniobj dsym_107__CLASS_DEBUG_INFORMATION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V201*/ meltfptr[200]) + /*uniqueobj*/ if (!/*_._VALDATA___V201*/ meltfptr[200]) /*_._VALDATA___V201*/ meltfptr[200] = (melt_ptr_t )&meltcdat->dsym_107__CLASS_DEBUG_INFORMATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_107__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_107__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10878,42 +9914,35 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_108__CLASS_DEBUG_INFORMATION*/ - /*_._VALSTR___V202*/ - meltfptr[201] = (melt_ptr_t) &meltcdat->dstr_108__CLASS_DEBUG_INFORMATION; + /*_._VALSTR___V202*/ meltfptr[201] = (melt_ptr_t) &meltcdat->dstr_108__CLASS_DEBUG_INFORMATION; meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.val, "CLASS_DEBUG_INFORMATION", sizeof (meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.val, "CLASS_DEBUG_INFORMATION", sizeof (meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.val)-1); meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.val[23] = (char)0 ; meltcdat->dstr_108__CLASS_DEBUG_INFORMATION.slen = 23 ; /*inirout drout_109__REPL_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V203*/ - meltfptr[202] = (melt_ptr_t) &meltcdat->drout_109__REPL_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V203*/ meltfptr[202] = (melt_ptr_t) &meltcdat->drout_109__REPL_DOCMD; meltcdat->drout_109__REPL_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_109__REPL_DOCMD.routdescr, "REPL_DOCMD @warmelt-modes.melt:373", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_109__REPL_DOCMD.nbval = 31; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_109__REPL_DOCMD, meltrout_7_WARMELTmiMODES_REPL_DOCMD); /*iniclos dclo_110__REPL_DOCMD*/ - /*_._VALCLO___V219*/ - meltfptr[218] = (melt_ptr_t) &meltcdat->dclo_110__REPL_DOCMD; + /*_._VALCLO___V219*/ meltfptr[218] = (melt_ptr_t) &meltcdat->dclo_110__REPL_DOCMD; meltcdat->dclo_110__REPL_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_110__REPL_DOCMD.nbval = 0; /*inistring dstr_111__the_interactive_Read_Eva*/ - /*_._VALSTR___V204*/ - meltfptr[203] = (melt_ptr_t) &meltcdat->dstr_111__the_interactive_Read_Eva; + /*_._VALSTR___V204*/ meltfptr[203] = (melt_ptr_t) &meltcdat->dstr_111__the_interactive_Read_Eva; meltcdat->dstr_111__the_interactive_Read_Eva.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_111__the_interactive_Read_Eva.val, "the interactive Read-Eval-Print-Loop environment", sizeof (meltcdat->dstr_111__the_interactive_Read_Eva.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_111__the_interactive_Read_Eva.val, "the interactive Read-Eval-Print-Loop environment", sizeof (meltcdat->dstr_111__the_interactive_Read_Eva.val)-1); meltcdat->dstr_111__the_interactive_Read_Eva.val[48] = (char)0 ; meltcdat->dstr_111__the_interactive_Read_Eva.slen = 48 ; /*iniobj dsym_112__DISCR_INTEGER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V220*/ meltfptr[219]) + /*uniqueobj*/ if (!/*_._VALDATA___V220*/ meltfptr[219]) /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t )&meltcdat->dsym_112__DISCR_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_112__DISCR_INTEGER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_112__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10923,25 +9952,21 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_113__DISCR_INTEGER*/ - /*_._VALSTR___V221*/ - meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_113__DISCR_INTEGER; + /*_._VALSTR___V221*/ meltfptr[220] = (melt_ptr_t) &meltcdat->dstr_113__DISCR_INTEGER; meltcdat->dstr_113__DISCR_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_113__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_113__DISCR_INTEGER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_113__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_113__DISCR_INTEGER.val)-1); meltcdat->dstr_113__DISCR_INTEGER.val[13] = (char)0 ; meltcdat->dstr_113__DISCR_INTEGER.slen = 13 ; /*inirout drout_114__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V205*/ - meltfptr[204] = (melt_ptr_t) &meltcdat->drout_114__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V205*/ meltfptr[204] = (melt_ptr_t) &meltcdat->drout_114__LAMBDA_; meltcdat->drout_114__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_114__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:393", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_114__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_114__LAMBDA_, meltrout_8_WARMELTmiMODES_LAMBDA_cl1); /*inirout drout_115__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V206*/ - meltfptr[205] = (melt_ptr_t) &meltcdat->drout_115__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V206*/ meltfptr[205] = (melt_ptr_t) &meltcdat->drout_115__LAMBDA_; meltcdat->drout_115__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_115__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:394", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_115__LAMBDA_.nbval = 5; @@ -10949,8 +9974,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_116__GET_POLLING_INPUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V222*/ meltfptr[221]) + /*uniqueobj*/ if (!/*_._VALDATA___V222*/ meltfptr[221]) /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t )&meltcdat->dsym_116__GET_POLLING_INPUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_116__GET_POLLING_INPUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_116__GET_POLLING_INPUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10960,24 +9984,20 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_117__GET_POLLING_INPUT*/ - /*_._VALSTR___V223*/ - meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_117__GET_POLLING_INPUT; + /*_._VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_117__GET_POLLING_INPUT; meltcdat->dstr_117__GET_POLLING_INPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_117__GET_POLLING_INPUT.val, "GET_POLLING_INPUT", sizeof (meltcdat->dstr_117__GET_POLLING_INPUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_117__GET_POLLING_INPUT.val, "GET_POLLING_INPUT", sizeof (meltcdat->dstr_117__GET_POLLING_INPUT.val)-1); meltcdat->dstr_117__GET_POLLING_INPUT.val[17] = (char)0 ; meltcdat->dstr_117__GET_POLLING_INPUT.slen = 17 ; /*iniboxint dint_118__*/ - /*_._VALBXINT___V207*/ - meltfptr[206] = (melt_ptr_t) &meltcdat->dint_118__; + /*_._VALBXINT___V207*/ meltfptr[206] = (melt_ptr_t) &meltcdat->dint_118__; meltcdat->dint_118__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_118__.val = 0; /*iniobj dsym_119__HOOK_POLL_INPUTS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V224*/ meltfptr[223]) + /*uniqueobj*/ if (!/*_._VALDATA___V224*/ meltfptr[223]) /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t )&meltcdat->dsym_119__HOOK_POLL_INPUTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_119__HOOK_POLL_INPUTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_119__HOOK_POLL_INPUTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -10987,18 +10007,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_120__HOOK_POLL_INPUTS*/ - /*_._VALSTR___V225*/ - meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_120__HOOK_POLL_INPUTS; + /*_._VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_120__HOOK_POLL_INPUTS; meltcdat->dstr_120__HOOK_POLL_INPUTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_120__HOOK_POLL_INPUTS.val, "HOOK_POLL_INPUTS", sizeof (meltcdat->dstr_120__HOOK_POLL_INPUTS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_120__HOOK_POLL_INPUTS.val, "HOOK_POLL_INPUTS", sizeof (meltcdat->dstr_120__HOOK_POLL_INPUTS.val)-1); meltcdat->dstr_120__HOOK_POLL_INPUTS.val[16] = (char)0 ; meltcdat->dstr_120__HOOK_POLL_INPUTS.slen = 16 ; /*iniobj dsym_121__CLASS_VALUE_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V226*/ meltfptr[225]) + /*uniqueobj*/ if (!/*_._VALDATA___V226*/ meltfptr[225]) /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t )&meltcdat->dsym_121__CLASS_VALUE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_121__CLASS_VALUE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_121__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11008,18 +10025,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_122__CLASS_VALUE_BINDING*/ - /*_._VALSTR___V227*/ - meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_122__CLASS_VALUE_BINDING; + /*_._VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_122__CLASS_VALUE_BINDING; meltcdat->dstr_122__CLASS_VALUE_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_122__CLASS_VALUE_BINDING.val, "CLASS_VALUE_BINDING", sizeof (meltcdat->dstr_122__CLASS_VALUE_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_122__CLASS_VALUE_BINDING.val, "CLASS_VALUE_BINDING", sizeof (meltcdat->dstr_122__CLASS_VALUE_BINDING.val)-1); meltcdat->dstr_122__CLASS_VALUE_BINDING.val[19] = (char)0 ; meltcdat->dstr_122__CLASS_VALUE_BINDING.slen = 19 ; /*iniobj dsym_123__CONTINUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V208*/ meltfptr[207]) + /*uniqueobj*/ if (!/*_._VALDATA___V208*/ meltfptr[207]) /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t )&meltcdat->dsym_123__CONTINUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_123__CONTINUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_123__CONTINUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11029,18 +10043,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_124__CONTINUE*/ - /*_._VALSTR___V209*/ - meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_124__CONTINUE; + /*_._VALSTR___V209*/ meltfptr[208] = (melt_ptr_t) &meltcdat->dstr_124__CONTINUE; meltcdat->dstr_124__CONTINUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_124__CONTINUE.val, "CONTINUE", sizeof (meltcdat->dstr_124__CONTINUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_124__CONTINUE.val, "CONTINUE", sizeof (meltcdat->dstr_124__CONTINUE.val)-1); meltcdat->dstr_124__CONTINUE.val[8] = (char)0 ; meltcdat->dstr_124__CONTINUE.slen = 8 ; /*iniobj dsym_125__WAITmiREPL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V210*/ meltfptr[209]) + /*uniqueobj*/ if (!/*_._VALDATA___V210*/ meltfptr[209]) /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t )&meltcdat->dsym_125__WAITmiREPL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_125__WAITmiREPL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_125__WAITmiREPL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11050,18 +10061,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_126__WAIT_REPL*/ - /*_._VALSTR___V211*/ - meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_126__WAIT_REPL; + /*_._VALSTR___V211*/ meltfptr[210] = (melt_ptr_t) &meltcdat->dstr_126__WAIT_REPL; meltcdat->dstr_126__WAIT_REPL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_126__WAIT_REPL.val, "WAIT-REPL", sizeof (meltcdat->dstr_126__WAIT_REPL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_126__WAIT_REPL.val, "WAIT-REPL", sizeof (meltcdat->dstr_126__WAIT_REPL.val)-1); meltcdat->dstr_126__WAIT_REPL.val[9] = (char)0 ; meltcdat->dstr_126__WAIT_REPL.slen = 9 ; /*iniobj dsym_127__PUT_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V228*/ meltfptr[227]) + /*uniqueobj*/ if (!/*_._VALDATA___V228*/ meltfptr[227]) /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t )&meltcdat->dsym_127__PUT_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_127__PUT_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_127__PUT_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11071,18 +10079,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_128__PUT_ENV*/ - /*_._VALSTR___V229*/ - meltfptr[228] = (melt_ptr_t) &meltcdat->dstr_128__PUT_ENV; + /*_._VALSTR___V229*/ meltfptr[228] = (melt_ptr_t) &meltcdat->dstr_128__PUT_ENV; meltcdat->dstr_128__PUT_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_128__PUT_ENV.val, "PUT_ENV", sizeof (meltcdat->dstr_128__PUT_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_128__PUT_ENV.val, "PUT_ENV", sizeof (meltcdat->dstr_128__PUT_ENV.val)-1); meltcdat->dstr_128__PUT_ENV.val[7] = (char)0 ; meltcdat->dstr_128__PUT_ENV.slen = 7 ; /*iniobj dsym_129__REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V230*/ meltfptr[229]) + /*uniqueobj*/ if (!/*_._VALDATA___V230*/ meltfptr[229]) /*_._VALDATA___V230*/ meltfptr[229] = (melt_ptr_t )&meltcdat->dsym_129__REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_129__REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_129__REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11092,18 +10097,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_130__REGISTER_PARAGRAPH_INPUT*/ - /*_._VALSTR___V231*/ - meltfptr[230] = (melt_ptr_t) &meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT; + /*_._VALSTR___V231*/ meltfptr[230] = (melt_ptr_t) &meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT; meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.val, "REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", sizeof (meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.val, "REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", sizeof (meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.val)-1); meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.val[40] = (char)0 ; meltcdat->dstr_130__REGISTER_PARAGRAPH_INPUT.slen = 40 ; /*iniobj dsym_131__REGISTER_ALL_PASSES_END_FIRST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V232*/ meltfptr[231]) + /*uniqueobj*/ if (!/*_._VALDATA___V232*/ meltfptr[231]) /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t )&meltcdat->dsym_131__REGISTER_ALL_PASSES_END_FIRST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_131__REGISTER_ALL_PASSES_END_FIRST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_131__REGISTER_ALL_PASSES_END_FIRST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11113,17 +10115,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_132__REGISTER_ALL_PASSES_END_*/ - /*_._VALSTR___V233*/ - meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_132__REGISTER_ALL_PASSES_END_; + /*_._VALSTR___V233*/ meltfptr[232] = (melt_ptr_t) &meltcdat->dstr_132__REGISTER_ALL_PASSES_END_; meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.val, "REGISTER_ALL_PASSES_END_FIRST", sizeof (meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.val, "REGISTER_ALL_PASSES_END_FIRST", sizeof (meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.val)-1); meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.val[29] = (char)0 ; meltcdat->dstr_132__REGISTER_ALL_PASSES_END_.slen = 29 ; /*inirout drout_133__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V212*/ - meltfptr[211] = (melt_ptr_t) &meltcdat->drout_133__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V212*/ meltfptr[211] = (melt_ptr_t) &meltcdat->drout_133__LAMBDA_; meltcdat->drout_133__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_133__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:436", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_133__LAMBDA_.nbval = 2; @@ -11131,18 +10130,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_134__ended_all_GCC_passes*/ - /*_._VALSTR___V213*/ - meltfptr[212] = (melt_ptr_t) &meltcdat->dstr_134__ended_all_GCC_passes; + /*_._VALSTR___V213*/ meltfptr[212] = (melt_ptr_t) &meltcdat->dstr_134__ended_all_GCC_passes; meltcdat->dstr_134__ended_all_GCC_passes.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_134__ended_all_GCC_passes.val, "ended all GCC passes", sizeof (meltcdat->dstr_134__ended_all_GCC_passes.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_134__ended_all_GCC_passes.val, "ended all GCC passes", sizeof (meltcdat->dstr_134__ended_all_GCC_passes.val)-1); meltcdat->dstr_134__ended_all_GCC_passes.val[20] = (char)0 ; meltcdat->dstr_134__ended_all_GCC_passes.slen = 20 ; /*iniobj dsym_135__AT_FINISH_UNIT_FIRST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V234*/ meltfptr[233]) + /*uniqueobj*/ if (!/*_._VALDATA___V234*/ meltfptr[233]) /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t )&meltcdat->dsym_135__AT_FINISH_UNIT_FIRST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_135__AT_FINISH_UNIT_FIRST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_135__AT_FINISH_UNIT_FIRST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11152,17 +10148,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_136__AT_FINISH_UNIT_FIRST*/ - /*_._VALSTR___V235*/ - meltfptr[234] = (melt_ptr_t) &meltcdat->dstr_136__AT_FINISH_UNIT_FIRST; + /*_._VALSTR___V235*/ meltfptr[234] = (melt_ptr_t) &meltcdat->dstr_136__AT_FINISH_UNIT_FIRST; meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.val, "AT_FINISH_UNIT_FIRST", sizeof (meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.val, "AT_FINISH_UNIT_FIRST", sizeof (meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.val)-1); meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.val[20] = (char)0 ; meltcdat->dstr_136__AT_FINISH_UNIT_FIRST.slen = 20 ; /*inirout drout_137__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V214*/ - meltfptr[213] = (melt_ptr_t) &meltcdat->drout_137__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V214*/ meltfptr[213] = (melt_ptr_t) &meltcdat->drout_137__LAMBDA_; meltcdat->drout_137__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_137__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:447", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_137__LAMBDA_.nbval = 2; @@ -11170,18 +10163,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_138__finished_compilation_uni*/ - /*_._VALSTR___V215*/ - meltfptr[214] = (melt_ptr_t) &meltcdat->dstr_138__finished_compilation_uni; + /*_._VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) &meltcdat->dstr_138__finished_compilation_uni; meltcdat->dstr_138__finished_compilation_uni.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_138__finished_compilation_uni.val, "finished compilation unit", sizeof (meltcdat->dstr_138__finished_compilation_uni.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_138__finished_compilation_uni.val, "finished compilation unit", sizeof (meltcdat->dstr_138__finished_compilation_uni.val)-1); meltcdat->dstr_138__finished_compilation_uni.val[25] = (char)0 ; meltcdat->dstr_138__finished_compilation_uni.slen = 25 ; /*iniobj dsym_139__AT_EXIT_LAST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V236*/ meltfptr[235]) + /*uniqueobj*/ if (!/*_._VALDATA___V236*/ meltfptr[235]) /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t )&meltcdat->dsym_139__AT_EXIT_LAST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_139__AT_EXIT_LAST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_139__AT_EXIT_LAST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11191,17 +10181,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_140__AT_EXIT_LAST*/ - /*_._VALSTR___V237*/ - meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_140__AT_EXIT_LAST; + /*_._VALSTR___V237*/ meltfptr[236] = (melt_ptr_t) &meltcdat->dstr_140__AT_EXIT_LAST; meltcdat->dstr_140__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_140__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof (meltcdat->dstr_140__AT_EXIT_LAST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_140__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof (meltcdat->dstr_140__AT_EXIT_LAST.val)-1); meltcdat->dstr_140__AT_EXIT_LAST.val[12] = (char)0 ; meltcdat->dstr_140__AT_EXIT_LAST.slen = 12 ; /*inirout drout_141__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V216*/ - meltfptr[215] = (melt_ptr_t) &meltcdat->drout_141__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V216*/ meltfptr[215] = (melt_ptr_t) &meltcdat->drout_141__LAMBDA_; meltcdat->drout_141__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_141__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:458", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_141__LAMBDA_.nbval = 2; @@ -11209,28 +10196,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_142__GCC_MELT_exiting*/ - /*_._VALSTR___V217*/ - meltfptr[216] = (melt_ptr_t) &meltcdat->dstr_142__GCC_MELT_exiting; + /*_._VALSTR___V217*/ meltfptr[216] = (melt_ptr_t) &meltcdat->dstr_142__GCC_MELT_exiting; meltcdat->dstr_142__GCC_MELT_exiting.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_142__GCC_MELT_exiting.val, "GCC MELT exiting", sizeof (meltcdat->dstr_142__GCC_MELT_exiting.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_142__GCC_MELT_exiting.val, "GCC MELT exiting", sizeof (meltcdat->dstr_142__GCC_MELT_exiting.val)-1); meltcdat->dstr_142__GCC_MELT_exiting.val[16] = (char)0 ; meltcdat->dstr_142__GCC_MELT_exiting.slen = 16 ; /*inistring dstr_143__GCC_MELT_initial_wait*/ - /*_._VALSTR___V218*/ - meltfptr[217] = (melt_ptr_t) &meltcdat->dstr_143__GCC_MELT_initial_wait; + /*_._VALSTR___V218*/ meltfptr[217] = (melt_ptr_t) &meltcdat->dstr_143__GCC_MELT_initial_wait; meltcdat->dstr_143__GCC_MELT_initial_wait.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_143__GCC_MELT_initial_wait.val, "GCC MELT initial wait", sizeof (meltcdat->dstr_143__GCC_MELT_initial_wait.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_143__GCC_MELT_initial_wait.val, "GCC MELT initial wait", sizeof (meltcdat->dstr_143__GCC_MELT_initial_wait.val)-1); meltcdat->dstr_143__GCC_MELT_initial_wait.val[21] = (char)0 ; meltcdat->dstr_143__GCC_MELT_initial_wait.slen = 21 ; /*iniobj dsym_144__REPL_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V238*/ meltfptr[237]) + /*uniqueobj*/ if (!/*_._VALDATA___V238*/ meltfptr[237]) /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t )&meltcdat->dsym_144__REPL_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_144__REPL_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_144__REPL_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11240,19 +10222,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_145__REPL_MODE*/ - /*_._VALSTR___V239*/ - meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_145__REPL_MODE; + /*_._VALSTR___V239*/ meltfptr[238] = (melt_ptr_t) &meltcdat->dstr_145__REPL_MODE; meltcdat->dstr_145__REPL_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_145__REPL_MODE.val, "REPL_MODE", sizeof (meltcdat->dstr_145__REPL_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_145__REPL_MODE.val, "REPL_MODE", sizeof (meltcdat->dstr_145__REPL_MODE.val)-1); meltcdat->dstr_145__REPL_MODE.val[9] = (char)0 ; meltcdat->dstr_145__REPL_MODE.slen = 9 ; MELT_LOCATION("warmelt-modes.melt:471:/ iniobj"); /*iniobj dobj_146__REPL_MODE*/ - /*_._VALDATA___V240*/ - meltfptr[239] = (melt_ptr_t )&meltcdat->dobj_146__REPL_MODE; + /*_._VALDATA___V240*/ meltfptr[239] = (melt_ptr_t )&meltcdat->dobj_146__REPL_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_146__REPL_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_146__REPL_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_146__REPL_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -11261,18 +10240,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_147__interactive_Read_Eval_Pr*/ - /*_._VALSTR___V241*/ - meltfptr[240] = (melt_ptr_t) &meltcdat->dstr_147__interactive_Read_Eval_Pr; + /*_._VALSTR___V241*/ meltfptr[240] = (melt_ptr_t) &meltcdat->dstr_147__interactive_Read_Eval_Pr; meltcdat->dstr_147__interactive_Read_Eval_Pr.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_147__interactive_Read_Eval_Pr.val, "interactive Read Eval Print Loop mode", sizeof (meltcdat->dstr_147__interactive_Read_Eval_Pr.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_147__interactive_Read_Eval_Pr.val, "interactive Read Eval Print Loop mode", sizeof (meltcdat->dstr_147__interactive_Read_Eval_Pr.val)-1); meltcdat->dstr_147__interactive_Read_Eval_Pr.val[37] = (char)0 ; meltcdat->dstr_147__interactive_Read_Eval_Pr.slen = 37 ; /*iniobj dsym_148__CLASS_MAKEDOC_MODULE_CONTEXT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V242*/ meltfptr[241]) + /*uniqueobj*/ if (!/*_._VALDATA___V242*/ meltfptr[241]) /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t )&meltcdat->dsym_148__CLASS_MAKEDOC_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_148__CLASS_MAKEDOC_MODULE_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_148__CLASS_MAKEDOC_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11282,18 +10258,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_149__CLASS_MAKEDOC_MODULE_CON*/ - /*_._VALSTR___V243*/ - meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON; + /*_._VALSTR___V243*/ meltfptr[242] = (melt_ptr_t) &meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON; meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.val, "CLASS_MAKEDOC_MODULE_CONTEXT", sizeof (meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.val, "CLASS_MAKEDOC_MODULE_CONTEXT", sizeof (meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.val)-1); meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.val[28] = (char)0 ; meltcdat->dstr_149__CLASS_MAKEDOC_MODULE_CON.slen = 28 ; /*iniobj dsym_150__CLASS_ANY_MODULE_CONTEXT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V244*/ meltfptr[243]) + /*uniqueobj*/ if (!/*_._VALDATA___V244*/ meltfptr[243]) /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t )&meltcdat->dsym_150__CLASS_ANY_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_150__CLASS_ANY_MODULE_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_150__CLASS_ANY_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11303,19 +10276,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_151__CLASS_ANY_MODULE_CONTEXT*/ - /*_._VALSTR___V245*/ - meltfptr[244] = (melt_ptr_t) &meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT; + /*_._VALSTR___V245*/ meltfptr[244] = (melt_ptr_t) &meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT; meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.val)-1); meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.val[24] = (char)0 ; meltcdat->dstr_151__CLASS_ANY_MODULE_CONTEXT.slen = 24 ; MELT_LOCATION("warmelt-modes.melt:480:/ iniobj"); /*iniobj dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT*/ - /*_._VALDATA___V246*/ - meltfptr[245] = (melt_ptr_t )&meltcdat->dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT; + /*_._VALDATA___V246*/ meltfptr[245] = (melt_ptr_t )&meltcdat->dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_152__CLASS_MAKEDOC_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); @@ -11325,28 +10295,23 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_153__CLASS_MAKEDOC_MODULE_CON*/ - /*_._VALSTR___V247*/ - meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON; + /*_._VALSTR___V247*/ meltfptr[246] = (melt_ptr_t) &meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON; meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.val, "CLASS_MAKEDOC_MODULE_CONTEXT", sizeof (meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.val, "CLASS_MAKEDOC_MODULE_CONTEXT", sizeof (meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.val)-1); meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.val[28] = (char)0 ; meltcdat->dstr_153__CLASS_MAKEDOC_MODULE_CON.slen = 28 ; /*inimult dtup_154_syCLASS_MAKEDOC_MODULE_CONTEXT*/ - /*_._VALTUP___V248*/ - meltfptr[247] = (melt_ptr_t) &meltcdat->dtup_154_syCLASS_MAKEDOC_MODULE_CONTEXT; + /*_._VALTUP___V248*/ meltfptr[247] = (melt_ptr_t) &meltcdat->dtup_154_syCLASS_MAKEDOC_MODULE_CONTEXT; meltcdat->dtup_154_syCLASS_MAKEDOC_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_154_syCLASS_MAKEDOC_MODULE_CONTEXT.nbval = 3; /*inimult dtup_155_syCLASS_MAKEDOC_MODULE_CONTEXT*/ - /*_._VALTUP___V281*/ - meltfptr[280] = (melt_ptr_t) &meltcdat->dtup_155_syCLASS_MAKEDOC_MODULE_CONTEXT; + /*_._VALTUP___V281*/ meltfptr[280] = (melt_ptr_t) &meltcdat->dtup_155_syCLASS_MAKEDOC_MODULE_CONTEXT; meltcdat->dtup_155_syCLASS_MAKEDOC_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_155_syCLASS_MAKEDOC_MODULE_CONTEXT.nbval = 38; /*iniobj dsym_156__MKDOC_PRIMITIVES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V282*/ meltfptr[281]) + /*uniqueobj*/ if (!/*_._VALDATA___V282*/ meltfptr[281]) /*_._VALDATA___V282*/ meltfptr[281] = (melt_ptr_t )&meltcdat->dsym_156__MKDOC_PRIMITIVES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_156__MKDOC_PRIMITIVES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_156__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11356,19 +10321,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_157__MKDOC_PRIMITIVES*/ - /*_._VALSTR___V283*/ - meltfptr[282] = (melt_ptr_t) &meltcdat->dstr_157__MKDOC_PRIMITIVES; + /*_._VALSTR___V283*/ meltfptr[282] = (melt_ptr_t) &meltcdat->dstr_157__MKDOC_PRIMITIVES; meltcdat->dstr_157__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_157__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (meltcdat->dstr_157__MKDOC_PRIMITIVES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_157__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (meltcdat->dstr_157__MKDOC_PRIMITIVES.val)-1); meltcdat->dstr_157__MKDOC_PRIMITIVES.val[16] = (char)0 ; meltcdat->dstr_157__MKDOC_PRIMITIVES.slen = 16 ; /*^iniobj*/ /*iniobj dobj_158__MKDOC_PRIMITIVES*/ - /*_._VALDATA___V249*/ - meltfptr[248] = (melt_ptr_t )&meltcdat->dobj_158__MKDOC_PRIMITIVES; + /*_._VALDATA___V249*/ meltfptr[248] = (melt_ptr_t )&meltcdat->dobj_158__MKDOC_PRIMITIVES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_158__MKDOC_PRIMITIVES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_158__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_158__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11378,18 +10340,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_159__MKDOC_PRIMITIVES*/ - /*_._VALSTR___V250*/ - meltfptr[249] = (melt_ptr_t) &meltcdat->dstr_159__MKDOC_PRIMITIVES; + /*_._VALSTR___V250*/ meltfptr[249] = (melt_ptr_t) &meltcdat->dstr_159__MKDOC_PRIMITIVES; meltcdat->dstr_159__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_159__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (meltcdat->dstr_159__MKDOC_PRIMITIVES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_159__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (meltcdat->dstr_159__MKDOC_PRIMITIVES.val)-1); meltcdat->dstr_159__MKDOC_PRIMITIVES.val[16] = (char)0 ; meltcdat->dstr_159__MKDOC_PRIMITIVES.slen = 16 ; /*iniobj dsym_160__MKDOC_FUNCTIONS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V284*/ meltfptr[283]) + /*uniqueobj*/ if (!/*_._VALDATA___V284*/ meltfptr[283]) /*_._VALDATA___V284*/ meltfptr[283] = (melt_ptr_t )&meltcdat->dsym_160__MKDOC_FUNCTIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_160__MKDOC_FUNCTIONS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_160__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11399,19 +10358,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_161__MKDOC_FUNCTIONS*/ - /*_._VALSTR___V285*/ - meltfptr[284] = (melt_ptr_t) &meltcdat->dstr_161__MKDOC_FUNCTIONS; + /*_._VALSTR___V285*/ meltfptr[284] = (melt_ptr_t) &meltcdat->dstr_161__MKDOC_FUNCTIONS; meltcdat->dstr_161__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_161__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (meltcdat->dstr_161__MKDOC_FUNCTIONS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_161__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (meltcdat->dstr_161__MKDOC_FUNCTIONS.val)-1); meltcdat->dstr_161__MKDOC_FUNCTIONS.val[15] = (char)0 ; meltcdat->dstr_161__MKDOC_FUNCTIONS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_162__MKDOC_FUNCTIONS*/ - /*_._VALDATA___V251*/ - meltfptr[250] = (melt_ptr_t )&meltcdat->dobj_162__MKDOC_FUNCTIONS; + /*_._VALDATA___V251*/ meltfptr[250] = (melt_ptr_t )&meltcdat->dobj_162__MKDOC_FUNCTIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_162__MKDOC_FUNCTIONS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_162__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_162__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11421,18 +10377,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_163__MKDOC_FUNCTIONS*/ - /*_._VALSTR___V252*/ - meltfptr[251] = (melt_ptr_t) &meltcdat->dstr_163__MKDOC_FUNCTIONS; + /*_._VALSTR___V252*/ meltfptr[251] = (melt_ptr_t) &meltcdat->dstr_163__MKDOC_FUNCTIONS; meltcdat->dstr_163__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_163__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (meltcdat->dstr_163__MKDOC_FUNCTIONS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_163__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (meltcdat->dstr_163__MKDOC_FUNCTIONS.val)-1); meltcdat->dstr_163__MKDOC_FUNCTIONS.val[15] = (char)0 ; meltcdat->dstr_163__MKDOC_FUNCTIONS.slen = 15 ; /*iniobj dsym_164__MKDOC_CITERATORS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V286*/ meltfptr[285]) + /*uniqueobj*/ if (!/*_._VALDATA___V286*/ meltfptr[285]) /*_._VALDATA___V286*/ meltfptr[285] = (melt_ptr_t )&meltcdat->dsym_164__MKDOC_CITERATORS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_164__MKDOC_CITERATORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_164__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11442,19 +10395,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_165__MKDOC_CITERATORS*/ - /*_._VALSTR___V287*/ - meltfptr[286] = (melt_ptr_t) &meltcdat->dstr_165__MKDOC_CITERATORS; + /*_._VALSTR___V287*/ meltfptr[286] = (melt_ptr_t) &meltcdat->dstr_165__MKDOC_CITERATORS; meltcdat->dstr_165__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_165__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (meltcdat->dstr_165__MKDOC_CITERATORS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_165__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (meltcdat->dstr_165__MKDOC_CITERATORS.val)-1); meltcdat->dstr_165__MKDOC_CITERATORS.val[16] = (char)0 ; meltcdat->dstr_165__MKDOC_CITERATORS.slen = 16 ; /*^iniobj*/ /*iniobj dobj_166__MKDOC_CITERATORS*/ - /*_._VALDATA___V253*/ - meltfptr[252] = (melt_ptr_t )&meltcdat->dobj_166__MKDOC_CITERATORS; + /*_._VALDATA___V253*/ meltfptr[252] = (melt_ptr_t )&meltcdat->dobj_166__MKDOC_CITERATORS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_166__MKDOC_CITERATORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_166__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_166__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11464,18 +10414,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_167__MKDOC_CITERATORS*/ - /*_._VALSTR___V254*/ - meltfptr[253] = (melt_ptr_t) &meltcdat->dstr_167__MKDOC_CITERATORS; + /*_._VALSTR___V254*/ meltfptr[253] = (melt_ptr_t) &meltcdat->dstr_167__MKDOC_CITERATORS; meltcdat->dstr_167__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_167__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (meltcdat->dstr_167__MKDOC_CITERATORS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_167__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (meltcdat->dstr_167__MKDOC_CITERATORS.val)-1); meltcdat->dstr_167__MKDOC_CITERATORS.val[16] = (char)0 ; meltcdat->dstr_167__MKDOC_CITERATORS.slen = 16 ; /*iniobj dsym_168__MKDOC_CMATCHERS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V288*/ meltfptr[287]) + /*uniqueobj*/ if (!/*_._VALDATA___V288*/ meltfptr[287]) /*_._VALDATA___V288*/ meltfptr[287] = (melt_ptr_t )&meltcdat->dsym_168__MKDOC_CMATCHERS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_168__MKDOC_CMATCHERS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_168__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11485,19 +10432,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_169__MKDOC_CMATCHERS*/ - /*_._VALSTR___V289*/ - meltfptr[288] = (melt_ptr_t) &meltcdat->dstr_169__MKDOC_CMATCHERS; + /*_._VALSTR___V289*/ meltfptr[288] = (melt_ptr_t) &meltcdat->dstr_169__MKDOC_CMATCHERS; meltcdat->dstr_169__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_169__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (meltcdat->dstr_169__MKDOC_CMATCHERS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_169__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (meltcdat->dstr_169__MKDOC_CMATCHERS.val)-1); meltcdat->dstr_169__MKDOC_CMATCHERS.val[15] = (char)0 ; meltcdat->dstr_169__MKDOC_CMATCHERS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_170__MKDOC_CMATCHERS*/ - /*_._VALDATA___V255*/ - meltfptr[254] = (melt_ptr_t )&meltcdat->dobj_170__MKDOC_CMATCHERS; + /*_._VALDATA___V255*/ meltfptr[254] = (melt_ptr_t )&meltcdat->dobj_170__MKDOC_CMATCHERS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_170__MKDOC_CMATCHERS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_170__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_170__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11507,18 +10451,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_171__MKDOC_CMATCHERS*/ - /*_._VALSTR___V256*/ - meltfptr[255] = (melt_ptr_t) &meltcdat->dstr_171__MKDOC_CMATCHERS; + /*_._VALSTR___V256*/ meltfptr[255] = (melt_ptr_t) &meltcdat->dstr_171__MKDOC_CMATCHERS; meltcdat->dstr_171__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_171__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (meltcdat->dstr_171__MKDOC_CMATCHERS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_171__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (meltcdat->dstr_171__MKDOC_CMATCHERS.val)-1); meltcdat->dstr_171__MKDOC_CMATCHERS.val[15] = (char)0 ; meltcdat->dstr_171__MKDOC_CMATCHERS.slen = 15 ; /*iniobj dsym_172__MKDOC_SELECTORS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V290*/ meltfptr[289]) + /*uniqueobj*/ if (!/*_._VALDATA___V290*/ meltfptr[289]) /*_._VALDATA___V290*/ meltfptr[289] = (melt_ptr_t )&meltcdat->dsym_172__MKDOC_SELECTORS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_172__MKDOC_SELECTORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_172__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11528,19 +10469,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_173__MKDOC_SELECTORS*/ - /*_._VALSTR___V291*/ - meltfptr[290] = (melt_ptr_t) &meltcdat->dstr_173__MKDOC_SELECTORS; + /*_._VALSTR___V291*/ meltfptr[290] = (melt_ptr_t) &meltcdat->dstr_173__MKDOC_SELECTORS; meltcdat->dstr_173__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_173__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (meltcdat->dstr_173__MKDOC_SELECTORS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_173__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (meltcdat->dstr_173__MKDOC_SELECTORS.val)-1); meltcdat->dstr_173__MKDOC_SELECTORS.val[15] = (char)0 ; meltcdat->dstr_173__MKDOC_SELECTORS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_174__MKDOC_SELECTORS*/ - /*_._VALDATA___V257*/ - meltfptr[256] = (melt_ptr_t )&meltcdat->dobj_174__MKDOC_SELECTORS; + /*_._VALDATA___V257*/ meltfptr[256] = (melt_ptr_t )&meltcdat->dobj_174__MKDOC_SELECTORS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_174__MKDOC_SELECTORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_174__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_174__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11550,18 +10488,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_175__MKDOC_SELECTORS*/ - /*_._VALSTR___V258*/ - meltfptr[257] = (melt_ptr_t) &meltcdat->dstr_175__MKDOC_SELECTORS; + /*_._VALSTR___V258*/ meltfptr[257] = (melt_ptr_t) &meltcdat->dstr_175__MKDOC_SELECTORS; meltcdat->dstr_175__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_175__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (meltcdat->dstr_175__MKDOC_SELECTORS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_175__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (meltcdat->dstr_175__MKDOC_SELECTORS.val)-1); meltcdat->dstr_175__MKDOC_SELECTORS.val[15] = (char)0 ; meltcdat->dstr_175__MKDOC_SELECTORS.slen = 15 ; /*iniobj dsym_176__MKDOC_FIELDS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V292*/ meltfptr[291]) + /*uniqueobj*/ if (!/*_._VALDATA___V292*/ meltfptr[291]) /*_._VALDATA___V292*/ meltfptr[291] = (melt_ptr_t )&meltcdat->dsym_176__MKDOC_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_176__MKDOC_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_176__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11571,19 +10506,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_177__MKDOC_FIELDS*/ - /*_._VALSTR___V293*/ - meltfptr[292] = (melt_ptr_t) &meltcdat->dstr_177__MKDOC_FIELDS; + /*_._VALSTR___V293*/ meltfptr[292] = (melt_ptr_t) &meltcdat->dstr_177__MKDOC_FIELDS; meltcdat->dstr_177__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_177__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (meltcdat->dstr_177__MKDOC_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_177__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (meltcdat->dstr_177__MKDOC_FIELDS.val)-1); meltcdat->dstr_177__MKDOC_FIELDS.val[12] = (char)0 ; meltcdat->dstr_177__MKDOC_FIELDS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_178__MKDOC_FIELDS*/ - /*_._VALDATA___V259*/ - meltfptr[258] = (melt_ptr_t )&meltcdat->dobj_178__MKDOC_FIELDS; + /*_._VALDATA___V259*/ meltfptr[258] = (melt_ptr_t )&meltcdat->dobj_178__MKDOC_FIELDS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_178__MKDOC_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_178__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_178__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11593,18 +10525,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_179__MKDOC_FIELDS*/ - /*_._VALSTR___V260*/ - meltfptr[259] = (melt_ptr_t) &meltcdat->dstr_179__MKDOC_FIELDS; + /*_._VALSTR___V260*/ meltfptr[259] = (melt_ptr_t) &meltcdat->dstr_179__MKDOC_FIELDS; meltcdat->dstr_179__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_179__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (meltcdat->dstr_179__MKDOC_FIELDS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_179__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (meltcdat->dstr_179__MKDOC_FIELDS.val)-1); meltcdat->dstr_179__MKDOC_FIELDS.val[12] = (char)0 ; meltcdat->dstr_179__MKDOC_FIELDS.slen = 12 ; /*iniobj dsym_180__MKDOC_CLASSES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V294*/ meltfptr[293]) + /*uniqueobj*/ if (!/*_._VALDATA___V294*/ meltfptr[293]) /*_._VALDATA___V294*/ meltfptr[293] = (melt_ptr_t )&meltcdat->dsym_180__MKDOC_CLASSES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_180__MKDOC_CLASSES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_180__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11614,19 +10543,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_181__MKDOC_CLASSES*/ - /*_._VALSTR___V295*/ - meltfptr[294] = (melt_ptr_t) &meltcdat->dstr_181__MKDOC_CLASSES; + /*_._VALSTR___V295*/ meltfptr[294] = (melt_ptr_t) &meltcdat->dstr_181__MKDOC_CLASSES; meltcdat->dstr_181__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_181__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (meltcdat->dstr_181__MKDOC_CLASSES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_181__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (meltcdat->dstr_181__MKDOC_CLASSES.val)-1); meltcdat->dstr_181__MKDOC_CLASSES.val[13] = (char)0 ; meltcdat->dstr_181__MKDOC_CLASSES.slen = 13 ; /*^iniobj*/ /*iniobj dobj_182__MKDOC_CLASSES*/ - /*_._VALDATA___V261*/ - meltfptr[260] = (melt_ptr_t )&meltcdat->dobj_182__MKDOC_CLASSES; + /*_._VALDATA___V261*/ meltfptr[260] = (melt_ptr_t )&meltcdat->dobj_182__MKDOC_CLASSES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_182__MKDOC_CLASSES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_182__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_182__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11636,18 +10562,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_183__MKDOC_CLASSES*/ - /*_._VALSTR___V262*/ - meltfptr[261] = (melt_ptr_t) &meltcdat->dstr_183__MKDOC_CLASSES; + /*_._VALSTR___V262*/ meltfptr[261] = (melt_ptr_t) &meltcdat->dstr_183__MKDOC_CLASSES; meltcdat->dstr_183__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_183__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (meltcdat->dstr_183__MKDOC_CLASSES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_183__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (meltcdat->dstr_183__MKDOC_CLASSES.val)-1); meltcdat->dstr_183__MKDOC_CLASSES.val[13] = (char)0 ; meltcdat->dstr_183__MKDOC_CLASSES.slen = 13 ; /*iniobj dsym_184__MKDOC_INSTANCES*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V296*/ meltfptr[295]) + /*uniqueobj*/ if (!/*_._VALDATA___V296*/ meltfptr[295]) /*_._VALDATA___V296*/ meltfptr[295] = (melt_ptr_t )&meltcdat->dsym_184__MKDOC_INSTANCES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_184__MKDOC_INSTANCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_184__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11657,19 +10580,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_185__MKDOC_INSTANCES*/ - /*_._VALSTR___V297*/ - meltfptr[296] = (melt_ptr_t) &meltcdat->dstr_185__MKDOC_INSTANCES; + /*_._VALSTR___V297*/ meltfptr[296] = (melt_ptr_t) &meltcdat->dstr_185__MKDOC_INSTANCES; meltcdat->dstr_185__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_185__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (meltcdat->dstr_185__MKDOC_INSTANCES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_185__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (meltcdat->dstr_185__MKDOC_INSTANCES.val)-1); meltcdat->dstr_185__MKDOC_INSTANCES.val[15] = (char)0 ; meltcdat->dstr_185__MKDOC_INSTANCES.slen = 15 ; /*^iniobj*/ /*iniobj dobj_186__MKDOC_INSTANCES*/ - /*_._VALDATA___V263*/ - meltfptr[262] = (melt_ptr_t )&meltcdat->dobj_186__MKDOC_INSTANCES; + /*_._VALDATA___V263*/ meltfptr[262] = (melt_ptr_t )&meltcdat->dobj_186__MKDOC_INSTANCES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_186__MKDOC_INSTANCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_186__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_186__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11679,18 +10599,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_187__MKDOC_INSTANCES*/ - /*_._VALSTR___V264*/ - meltfptr[263] = (melt_ptr_t) &meltcdat->dstr_187__MKDOC_INSTANCES; + /*_._VALSTR___V264*/ meltfptr[263] = (melt_ptr_t) &meltcdat->dstr_187__MKDOC_INSTANCES; meltcdat->dstr_187__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_187__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (meltcdat->dstr_187__MKDOC_INSTANCES.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_187__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (meltcdat->dstr_187__MKDOC_INSTANCES.val)-1); meltcdat->dstr_187__MKDOC_INSTANCES.val[15] = (char)0 ; meltcdat->dstr_187__MKDOC_INSTANCES.slen = 15 ; /*iniobj dsym_188__MKDOC_MACROS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V298*/ meltfptr[297]) + /*uniqueobj*/ if (!/*_._VALDATA___V298*/ meltfptr[297]) /*_._VALDATA___V298*/ meltfptr[297] = (melt_ptr_t )&meltcdat->dsym_188__MKDOC_MACROS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_188__MKDOC_MACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_188__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11700,19 +10617,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_189__MKDOC_MACROS*/ - /*_._VALSTR___V299*/ - meltfptr[298] = (melt_ptr_t) &meltcdat->dstr_189__MKDOC_MACROS; + /*_._VALSTR___V299*/ meltfptr[298] = (melt_ptr_t) &meltcdat->dstr_189__MKDOC_MACROS; meltcdat->dstr_189__MKDOC_MACROS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_189__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (meltcdat->dstr_189__MKDOC_MACROS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_189__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (meltcdat->dstr_189__MKDOC_MACROS.val)-1); meltcdat->dstr_189__MKDOC_MACROS.val[12] = (char)0 ; meltcdat->dstr_189__MKDOC_MACROS.slen = 12 ; /*^iniobj*/ /*iniobj dobj_190__MKDOC_MACROS*/ - /*_._VALDATA___V265*/ - meltfptr[264] = (melt_ptr_t )&meltcdat->dobj_190__MKDOC_MACROS; + /*_._VALDATA___V265*/ meltfptr[264] = (melt_ptr_t )&meltcdat->dobj_190__MKDOC_MACROS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_190__MKDOC_MACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_190__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_190__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11722,18 +10636,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_191__MKDOC_MACROS*/ - /*_._VALSTR___V266*/ - meltfptr[265] = (melt_ptr_t) &meltcdat->dstr_191__MKDOC_MACROS; + /*_._VALSTR___V266*/ meltfptr[265] = (melt_ptr_t) &meltcdat->dstr_191__MKDOC_MACROS; meltcdat->dstr_191__MKDOC_MACROS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_191__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (meltcdat->dstr_191__MKDOC_MACROS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_191__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (meltcdat->dstr_191__MKDOC_MACROS.val)-1); meltcdat->dstr_191__MKDOC_MACROS.val[12] = (char)0 ; meltcdat->dstr_191__MKDOC_MACROS.slen = 12 ; /*iniobj dsym_192__MKDOC_PATMACROS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V300*/ meltfptr[299]) + /*uniqueobj*/ if (!/*_._VALDATA___V300*/ meltfptr[299]) /*_._VALDATA___V300*/ meltfptr[299] = (melt_ptr_t )&meltcdat->dsym_192__MKDOC_PATMACROS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_192__MKDOC_PATMACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_192__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11743,19 +10654,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_193__MKDOC_PATMACROS*/ - /*_._VALSTR___V301*/ - meltfptr[300] = (melt_ptr_t) &meltcdat->dstr_193__MKDOC_PATMACROS; + /*_._VALSTR___V301*/ meltfptr[300] = (melt_ptr_t) &meltcdat->dstr_193__MKDOC_PATMACROS; meltcdat->dstr_193__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_193__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (meltcdat->dstr_193__MKDOC_PATMACROS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_193__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (meltcdat->dstr_193__MKDOC_PATMACROS.val)-1); meltcdat->dstr_193__MKDOC_PATMACROS.val[15] = (char)0 ; meltcdat->dstr_193__MKDOC_PATMACROS.slen = 15 ; /*^iniobj*/ /*iniobj dobj_194__MKDOC_PATMACROS*/ - /*_._VALDATA___V267*/ - meltfptr[266] = (melt_ptr_t )&meltcdat->dobj_194__MKDOC_PATMACROS; + /*_._VALDATA___V267*/ meltfptr[266] = (melt_ptr_t )&meltcdat->dobj_194__MKDOC_PATMACROS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_194__MKDOC_PATMACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_194__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_194__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11765,18 +10673,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_195__MKDOC_PATMACROS*/ - /*_._VALSTR___V268*/ - meltfptr[267] = (melt_ptr_t) &meltcdat->dstr_195__MKDOC_PATMACROS; + /*_._VALSTR___V268*/ meltfptr[267] = (melt_ptr_t) &meltcdat->dstr_195__MKDOC_PATMACROS; meltcdat->dstr_195__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_195__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (meltcdat->dstr_195__MKDOC_PATMACROS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_195__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (meltcdat->dstr_195__MKDOC_PATMACROS.val)-1); meltcdat->dstr_195__MKDOC_PATMACROS.val[15] = (char)0 ; meltcdat->dstr_195__MKDOC_PATMACROS.slen = 15 ; /*iniobj dsym_196__MKDOC_HOOKS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V302*/ meltfptr[301]) + /*uniqueobj*/ if (!/*_._VALDATA___V302*/ meltfptr[301]) /*_._VALDATA___V302*/ meltfptr[301] = (melt_ptr_t )&meltcdat->dsym_196__MKDOC_HOOKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_196__MKDOC_HOOKS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_196__MKDOC_HOOKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11786,19 +10691,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_197__MKDOC_HOOKS*/ - /*_._VALSTR___V303*/ - meltfptr[302] = (melt_ptr_t) &meltcdat->dstr_197__MKDOC_HOOKS; + /*_._VALSTR___V303*/ meltfptr[302] = (melt_ptr_t) &meltcdat->dstr_197__MKDOC_HOOKS; meltcdat->dstr_197__MKDOC_HOOKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_197__MKDOC_HOOKS.val, "MKDOC_HOOKS", sizeof (meltcdat->dstr_197__MKDOC_HOOKS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_197__MKDOC_HOOKS.val, "MKDOC_HOOKS", sizeof (meltcdat->dstr_197__MKDOC_HOOKS.val)-1); meltcdat->dstr_197__MKDOC_HOOKS.val[11] = (char)0 ; meltcdat->dstr_197__MKDOC_HOOKS.slen = 11 ; /*^iniobj*/ /*iniobj dobj_198__MKDOC_HOOKS*/ - /*_._VALDATA___V269*/ - meltfptr[268] = (melt_ptr_t )&meltcdat->dobj_198__MKDOC_HOOKS; + /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t )&meltcdat->dobj_198__MKDOC_HOOKS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_198__MKDOC_HOOKS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_198__MKDOC_HOOKS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_198__MKDOC_HOOKS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11808,18 +10710,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_199__MKDOC_HOOKS*/ - /*_._VALSTR___V270*/ - meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_199__MKDOC_HOOKS; + /*_._VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_199__MKDOC_HOOKS; meltcdat->dstr_199__MKDOC_HOOKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_199__MKDOC_HOOKS.val, "MKDOC_HOOKS", sizeof (meltcdat->dstr_199__MKDOC_HOOKS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_199__MKDOC_HOOKS.val, "MKDOC_HOOKS", sizeof (meltcdat->dstr_199__MKDOC_HOOKS.val)-1); meltcdat->dstr_199__MKDOC_HOOKS.val[11] = (char)0 ; meltcdat->dstr_199__MKDOC_HOOKS.slen = 11 ; /*iniobj dsym_200__MKDOC_FORMALOCCMAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V304*/ meltfptr[303]) + /*uniqueobj*/ if (!/*_._VALDATA___V304*/ meltfptr[303]) /*_._VALDATA___V304*/ meltfptr[303] = (melt_ptr_t )&meltcdat->dsym_200__MKDOC_FORMALOCCMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_200__MKDOC_FORMALOCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_200__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11829,19 +10728,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_201__MKDOC_FORMALOCCMAP*/ - /*_._VALSTR___V305*/ - meltfptr[304] = (melt_ptr_t) &meltcdat->dstr_201__MKDOC_FORMALOCCMAP; + /*_._VALSTR___V305*/ meltfptr[304] = (melt_ptr_t) &meltcdat->dstr_201__MKDOC_FORMALOCCMAP; meltcdat->dstr_201__MKDOC_FORMALOCCMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_201__MKDOC_FORMALOCCMAP.val, "MKDOC_FORMALOCCMAP", sizeof (meltcdat->dstr_201__MKDOC_FORMALOCCMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_201__MKDOC_FORMALOCCMAP.val, "MKDOC_FORMALOCCMAP", sizeof (meltcdat->dstr_201__MKDOC_FORMALOCCMAP.val)-1); meltcdat->dstr_201__MKDOC_FORMALOCCMAP.val[18] = (char)0 ; meltcdat->dstr_201__MKDOC_FORMALOCCMAP.slen = 18 ; /*^iniobj*/ /*iniobj dobj_202__MKDOC_FORMALOCCMAP*/ - /*_._VALDATA___V271*/ - meltfptr[270] = (melt_ptr_t )&meltcdat->dobj_202__MKDOC_FORMALOCCMAP; + /*_._VALDATA___V271*/ meltfptr[270] = (melt_ptr_t )&meltcdat->dobj_202__MKDOC_FORMALOCCMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_202__MKDOC_FORMALOCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_202__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_202__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11851,18 +10747,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_203__MKDOC_FORMALOCCMAP*/ - /*_._VALSTR___V272*/ - meltfptr[271] = (melt_ptr_t) &meltcdat->dstr_203__MKDOC_FORMALOCCMAP; + /*_._VALSTR___V272*/ meltfptr[271] = (melt_ptr_t) &meltcdat->dstr_203__MKDOC_FORMALOCCMAP; meltcdat->dstr_203__MKDOC_FORMALOCCMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_203__MKDOC_FORMALOCCMAP.val, "MKDOC_FORMALOCCMAP", sizeof (meltcdat->dstr_203__MKDOC_FORMALOCCMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_203__MKDOC_FORMALOCCMAP.val, "MKDOC_FORMALOCCMAP", sizeof (meltcdat->dstr_203__MKDOC_FORMALOCCMAP.val)-1); meltcdat->dstr_203__MKDOC_FORMALOCCMAP.val[18] = (char)0 ; meltcdat->dstr_203__MKDOC_FORMALOCCMAP.slen = 18 ; /*iniobj dsym_204__MKDOC_PREDEFMAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V306*/ meltfptr[305]) + /*uniqueobj*/ if (!/*_._VALDATA___V306*/ meltfptr[305]) /*_._VALDATA___V306*/ meltfptr[305] = (melt_ptr_t )&meltcdat->dsym_204__MKDOC_PREDEFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_204__MKDOC_PREDEFMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_204__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11872,19 +10765,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_205__MKDOC_PREDEFMAP*/ - /*_._VALSTR___V307*/ - meltfptr[306] = (melt_ptr_t) &meltcdat->dstr_205__MKDOC_PREDEFMAP; + /*_._VALSTR___V307*/ meltfptr[306] = (melt_ptr_t) &meltcdat->dstr_205__MKDOC_PREDEFMAP; meltcdat->dstr_205__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_205__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (meltcdat->dstr_205__MKDOC_PREDEFMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_205__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (meltcdat->dstr_205__MKDOC_PREDEFMAP.val)-1); meltcdat->dstr_205__MKDOC_PREDEFMAP.val[15] = (char)0 ; meltcdat->dstr_205__MKDOC_PREDEFMAP.slen = 15 ; /*^iniobj*/ /*iniobj dobj_206__MKDOC_PREDEFMAP*/ - /*_._VALDATA___V273*/ - meltfptr[272] = (melt_ptr_t )&meltcdat->dobj_206__MKDOC_PREDEFMAP; + /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t )&meltcdat->dobj_206__MKDOC_PREDEFMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_206__MKDOC_PREDEFMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_206__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_206__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11894,18 +10784,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_207__MKDOC_PREDEFMAP*/ - /*_._VALSTR___V274*/ - meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_207__MKDOC_PREDEFMAP; + /*_._VALSTR___V274*/ meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_207__MKDOC_PREDEFMAP; meltcdat->dstr_207__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_207__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (meltcdat->dstr_207__MKDOC_PREDEFMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_207__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (meltcdat->dstr_207__MKDOC_PREDEFMAP.val)-1); meltcdat->dstr_207__MKDOC_PREDEFMAP.val[15] = (char)0 ; meltcdat->dstr_207__MKDOC_PREDEFMAP.slen = 15 ; /*iniobj dsym_208__MKDOC_DOCSYMAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V308*/ meltfptr[307]) + /*uniqueobj*/ if (!/*_._VALDATA___V308*/ meltfptr[307]) /*_._VALDATA___V308*/ meltfptr[307] = (melt_ptr_t )&meltcdat->dsym_208__MKDOC_DOCSYMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_208__MKDOC_DOCSYMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_208__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11915,19 +10802,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_209__MKDOC_DOCSYMAP*/ - /*_._VALSTR___V309*/ - meltfptr[308] = (melt_ptr_t) &meltcdat->dstr_209__MKDOC_DOCSYMAP; + /*_._VALSTR___V309*/ meltfptr[308] = (melt_ptr_t) &meltcdat->dstr_209__MKDOC_DOCSYMAP; meltcdat->dstr_209__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_209__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (meltcdat->dstr_209__MKDOC_DOCSYMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_209__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (meltcdat->dstr_209__MKDOC_DOCSYMAP.val)-1); meltcdat->dstr_209__MKDOC_DOCSYMAP.val[14] = (char)0 ; meltcdat->dstr_209__MKDOC_DOCSYMAP.slen = 14 ; /*^iniobj*/ /*iniobj dobj_210__MKDOC_DOCSYMAP*/ - /*_._VALDATA___V275*/ - meltfptr[274] = (melt_ptr_t )&meltcdat->dobj_210__MKDOC_DOCSYMAP; + /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t )&meltcdat->dobj_210__MKDOC_DOCSYMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_210__MKDOC_DOCSYMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_210__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_210__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11937,18 +10821,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_211__MKDOC_DOCSYMAP*/ - /*_._VALSTR___V276*/ - meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_211__MKDOC_DOCSYMAP; + /*_._VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_211__MKDOC_DOCSYMAP; meltcdat->dstr_211__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_211__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (meltcdat->dstr_211__MKDOC_DOCSYMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_211__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (meltcdat->dstr_211__MKDOC_DOCSYMAP.val)-1); meltcdat->dstr_211__MKDOC_DOCSYMAP.val[14] = (char)0 ; meltcdat->dstr_211__MKDOC_DOCSYMAP.slen = 14 ; /*iniobj dsym_212__MKDOC_SUBCLASSMAP*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V310*/ meltfptr[309]) + /*uniqueobj*/ if (!/*_._VALDATA___V310*/ meltfptr[309]) /*_._VALDATA___V310*/ meltfptr[309] = (melt_ptr_t )&meltcdat->dsym_212__MKDOC_SUBCLASSMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_212__MKDOC_SUBCLASSMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_212__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -11958,19 +10839,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_213__MKDOC_SUBCLASSMAP*/ - /*_._VALSTR___V311*/ - meltfptr[310] = (melt_ptr_t) &meltcdat->dstr_213__MKDOC_SUBCLASSMAP; + /*_._VALSTR___V311*/ meltfptr[310] = (melt_ptr_t) &meltcdat->dstr_213__MKDOC_SUBCLASSMAP; meltcdat->dstr_213__MKDOC_SUBCLASSMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_213__MKDOC_SUBCLASSMAP.val, "MKDOC_SUBCLASSMAP", sizeof (meltcdat->dstr_213__MKDOC_SUBCLASSMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_213__MKDOC_SUBCLASSMAP.val, "MKDOC_SUBCLASSMAP", sizeof (meltcdat->dstr_213__MKDOC_SUBCLASSMAP.val)-1); meltcdat->dstr_213__MKDOC_SUBCLASSMAP.val[17] = (char)0 ; meltcdat->dstr_213__MKDOC_SUBCLASSMAP.slen = 17 ; /*^iniobj*/ /*iniobj dobj_214__MKDOC_SUBCLASSMAP*/ - /*_._VALDATA___V277*/ - meltfptr[276] = (melt_ptr_t )&meltcdat->dobj_214__MKDOC_SUBCLASSMAP; + /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t )&meltcdat->dobj_214__MKDOC_SUBCLASSMAP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_214__MKDOC_SUBCLASSMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_214__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_214__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -11980,18 +10858,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_215__MKDOC_SUBCLASSMAP*/ - /*_._VALSTR___V278*/ - meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_215__MKDOC_SUBCLASSMAP; + /*_._VALSTR___V278*/ meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_215__MKDOC_SUBCLASSMAP; meltcdat->dstr_215__MKDOC_SUBCLASSMAP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_215__MKDOC_SUBCLASSMAP.val, "MKDOC_SUBCLASSMAP", sizeof (meltcdat->dstr_215__MKDOC_SUBCLASSMAP.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_215__MKDOC_SUBCLASSMAP.val, "MKDOC_SUBCLASSMAP", sizeof (meltcdat->dstr_215__MKDOC_SUBCLASSMAP.val)-1); meltcdat->dstr_215__MKDOC_SUBCLASSMAP.val[17] = (char)0 ; meltcdat->dstr_215__MKDOC_SUBCLASSMAP.slen = 17 ; /*iniobj dsym_216__MKDOC_BOXCOUNTER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V312*/ meltfptr[311]) + /*uniqueobj*/ if (!/*_._VALDATA___V312*/ meltfptr[311]) /*_._VALDATA___V312*/ meltfptr[311] = (melt_ptr_t )&meltcdat->dsym_216__MKDOC_BOXCOUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_216__MKDOC_BOXCOUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_216__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12001,19 +10876,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_217__MKDOC_BOXCOUNTER*/ - /*_._VALSTR___V313*/ - meltfptr[312] = (melt_ptr_t) &meltcdat->dstr_217__MKDOC_BOXCOUNTER; + /*_._VALSTR___V313*/ meltfptr[312] = (melt_ptr_t) &meltcdat->dstr_217__MKDOC_BOXCOUNTER; meltcdat->dstr_217__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_217__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (meltcdat->dstr_217__MKDOC_BOXCOUNTER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_217__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (meltcdat->dstr_217__MKDOC_BOXCOUNTER.val)-1); meltcdat->dstr_217__MKDOC_BOXCOUNTER.val[16] = (char)0 ; meltcdat->dstr_217__MKDOC_BOXCOUNTER.slen = 16 ; /*^iniobj*/ /*iniobj dobj_218__MKDOC_BOXCOUNTER*/ - /*_._VALDATA___V279*/ - meltfptr[278] = (melt_ptr_t )&meltcdat->dobj_218__MKDOC_BOXCOUNTER; + /*_._VALDATA___V279*/ meltfptr[278] = (melt_ptr_t )&meltcdat->dobj_218__MKDOC_BOXCOUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_218__MKDOC_BOXCOUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_218__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_218__MKDOC_BOXCOUNTER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); @@ -12023,45 +10895,38 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_219__MKDOC_BOXCOUNTER*/ - /*_._VALSTR___V280*/ - meltfptr[279] = (melt_ptr_t) &meltcdat->dstr_219__MKDOC_BOXCOUNTER; + /*_._VALSTR___V280*/ meltfptr[279] = (melt_ptr_t) &meltcdat->dstr_219__MKDOC_BOXCOUNTER; meltcdat->dstr_219__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_219__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (meltcdat->dstr_219__MKDOC_BOXCOUNTER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_219__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (meltcdat->dstr_219__MKDOC_BOXCOUNTER.val)-1); meltcdat->dstr_219__MKDOC_BOXCOUNTER.val[16] = (char)0 ; meltcdat->dstr_219__MKDOC_BOXCOUNTER.slen = 16 ; /*inirout drout_220__INCREMENT_MKDOC_COUNTER*/ - /*iniroutlocvar*/ /*_._VALROUT___V314*/ - meltfptr[313] = (melt_ptr_t) &meltcdat->drout_220__INCREMENT_MKDOC_COUNTER; + /*iniroutlocvar*/ /*_._VALROUT___V314*/ meltfptr[313] = (melt_ptr_t) &meltcdat->drout_220__INCREMENT_MKDOC_COUNTER; meltcdat->drout_220__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_220__INCREMENT_MKDOC_COUNTER.routdescr, "INCREMENT_MKDOC_COUNTER @warmelt-modes.melt:513", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_220__INCREMENT_MKDOC_COUNTER.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_220__INCREMENT_MKDOC_COUNTER, meltrout_13_WARMELTmiMODES_INCREMENT_MKDOC_COUNTER); /*iniclos dclo_221__INCREMENT_MKDOC_COUNTER*/ - /*_._VALCLO___V315*/ - meltfptr[314] = (melt_ptr_t) &meltcdat->dclo_221__INCREMENT_MKDOC_COUNTER; + /*_._VALCLO___V315*/ meltfptr[314] = (melt_ptr_t) &meltcdat->dclo_221__INCREMENT_MKDOC_COUNTER; meltcdat->dclo_221__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_221__INCREMENT_MKDOC_COUNTER.nbval = 0; /*inirout drout_222__MAKEDOC_SCANINPUT*/ - /*iniroutlocvar*/ /*_._VALROUT___V316*/ - meltfptr[315] = (melt_ptr_t) &meltcdat->drout_222__MAKEDOC_SCANINPUT; + /*iniroutlocvar*/ /*_._VALROUT___V316*/ meltfptr[315] = (melt_ptr_t) &meltcdat->drout_222__MAKEDOC_SCANINPUT; meltcdat->drout_222__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_222__MAKEDOC_SCANINPUT.routdescr, "MAKEDOC_SCANINPUT @warmelt-modes.melt:523", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_222__MAKEDOC_SCANINPUT.nbval = 36; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_222__MAKEDOC_SCANINPUT, meltrout_14_WARMELTmiMODES_MAKEDOC_SCANINPUT); /*iniclos dclo_223__MAKEDOC_SCANINPUT*/ - /*_._VALCLO___V320*/ - meltfptr[319] = (melt_ptr_t) &meltcdat->dclo_223__MAKEDOC_SCANINPUT; + /*_._VALCLO___V320*/ meltfptr[319] = (melt_ptr_t) &meltcdat->dclo_223__MAKEDOC_SCANINPUT; meltcdat->dclo_223__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_223__MAKEDOC_SCANINPUT.nbval = 0; /*inirout drout_224__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V317*/ - meltfptr[316] = (melt_ptr_t) &meltcdat->drout_224__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V317*/ meltfptr[316] = (melt_ptr_t) &meltcdat->drout_224__LAMBDA_; meltcdat->drout_224__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_224__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:532", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_224__LAMBDA_.nbval = 3; @@ -12069,8 +10934,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_225__CLASS_SYMBOL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V321*/ meltfptr[320]) + /*uniqueobj*/ if (!/*_._VALDATA___V321*/ meltfptr[320]) /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t )&meltcdat->dsym_225__CLASS_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__CLASS_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_225__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12080,25 +10944,21 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_226__CLASS_SYMBOL*/ - /*_._VALSTR___V322*/ - meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_226__CLASS_SYMBOL; + /*_._VALSTR___V322*/ meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_226__CLASS_SYMBOL; meltcdat->dstr_226__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_226__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_226__CLASS_SYMBOL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_226__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_226__CLASS_SYMBOL.val)-1); meltcdat->dstr_226__CLASS_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_226__CLASS_SYMBOL.slen = 12 ; /*inirout drout_227__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V318*/ - meltfptr[317] = (melt_ptr_t) &meltcdat->drout_227__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V318*/ meltfptr[317] = (melt_ptr_t) &meltcdat->drout_227__LAMBDA_; meltcdat->drout_227__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_227__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:545", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_227__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_227__LAMBDA_, meltrout_16_WARMELTmiMODES_LAMBDA_cl7); /*inirout drout_228__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V319*/ - meltfptr[318] = (melt_ptr_t) &meltcdat->drout_228__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V319*/ meltfptr[318] = (melt_ptr_t) &meltcdat->drout_228__LAMBDA_; meltcdat->drout_228__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_228__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:555", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_228__LAMBDA_.nbval = 5; @@ -12106,8 +10966,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_229__CLASS_FORMAL_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V323*/ meltfptr[322]) + /*uniqueobj*/ if (!/*_._VALDATA___V323*/ meltfptr[322]) /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t )&meltcdat->dsym_229__CLASS_FORMAL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_229__CLASS_FORMAL_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_229__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12117,18 +10976,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_230__CLASS_FORMAL_BINDING*/ - /*_._VALSTR___V324*/ - meltfptr[323] = (melt_ptr_t) &meltcdat->dstr_230__CLASS_FORMAL_BINDING; + /*_._VALSTR___V324*/ meltfptr[323] = (melt_ptr_t) &meltcdat->dstr_230__CLASS_FORMAL_BINDING; meltcdat->dstr_230__CLASS_FORMAL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_230__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_230__CLASS_FORMAL_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_230__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_230__CLASS_FORMAL_BINDING.val)-1); meltcdat->dstr_230__CLASS_FORMAL_BINDING.val[20] = (char)0 ; meltcdat->dstr_230__CLASS_FORMAL_BINDING.slen = 20 ; /*iniobj dsym_231__CLASS_SOURCE_DEFINITION*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V325*/ meltfptr[324]) + /*uniqueobj*/ if (!/*_._VALDATA___V325*/ meltfptr[324]) /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t )&meltcdat->dsym_231__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_231__CLASS_SOURCE_DEFINITION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_231__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12138,18 +10994,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_232__CLASS_SOURCE_DEFINITION*/ - /*_._VALSTR___V326*/ - meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_232__CLASS_SOURCE_DEFINITION; + /*_._VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_232__CLASS_SOURCE_DEFINITION; meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.val, "CLASS_SOURCE_DEFINITION", sizeof (meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.val)-1); meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.val[23] = (char)0 ; meltcdat->dstr_232__CLASS_SOURCE_DEFINITION.slen = 23 ; /*iniobj dsym_233__CLASS_ANY_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V327*/ meltfptr[326]) + /*uniqueobj*/ if (!/*_._VALDATA___V327*/ meltfptr[326]) /*_._VALDATA___V327*/ meltfptr[326] = (melt_ptr_t )&meltcdat->dsym_233__CLASS_ANY_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_233__CLASS_ANY_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_233__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12159,18 +11012,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_234__CLASS_ANY_BINDING*/ - /*_._VALSTR___V328*/ - meltfptr[327] = (melt_ptr_t) &meltcdat->dstr_234__CLASS_ANY_BINDING; + /*_._VALSTR___V328*/ meltfptr[327] = (melt_ptr_t) &meltcdat->dstr_234__CLASS_ANY_BINDING; meltcdat->dstr_234__CLASS_ANY_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_234__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_234__CLASS_ANY_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_234__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_234__CLASS_ANY_BINDING.val)-1); meltcdat->dstr_234__CLASS_ANY_BINDING.val[17] = (char)0 ; meltcdat->dstr_234__CLASS_ANY_BINDING.slen = 17 ; /*iniobj dsym_235__DISCR_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V329*/ meltfptr[328]) + /*uniqueobj*/ if (!/*_._VALDATA___V329*/ meltfptr[328]) /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t )&meltcdat->dsym_235__DISCR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_235__DISCR_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_235__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12180,18 +11030,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_236__DISCR_LIST*/ - /*_._VALSTR___V330*/ - meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_236__DISCR_LIST; + /*_._VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_236__DISCR_LIST; meltcdat->dstr_236__DISCR_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_236__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_236__DISCR_LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_236__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_236__DISCR_LIST.val)-1); meltcdat->dstr_236__DISCR_LIST.val[10] = (char)0 ; meltcdat->dstr_236__DISCR_LIST.slen = 10 ; /*iniobj dsym_237__CLASS_SOURCE_DEFCLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V331*/ meltfptr[330]) + /*uniqueobj*/ if (!/*_._VALDATA___V331*/ meltfptr[330]) /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t )&meltcdat->dsym_237__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_237__CLASS_SOURCE_DEFCLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_237__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12201,18 +11048,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_238__CLASS_SOURCE_DEFCLASS*/ - /*_._VALSTR___V332*/ - meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS; + /*_._VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) &meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS; meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.val, "CLASS_SOURCE_DEFCLASS", sizeof (meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.val)-1); meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.val[21] = (char)0 ; meltcdat->dstr_238__CLASS_SOURCE_DEFCLASS.slen = 21 ; /*iniobj dsym_239__CLASS_SEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V333*/ meltfptr[332]) + /*uniqueobj*/ if (!/*_._VALDATA___V333*/ meltfptr[332]) /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t )&meltcdat->dsym_239__CLASS_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_239__CLASS_SEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_239__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12222,18 +11066,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_240__CLASS_SEXPR*/ - /*_._VALSTR___V334*/ - meltfptr[333] = (melt_ptr_t) &meltcdat->dstr_240__CLASS_SEXPR; + /*_._VALSTR___V334*/ meltfptr[333] = (melt_ptr_t) &meltcdat->dstr_240__CLASS_SEXPR; meltcdat->dstr_240__CLASS_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_240__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_240__CLASS_SEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_240__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_240__CLASS_SEXPR.val)-1); meltcdat->dstr_240__CLASS_SEXPR.val[11] = (char)0 ; meltcdat->dstr_240__CLASS_SEXPR.slen = 11 ; /*iniobj dsym_241__CLASS_CLASS_BINDING*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V335*/ meltfptr[334]) + /*uniqueobj*/ if (!/*_._VALDATA___V335*/ meltfptr[334]) /*_._VALDATA___V335*/ meltfptr[334] = (melt_ptr_t )&meltcdat->dsym_241__CLASS_CLASS_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_241__CLASS_CLASS_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_241__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12243,18 +11084,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_242__CLASS_CLASS_BINDING*/ - /*_._VALSTR___V336*/ - meltfptr[335] = (melt_ptr_t) &meltcdat->dstr_242__CLASS_CLASS_BINDING; + /*_._VALSTR___V336*/ meltfptr[335] = (melt_ptr_t) &meltcdat->dstr_242__CLASS_CLASS_BINDING; meltcdat->dstr_242__CLASS_CLASS_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_242__CLASS_CLASS_BINDING.val, "CLASS_CLASS_BINDING", sizeof (meltcdat->dstr_242__CLASS_CLASS_BINDING.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_242__CLASS_CLASS_BINDING.val, "CLASS_CLASS_BINDING", sizeof (meltcdat->dstr_242__CLASS_CLASS_BINDING.val)-1); meltcdat->dstr_242__CLASS_CLASS_BINDING.val[19] = (char)0 ; meltcdat->dstr_242__CLASS_CLASS_BINDING.slen = 19 ; /*iniobj dsym_243__CLASS_CLASS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V337*/ meltfptr[336]) + /*uniqueobj*/ if (!/*_._VALDATA___V337*/ meltfptr[336]) /*_._VALDATA___V337*/ meltfptr[336] = (melt_ptr_t )&meltcdat->dsym_243__CLASS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_243__CLASS_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_243__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12264,18 +11102,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_244__CLASS_CLASS*/ - /*_._VALSTR___V338*/ - meltfptr[337] = (melt_ptr_t) &meltcdat->dstr_244__CLASS_CLASS; + /*_._VALSTR___V338*/ meltfptr[337] = (melt_ptr_t) &meltcdat->dstr_244__CLASS_CLASS; meltcdat->dstr_244__CLASS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_244__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_244__CLASS_CLASS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_244__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_244__CLASS_CLASS.val)-1); meltcdat->dstr_244__CLASS_CLASS.val[11] = (char)0 ; meltcdat->dstr_244__CLASS_CLASS.slen = 11 ; /*iniobj dsym_245__CLASS_FIELD*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V339*/ meltfptr[338]) + /*uniqueobj*/ if (!/*_._VALDATA___V339*/ meltfptr[338]) /*_._VALDATA___V339*/ meltfptr[338] = (melt_ptr_t )&meltcdat->dsym_245__CLASS_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_245__CLASS_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_245__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12285,18 +11120,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_246__CLASS_FIELD*/ - /*_._VALSTR___V340*/ - meltfptr[339] = (melt_ptr_t) &meltcdat->dstr_246__CLASS_FIELD; + /*_._VALSTR___V340*/ meltfptr[339] = (melt_ptr_t) &meltcdat->dstr_246__CLASS_FIELD; meltcdat->dstr_246__CLASS_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_246__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_246__CLASS_FIELD.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_246__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_246__CLASS_FIELD.val)-1); meltcdat->dstr_246__CLASS_FIELD.val[11] = (char)0 ; meltcdat->dstr_246__CLASS_FIELD.slen = 11 ; /*iniobj dsym_247__CLASS_SOURCE_DEFSELECTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V341*/ meltfptr[340]) + /*uniqueobj*/ if (!/*_._VALDATA___V341*/ meltfptr[340]) /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t )&meltcdat->dsym_247__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_247__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_247__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12306,18 +11138,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_248__CLASS_SOURCE_DEFSELECTOR*/ - /*_._VALSTR___V342*/ - meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR; + /*_._VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR; meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.val)-1); meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.val[24] = (char)0 ; meltcdat->dstr_248__CLASS_SOURCE_DEFSELECTOR.slen = 24 ; /*iniobj dsym_249__CLASS_SOURCE_DEFINSTANCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V343*/ meltfptr[342]) + /*uniqueobj*/ if (!/*_._VALDATA___V343*/ meltfptr[342]) /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t )&meltcdat->dsym_249__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_249__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_249__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12327,18 +11156,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_250__CLASS_SOURCE_DEFINSTANCE*/ - /*_._VALSTR___V344*/ - meltfptr[343] = (melt_ptr_t) &meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE; + /*_._VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) &meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE; meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.val)-1); meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.val[24] = (char)0 ; meltcdat->dstr_250__CLASS_SOURCE_DEFINSTANCE.slen = 24 ; /*iniobj dsym_251__CLASS_SOURCE_DEFPRIMITIVE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V345*/ meltfptr[344]) + /*uniqueobj*/ if (!/*_._VALDATA___V345*/ meltfptr[344]) /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t )&meltcdat->dsym_251__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_251__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_251__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12348,18 +11174,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_252__CLASS_SOURCE_DEFPRIMITIV*/ - /*_._VALSTR___V346*/ - meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV; + /*_._VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_252__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; /*iniobj dsym_253__CLASS_SOURCE_DEFMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V347*/ meltfptr[346]) + /*uniqueobj*/ if (!/*_._VALDATA___V347*/ meltfptr[346]) /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t )&meltcdat->dsym_253__CLASS_SOURCE_DEFMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_253__CLASS_SOURCE_DEFMACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_253__CLASS_SOURCE_DEFMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12369,18 +11192,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_254__CLASS_SOURCE_DEFMACRO*/ - /*_._VALSTR___V348*/ - meltfptr[347] = (melt_ptr_t) &meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO; + /*_._VALSTR___V348*/ meltfptr[347] = (melt_ptr_t) &meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO; meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.val, "CLASS_SOURCE_DEFMACRO", sizeof (meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.val)-1); meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.val[21] = (char)0 ; meltcdat->dstr_254__CLASS_SOURCE_DEFMACRO.slen = 21 ; /*iniobj dsym_255__CLASS_SOURCE_DEFUN*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V349*/ meltfptr[348]) + /*uniqueobj*/ if (!/*_._VALDATA___V349*/ meltfptr[348]) /*_._VALDATA___V349*/ meltfptr[348] = (melt_ptr_t )&meltcdat->dsym_255__CLASS_SOURCE_DEFUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_255__CLASS_SOURCE_DEFUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_255__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12390,18 +11210,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_256__CLASS_SOURCE_DEFUN*/ - /*_._VALSTR___V350*/ - meltfptr[349] = (melt_ptr_t) &meltcdat->dstr_256__CLASS_SOURCE_DEFUN; + /*_._VALSTR___V350*/ meltfptr[349] = (melt_ptr_t) &meltcdat->dstr_256__CLASS_SOURCE_DEFUN; meltcdat->dstr_256__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_256__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_256__CLASS_SOURCE_DEFUN.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_256__CLASS_SOURCE_DEFUN.val, "CLASS_SOURCE_DEFUN", sizeof (meltcdat->dstr_256__CLASS_SOURCE_DEFUN.val)-1); meltcdat->dstr_256__CLASS_SOURCE_DEFUN.val[18] = (char)0 ; meltcdat->dstr_256__CLASS_SOURCE_DEFUN.slen = 18 ; /*iniobj dsym_257__CLASS_SOURCE_DEFCITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V351*/ meltfptr[350]) + /*uniqueobj*/ if (!/*_._VALDATA___V351*/ meltfptr[350]) /*_._VALDATA___V351*/ meltfptr[350] = (melt_ptr_t )&meltcdat->dsym_257__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_257__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_257__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12411,18 +11228,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_258__CLASS_SOURCE_DEFCITERATO*/ - /*_._VALSTR___V352*/ - meltfptr[351] = (melt_ptr_t) &meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO; + /*_._VALSTR___V352*/ meltfptr[351] = (melt_ptr_t) &meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_258__CLASS_SOURCE_DEFCITERATO.slen = 25 ; /*iniobj dsym_259__CLASS_SOURCE_DEFCMATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V353*/ meltfptr[352]) + /*uniqueobj*/ if (!/*_._VALDATA___V353*/ meltfptr[352]) /*_._VALDATA___V353*/ meltfptr[352] = (melt_ptr_t )&meltcdat->dsym_259__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_259__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_259__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12432,18 +11246,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_260__CLASS_SOURCE_DEFCMATCHER*/ - /*_._VALSTR___V354*/ - meltfptr[353] = (melt_ptr_t) &meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER; + /*_._VALSTR___V354*/ meltfptr[353] = (melt_ptr_t) &meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_260__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; /*iniobj dsym_261__CLASS_SOURCE_EXPORT_PATMACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V355*/ meltfptr[354]) + /*uniqueobj*/ if (!/*_._VALDATA___V355*/ meltfptr[354]) /*_._VALDATA___V355*/ meltfptr[354] = (melt_ptr_t )&meltcdat->dsym_261__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_261__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_261__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12453,18 +11264,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_262__CLASS_SOURCE_EXPORT_PATM*/ - /*_._VALSTR___V356*/ - meltfptr[355] = (melt_ptr_t) &meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM; + /*_._VALSTR___V356*/ meltfptr[355] = (melt_ptr_t) &meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM; meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.val)-1); meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.val[28] = (char)0 ; meltcdat->dstr_262__CLASS_SOURCE_EXPORT_PATM.slen = 28 ; /*iniobj dsym_263__CLASS_SOURCE_EXPORT_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V357*/ meltfptr[356]) + /*uniqueobj*/ if (!/*_._VALDATA___V357*/ meltfptr[356]) /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t )&meltcdat->dsym_263__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_263__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12474,18 +11282,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_264__CLASS_SOURCE_EXPORT_MACR*/ - /*_._VALSTR___V358*/ - meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR; + /*_._VALSTR___V358*/ meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR; meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.val)-1); meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.val[25] = (char)0 ; meltcdat->dstr_264__CLASS_SOURCE_EXPORT_MACR.slen = 25 ; /*iniobj dsym_265__CLASS_SOURCE_DEFHOOK*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V359*/ meltfptr[358]) + /*uniqueobj*/ if (!/*_._VALDATA___V359*/ meltfptr[358]) /*_._VALDATA___V359*/ meltfptr[358] = (melt_ptr_t )&meltcdat->dsym_265__CLASS_SOURCE_DEFHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_265__CLASS_SOURCE_DEFHOOK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_265__CLASS_SOURCE_DEFHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12495,18 +11300,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_266__CLASS_SOURCE_DEFHOOK*/ - /*_._VALSTR___V360*/ - meltfptr[359] = (melt_ptr_t) &meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK; + /*_._VALSTR___V360*/ meltfptr[359] = (melt_ptr_t) &meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK; meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.val, "CLASS_SOURCE_DEFHOOK", sizeof (meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.val)-1); meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.val[20] = (char)0 ; meltcdat->dstr_266__CLASS_SOURCE_DEFHOOK.slen = 20 ; /*iniobj dsym_267__INFORM_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V361*/ meltfptr[360]) + /*uniqueobj*/ if (!/*_._VALDATA___V361*/ meltfptr[360]) /*_._VALDATA___V361*/ meltfptr[360] = (melt_ptr_t )&meltcdat->dsym_267__INFORM_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_267__INFORM_AT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_267__INFORM_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12516,18 +11318,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_268__INFORM_AT*/ - /*_._VALSTR___V362*/ - meltfptr[361] = (melt_ptr_t) &meltcdat->dstr_268__INFORM_AT; + /*_._VALSTR___V362*/ meltfptr[361] = (melt_ptr_t) &meltcdat->dstr_268__INFORM_AT; meltcdat->dstr_268__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_268__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_268__INFORM_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_268__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_268__INFORM_AT.val)-1); meltcdat->dstr_268__INFORM_AT.val[9] = (char)0 ; meltcdat->dstr_268__INFORM_AT.slen = 9 ; /*iniobj dsym_269__WARNING_AT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V363*/ meltfptr[362]) + /*uniqueobj*/ if (!/*_._VALDATA___V363*/ meltfptr[362]) /*_._VALDATA___V363*/ meltfptr[362] = (melt_ptr_t )&meltcdat->dsym_269__WARNING_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_269__WARNING_AT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_269__WARNING_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12537,32 +11336,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_270__WARNING_AT*/ - /*_._VALSTR___V364*/ - meltfptr[363] = (melt_ptr_t) &meltcdat->dstr_270__WARNING_AT; + /*_._VALSTR___V364*/ meltfptr[363] = (melt_ptr_t) &meltcdat->dstr_270__WARNING_AT; meltcdat->dstr_270__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_270__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_270__WARNING_AT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_270__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_270__WARNING_AT.val)-1); meltcdat->dstr_270__WARNING_AT.val[10] = (char)0 ; meltcdat->dstr_270__WARNING_AT.slen = 10 ; /*inirout drout_271__MAKEDOC_OUTDEFLOC*/ - /*iniroutlocvar*/ /*_._VALROUT___V365*/ - meltfptr[364] = (melt_ptr_t) &meltcdat->drout_271__MAKEDOC_OUTDEFLOC; + /*iniroutlocvar*/ /*_._VALROUT___V365*/ meltfptr[364] = (melt_ptr_t) &meltcdat->drout_271__MAKEDOC_OUTDEFLOC; meltcdat->drout_271__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_271__MAKEDOC_OUTDEFLOC.routdescr, "MAKEDOC_OUTDEFLOC @warmelt-modes.melt:804", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_271__MAKEDOC_OUTDEFLOC.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_271__MAKEDOC_OUTDEFLOC, meltrout_18_WARMELTmiMODES_MAKEDOC_OUTDEFLOC); /*iniclos dclo_272__MAKEDOC_OUTDEFLOC*/ - /*_._VALCLO___V366*/ - meltfptr[365] = (melt_ptr_t) &meltcdat->dclo_272__MAKEDOC_OUTDEFLOC; + /*_._VALCLO___V366*/ meltfptr[365] = (melt_ptr_t) &meltcdat->dclo_272__MAKEDOC_OUTDEFLOC; meltcdat->dclo_272__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_272__MAKEDOC_OUTDEFLOC.nbval = 0; /*iniobj dsym_273__CLASS_LOCATED*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V367*/ meltfptr[366]) + /*uniqueobj*/ if (!/*_._VALDATA___V367*/ meltfptr[366]) /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t )&meltcdat->dsym_273__CLASS_LOCATED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__CLASS_LOCATED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_273__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12572,32 +11366,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_274__CLASS_LOCATED*/ - /*_._VALSTR___V368*/ - meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_274__CLASS_LOCATED; + /*_._VALSTR___V368*/ meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_274__CLASS_LOCATED; meltcdat->dstr_274__CLASS_LOCATED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_274__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_274__CLASS_LOCATED.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_274__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_274__CLASS_LOCATED.val)-1); meltcdat->dstr_274__CLASS_LOCATED.val[13] = (char)0 ; meltcdat->dstr_274__CLASS_LOCATED.slen = 13 ; /*inirout drout_275__MAKEDOC_OUTFORMALS*/ - /*iniroutlocvar*/ /*_._VALROUT___V369*/ - meltfptr[368] = (melt_ptr_t) &meltcdat->drout_275__MAKEDOC_OUTFORMALS; + /*iniroutlocvar*/ /*_._VALROUT___V369*/ meltfptr[368] = (melt_ptr_t) &meltcdat->drout_275__MAKEDOC_OUTFORMALS; meltcdat->drout_275__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_275__MAKEDOC_OUTFORMALS.routdescr, "MAKEDOC_OUTFORMALS @warmelt-modes.melt:818", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_275__MAKEDOC_OUTFORMALS.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_275__MAKEDOC_OUTFORMALS, meltrout_19_WARMELTmiMODES_MAKEDOC_OUTFORMALS); /*iniclos dclo_276__MAKEDOC_OUTFORMALS*/ - /*_._VALCLO___V370*/ - meltfptr[369] = (melt_ptr_t) &meltcdat->dclo_276__MAKEDOC_OUTFORMALS; + /*_._VALCLO___V370*/ meltfptr[369] = (melt_ptr_t) &meltcdat->dclo_276__MAKEDOC_OUTFORMALS; meltcdat->dclo_276__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_276__MAKEDOC_OUTFORMALS.nbval = 0; /*iniobj dsym_277__CLASS_QUASI_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V371*/ meltfptr[370]) + /*uniqueobj*/ if (!/*_._VALDATA___V371*/ meltfptr[370]) /*_._VALDATA___V371*/ meltfptr[370] = (melt_ptr_t )&meltcdat->dsym_277__CLASS_QUASI_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_277__CLASS_QUASI_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_277__CLASS_QUASI_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12607,46 +11396,39 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_278__CLASS_QUASI_CTYPE*/ - /*_._VALSTR___V372*/ - meltfptr[371] = (melt_ptr_t) &meltcdat->dstr_278__CLASS_QUASI_CTYPE; + /*_._VALSTR___V372*/ meltfptr[371] = (melt_ptr_t) &meltcdat->dstr_278__CLASS_QUASI_CTYPE; meltcdat->dstr_278__CLASS_QUASI_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_278__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_278__CLASS_QUASI_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_278__CLASS_QUASI_CTYPE.val, "CLASS_QUASI_CTYPE", sizeof (meltcdat->dstr_278__CLASS_QUASI_CTYPE.val)-1); meltcdat->dstr_278__CLASS_QUASI_CTYPE.val[17] = (char)0 ; meltcdat->dstr_278__CLASS_QUASI_CTYPE.slen = 17 ; /*inirout drout_279__MAKEDOC_OUTDOC*/ - /*iniroutlocvar*/ /*_._VALROUT___V373*/ - meltfptr[372] = (melt_ptr_t) &meltcdat->drout_279__MAKEDOC_OUTDOC; + /*iniroutlocvar*/ /*_._VALROUT___V373*/ meltfptr[372] = (melt_ptr_t) &meltcdat->drout_279__MAKEDOC_OUTDOC; meltcdat->drout_279__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_279__MAKEDOC_OUTDOC.routdescr, "MAKEDOC_OUTDOC @warmelt-modes.melt:858", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_279__MAKEDOC_OUTDOC.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_279__MAKEDOC_OUTDOC, meltrout_20_WARMELTmiMODES_MAKEDOC_OUTDOC); /*iniclos dclo_280__MAKEDOC_OUTDOC*/ - /*_._VALCLO___V374*/ - meltfptr[373] = (melt_ptr_t) &meltcdat->dclo_280__MAKEDOC_OUTDOC; + /*_._VALCLO___V374*/ meltfptr[373] = (melt_ptr_t) &meltcdat->dclo_280__MAKEDOC_OUTDOC; meltcdat->dclo_280__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_280__MAKEDOC_OUTDOC.nbval = 0; /*inirout drout_281__MAKEDOC_OUTCLASSDEF*/ - /*iniroutlocvar*/ /*_._VALROUT___V375*/ - meltfptr[374] = (melt_ptr_t) &meltcdat->drout_281__MAKEDOC_OUTCLASSDEF; + /*iniroutlocvar*/ /*_._VALROUT___V375*/ meltfptr[374] = (melt_ptr_t) &meltcdat->drout_281__MAKEDOC_OUTCLASSDEF; meltcdat->drout_281__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_281__MAKEDOC_OUTCLASSDEF.routdescr, "MAKEDOC_OUTCLASSDEF @warmelt-modes.melt:894", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_281__MAKEDOC_OUTCLASSDEF.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_281__MAKEDOC_OUTCLASSDEF, meltrout_21_WARMELTmiMODES_MAKEDOC_OUTCLASSDEF); /*iniclos dclo_282__MAKEDOC_OUTCLASSDEF*/ - /*_._VALCLO___V376*/ - meltfptr[375] = (melt_ptr_t) &meltcdat->dclo_282__MAKEDOC_OUTCLASSDEF; + /*_._VALCLO___V376*/ meltfptr[375] = (melt_ptr_t) &meltcdat->dclo_282__MAKEDOC_OUTCLASSDEF; meltcdat->dclo_282__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_282__MAKEDOC_OUTCLASSDEF.nbval = 0; /*iniobj dsym_283__LIST_TO_MULTIPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V377*/ meltfptr[376]) + /*uniqueobj*/ if (!/*_._VALDATA___V377*/ meltfptr[376]) /*_._VALDATA___V377*/ meltfptr[376] = (melt_ptr_t )&meltcdat->dsym_283__LIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_283__LIST_TO_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_283__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12656,18 +11438,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_284__LIST_TO_MULTIPLE*/ - /*_._VALSTR___V378*/ - meltfptr[377] = (melt_ptr_t) &meltcdat->dstr_284__LIST_TO_MULTIPLE; + /*_._VALSTR___V378*/ meltfptr[377] = (melt_ptr_t) &meltcdat->dstr_284__LIST_TO_MULTIPLE; meltcdat->dstr_284__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_284__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_284__LIST_TO_MULTIPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_284__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_284__LIST_TO_MULTIPLE.val)-1); meltcdat->dstr_284__LIST_TO_MULTIPLE.val[16] = (char)0 ; meltcdat->dstr_284__LIST_TO_MULTIPLE.slen = 16 ; /*iniobj dsym_285__DISCR_MULTIPLE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V379*/ meltfptr[378]) + /*uniqueobj*/ if (!/*_._VALDATA___V379*/ meltfptr[378]) /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t )&meltcdat->dsym_285__DISCR_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_285__DISCR_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_285__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12677,18 +11456,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_286__DISCR_MULTIPLE*/ - /*_._VALSTR___V380*/ - meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_286__DISCR_MULTIPLE; + /*_._VALSTR___V380*/ meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_286__DISCR_MULTIPLE; meltcdat->dstr_286__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_286__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_286__DISCR_MULTIPLE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_286__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_286__DISCR_MULTIPLE.val)-1); meltcdat->dstr_286__DISCR_MULTIPLE.val[14] = (char)0 ; meltcdat->dstr_286__DISCR_MULTIPLE.slen = 14 ; /*iniobj dsym_287__MULTIPLE_SORT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V381*/ meltfptr[380]) + /*uniqueobj*/ if (!/*_._VALDATA___V381*/ meltfptr[380]) /*_._VALDATA___V381*/ meltfptr[380] = (melt_ptr_t )&meltcdat->dsym_287__MULTIPLE_SORT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_287__MULTIPLE_SORT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_287__MULTIPLE_SORT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12698,18 +11474,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_288__MULTIPLE_SORT*/ - /*_._VALSTR___V382*/ - meltfptr[381] = (melt_ptr_t) &meltcdat->dstr_288__MULTIPLE_SORT; + /*_._VALSTR___V382*/ meltfptr[381] = (melt_ptr_t) &meltcdat->dstr_288__MULTIPLE_SORT; meltcdat->dstr_288__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_288__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof (meltcdat->dstr_288__MULTIPLE_SORT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_288__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof (meltcdat->dstr_288__MULTIPLE_SORT.val)-1); meltcdat->dstr_288__MULTIPLE_SORT.val[13] = (char)0 ; meltcdat->dstr_288__MULTIPLE_SORT.slen = 13 ; /*iniobj dsym_289__COMPARE_NAMED_ALPHA*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V383*/ meltfptr[382]) + /*uniqueobj*/ if (!/*_._VALDATA___V383*/ meltfptr[382]) /*_._VALDATA___V383*/ meltfptr[382] = (melt_ptr_t )&meltcdat->dsym_289__COMPARE_NAMED_ALPHA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_289__COMPARE_NAMED_ALPHA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_289__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12719,31 +11492,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_290__COMPARE_NAMED_ALPHA*/ - /*_._VALSTR___V384*/ - meltfptr[383] = (melt_ptr_t) &meltcdat->dstr_290__COMPARE_NAMED_ALPHA; + /*_._VALSTR___V384*/ meltfptr[383] = (melt_ptr_t) &meltcdat->dstr_290__COMPARE_NAMED_ALPHA; meltcdat->dstr_290__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_290__COMPARE_NAMED_ALPHA.val, "COMPARE_NAMED_ALPHA", sizeof (meltcdat->dstr_290__COMPARE_NAMED_ALPHA.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_290__COMPARE_NAMED_ALPHA.val, "COMPARE_NAMED_ALPHA", sizeof (meltcdat->dstr_290__COMPARE_NAMED_ALPHA.val)-1); meltcdat->dstr_290__COMPARE_NAMED_ALPHA.val[19] = (char)0 ; meltcdat->dstr_290__COMPARE_NAMED_ALPHA.slen = 19 ; /*inirout drout_291__MAKEDOC_GENMACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V385*/ - meltfptr[384] = (melt_ptr_t) &meltcdat->drout_291__MAKEDOC_GENMACRO; + /*iniroutlocvar*/ /*_._VALROUT___V385*/ meltfptr[384] = (melt_ptr_t) &meltcdat->drout_291__MAKEDOC_GENMACRO; meltcdat->drout_291__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_291__MAKEDOC_GENMACRO.routdescr, "MAKEDOC_GENMACRO @warmelt-modes.melt:1020", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_291__MAKEDOC_GENMACRO.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_291__MAKEDOC_GENMACRO, meltrout_22_WARMELTmiMODES_MAKEDOC_GENMACRO); /*iniclos dclo_292__MAKEDOC_GENMACRO*/ - /*_._VALCLO___V387*/ - meltfptr[386] = (melt_ptr_t) &meltcdat->dclo_292__MAKEDOC_GENMACRO; + /*_._VALCLO___V387*/ meltfptr[386] = (melt_ptr_t) &meltcdat->dclo_292__MAKEDOC_GENMACRO; meltcdat->dclo_292__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_292__MAKEDOC_GENMACRO.nbval = 0; /*inirout drout_293__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V386*/ - meltfptr[385] = (melt_ptr_t) &meltcdat->drout_293__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V386*/ meltfptr[385] = (melt_ptr_t) &meltcdat->drout_293__LAMBDA_; meltcdat->drout_293__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_293__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1043", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_293__LAMBDA_.nbval = 3; @@ -12751,8 +11519,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_294__CLASS_SOURCE_EXPORT_ANY_MACRO*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V388*/ meltfptr[387]) + /*uniqueobj*/ if (!/*_._VALDATA___V388*/ meltfptr[387]) /*_._VALDATA___V388*/ meltfptr[387] = (melt_ptr_t )&meltcdat->dsym_294__CLASS_SOURCE_EXPORT_ANY_MACRO; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_294__CLASS_SOURCE_EXPORT_ANY_MACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_294__CLASS_SOURCE_EXPORT_ANY_MACRO", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12762,118 +11529,101 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_295__CLASS_SOURCE_EXPORT_ANY_*/ - /*_._VALSTR___V389*/ - meltfptr[388] = (melt_ptr_t) &meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_; + /*_._VALSTR___V389*/ meltfptr[388] = (melt_ptr_t) &meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_; meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.val, "CLASS_SOURCE_EXPORT_ANY_MACRO", sizeof (meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.val)-1); meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.val[29] = (char)0 ; meltcdat->dstr_295__CLASS_SOURCE_EXPORT_ANY_.slen = 29 ; /*inirout drout_296__MAKEDOC_GENPATMACRO*/ - /*iniroutlocvar*/ /*_._VALROUT___V390*/ - meltfptr[389] = (melt_ptr_t) &meltcdat->drout_296__MAKEDOC_GENPATMACRO; + /*iniroutlocvar*/ /*_._VALROUT___V390*/ meltfptr[389] = (melt_ptr_t) &meltcdat->drout_296__MAKEDOC_GENPATMACRO; meltcdat->drout_296__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_296__MAKEDOC_GENPATMACRO.routdescr, "MAKEDOC_GENPATMACRO @warmelt-modes.melt:1104", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_296__MAKEDOC_GENPATMACRO.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_296__MAKEDOC_GENPATMACRO, meltrout_24_WARMELTmiMODES_MAKEDOC_GENPATMACRO); /*iniclos dclo_297__MAKEDOC_GENPATMACRO*/ - /*_._VALCLO___V392*/ - meltfptr[391] = (melt_ptr_t) &meltcdat->dclo_297__MAKEDOC_GENPATMACRO; + /*_._VALCLO___V392*/ meltfptr[391] = (melt_ptr_t) &meltcdat->dclo_297__MAKEDOC_GENPATMACRO; meltcdat->dclo_297__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_297__MAKEDOC_GENPATMACRO.nbval = 0; /*inirout drout_298__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V391*/ - meltfptr[390] = (melt_ptr_t) &meltcdat->drout_298__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V391*/ meltfptr[390] = (melt_ptr_t) &meltcdat->drout_298__LAMBDA_; meltcdat->drout_298__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_298__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1122", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_298__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_298__LAMBDA_, meltrout_25_WARMELTmiMODES_LAMBDA_cl10); /*inirout drout_299__MAKEDOC_GENCLASS*/ - /*iniroutlocvar*/ /*_._VALROUT___V393*/ - meltfptr[392] = (melt_ptr_t) &meltcdat->drout_299__MAKEDOC_GENCLASS; + /*iniroutlocvar*/ /*_._VALROUT___V393*/ meltfptr[392] = (melt_ptr_t) &meltcdat->drout_299__MAKEDOC_GENCLASS; meltcdat->drout_299__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_299__MAKEDOC_GENCLASS.routdescr, "MAKEDOC_GENCLASS @warmelt-modes.melt:1172", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_299__MAKEDOC_GENCLASS.nbval = 27; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_299__MAKEDOC_GENCLASS, meltrout_26_WARMELTmiMODES_MAKEDOC_GENCLASS); /*iniclos dclo_300__MAKEDOC_GENCLASS*/ - /*_._VALCLO___V401*/ - meltfptr[400] = (melt_ptr_t) &meltcdat->dclo_300__MAKEDOC_GENCLASS; + /*_._VALCLO___V401*/ meltfptr[400] = (melt_ptr_t) &meltcdat->dclo_300__MAKEDOC_GENCLASS; meltcdat->dclo_300__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_300__MAKEDOC_GENCLASS.nbval = 0; /*iniboxint dint_301__*/ - /*_._VALBXINT___V394*/ - meltfptr[393] = (melt_ptr_t) &meltcdat->dint_301__; + /*_._VALBXINT___V394*/ meltfptr[393] = (melt_ptr_t) &meltcdat->dint_301__; meltcdat->dint_301__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_301__.val = 1; /*iniboxint dint_302__*/ - /*_._VALBXINT___V395*/ - meltfptr[394] = (melt_ptr_t) &meltcdat->dint_302__; + /*_._VALBXINT___V395*/ meltfptr[394] = (melt_ptr_t) &meltcdat->dint_302__; meltcdat->dint_302__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_302__.val = 0; /*iniboxint dint_303__*/ - /*_._VALBXINT___V396*/ - meltfptr[395] = (melt_ptr_t) &meltcdat->dint_303__; + /*_._VALBXINT___V396*/ meltfptr[395] = (melt_ptr_t) &meltcdat->dint_303__; meltcdat->dint_303__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_303__.val = -1; /*inirout drout_304__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V397*/ - meltfptr[396] = (melt_ptr_t) &meltcdat->drout_304__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V397*/ meltfptr[396] = (melt_ptr_t) &meltcdat->drout_304__LAMBDA_; meltcdat->drout_304__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_304__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1188", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_304__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_304__LAMBDA_, meltrout_27_WARMELTmiMODES_LAMBDA_cl11); /*inirout drout_305__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V398*/ - meltfptr[397] = (melt_ptr_t) &meltcdat->drout_305__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V398*/ meltfptr[397] = (melt_ptr_t) &meltcdat->drout_305__LAMBDA_; meltcdat->drout_305__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_305__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1193", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_305__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_305__LAMBDA_, meltrout_28_WARMELTmiMODES_LAMBDA_cl12); /*inirout drout_306__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V399*/ - meltfptr[398] = (melt_ptr_t) &meltcdat->drout_306__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V399*/ meltfptr[398] = (melt_ptr_t) &meltcdat->drout_306__LAMBDA_; meltcdat->drout_306__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_306__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1223", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_306__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_306__LAMBDA_, meltrout_29_WARMELTmiMODES_LAMBDA_cl13); /*inirout drout_307__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V400*/ - meltfptr[399] = (melt_ptr_t) &meltcdat->drout_307__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V400*/ meltfptr[399] = (melt_ptr_t) &meltcdat->drout_307__LAMBDA_; meltcdat->drout_307__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_307__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1246", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_307__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_307__LAMBDA_, meltrout_30_WARMELTmiMODES_LAMBDA_cl14); /*inirout drout_308__MAKEDOC_OUTPRIMITIVEDEF*/ - /*iniroutlocvar*/ /*_._VALROUT___V402*/ - meltfptr[401] = (melt_ptr_t) &meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF; + /*iniroutlocvar*/ /*_._VALROUT___V402*/ meltfptr[401] = (melt_ptr_t) &meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF; meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF.routdescr, "MAKEDOC_OUTPRIMITIVEDEF @warmelt-modes.melt:1299", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_308__MAKEDOC_OUTPRIMITIVEDEF, meltrout_31_WARMELTmiMODES_MAKEDOC_OUTPRIMITIVEDEF); /*iniclos dclo_309__MAKEDOC_OUTPRIMITIVEDEF*/ - /*_._VALCLO___V403*/ - meltfptr[402] = (melt_ptr_t) &meltcdat->dclo_309__MAKEDOC_OUTPRIMITIVEDEF; + /*_._VALCLO___V403*/ meltfptr[402] = (melt_ptr_t) &meltcdat->dclo_309__MAKEDOC_OUTPRIMITIVEDEF; meltcdat->dclo_309__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_309__MAKEDOC_OUTPRIMITIVEDEF.nbval = 0; /*iniobj dsym_310__CLASS_SOURCE_DEFINITION_FORMAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V404*/ meltfptr[403]) + /*uniqueobj*/ if (!/*_._VALDATA___V404*/ meltfptr[403]) /*_._VALDATA___V404*/ meltfptr[403] = (melt_ptr_t )&meltcdat->dsym_310__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_310__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_310__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12883,89 +11633,76 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_311__CLASS_SOURCE_DEFINITION_*/ - /*_._VALSTR___V405*/ - meltfptr[404] = (melt_ptr_t) &meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_; + /*_._VALSTR___V405*/ meltfptr[404] = (melt_ptr_t) &meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_; meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.val)-1); meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.val[30] = (char)0 ; meltcdat->dstr_311__CLASS_SOURCE_DEFINITION_.slen = 30 ; /*inirout drout_312__MAKEDOC_GENPRIMITIVE*/ - /*iniroutlocvar*/ /*_._VALROUT___V406*/ - meltfptr[405] = (melt_ptr_t) &meltcdat->drout_312__MAKEDOC_GENPRIMITIVE; + /*iniroutlocvar*/ /*_._VALROUT___V406*/ meltfptr[405] = (melt_ptr_t) &meltcdat->drout_312__MAKEDOC_GENPRIMITIVE; meltcdat->drout_312__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_312__MAKEDOC_GENPRIMITIVE.routdescr, "MAKEDOC_GENPRIMITIVE @warmelt-modes.melt:1330", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_312__MAKEDOC_GENPRIMITIVE.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_312__MAKEDOC_GENPRIMITIVE, meltrout_32_WARMELTmiMODES_MAKEDOC_GENPRIMITIVE); /*iniclos dclo_313__MAKEDOC_GENPRIMITIVE*/ - /*_._VALCLO___V408*/ - meltfptr[407] = (melt_ptr_t) &meltcdat->dclo_313__MAKEDOC_GENPRIMITIVE; + /*_._VALCLO___V408*/ meltfptr[407] = (melt_ptr_t) &meltcdat->dclo_313__MAKEDOC_GENPRIMITIVE; meltcdat->dclo_313__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_313__MAKEDOC_GENPRIMITIVE.nbval = 0; /*inirout drout_314__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V407*/ - meltfptr[406] = (melt_ptr_t) &meltcdat->drout_314__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V407*/ meltfptr[406] = (melt_ptr_t) &meltcdat->drout_314__LAMBDA_; meltcdat->drout_314__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_314__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1349", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_314__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_314__LAMBDA_, meltrout_33_WARMELTmiMODES_LAMBDA_cl15); /*inirout drout_315__MAKEDOC_OUTFUNCTIONDEF*/ - /*iniroutlocvar*/ /*_._VALROUT___V409*/ - meltfptr[408] = (melt_ptr_t) &meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF; + /*iniroutlocvar*/ /*_._VALROUT___V409*/ meltfptr[408] = (melt_ptr_t) &meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF; meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF.routdescr, "MAKEDOC_OUTFUNCTIONDEF @warmelt-modes.melt:1374", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_315__MAKEDOC_OUTFUNCTIONDEF, meltrout_34_WARMELTmiMODES_MAKEDOC_OUTFUNCTIONDEF); /*iniclos dclo_316__MAKEDOC_OUTFUNCTIONDEF*/ - /*_._VALCLO___V410*/ - meltfptr[409] = (melt_ptr_t) &meltcdat->dclo_316__MAKEDOC_OUTFUNCTIONDEF; + /*_._VALCLO___V410*/ meltfptr[409] = (melt_ptr_t) &meltcdat->dclo_316__MAKEDOC_OUTFUNCTIONDEF; meltcdat->dclo_316__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_316__MAKEDOC_OUTFUNCTIONDEF.nbval = 0; /*inirout drout_317__MAKEDOC_GENFUNCTION*/ - /*iniroutlocvar*/ /*_._VALROUT___V411*/ - meltfptr[410] = (melt_ptr_t) &meltcdat->drout_317__MAKEDOC_GENFUNCTION; + /*iniroutlocvar*/ /*_._VALROUT___V411*/ meltfptr[410] = (melt_ptr_t) &meltcdat->drout_317__MAKEDOC_GENFUNCTION; meltcdat->drout_317__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_317__MAKEDOC_GENFUNCTION.routdescr, "MAKEDOC_GENFUNCTION @warmelt-modes.melt:1400", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_317__MAKEDOC_GENFUNCTION.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_317__MAKEDOC_GENFUNCTION, meltrout_35_WARMELTmiMODES_MAKEDOC_GENFUNCTION); /*iniclos dclo_318__MAKEDOC_GENFUNCTION*/ - /*_._VALCLO___V413*/ - meltfptr[412] = (melt_ptr_t) &meltcdat->dclo_318__MAKEDOC_GENFUNCTION; + /*_._VALCLO___V413*/ meltfptr[412] = (melt_ptr_t) &meltcdat->dclo_318__MAKEDOC_GENFUNCTION; meltcdat->dclo_318__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_318__MAKEDOC_GENFUNCTION.nbval = 0; /*inirout drout_319__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V412*/ - meltfptr[411] = (melt_ptr_t) &meltcdat->drout_319__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V412*/ meltfptr[411] = (melt_ptr_t) &meltcdat->drout_319__LAMBDA_; meltcdat->drout_319__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_319__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1412", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_319__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_319__LAMBDA_, meltrout_36_WARMELTmiMODES_LAMBDA_cl16); /*inirout drout_320__MAKEDOC_GENCITERATOR*/ - /*iniroutlocvar*/ /*_._VALROUT___V414*/ - meltfptr[413] = (melt_ptr_t) &meltcdat->drout_320__MAKEDOC_GENCITERATOR; + /*iniroutlocvar*/ /*_._VALROUT___V414*/ meltfptr[413] = (melt_ptr_t) &meltcdat->drout_320__MAKEDOC_GENCITERATOR; meltcdat->drout_320__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_320__MAKEDOC_GENCITERATOR.routdescr, "MAKEDOC_GENCITERATOR @warmelt-modes.melt:1435", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_320__MAKEDOC_GENCITERATOR.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_320__MAKEDOC_GENCITERATOR, meltrout_37_WARMELTmiMODES_MAKEDOC_GENCITERATOR); /*iniclos dclo_321__MAKEDOC_GENCITERATOR*/ - /*_._VALCLO___V416*/ - meltfptr[415] = (melt_ptr_t) &meltcdat->dclo_321__MAKEDOC_GENCITERATOR; + /*_._VALCLO___V416*/ meltfptr[415] = (melt_ptr_t) &meltcdat->dclo_321__MAKEDOC_GENCITERATOR; meltcdat->dclo_321__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_321__MAKEDOC_GENCITERATOR.nbval = 0; /*inirout drout_322__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V415*/ - meltfptr[414] = (melt_ptr_t) &meltcdat->drout_322__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V415*/ meltfptr[414] = (melt_ptr_t) &meltcdat->drout_322__LAMBDA_; meltcdat->drout_322__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_322__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1448", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_322__LAMBDA_.nbval = 2; @@ -12973,8 +11710,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_323__CLASS_CITERATOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V417*/ meltfptr[416]) + /*uniqueobj*/ if (!/*_._VALDATA___V417*/ meltfptr[416]) /*_._VALDATA___V417*/ meltfptr[416] = (melt_ptr_t )&meltcdat->dsym_323__CLASS_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_323__CLASS_CITERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_323__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -12984,31 +11720,26 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_324__CLASS_CITERATOR*/ - /*_._VALSTR___V418*/ - meltfptr[417] = (melt_ptr_t) &meltcdat->dstr_324__CLASS_CITERATOR; + /*_._VALSTR___V418*/ meltfptr[417] = (melt_ptr_t) &meltcdat->dstr_324__CLASS_CITERATOR; meltcdat->dstr_324__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_324__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_324__CLASS_CITERATOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_324__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_324__CLASS_CITERATOR.val)-1); meltcdat->dstr_324__CLASS_CITERATOR.val[15] = (char)0 ; meltcdat->dstr_324__CLASS_CITERATOR.slen = 15 ; /*inirout drout_325__MAKEDOC_GENCMATCHER*/ - /*iniroutlocvar*/ /*_._VALROUT___V419*/ - meltfptr[418] = (melt_ptr_t) &meltcdat->drout_325__MAKEDOC_GENCMATCHER; + /*iniroutlocvar*/ /*_._VALROUT___V419*/ meltfptr[418] = (melt_ptr_t) &meltcdat->drout_325__MAKEDOC_GENCMATCHER; meltcdat->drout_325__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_325__MAKEDOC_GENCMATCHER.routdescr, "MAKEDOC_GENCMATCHER @warmelt-modes.melt:1497", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_325__MAKEDOC_GENCMATCHER.nbval = 20; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_325__MAKEDOC_GENCMATCHER, meltrout_39_WARMELTmiMODES_MAKEDOC_GENCMATCHER); /*iniclos dclo_326__MAKEDOC_GENCMATCHER*/ - /*_._VALCLO___V421*/ - meltfptr[420] = (melt_ptr_t) &meltcdat->dclo_326__MAKEDOC_GENCMATCHER; + /*_._VALCLO___V421*/ meltfptr[420] = (melt_ptr_t) &meltcdat->dclo_326__MAKEDOC_GENCMATCHER; meltcdat->dclo_326__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_326__MAKEDOC_GENCMATCHER.nbval = 0; /*inirout drout_327__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V420*/ - meltfptr[419] = (melt_ptr_t) &meltcdat->drout_327__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V420*/ meltfptr[419] = (melt_ptr_t) &meltcdat->drout_327__LAMBDA_; meltcdat->drout_327__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_327__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1510", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_327__LAMBDA_.nbval = 2; @@ -13016,8 +11747,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_328__CLASS_ANY_MATCHER*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V422*/ meltfptr[421]) + /*uniqueobj*/ if (!/*_._VALDATA___V422*/ meltfptr[421]) /*_._VALDATA___V422*/ meltfptr[421] = (melt_ptr_t )&meltcdat->dsym_328__CLASS_ANY_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_328__CLASS_ANY_MATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_328__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13027,54 +11757,46 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_329__CLASS_ANY_MATCHER*/ - /*_._VALSTR___V423*/ - meltfptr[422] = (melt_ptr_t) &meltcdat->dstr_329__CLASS_ANY_MATCHER; + /*_._VALSTR___V423*/ meltfptr[422] = (melt_ptr_t) &meltcdat->dstr_329__CLASS_ANY_MATCHER; meltcdat->dstr_329__CLASS_ANY_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_329__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_329__CLASS_ANY_MATCHER.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_329__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_329__CLASS_ANY_MATCHER.val)-1); meltcdat->dstr_329__CLASS_ANY_MATCHER.val[17] = (char)0 ; meltcdat->dstr_329__CLASS_ANY_MATCHER.slen = 17 ; /*inirout drout_330__MAKEDOC_GENHOOK*/ - /*iniroutlocvar*/ /*_._VALROUT___V424*/ - meltfptr[423] = (melt_ptr_t) &meltcdat->drout_330__MAKEDOC_GENHOOK; + /*iniroutlocvar*/ /*_._VALROUT___V424*/ meltfptr[423] = (melt_ptr_t) &meltcdat->drout_330__MAKEDOC_GENHOOK; meltcdat->drout_330__MAKEDOC_GENHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_330__MAKEDOC_GENHOOK.routdescr, "MAKEDOC_GENHOOK @warmelt-modes.melt:1571", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_330__MAKEDOC_GENHOOK.nbval = 20; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_330__MAKEDOC_GENHOOK, meltrout_41_WARMELTmiMODES_MAKEDOC_GENHOOK); /*iniclos dclo_331__MAKEDOC_GENHOOK*/ - /*_._VALCLO___V426*/ - meltfptr[425] = (melt_ptr_t) &meltcdat->dclo_331__MAKEDOC_GENHOOK; + /*_._VALCLO___V426*/ meltfptr[425] = (melt_ptr_t) &meltcdat->dclo_331__MAKEDOC_GENHOOK; meltcdat->dclo_331__MAKEDOC_GENHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_331__MAKEDOC_GENHOOK.nbval = 0; /*inirout drout_332__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V425*/ - meltfptr[424] = (melt_ptr_t) &meltcdat->drout_332__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V425*/ meltfptr[424] = (melt_ptr_t) &meltcdat->drout_332__LAMBDA_; meltcdat->drout_332__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_332__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1584", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_332__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_332__LAMBDA_, meltrout_42_WARMELTmiMODES_LAMBDA_cl19); /*inirout drout_333__MAKEDOC_GENOUTPUT*/ - /*iniroutlocvar*/ /*_._VALROUT___V427*/ - meltfptr[426] = (melt_ptr_t) &meltcdat->drout_333__MAKEDOC_GENOUTPUT; + /*iniroutlocvar*/ /*_._VALROUT___V427*/ meltfptr[426] = (melt_ptr_t) &meltcdat->drout_333__MAKEDOC_GENOUTPUT; meltcdat->drout_333__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_333__MAKEDOC_GENOUTPUT.routdescr, "MAKEDOC_GENOUTPUT @warmelt-modes.melt:1651", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_333__MAKEDOC_GENOUTPUT.nbval = 17; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_333__MAKEDOC_GENOUTPUT, meltrout_43_WARMELTmiMODES_MAKEDOC_GENOUTPUT); /*iniclos dclo_334__MAKEDOC_GENOUTPUT*/ - /*_._VALCLO___V428*/ - meltfptr[427] = (melt_ptr_t) &meltcdat->dclo_334__MAKEDOC_GENOUTPUT; + /*_._VALCLO___V428*/ meltfptr[427] = (melt_ptr_t) &meltcdat->dclo_334__MAKEDOC_GENOUTPUT; meltcdat->dclo_334__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_334__MAKEDOC_GENOUTPUT.nbval = 0; /*iniobj dsym_335__DISCR_STRBUF*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V429*/ meltfptr[428]) + /*uniqueobj*/ if (!/*_._VALDATA___V429*/ meltfptr[428]) /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t )&meltcdat->dsym_335__DISCR_STRBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_335__DISCR_STRBUF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_335__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13084,18 +11806,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_336__DISCR_STRBUF*/ - /*_._VALSTR___V430*/ - meltfptr[429] = (melt_ptr_t) &meltcdat->dstr_336__DISCR_STRBUF; + /*_._VALSTR___V430*/ meltfptr[429] = (melt_ptr_t) &meltcdat->dstr_336__DISCR_STRBUF; meltcdat->dstr_336__DISCR_STRBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_336__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_336__DISCR_STRBUF.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_336__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_336__DISCR_STRBUF.val)-1); meltcdat->dstr_336__DISCR_STRBUF.val[12] = (char)0 ; meltcdat->dstr_336__DISCR_STRBUF.slen = 12 ; /*iniobj dsym_337__STRING4OUT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V431*/ meltfptr[430]) + /*uniqueobj*/ if (!/*_._VALDATA___V431*/ meltfptr[430]) /*_._VALDATA___V431*/ meltfptr[430] = (melt_ptr_t )&meltcdat->dsym_337__STRING4OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_337__STRING4OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_337__STRING4OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13105,32 +11824,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_338__STRING4OUT*/ - /*_._VALSTR___V432*/ - meltfptr[431] = (melt_ptr_t) &meltcdat->dstr_338__STRING4OUT; + /*_._VALSTR___V432*/ meltfptr[431] = (melt_ptr_t) &meltcdat->dstr_338__STRING4OUT; meltcdat->dstr_338__STRING4OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_338__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_338__STRING4OUT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_338__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_338__STRING4OUT.val)-1); meltcdat->dstr_338__STRING4OUT.val[10] = (char)0 ; meltcdat->dstr_338__STRING4OUT.slen = 10 ; /*inirout drout_339__MAKEDOC_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V433*/ - meltfptr[432] = (melt_ptr_t) &meltcdat->drout_339__MAKEDOC_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V433*/ meltfptr[432] = (melt_ptr_t) &meltcdat->drout_339__MAKEDOC_DOCMD; meltcdat->drout_339__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_339__MAKEDOC_DOCMD.routdescr, "MAKEDOC_DOCMD @warmelt-modes.melt:1770", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_339__MAKEDOC_DOCMD.nbval = 26; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_339__MAKEDOC_DOCMD, meltrout_44_WARMELTmiMODES_MAKEDOC_DOCMD); /*iniclos dclo_340__MAKEDOC_DOCMD*/ - /*_._VALCLO___V438*/ - meltfptr[437] = (melt_ptr_t) &meltcdat->dclo_340__MAKEDOC_DOCMD; + /*_._VALCLO___V438*/ meltfptr[437] = (melt_ptr_t) &meltcdat->dclo_340__MAKEDOC_DOCMD; meltcdat->dclo_340__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_340__MAKEDOC_DOCMD.nbval = 0; /*iniobj dsym_341__BASEmiDOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V434*/ meltfptr[433]) + /*uniqueobj*/ if (!/*_._VALDATA___V434*/ meltfptr[433]) /*_._VALDATA___V434*/ meltfptr[433] = (melt_ptr_t )&meltcdat->dsym_341__BASEmiDOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_341__BASEmiDOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_341__BASEmiDOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13140,18 +11854,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_342__BASE_DOC*/ - /*_._VALSTR___V435*/ - meltfptr[434] = (melt_ptr_t) &meltcdat->dstr_342__BASE_DOC; + /*_._VALSTR___V435*/ meltfptr[434] = (melt_ptr_t) &meltcdat->dstr_342__BASE_DOC; meltcdat->dstr_342__BASE_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_342__BASE_DOC.val, "BASE-DOC", sizeof (meltcdat->dstr_342__BASE_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_342__BASE_DOC.val, "BASE-DOC", sizeof (meltcdat->dstr_342__BASE_DOC.val)-1); meltcdat->dstr_342__BASE_DOC.val[8] = (char)0 ; meltcdat->dstr_342__BASE_DOC.slen = 8 ; /*iniobj dsym_343__MACROmiDOC*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V436*/ meltfptr[435]) + /*uniqueobj*/ if (!/*_._VALDATA___V436*/ meltfptr[435]) /*_._VALDATA___V436*/ meltfptr[435] = (melt_ptr_t )&meltcdat->dsym_343__MACROmiDOC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_343__MACROmiDOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_343__MACROmiDOC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13161,18 +11872,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_344__MACRO_DOC*/ - /*_._VALSTR___V437*/ - meltfptr[436] = (melt_ptr_t) &meltcdat->dstr_344__MACRO_DOC; + /*_._VALSTR___V437*/ meltfptr[436] = (melt_ptr_t) &meltcdat->dstr_344__MACRO_DOC; meltcdat->dstr_344__MACRO_DOC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_344__MACRO_DOC.val, "MACRO-DOC", sizeof (meltcdat->dstr_344__MACRO_DOC.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_344__MACRO_DOC.val, "MACRO-DOC", sizeof (meltcdat->dstr_344__MACRO_DOC.val)-1); meltcdat->dstr_344__MACRO_DOC.val[9] = (char)0 ; meltcdat->dstr_344__MACRO_DOC.slen = 9 ; /*iniobj dsym_345__DISCR_MAP_STRINGS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V439*/ meltfptr[438]) + /*uniqueobj*/ if (!/*_._VALDATA___V439*/ meltfptr[438]) /*_._VALDATA___V439*/ meltfptr[438] = (melt_ptr_t )&meltcdat->dsym_345__DISCR_MAP_STRINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_345__DISCR_MAP_STRINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_345__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13182,18 +11890,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_346__DISCR_MAP_STRINGS*/ - /*_._VALSTR___V440*/ - meltfptr[439] = (melt_ptr_t) &meltcdat->dstr_346__DISCR_MAP_STRINGS; + /*_._VALSTR___V440*/ meltfptr[439] = (melt_ptr_t) &meltcdat->dstr_346__DISCR_MAP_STRINGS; meltcdat->dstr_346__DISCR_MAP_STRINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_346__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_346__DISCR_MAP_STRINGS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_346__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_346__DISCR_MAP_STRINGS.val)-1); meltcdat->dstr_346__DISCR_MAP_STRINGS.val[17] = (char)0 ; meltcdat->dstr_346__DISCR_MAP_STRINGS.slen = 17 ; /*iniobj dsym_347__DEBUG_LESS*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V441*/ meltfptr[440]) + /*uniqueobj*/ if (!/*_._VALDATA___V441*/ meltfptr[440]) /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t )&meltcdat->dsym_347__DEBUG_LESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_347__DEBUG_LESS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_347__DEBUG_LESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13203,18 +11908,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_348__DEBUG_LESS*/ - /*_._VALSTR___V442*/ - meltfptr[441] = (melt_ptr_t) &meltcdat->dstr_348__DEBUG_LESS; + /*_._VALSTR___V442*/ meltfptr[441] = (melt_ptr_t) &meltcdat->dstr_348__DEBUG_LESS; meltcdat->dstr_348__DEBUG_LESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_348__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_348__DEBUG_LESS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_348__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_348__DEBUG_LESS.val)-1); meltcdat->dstr_348__DEBUG_LESS.val[10] = (char)0 ; meltcdat->dstr_348__DEBUG_LESS.slen = 10 ; /*iniobj dsym_349__MELT_MODE_REFERENCE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V443*/ meltfptr[442]) + /*uniqueobj*/ if (!/*_._VALDATA___V443*/ meltfptr[442]) /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t )&meltcdat->dsym_349__MELT_MODE_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_349__MELT_MODE_REFERENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_349__MELT_MODE_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13224,18 +11926,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_350__MELT_MODE_REFERENCE*/ - /*_._VALSTR___V444*/ - meltfptr[443] = (melt_ptr_t) &meltcdat->dstr_350__MELT_MODE_REFERENCE; + /*_._VALSTR___V444*/ meltfptr[443] = (melt_ptr_t) &meltcdat->dstr_350__MELT_MODE_REFERENCE; meltcdat->dstr_350__MELT_MODE_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_350__MELT_MODE_REFERENCE.val, "MELT_MODE_REFERENCE", sizeof (meltcdat->dstr_350__MELT_MODE_REFERENCE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_350__MELT_MODE_REFERENCE.val, "MELT_MODE_REFERENCE", sizeof (meltcdat->dstr_350__MELT_MODE_REFERENCE.val)-1); meltcdat->dstr_350__MELT_MODE_REFERENCE.val[19] = (char)0 ; meltcdat->dstr_350__MELT_MODE_REFERENCE.slen = 19 ; /*iniobj dsym_351__LIST_APPEND2LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V445*/ meltfptr[444]) + /*uniqueobj*/ if (!/*_._VALDATA___V445*/ meltfptr[444]) /*_._VALDATA___V445*/ meltfptr[444] = (melt_ptr_t )&meltcdat->dsym_351__LIST_APPEND2LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_351__LIST_APPEND2LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_351__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13245,18 +11944,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_352__LIST_APPEND2LIST*/ - /*_._VALSTR___V446*/ - meltfptr[445] = (melt_ptr_t) &meltcdat->dstr_352__LIST_APPEND2LIST; + /*_._VALSTR___V446*/ meltfptr[445] = (melt_ptr_t) &meltcdat->dstr_352__LIST_APPEND2LIST; meltcdat->dstr_352__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_352__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_352__LIST_APPEND2LIST.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_352__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_352__LIST_APPEND2LIST.val)-1); meltcdat->dstr_352__LIST_APPEND2LIST.val[16] = (char)0 ; meltcdat->dstr_352__LIST_APPEND2LIST.slen = 16 ; /*iniobj dsym_353__MACROEXPAND_TOPLEVEL_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V447*/ meltfptr[446]) + /*uniqueobj*/ if (!/*_._VALDATA___V447*/ meltfptr[446]) /*_._VALDATA___V447*/ meltfptr[446] = (melt_ptr_t )&meltcdat->dsym_353__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_353__MACROEXPAND_TOPLEVEL_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_353__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13266,18 +11962,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_354__MACROEXPAND_TOPLEVEL_LIS*/ - /*_._VALSTR___V448*/ - meltfptr[447] = (melt_ptr_t) &meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS; + /*_._VALSTR___V448*/ meltfptr[447] = (melt_ptr_t) &meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS; meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.val)-1); meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.val[25] = (char)0 ; meltcdat->dstr_354__MACROEXPAND_TOPLEVEL_LIS.slen = 25 ; /*iniobj dsym_355__MACROEXPAND_1*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V449*/ meltfptr[448]) + /*uniqueobj*/ if (!/*_._VALDATA___V449*/ meltfptr[448]) /*_._VALDATA___V449*/ meltfptr[448] = (melt_ptr_t )&meltcdat->dsym_355__MACROEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_355__MACROEXPAND_1", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_355__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13287,18 +11980,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_356__MACROEXPAND_1*/ - /*_._VALSTR___V450*/ - meltfptr[449] = (melt_ptr_t) &meltcdat->dstr_356__MACROEXPAND_1; + /*_._VALSTR___V450*/ meltfptr[449] = (melt_ptr_t) &meltcdat->dstr_356__MACROEXPAND_1; meltcdat->dstr_356__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_356__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_356__MACROEXPAND_1.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_356__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_356__MACROEXPAND_1.val)-1); meltcdat->dstr_356__MACROEXPAND_1.val[13] = (char)0 ; meltcdat->dstr_356__MACROEXPAND_1.slen = 13 ; /*iniobj dsym_357__MAKEDOC_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V451*/ meltfptr[450]) + /*uniqueobj*/ if (!/*_._VALDATA___V451*/ meltfptr[450]) /*_._VALDATA___V451*/ meltfptr[450] = (melt_ptr_t )&meltcdat->dsym_357__MAKEDOC_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_357__MAKEDOC_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_357__MAKEDOC_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13308,19 +11998,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_358__MAKEDOC_MODE*/ - /*_._VALSTR___V452*/ - meltfptr[451] = (melt_ptr_t) &meltcdat->dstr_358__MAKEDOC_MODE; + /*_._VALSTR___V452*/ meltfptr[451] = (melt_ptr_t) &meltcdat->dstr_358__MAKEDOC_MODE; meltcdat->dstr_358__MAKEDOC_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_358__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof (meltcdat->dstr_358__MAKEDOC_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_358__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof (meltcdat->dstr_358__MAKEDOC_MODE.val)-1); meltcdat->dstr_358__MAKEDOC_MODE.val[12] = (char)0 ; meltcdat->dstr_358__MAKEDOC_MODE.slen = 12 ; MELT_LOCATION("warmelt-modes.melt:1875:/ iniobj"); /*iniobj dobj_359__MAKEDOC_MODE*/ - /*_._VALDATA___V453*/ - meltfptr[452] = (melt_ptr_t )&meltcdat->dobj_359__MAKEDOC_MODE; + /*_._VALDATA___V453*/ meltfptr[452] = (melt_ptr_t )&meltcdat->dobj_359__MAKEDOC_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_359__MAKEDOC_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_359__MAKEDOC_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_359__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -13329,33 +12016,28 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_360__generate_texi_documenta*/ - /*_._VALSTR___V454*/ - meltfptr[453] = (melt_ptr_t) &meltcdat->dstr_360__generate_texi_documenta; + /*_._VALSTR___V454*/ meltfptr[453] = (melt_ptr_t) &meltcdat->dstr_360__generate_texi_documenta; meltcdat->dstr_360__generate_texi_documenta.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_360__generate_texi_documenta.val, "generate .texi documentation from .melt source files;\ + /*small inistring*/ strncpy(meltcdat->dstr_360__generate_texi_documenta.val, "generate .texi documentation from .melt source files;\ \n\n\t ARGLIST= input file, ...; OUTPUT= generated file", sizeof (meltcdat->dstr_360__generate_texi_documenta.val)-1); meltcdat->dstr_360__generate_texi_documenta.val[105] = (char)0 ; meltcdat->dstr_360__generate_texi_documenta.slen = 105 ; /*inirout drout_361__SHOWVAR_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V455*/ - meltfptr[454] = (melt_ptr_t) &meltcdat->drout_361__SHOWVAR_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V455*/ meltfptr[454] = (melt_ptr_t) &meltcdat->drout_361__SHOWVAR_DOCMD; meltcdat->drout_361__SHOWVAR_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_361__SHOWVAR_DOCMD.routdescr, "SHOWVAR_DOCMD @warmelt-modes.melt:1887", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_361__SHOWVAR_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_361__SHOWVAR_DOCMD, meltrout_45_WARMELTmiMODES_SHOWVAR_DOCMD); /*iniclos dclo_362__SHOWVAR_DOCMD*/ - /*_._VALCLO___V456*/ - meltfptr[455] = (melt_ptr_t) &meltcdat->dclo_362__SHOWVAR_DOCMD; + /*_._VALCLO___V456*/ meltfptr[455] = (melt_ptr_t) &meltcdat->dclo_362__SHOWVAR_DOCMD; meltcdat->dclo_362__SHOWVAR_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_362__SHOWVAR_DOCMD.nbval = 0; /*iniobj dsym_363__FIND_ENV*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V457*/ meltfptr[456]) + /*uniqueobj*/ if (!/*_._VALDATA___V457*/ meltfptr[456]) /*_._VALDATA___V457*/ meltfptr[456] = (melt_ptr_t )&meltcdat->dsym_363__FIND_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_363__FIND_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_363__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13365,32 +12047,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_364__FIND_ENV*/ - /*_._VALSTR___V458*/ - meltfptr[457] = (melt_ptr_t) &meltcdat->dstr_364__FIND_ENV; + /*_._VALSTR___V458*/ meltfptr[457] = (melt_ptr_t) &meltcdat->dstr_364__FIND_ENV; meltcdat->dstr_364__FIND_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_364__FIND_ENV.val, "FIND_ENV", sizeof (meltcdat->dstr_364__FIND_ENV.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_364__FIND_ENV.val, "FIND_ENV", sizeof (meltcdat->dstr_364__FIND_ENV.val)-1); meltcdat->dstr_364__FIND_ENV.val[8] = (char)0 ; meltcdat->dstr_364__FIND_ENV.slen = 8 ; /*inirout drout_365__HELP_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V459*/ - meltfptr[458] = (melt_ptr_t) &meltcdat->drout_365__HELP_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V459*/ meltfptr[458] = (melt_ptr_t) &meltcdat->drout_365__HELP_DOCMD; meltcdat->drout_365__HELP_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_365__HELP_DOCMD.routdescr, "HELP_DOCMD @warmelt-modes.melt:1912", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_365__HELP_DOCMD.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_365__HELP_DOCMD, meltrout_46_WARMELTmiMODES_HELP_DOCMD); /*iniclos dclo_366__HELP_DOCMD*/ - /*_._VALCLO___V460*/ - meltfptr[459] = (melt_ptr_t) &meltcdat->dclo_366__HELP_DOCMD; + /*_._VALCLO___V460*/ meltfptr[459] = (melt_ptr_t) &meltcdat->dclo_366__HELP_DOCMD; meltcdat->dclo_366__HELP_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_366__HELP_DOCMD.nbval = 0; /*iniobj dsym_367__HELP_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V461*/ meltfptr[460]) + /*uniqueobj*/ if (!/*_._VALDATA___V461*/ meltfptr[460]) /*_._VALDATA___V461*/ meltfptr[460] = (melt_ptr_t )&meltcdat->dsym_367__HELP_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_367__HELP_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_367__HELP_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13400,19 +12077,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_368__HELP_MODE*/ - /*_._VALSTR___V462*/ - meltfptr[461] = (melt_ptr_t) &meltcdat->dstr_368__HELP_MODE; + /*_._VALSTR___V462*/ meltfptr[461] = (melt_ptr_t) &meltcdat->dstr_368__HELP_MODE; meltcdat->dstr_368__HELP_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_368__HELP_MODE.val, "HELP_MODE", sizeof (meltcdat->dstr_368__HELP_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_368__HELP_MODE.val, "HELP_MODE", sizeof (meltcdat->dstr_368__HELP_MODE.val)-1); meltcdat->dstr_368__HELP_MODE.val[9] = (char)0 ; meltcdat->dstr_368__HELP_MODE.slen = 9 ; MELT_LOCATION("warmelt-modes.melt:1965:/ iniobj"); /*iniobj dobj_369__HELP_MODE*/ - /*_._VALDATA___V463*/ - meltfptr[462] = (melt_ptr_t )&meltcdat->dobj_369__HELP_MODE; + /*_._VALDATA___V463*/ meltfptr[462] = (melt_ptr_t )&meltcdat->dobj_369__HELP_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_369__HELP_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_369__HELP_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_369__HELP_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -13421,32 +12095,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_370__MELT_help_about_availabl*/ - /*_._VALSTR___V464*/ - meltfptr[463] = (melt_ptr_t) &meltcdat->dstr_370__MELT_help_about_availabl; + /*_._VALSTR___V464*/ meltfptr[463] = (melt_ptr_t) &meltcdat->dstr_370__MELT_help_about_availabl; meltcdat->dstr_370__MELT_help_about_availabl.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_370__MELT_help_about_availabl.val, "MELT help about available modes.", sizeof (meltcdat->dstr_370__MELT_help_about_availabl.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_370__MELT_help_about_availabl.val, "MELT help about available modes.", sizeof (meltcdat->dstr_370__MELT_help_about_availabl.val)-1); meltcdat->dstr_370__MELT_help_about_availabl.val[32] = (char)0 ; meltcdat->dstr_370__MELT_help_about_availabl.slen = 32 ; /*inirout drout_371__NOP_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V465*/ - meltfptr[464] = (melt_ptr_t) &meltcdat->drout_371__NOP_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V465*/ meltfptr[464] = (melt_ptr_t) &meltcdat->drout_371__NOP_DOCMD; meltcdat->drout_371__NOP_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_371__NOP_DOCMD.routdescr, "NOP_DOCMD @warmelt-modes.melt:1973", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_371__NOP_DOCMD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_371__NOP_DOCMD, meltrout_47_WARMELTmiMODES_NOP_DOCMD); /*iniclos dclo_372__NOP_DOCMD*/ - /*_._VALCLO___V466*/ - meltfptr[465] = (melt_ptr_t) &meltcdat->dclo_372__NOP_DOCMD; + /*_._VALCLO___V466*/ meltfptr[465] = (melt_ptr_t) &meltcdat->dclo_372__NOP_DOCMD; meltcdat->dclo_372__NOP_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_372__NOP_DOCMD.nbval = 0; /*iniobj dsym_373__NOP_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V467*/ meltfptr[466]) + /*uniqueobj*/ if (!/*_._VALDATA___V467*/ meltfptr[466]) /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t )&meltcdat->dsym_373__NOP_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_373__NOP_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_373__NOP_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13456,19 +12125,16 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_374__NOP_MODE*/ - /*_._VALSTR___V468*/ - meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_374__NOP_MODE; + /*_._VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_374__NOP_MODE; meltcdat->dstr_374__NOP_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_374__NOP_MODE.val, "NOP_MODE", sizeof (meltcdat->dstr_374__NOP_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_374__NOP_MODE.val, "NOP_MODE", sizeof (meltcdat->dstr_374__NOP_MODE.val)-1); meltcdat->dstr_374__NOP_MODE.val[8] = (char)0 ; meltcdat->dstr_374__NOP_MODE.slen = 8 ; MELT_LOCATION("warmelt-modes.melt:1978:/ iniobj"); /*iniobj dobj_375__NOP_MODE*/ - /*_._VALDATA___V469*/ - meltfptr[468] = (melt_ptr_t )&meltcdat->dobj_375__NOP_MODE; + /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t )&meltcdat->dobj_375__NOP_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_375__NOP_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_375__NOP_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_375__NOP_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -13477,32 +12143,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_376__a_mode_doing_nothing_*/ - /*_._VALSTR___V470*/ - meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_376__a_mode_doing_nothing_; + /*_._VALSTR___V470*/ meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_376__a_mode_doing_nothing_; meltcdat->dstr_376__a_mode_doing_nothing_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_376__a_mode_doing_nothing_.val, "a mode doing nothing.", sizeof (meltcdat->dstr_376__a_mode_doing_nothing_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_376__a_mode_doing_nothing_.val, "a mode doing nothing.", sizeof (meltcdat->dstr_376__a_mode_doing_nothing_.val)-1); meltcdat->dstr_376__a_mode_doing_nothing_.val[21] = (char)0 ; meltcdat->dstr_376__a_mode_doing_nothing_.slen = 21 ; /*inirout drout_377__OUTPUT_FOR_RUNTIME*/ - /*iniroutlocvar*/ /*_._VALROUT___V471*/ - meltfptr[470] = (melt_ptr_t) &meltcdat->drout_377__OUTPUT_FOR_RUNTIME; + /*iniroutlocvar*/ /*_._VALROUT___V471*/ meltfptr[470] = (melt_ptr_t) &meltcdat->drout_377__OUTPUT_FOR_RUNTIME; meltcdat->drout_377__OUTPUT_FOR_RUNTIME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_377__OUTPUT_FOR_RUNTIME.routdescr, "OUTPUT_FOR_RUNTIME @warmelt-modes.melt:1988", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_377__OUTPUT_FOR_RUNTIME.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_377__OUTPUT_FOR_RUNTIME, meltrout_48_WARMELTmiMODES_OUTPUT_FOR_RUNTIME); /*iniclos dclo_378__OUTPUT_FOR_RUNTIME*/ - /*_._VALCLO___V472*/ - meltfptr[471] = (melt_ptr_t) &meltcdat->dclo_378__OUTPUT_FOR_RUNTIME; + /*_._VALCLO___V472*/ meltfptr[471] = (melt_ptr_t) &meltcdat->dclo_378__OUTPUT_FOR_RUNTIME; meltcdat->dclo_378__OUTPUT_FOR_RUNTIME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_378__OUTPUT_FOR_RUNTIME.nbval = 0; /*iniobj dsym_379__EVAL*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V473*/ meltfptr[472]) + /*uniqueobj*/ if (!/*_._VALDATA___V473*/ meltfptr[472]) /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t )&meltcdat->dsym_379__EVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_379__EVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_379__EVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13512,18 +12173,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_380__EVAL*/ - /*_._VALSTR___V474*/ - meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_380__EVAL; + /*_._VALSTR___V474*/ meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_380__EVAL; meltcdat->dstr_380__EVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_380__EVAL.val, "EVAL", sizeof (meltcdat->dstr_380__EVAL.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_380__EVAL.val, "EVAL", sizeof (meltcdat->dstr_380__EVAL.val)-1); meltcdat->dstr_380__EVAL.val[4] = (char)0 ; meltcdat->dstr_380__EVAL.slen = 4 ; /*iniobj dsym_381__LIST_NTH_ELEMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V475*/ meltfptr[474]) + /*uniqueobj*/ if (!/*_._VALDATA___V475*/ meltfptr[474]) /*_._VALDATA___V475*/ meltfptr[474] = (melt_ptr_t )&meltcdat->dsym_381__LIST_NTH_ELEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_381__LIST_NTH_ELEMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_381__LIST_NTH_ELEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13533,35 +12191,29 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_382__LIST_NTH_ELEMENT*/ - /*_._VALSTR___V476*/ - meltfptr[475] = (melt_ptr_t) &meltcdat->dstr_382__LIST_NTH_ELEMENT; + /*_._VALSTR___V476*/ meltfptr[475] = (melt_ptr_t) &meltcdat->dstr_382__LIST_NTH_ELEMENT; meltcdat->dstr_382__LIST_NTH_ELEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_382__LIST_NTH_ELEMENT.val, "LIST_NTH_ELEMENT", sizeof (meltcdat->dstr_382__LIST_NTH_ELEMENT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_382__LIST_NTH_ELEMENT.val, "LIST_NTH_ELEMENT", sizeof (meltcdat->dstr_382__LIST_NTH_ELEMENT.val)-1); meltcdat->dstr_382__LIST_NTH_ELEMENT.val[16] = (char)0 ; meltcdat->dstr_382__LIST_NTH_ELEMENT.slen = 16 ; /*inirout drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC*/ - /*iniroutlocvar*/ /*_._VALROUT___V477*/ - meltfptr[476] = (melt_ptr_t) &meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; + /*iniroutlocvar*/ /*_._VALROUT___V477*/ meltfptr[476] = (melt_ptr_t) &meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.routdescr, "GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC @warmelt-modes.melt:2038", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_383__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC, meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC); /*iniclos dclo_384__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC*/ - /*_._VALCLO___V479*/ - meltfptr[478] = (melt_ptr_t) &meltcdat->dclo_384__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; + /*_._VALCLO___V479*/ meltfptr[478] = (melt_ptr_t) &meltcdat->dclo_384__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; meltcdat->dclo_384__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_384__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 0; /*inistring dstr_385__from_generate_runty*/ - /*_._VALSTR___V478*/ - meltfptr[477] = (melt_ptr_t) &meltcdat->dstr_385__from_generate_runty; + /*_._VALSTR___V478*/ meltfptr[477] = (melt_ptr_t) &meltcdat->dstr_385__from_generate_runty; meltcdat->dstr_385__from_generate_runty.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_385__from_generate_runty.val, " /** from generate_runtypesupport_enum_objmagic **/\ + /*small inistring*/ strncpy(meltcdat->dstr_385__from_generate_runty.val, " /** from generate_runtypesupport_enum_objmagic **/\ \n enum meltobmag_en /*generated*/ \ \n { \n MELTOBMAG__NONE = 0,\ \n ", sizeof (meltcdat->dstr_385__from_generate_runty.val)-1); @@ -13570,8 +12222,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*iniobj dsym_386__CLASS_VALUE_DESCRIPTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V480*/ meltfptr[479]) + /*uniqueobj*/ if (!/*_._VALDATA___V480*/ meltfptr[479]) /*_._VALDATA___V480*/ meltfptr[479] = (melt_ptr_t )&meltcdat->dsym_386__CLASS_VALUE_DESCRIPTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_386__CLASS_VALUE_DESCRIPTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_386__CLASS_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13581,18 +12232,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_387__CLASS_VALUE_DESCRIPTOR*/ - /*_._VALSTR___V481*/ - meltfptr[480] = (melt_ptr_t) &meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR; + /*_._VALSTR___V481*/ meltfptr[480] = (melt_ptr_t) &meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR; meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.val, "CLASS_VALUE_DESCRIPTOR", sizeof (meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.val, "CLASS_VALUE_DESCRIPTOR", sizeof (meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.val)-1); meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.val[22] = (char)0 ; meltcdat->dstr_387__CLASS_VALUE_DESCRIPTOR.slen = 22 ; /*iniobj dsym_388__CLASS_CTYPE_GTY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V482*/ meltfptr[481]) + /*uniqueobj*/ if (!/*_._VALDATA___V482*/ meltfptr[481]) /*_._VALDATA___V482*/ meltfptr[481] = (melt_ptr_t )&meltcdat->dsym_388__CLASS_CTYPE_GTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_388__CLASS_CTYPE_GTY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_388__CLASS_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13602,35 +12250,29 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_389__CLASS_CTYPE_GTY*/ - /*_._VALSTR___V483*/ - meltfptr[482] = (melt_ptr_t) &meltcdat->dstr_389__CLASS_CTYPE_GTY; + /*_._VALSTR___V483*/ meltfptr[482] = (melt_ptr_t) &meltcdat->dstr_389__CLASS_CTYPE_GTY; meltcdat->dstr_389__CLASS_CTYPE_GTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_389__CLASS_CTYPE_GTY.val, "CLASS_CTYPE_GTY", sizeof (meltcdat->dstr_389__CLASS_CTYPE_GTY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_389__CLASS_CTYPE_GTY.val, "CLASS_CTYPE_GTY", sizeof (meltcdat->dstr_389__CLASS_CTYPE_GTY.val)-1); meltcdat->dstr_389__CLASS_CTYPE_GTY.val[15] = (char)0 ; meltcdat->dstr_389__CLASS_CTYPE_GTY.slen = 15 ; /*inirout drout_390__GENERATE_RUNTYPESUPPORT_GTY*/ - /*iniroutlocvar*/ /*_._VALROUT___V484*/ - meltfptr[483] = (melt_ptr_t) &meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY; + /*iniroutlocvar*/ /*_._VALROUT___V484*/ meltfptr[483] = (melt_ptr_t) &meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY; meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY.routdescr, "GENERATE_RUNTYPESUPPORT_GTY @warmelt-modes.melt:2130", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_390__GENERATE_RUNTYPESUPPORT_GTY, meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY); /*iniclos dclo_391__GENERATE_RUNTYPESUPPORT_GTY*/ - /*_._VALCLO___V490*/ - meltfptr[489] = (melt_ptr_t) &meltcdat->dclo_391__GENERATE_RUNTYPESUPPORT_GTY; + /*_._VALCLO___V490*/ meltfptr[489] = (melt_ptr_t) &meltcdat->dclo_391__GENERATE_RUNTYPESUPPORT_GTY; meltcdat->dclo_391__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_391__GENERATE_RUNTYPESUPPORT_GTY.nbval = 0; /*inistring dstr_392__ifndef_meltobject_ptr_*/ - /*_._VALSTR___V485*/ - meltfptr[484] = (melt_ptr_t) &meltcdat->dstr_392__ifndef_meltobject_ptr_; + /*_._VALSTR___V485*/ meltfptr[484] = (melt_ptr_t) &meltcdat->dstr_392__ifndef_meltobject_ptr_; meltcdat->dstr_392__ifndef_meltobject_ptr_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_392__ifndef_meltobject_ptr_.val, "\n#ifndef meltobject_ptr_t_TYPEDEFINED\ + /*small inistring*/ strncpy(meltcdat->dstr_392__ifndef_meltobject_ptr_.val, "\n#ifndef meltobject_ptr_t_TYPEDEFINED\ \ntypedef struct meltobject_st* meltobject_ptr_t ;\ \n#define meltobject_ptr_t_TYPEDEFINED\ \n#endif /*meltobject_ptr_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_392__ifndef_meltobject_ptr_.val)-1); @@ -13639,11 +12281,9 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_393__ifndef_melt_ptr_t_TYPE*/ - /*_._VALSTR___V486*/ - meltfptr[485] = (melt_ptr_t) &meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE; + /*_._VALSTR___V486*/ meltfptr[485] = (melt_ptr_t) &meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE; meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE.val, "\n#ifndef melt_ptr_t_TYPEDEFINED\ntypedef union melt_un* melt_ptr_t\ + /*small inistring*/ strncpy(meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE.val, "\n#ifndef melt_ptr_t_TYPEDEFINED\ntypedef union melt_un* melt_ptr_t\ ;\n#define melt_ptr_t_TYPEDEFINED\ \n#endif /*melt_ptr_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE.val)-1); meltcdat->dstr_393__ifndef_melt_ptr_t_TYPE.val[133] = (char)0 ; @@ -13651,11 +12291,9 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_394__ifndef_meltroutine_ptr*/ - /*_._VALSTR___V487*/ - meltfptr[486] = (melt_ptr_t) &meltcdat->dstr_394__ifndef_meltroutine_ptr; + /*_._VALSTR___V487*/ meltfptr[486] = (melt_ptr_t) &meltcdat->dstr_394__ifndef_meltroutine_ptr; meltcdat->dstr_394__ifndef_meltroutine_ptr.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_394__ifndef_meltroutine_ptr.val, "\n#ifndef meltroutine_ptr_t_TYPEDEFINED\ + /*small inistring*/ strncpy(meltcdat->dstr_394__ifndef_meltroutine_ptr.val, "\n#ifndef meltroutine_ptr_t_TYPEDEFINED\ \ntypedef struct meltroutine_st *meltroutine_ptr_t ;\ \n#define meltroutine_ptr_t_TYPEDEFINED\ \n#endif /*meltroutine_ptr_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_394__ifndef_meltroutine_ptr.val)-1); @@ -13664,11 +12302,9 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_395__ifndef_meltclosure_ptr*/ - /*_._VALSTR___V488*/ - meltfptr[487] = (melt_ptr_t) &meltcdat->dstr_395__ifndef_meltclosure_ptr; + /*_._VALSTR___V488*/ meltfptr[487] = (melt_ptr_t) &meltcdat->dstr_395__ifndef_meltclosure_ptr; meltcdat->dstr_395__ifndef_meltclosure_ptr.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_395__ifndef_meltclosure_ptr.val, "\n#ifndef meltclosure_ptr_t_TYPEDEFINED\ + /*small inistring*/ strncpy(meltcdat->dstr_395__ifndef_meltclosure_ptr.val, "\n#ifndef meltclosure_ptr_t_TYPEDEFINED\ \ntypedef struct meltclosure_st *meltclosure_ptr_t ;\ \n#define meltclosure_ptr_t_TYPEDEFINED\ \n#endif /*meltclosure_ptr_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_395__ifndef_meltclosure_ptr.val)-1); @@ -13677,8 +12313,7 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_396__ifndef_meltroutfun_t_T*/ - /*_._VALSTR___V489*/ - meltfptr[488] = (melt_ptr_t) &meltcdat->dstr_396__ifndef_meltroutfun_t_T; + /*_._VALSTR___V489*/ meltfptr[488] = (melt_ptr_t) &meltcdat->dstr_396__ifndef_meltroutfun_t_T; meltcdat->dstr_396__ifndef_meltroutfun_t_T.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -13701,16 +12336,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t "txrestab_) ;\n#define meltroutfun_t_TYPEDEFINED\ \n#endif /*meltrout", /*big*/ 256); - /*end big inistring*/ - strncpy(meltcdat->dstr_396__ifndef_meltroutfun_t_T.val + 512, "fun_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_396__ifndef_meltroutfun_t_T.val) - 513); + /*end big inistring*/ strncpy(meltcdat->dstr_396__ifndef_meltroutfun_t_T.val + 512, "fun_t_TYPEDEFINED*/\n", sizeof (meltcdat->dstr_396__ifndef_meltroutfun_t_T.val) - 513); meltcdat->dstr_396__ifndef_meltroutfun_t_T.val[532] = (char)0 ; meltcdat->dstr_396__ifndef_meltroutfun_t_T.slen = 532 ; /*iniobj dsym_397__CLASS_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V491*/ meltfptr[490]) + /*uniqueobj*/ if (!/*_._VALDATA___V491*/ meltfptr[490]) /*_._VALDATA___V491*/ meltfptr[490] = (melt_ptr_t )&meltcdat->dsym_397__CLASS_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_397__CLASS_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_397__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13720,18 +12353,15 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_398__CLASS_CTYPE*/ - /*_._VALSTR___V492*/ - meltfptr[491] = (melt_ptr_t) &meltcdat->dstr_398__CLASS_CTYPE; + /*_._VALSTR___V492*/ meltfptr[491] = (melt_ptr_t) &meltcdat->dstr_398__CLASS_CTYPE; meltcdat->dstr_398__CLASS_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_398__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_398__CLASS_CTYPE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_398__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_398__CLASS_CTYPE.val)-1); meltcdat->dstr_398__CLASS_CTYPE.val[11] = (char)0 ; meltcdat->dstr_398__CLASS_CTYPE.slen = 11 ; /*iniobj dsym_399__CLASS_VARISIZED_VALUE_DESCRIPTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V493*/ meltfptr[492]) + /*uniqueobj*/ if (!/*_._VALDATA___V493*/ meltfptr[492]) /*_._VALDATA___V493*/ meltfptr[492] = (melt_ptr_t )&meltcdat->dsym_399__CLASS_VARISIZED_VALUE_DESCRIPTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_399__CLASS_VARISIZED_VALUE_DESCRIPTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_399__CLASS_VARISIZED_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -13741,32 +12371,27 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t /*inistring dstr_400__CLASS_VARISIZED_VALUE_DE*/ - /*_._VALSTR___V494*/ - meltfptr[493] = (melt_ptr_t) &meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE; + /*_._VALSTR___V494*/ meltfptr[493] = (melt_ptr_t) &meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE; meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.val, "CLASS_VARISIZED_VALUE_DESCRIPTOR", sizeof (meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.val, "CLASS_VARISIZED_VALUE_DESCRIPTOR", sizeof (meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.val)-1); meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.val[32] = (char)0 ; meltcdat->dstr_400__CLASS_VARISIZED_VALUE_DE.slen = 32 ; /*inirout drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V495*/ - meltfptr[494] = (melt_ptr_t) &meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; + /*iniroutlocvar*/ /*_._VALROUT___V495*/ meltfptr[494] = (melt_ptr_t) &meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN @warmelt-modes.melt:2426", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_401__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN, meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN); /*iniclos dclo_402__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN*/ - /*_._VALCLO___V498*/ - meltfptr[497] = (melt_ptr_t) &meltcdat->dclo_402__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; + /*_._VALCLO___V498*/ meltfptr[497] = (melt_ptr_t) &meltcdat->dclo_402__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; meltcdat->dclo_402__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_402__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 0; /*inistring dstr_403__cheney_like_forwardi*/ - /*_._VALSTR___V496*/ - meltfptr[495] = (melt_ptr_t) &meltcdat->dstr_403__cheney_like_forwardi; + /*_._VALSTR___V496*/ meltfptr[495] = (melt_ptr_t) &meltcdat->dstr_403__cheney_like_forwardi; meltcdat->dstr_403__cheney_like_forwardi.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -13789,16 +12414,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t "eltobj_magic;\n else\n mag = p->u_discr->meltobj_magic;\ \n melt", /*big*/ 256); - /*end big inistring*/ - strncpy(meltcdat->dstr_403__cheney_like_forwardi.val + 512, "_forward_counter++;\n switch (mag) { /* end of generated header */\n", sizeof (meltcdat->dstr_403__cheney_like_forwardi.val) - 513); + /*end big inistring*/ strncpy(meltcdat->dstr_403__cheney_like_forwardi.val + 512, "_forward_counter++;\n switch (mag) { /* end of generated header */\n", sizeof (meltcdat->dstr_403__cheney_like_forwardi.val) - 513); meltcdat->dstr_403__cheney_like_forwardi.val[579] = (char)0 ; meltcdat->dstr_403__cheney_like_forwardi.slen = 579 ; /*inistring dstr_404__trailer_generated_by*/ - /*_._VALSTR___V497*/ - meltfptr[496] = (melt_ptr_t) &meltcdat->dstr_404__trailer_generated_by; + /*_._VALSTR___V497*/ meltfptr[496] = (melt_ptr_t) &meltcdat->dstr_404__trailer_generated_by; meltcdat->dstr_404__trailer_generated_by.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -13860,44 +12483,38 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t \n " " }\n\n }\n return n;\n} /* end of melt_forwarded_copy genera", /*lessbig*/ 128); - /*end big inistring*/ - strncpy(meltcdat->dstr_404__trailer_generated_by.val + 1664, "ted by generate_runtypesupport_forwcopy_fun */\n", sizeof (meltcdat->dstr_404__trailer_generated_by.val) - 1665); + /*end big inistring*/ strncpy(meltcdat->dstr_404__trailer_generated_by.val + 1664, "ted by generate_runtypesupport_forwcopy_fun */\n", sizeof (meltcdat->dstr_404__trailer_generated_by.val) - 1665); meltcdat->dstr_404__trailer_generated_by.val[1711] = (char)0 ; meltcdat->dstr_404__trailer_generated_by.slen = 1711 ; /*inirout drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V499*/ - meltfptr[498] = (melt_ptr_t) &meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN; + /*iniroutlocvar*/ /*_._VALROUT___V499*/ meltfptr[498] = (melt_ptr_t) &meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN; meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_CLONING_FUN @warmelt-modes.melt:2762", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_405__GENERATE_RUNTYPESUPPORT_CLONING_FUN, meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN); /*iniclos dclo_406__GENERATE_RUNTYPESUPPORT_CLONING_FUN*/ - /*_._VALCLO___V500*/ - meltfptr[499] = (melt_ptr_t) &meltcdat->dclo_406__GENERATE_RUNTYPESUPPORT_CLONING_FUN; + /*_._VALCLO___V500*/ meltfptr[499] = (melt_ptr_t) &meltcdat->dclo_406__GENERATE_RUNTYPESUPPORT_CLONING_FUN; meltcdat->dclo_406__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_406__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 0; /*inirout drout_407__GENERATE_RUNTYPESUPPORT_SCANNING*/ - /*iniroutlocvar*/ /*_._VALROUT___V501*/ - meltfptr[500] = (melt_ptr_t) &meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING; + /*iniroutlocvar*/ /*_._VALROUT___V501*/ meltfptr[500] = (melt_ptr_t) &meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING; meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING.routdescr, "GENERATE_RUNTYPESUPPORT_SCANNING @warmelt-modes.melt:2975", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_407__GENERATE_RUNTYPESUPPORT_SCANNING, meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING); /*iniclos dclo_408__GENERATE_RUNTYPESUPPORT_SCANNING*/ - /*_._VALCLO___V504*/ - meltfptr[503] = (melt_ptr_t) &meltcdat->dclo_408__GENERATE_RUNTYPESUPPORT_SCANNING; + /*_._VALCLO___V504*/ meltfptr[503] = (melt_ptr_t) &meltcdat->dclo_408__GENERATE_RUNTYPESUPPORT_SCANNING; meltcdat->dclo_408__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_408__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 0; /*inistring dstr_409__header_from_generate*/ - /*_._VALSTR___V502*/ - meltfptr[501] = (melt_ptr_t) &meltcdat->dstr_409__header_from_generate; + /*_._VALSTR___V502*/ meltfptr[501] = (melt_ptr_t) &meltcdat->dstr_409__header_from_generate; meltcdat->dstr_409__header_from_generate.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -13927,16 +12544,14 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t "gic = p->u_discr->meltobj_magic;\n switch (omagic)\ \n {\n/* end ", /*lessbig*/ 128); - /*end big inistring*/ - strncpy(meltcdat->dstr_409__header_from_generate.val + 640, "of header from generate_runtypesupport_scanning*/", sizeof (meltcdat->dstr_409__header_from_generate.val) - 641); + /*end big inistring*/ strncpy(meltcdat->dstr_409__header_from_generate.val + 640, "of header from generate_runtypesupport_scanning*/", sizeof (meltcdat->dstr_409__header_from_generate.val) - 641); meltcdat->dstr_409__header_from_generate.val[689] = (char)0 ; meltcdat->dstr_409__header_from_generate.slen = 689 ; /*inistring dstr_410__trailer_generated_by*/ - /*_._VALSTR___V503*/ - meltfptr[502] = (melt_ptr_t) &meltcdat->dstr_410__trailer_generated_by; + /*_._VALSTR___V503*/ meltfptr[502] = (melt_ptr_t) &meltcdat->dstr_410__trailer_generated_by; meltcdat->dstr_410__trailer_generated_by.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -13950,62 +12565,53 @@ static void melt_initialize_module_meltdata_WARMELTmiMODES (meltinitial_frame_t " (void *) p, (int) omagic);\n }\ \n} /* end of melt_scanning gen", /*big*/ 256); - /*end big inistring*/ - strncpy(meltcdat->dstr_410__trailer_generated_by.val + 256, "erated by generate_runtypesupport_scanning */\ + /*end big inistring*/ strncpy(meltcdat->dstr_410__trailer_generated_by.val + 256, "erated by generate_runtypesupport_scanning */\ \n ", sizeof (meltcdat->dstr_410__trailer_generated_by.val) - 257); meltcdat->dstr_410__trailer_generated_by.val[305] = (char)0 ; meltcdat->dstr_410__trailer_generated_by.slen = 305 ; /*inirout drout_411__GENERATE_RUNTYPESUPPORT_PARAM*/ - /*iniroutlocvar*/ /*_._VALROUT___V505*/ - meltfptr[504] = (melt_ptr_t) &meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM; + /*iniroutlocvar*/ /*_._VALROUT___V505*/ meltfptr[504] = (melt_ptr_t) &meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM; meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM.routdescr, "GENERATE_RUNTYPESUPPORT_PARAM @warmelt-modes.melt:3146", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_411__GENERATE_RUNTYPESUPPORT_PARAM, meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM); /*iniclos dclo_412__GENERATE_RUNTYPESUPPORT_PARAM*/ - /*_._VALCLO___V506*/ - meltfptr[505] = (melt_ptr_t) &meltcdat->dclo_412__GENERATE_RUNTYPESUPPORT_PARAM; + /*_._VALCLO___V506*/ meltfptr[505] = (melt_ptr_t) &meltcdat->dclo_412__GENERATE_RUNTYPESUPPORT_PARAM; meltcdat->dclo_412__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_412__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 0; /*inirout drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE*/ - /*iniroutlocvar*/ /*_._VALROUT___V507*/ - meltfptr[506] = (melt_ptr_t) &meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE; + /*iniroutlocvar*/ /*_._VALROUT___V507*/ meltfptr[506] = (melt_ptr_t) &meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE; meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE.routdescr, "GENERATE_RUNTYPESUPPORT_COD2CTYPE @warmelt-modes.melt:3288", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_413__GENERATE_RUNTYPESUPPORT_COD2CTYPE, meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE); /*iniclos dclo_414__GENERATE_RUNTYPESUPPORT_COD2CTYPE*/ - /*_._VALCLO___V508*/ - meltfptr[507] = (melt_ptr_t) &meltcdat->dclo_414__GENERATE_RUNTYPESUPPORT_COD2CTYPE; + /*_._VALCLO___V508*/ meltfptr[507] = (melt_ptr_t) &meltcdat->dclo_414__GENERATE_RUNTYPESUPPORT_COD2CTYPE; meltcdat->dclo_414__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_414__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 0; /*inirout drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR*/ - /*iniroutlocvar*/ /*_._VALROUT___V509*/ - meltfptr[508] = (melt_ptr_t) &meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR; + /*iniroutlocvar*/ /*_._VALROUT___V509*/ meltfptr[508] = (melt_ptr_t) &meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR; meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR.routdescr, "GENERATE_RUNTYPESUPPORT_MAG2STR @warmelt-modes.melt:3338", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_415__GENERATE_RUNTYPESUPPORT_MAG2STR, meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR); /*iniclos dclo_416__GENERATE_RUNTYPESUPPORT_MAG2STR*/ - /*_._VALCLO___V512*/ - meltfptr[511] = (melt_ptr_t) &meltcdat->dclo_416__GENERATE_RUNTYPESUPPORT_MAG2STR; + /*_._VALCLO___V512*/ meltfptr[511] = (melt_ptr_t) &meltcdat->dclo_416__GENERATE_RUNTYPESUPPORT_MAG2STR; meltcdat->dclo_416__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_416__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 0; /*inistring dstr_417__const_char_melt_obmag_s*/ - /*_._VALSTR___V510*/ - meltfptr[509] = (melt_ptr_t) &meltcdat->dstr_417__const_char_melt_obmag_s; + /*_._VALSTR___V510*/ meltfptr[509] = (melt_ptr_t) &meltcdat->dstr_417__const_char_melt_obmag_s; meltcdat->dstr_417__const_char_melt_obmag_s.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_417__const_char_melt_obmag_s.val, "const char* melt_obmag_string (int i) {\ + /*small inistring*/ strncpy(meltcdat->dstr_417__const_char_melt_obmag_s.val, "const char* melt_obmag_string (int i) {\ \n#define MELT_MAG2STR_CACHEBUF 17\ \n#define MELT_MAG2STR_MAGLEN 16\ \n static char melt_cacheobmagbuf[MELT_MAG2STR_CACHEBUF][MELT_MAG2STR_MAGLE\ @@ -14015,11 +12621,9 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_418__default_int_ix_i*/ - /*_._VALSTR___V511*/ - meltfptr[510] = (melt_ptr_t) &meltcdat->dstr_418__default_int_ix_i; + /*_._VALSTR___V511*/ meltfptr[510] = (melt_ptr_t) &meltcdat->dstr_418__default_int_ix_i; meltcdat->dstr_418__default_int_ix_i.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_418__default_int_ix_i.val, "default:\n { int ix = (i & 0x3ffffff) % MELT_MAG2STR_CACHEBUF;\ + /*small inistring*/ strncpy(meltcdat->dstr_418__default_int_ix_i.val, "default:\n { int ix = (i & 0x3ffffff) % MELT_MAG2STR_CACHEBUF;\ \n snprintf (melt_cacheobmagbuf[ix], MELT_MAG2STR_MAGLEN-1, \"?MeltObjMag\ ?%d\", i);\n return melt_cacheobmagbuf[ix];\ \n }\n } /* end switch */\n} /* end generated melt_obmag_string */\n", sizeof (meltcdat->dstr_418__default_int_ix_i.val)-1); @@ -14027,23 +12631,20 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- meltcdat->dstr_418__default_int_ix_i.slen = 245 ; /*inirout drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V513*/ - meltfptr[512] = (melt_ptr_t) &meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN; + /*iniroutlocvar*/ /*_._VALROUT___V513*/ meltfptr[512] = (melt_ptr_t) &meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN; meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN.routdescr, "GENERATE_RUNTYPESUPPORT_BOXINGFUN @warmelt-modes.melt:3462", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_419__GENERATE_RUNTYPESUPPORT_BOXINGFUN, meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN); /*iniclos dclo_420__GENERATE_RUNTYPESUPPORT_BOXINGFUN*/ - /*_._VALCLO___V514*/ - meltfptr[513] = (melt_ptr_t) &meltcdat->dclo_420__GENERATE_RUNTYPESUPPORT_BOXINGFUN; + /*_._VALCLO___V514*/ meltfptr[513] = (melt_ptr_t) &meltcdat->dclo_420__GENERATE_RUNTYPESUPPORT_BOXINGFUN; meltcdat->dclo_420__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_420__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 0; /*iniobj dsym_421__SOME_STRING_VALUE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V515*/ meltfptr[514]) + /*uniqueobj*/ if (!/*_._VALDATA___V515*/ meltfptr[514]) /*_._VALDATA___V515*/ meltfptr[514] = (melt_ptr_t )&meltcdat->dsym_421__SOME_STRING_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_421__SOME_STRING_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_421__SOME_STRING_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14053,18 +12654,15 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_422__SOME_STRING_VALUE*/ - /*_._VALSTR___V516*/ - meltfptr[515] = (melt_ptr_t) &meltcdat->dstr_422__SOME_STRING_VALUE; + /*_._VALSTR___V516*/ meltfptr[515] = (melt_ptr_t) &meltcdat->dstr_422__SOME_STRING_VALUE; meltcdat->dstr_422__SOME_STRING_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_422__SOME_STRING_VALUE.val, "SOME_STRING_VALUE", sizeof (meltcdat->dstr_422__SOME_STRING_VALUE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_422__SOME_STRING_VALUE.val, "SOME_STRING_VALUE", sizeof (meltcdat->dstr_422__SOME_STRING_VALUE.val)-1); meltcdat->dstr_422__SOME_STRING_VALUE.val[17] = (char)0 ; meltcdat->dstr_422__SOME_STRING_VALUE.slen = 17 ; /*iniobj dsym_423__CLASS_DISCRIMINANT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V517*/ meltfptr[516]) + /*uniqueobj*/ if (!/*_._VALDATA___V517*/ meltfptr[516]) /*_._VALDATA___V517*/ meltfptr[516] = (melt_ptr_t )&meltcdat->dsym_423__CLASS_DISCRIMINANT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_423__CLASS_DISCRIMINANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_423__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14074,35 +12672,29 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_424__CLASS_DISCRIMINANT*/ - /*_._VALSTR___V518*/ - meltfptr[517] = (melt_ptr_t) &meltcdat->dstr_424__CLASS_DISCRIMINANT; + /*_._VALSTR___V518*/ meltfptr[517] = (melt_ptr_t) &meltcdat->dstr_424__CLASS_DISCRIMINANT; meltcdat->dstr_424__CLASS_DISCRIMINANT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_424__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_424__CLASS_DISCRIMINANT.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_424__CLASS_DISCRIMINANT.val, "CLASS_DISCRIMINANT", sizeof (meltcdat->dstr_424__CLASS_DISCRIMINANT.val)-1); meltcdat->dstr_424__CLASS_DISCRIMINANT.val[18] = (char)0 ; meltcdat->dstr_424__CLASS_DISCRIMINANT.slen = 18 ; /*inirout drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN*/ - /*iniroutlocvar*/ /*_._VALROUT___V519*/ - meltfptr[518] = (melt_ptr_t) &meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN; + /*iniroutlocvar*/ /*_._VALROUT___V519*/ meltfptr[518] = (melt_ptr_t) &meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN; meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN.routdescr, "GENERATE_RUNTYPESUPPORT_MAPFUN @warmelt-modes.melt:3680", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_425__GENERATE_RUNTYPESUPPORT_MAPFUN, meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN); /*iniclos dclo_426__GENERATE_RUNTYPESUPPORT_MAPFUN*/ - /*_._VALCLO___V522*/ - meltfptr[521] = (melt_ptr_t) &meltcdat->dclo_426__GENERATE_RUNTYPESUPPORT_MAPFUN; + /*_._VALCLO___V522*/ meltfptr[521] = (melt_ptr_t) &meltcdat->dclo_426__GENERATE_RUNTYPESUPPORT_MAPFUN; meltcdat->dclo_426__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_426__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 0; /*inistring dstr_427__generated_map_creatio*/ - /*_._VALSTR___V520*/ - meltfptr[519] = (melt_ptr_t) &meltcdat->dstr_427__generated_map_creatio; + /*_._VALSTR___V520*/ meltfptr[519] = (melt_ptr_t) &meltcdat->dstr_427__generated_map_creatio; meltcdat->dstr_427__generated_map_creatio.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_427__generated_map_creatio.val, " /*generated map creation */\n\t\t\t if (melt_magic_discr ((melt_ptr_t\ + /*small inistring*/ strncpy(meltcdat->dstr_427__generated_map_creatio.val, " /*generated map creation */\n\t\t\t if (melt_magic_discr ((melt_ptr_t\ ) discr) != MELTOBMAG_OBJECT)\n\t\t\t return NULL ;\ \n\t\t\t if (discr->meltobj_magic != ", sizeof (meltcdat->dstr_427__generated_map_creatio.val)-1); meltcdat->dstr_427__generated_map_creatio.val[164] = (char)0 ; @@ -14110,11 +12702,9 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_428__not_map_magic_*/ - /*_._VALSTR___V521*/ - meltfptr[520] = (melt_ptr_t) &meltcdat->dstr_428__not_map_magic_; + /*_._VALSTR___V521*/ meltfptr[520] = (melt_ptr_t) &meltcdat->dstr_428__not_map_magic_; meltcdat->dstr_428__not_map_magic_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_428__not_map_magic_.val, ") /* not map magic */\n\t\t\t return NULL ;\ + /*small inistring*/ strncpy(meltcdat->dstr_428__not_map_magic_.val, ") /* not map magic */\n\t\t\t return NULL ;\ \n\t\t\t return (melt_ptr_t) meltgc_raw_new_mappointers (discr\ , len) ;\n\t\t\t } /*end generated new map\ for ", sizeof (meltcdat->dstr_428__not_map_magic_.val)-1); @@ -14122,37 +12712,32 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- meltcdat->dstr_428__not_map_magic_.slen = 158 ; /*inirout drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS*/ - /*iniroutlocvar*/ /*_._VALROUT___V523*/ - meltfptr[522] = (melt_ptr_t) &meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; + /*iniroutlocvar*/ /*_._VALROUT___V523*/ meltfptr[522] = (melt_ptr_t) &meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.routdescr, "GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS @warmelt-modes.melt:4077", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_429__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS, meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS); /*iniclos dclo_430__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS*/ - /*_._VALCLO___V524*/ - meltfptr[523] = (melt_ptr_t) &meltcdat->dclo_430__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; + /*_._VALCLO___V524*/ meltfptr[523] = (melt_ptr_t) &meltcdat->dclo_430__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; meltcdat->dclo_430__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_430__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 0; /*inirout drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS*/ - /*iniroutlocvar*/ /*_._VALROUT___V525*/ - meltfptr[524] = (melt_ptr_t) &meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS; + /*iniroutlocvar*/ /*_._VALROUT___V525*/ meltfptr[524] = (melt_ptr_t) &meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS; meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS.routdescr, "GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS @warmelt-modes.melt:4133", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_431__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS, meltrout_60_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS); /*iniclos dclo_432__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS*/ - /*_._VALCLO___V526*/ - meltfptr[525] = (melt_ptr_t) &meltcdat->dclo_432__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS; + /*_._VALCLO___V526*/ meltfptr[525] = (melt_ptr_t) &meltcdat->dclo_432__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS; meltcdat->dclo_432__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_432__GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS.nbval = 0; /*iniobj dsym_433__CLASS_HOOK_DESCRIPTOR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V527*/ meltfptr[526]) + /*uniqueobj*/ if (!/*_._VALDATA___V527*/ meltfptr[526]) /*_._VALDATA___V527*/ meltfptr[526] = (melt_ptr_t )&meltcdat->dsym_433__CLASS_HOOK_DESCRIPTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_433__CLASS_HOOK_DESCRIPTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_433__CLASS_HOOK_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14162,42 +12747,35 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_434__CLASS_HOOK_DESCRIPTOR*/ - /*_._VALSTR___V528*/ - meltfptr[527] = (melt_ptr_t) &meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR; + /*_._VALSTR___V528*/ meltfptr[527] = (melt_ptr_t) &meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR; meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.val, "CLASS_HOOK_DESCRIPTOR", sizeof (meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.val, "CLASS_HOOK_DESCRIPTOR", sizeof (meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.val)-1); meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.val[21] = (char)0 ; meltcdat->dstr_434__CLASS_HOOK_DESCRIPTOR.slen = 21 ; /*inirout drout_435__RUNTYPESUPPORT_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V529*/ - meltfptr[528] = (melt_ptr_t) &meltcdat->drout_435__RUNTYPESUPPORT_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V529*/ meltfptr[528] = (melt_ptr_t) &meltcdat->drout_435__RUNTYPESUPPORT_DOCMD; meltcdat->drout_435__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_435__RUNTYPESUPPORT_DOCMD.routdescr, "RUNTYPESUPPORT_DOCMD @warmelt-modes.melt:4301", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_435__RUNTYPESUPPORT_DOCMD.nbval = 26; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_435__RUNTYPESUPPORT_DOCMD, meltrout_61_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD); /*iniclos dclo_436__RUNTYPESUPPORT_DOCMD*/ - /*_._VALCLO___V531*/ - meltfptr[530] = (melt_ptr_t) &meltcdat->dclo_436__RUNTYPESUPPORT_DOCMD; + /*_._VALCLO___V531*/ meltfptr[530] = (melt_ptr_t) &meltcdat->dclo_436__RUNTYPESUPPORT_DOCMD; meltcdat->dclo_436__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_436__RUNTYPESUPPORT_DOCMD.nbval = 0; /*inistring dstr_437__meltrunsup*/ - /*_._VALSTR___V530*/ - meltfptr[529] = (melt_ptr_t) &meltcdat->dstr_437__meltrunsup; + /*_._VALSTR___V530*/ meltfptr[529] = (melt_ptr_t) &meltcdat->dstr_437__meltrunsup; meltcdat->dstr_437__meltrunsup.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_437__meltrunsup.val, "meltrunsup", sizeof (meltcdat->dstr_437__meltrunsup.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_437__meltrunsup.val, "meltrunsup", sizeof (meltcdat->dstr_437__meltrunsup.val)-1); meltcdat->dstr_437__meltrunsup.val[10] = (char)0 ; meltcdat->dstr_437__meltrunsup.slen = 10 ; /*iniobj dsym_438__RETRIEVE_DICTIONNARY_CTYPE_GTY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V532*/ meltfptr[531]) + /*uniqueobj*/ if (!/*_._VALDATA___V532*/ meltfptr[531]) /*_._VALDATA___V532*/ meltfptr[531] = (melt_ptr_t )&meltcdat->dsym_438__RETRIEVE_DICTIONNARY_CTYPE_GTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_438__RETRIEVE_DICTIONNARY_CTYPE_GTY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_438__RETRIEVE_DICTIONNARY_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14207,18 +12785,15 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_439__RETRIEVE_DICTIONNARY_CTY*/ - /*_._VALSTR___V533*/ - meltfptr[532] = (melt_ptr_t) &meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY; + /*_._VALSTR___V533*/ meltfptr[532] = (melt_ptr_t) &meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY; meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.val, "RETRIEVE_DICTIONNARY_CTYPE_GTY", sizeof (meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.val, "RETRIEVE_DICTIONNARY_CTYPE_GTY", sizeof (meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.val)-1); meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.val[30] = (char)0 ; meltcdat->dstr_439__RETRIEVE_DICTIONNARY_CTY.slen = 30 ; /*iniobj dsym_440__RETRIEVE_DICTIONNARY_CTYPE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V534*/ meltfptr[533]) + /*uniqueobj*/ if (!/*_._VALDATA___V534*/ meltfptr[533]) /*_._VALDATA___V534*/ meltfptr[533] = (melt_ptr_t )&meltcdat->dsym_440__RETRIEVE_DICTIONNARY_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_440__RETRIEVE_DICTIONNARY_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_440__RETRIEVE_DICTIONNARY_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14228,18 +12803,15 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_441__RETRIEVE_DICTIONNARY_CTY*/ - /*_._VALSTR___V535*/ - meltfptr[534] = (melt_ptr_t) &meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY; + /*_._VALSTR___V535*/ meltfptr[534] = (melt_ptr_t) &meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY; meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.val, "RETRIEVE_DICTIONNARY_CTYPE", sizeof (meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.val, "RETRIEVE_DICTIONNARY_CTYPE", sizeof (meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.val)-1); meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.val[26] = (char)0 ; meltcdat->dstr_441__RETRIEVE_DICTIONNARY_CTY.slen = 26 ; /*iniobj dsym_442__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V536*/ meltfptr[535]) + /*uniqueobj*/ if (!/*_._VALDATA___V536*/ meltfptr[535]) /*_._VALDATA___V536*/ meltfptr[535] = (melt_ptr_t )&meltcdat->dsym_442__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_442__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_442__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14249,18 +12821,15 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_443__GENERATE_GPLV3PLUS_COPYR*/ - /*_._VALSTR___V537*/ - meltfptr[536] = (melt_ptr_t) &meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR; + /*_._VALSTR___V537*/ meltfptr[536] = (melt_ptr_t) &meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR; meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.val, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", sizeof (meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.val, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", sizeof (meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.val)-1); meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.val[45] = (char)0 ; meltcdat->dstr_443__GENERATE_GPLV3PLUS_COPYR.slen = 45 ; /*iniobj dsym_444__RETRIEVE_VALUE_DESCRIPTOR_LIST*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V538*/ meltfptr[537]) + /*uniqueobj*/ if (!/*_._VALDATA___V538*/ meltfptr[537]) /*_._VALDATA___V538*/ meltfptr[537] = (melt_ptr_t )&meltcdat->dsym_444__RETRIEVE_VALUE_DESCRIPTOR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_444__RETRIEVE_VALUE_DESCRIPTOR_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_444__RETRIEVE_VALUE_DESCRIPTOR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14270,18 +12839,15 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_445__RETRIEVE_VALUE_DESCRIPTO*/ - /*_._VALSTR___V539*/ - meltfptr[538] = (melt_ptr_t) &meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO; + /*_._VALSTR___V539*/ meltfptr[538] = (melt_ptr_t) &meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO; meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.val, "RETRIEVE_VALUE_DESCRIPTOR_LIST", sizeof (meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.val, "RETRIEVE_VALUE_DESCRIPTOR_LIST", sizeof (meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.val)-1); meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.val[30] = (char)0 ; meltcdat->dstr_445__RETRIEVE_VALUE_DESCRIPTO.slen = 30 ; /*iniobj dsym_446__RUNTYPESUPPORT_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V540*/ meltfptr[539]) + /*uniqueobj*/ if (!/*_._VALDATA___V540*/ meltfptr[539]) /*_._VALDATA___V540*/ meltfptr[539] = (melt_ptr_t )&meltcdat->dsym_446__RUNTYPESUPPORT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_446__RUNTYPESUPPORT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_446__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14291,19 +12857,16 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_447__RUNTYPESUPPORT_MODE*/ - /*_._VALSTR___V541*/ - meltfptr[540] = (melt_ptr_t) &meltcdat->dstr_447__RUNTYPESUPPORT_MODE; + /*_._VALSTR___V541*/ meltfptr[540] = (melt_ptr_t) &meltcdat->dstr_447__RUNTYPESUPPORT_MODE; meltcdat->dstr_447__RUNTYPESUPPORT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_447__RUNTYPESUPPORT_MODE.val, "RUNTYPESUPPORT_MODE", sizeof (meltcdat->dstr_447__RUNTYPESUPPORT_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_447__RUNTYPESUPPORT_MODE.val, "RUNTYPESUPPORT_MODE", sizeof (meltcdat->dstr_447__RUNTYPESUPPORT_MODE.val)-1); meltcdat->dstr_447__RUNTYPESUPPORT_MODE.val[19] = (char)0 ; meltcdat->dstr_447__RUNTYPESUPPORT_MODE.slen = 19 ; MELT_LOCATION("warmelt-modes.melt:4444:/ iniobj"); /*iniobj dobj_448__RUNTYPESUPPORT_MODE*/ - /*_._VALDATA___V542*/ - meltfptr[541] = (melt_ptr_t )&meltcdat->dobj_448__RUNTYPESUPPORT_MODE; + /*_._VALDATA___V542*/ meltfptr[541] = (melt_ptr_t )&meltcdat->dobj_448__RUNTYPESUPPORT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_448__RUNTYPESUPPORT_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_448__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_448__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14312,77 +12875,64 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_449__generate_runtime_support*/ - /*_._VALSTR___V543*/ - meltfptr[542] = (melt_ptr_t) &meltcdat->dstr_449__generate_runtime_support; + /*_._VALSTR___V543*/ meltfptr[542] = (melt_ptr_t) &meltcdat->dstr_449__generate_runtime_support; meltcdat->dstr_449__generate_runtime_support.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_449__generate_runtime_support.val, "generate runtime support for our GTY types (ctypes, values);\ + /*small inistring*/ strncpy(meltcdat->dstr_449__generate_runtime_support.val, "generate runtime support for our GTY types (ctypes, values);\ \n\n\t OUTPUT=generated file prefix", sizeof (meltcdat->dstr_449__generate_runtime_support.val)-1); meltcdat->dstr_449__generate_runtime_support.val[92] = (char)0 ; meltcdat->dstr_449__generate_runtime_support.slen = 92 ; /*inirout drout_450__TRANSLATE_TO_FLAVORED_MODULE*/ - /*iniroutlocvar*/ /*_._VALROUT___V544*/ - meltfptr[543] = (melt_ptr_t) &meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE; + /*iniroutlocvar*/ /*_._VALROUT___V544*/ meltfptr[543] = (melt_ptr_t) &meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE; meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE.routdescr, "TRANSLATE_TO_FLAVORED_MODULE @warmelt-modes.melt:4456", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_450__TRANSLATE_TO_FLAVORED_MODULE, meltrout_62_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE); /*iniclos dclo_451__TRANSLATE_TO_FLAVORED_MODULE*/ - /*_._VALCLO___V545*/ - meltfptr[544] = (melt_ptr_t) &meltcdat->dclo_451__TRANSLATE_TO_FLAVORED_MODULE; + /*_._VALCLO___V545*/ meltfptr[544] = (melt_ptr_t) &meltcdat->dclo_451__TRANSLATE_TO_FLAVORED_MODULE; meltcdat->dclo_451__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_451__TRANSLATE_TO_FLAVORED_MODULE.nbval = 0; /*inirout drout_452__TRANSLATETOMODULE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V546*/ - meltfptr[545] = (melt_ptr_t) &meltcdat->drout_452__TRANSLATETOMODULE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V546*/ meltfptr[545] = (melt_ptr_t) &meltcdat->drout_452__TRANSLATETOMODULE_DOCMD; meltcdat->drout_452__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_452__TRANSLATETOMODULE_DOCMD.routdescr, "TRANSLATETOMODULE_DOCMD @warmelt-modes.melt:4504", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_452__TRANSLATETOMODULE_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_452__TRANSLATETOMODULE_DOCMD, meltrout_63_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD); /*iniclos dclo_453__TRANSLATETOMODULE_DOCMD*/ - /*_._VALCLO___V550*/ - meltfptr[549] = (melt_ptr_t) &meltcdat->dclo_453__TRANSLATETOMODULE_DOCMD; + /*_._VALCLO___V550*/ meltfptr[549] = (melt_ptr_t) &meltcdat->dclo_453__TRANSLATETOMODULE_DOCMD; meltcdat->dclo_453__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_453__TRANSLATETOMODULE_DOCMD.nbval = 0; /*inistring dstr_454__quicklybuilt*/ - /*_._VALSTR___V547*/ - meltfptr[546] = (melt_ptr_t) &meltcdat->dstr_454__quicklybuilt; + /*_._VALSTR___V547*/ meltfptr[546] = (melt_ptr_t) &meltcdat->dstr_454__quicklybuilt; meltcdat->dstr_454__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_454__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_454__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_454__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_454__quicklybuilt.val)-1); meltcdat->dstr_454__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_454__quicklybuilt.slen = 12 ; /*inistring dstr_455__optimized*/ - /*_._VALSTR___V548*/ - meltfptr[547] = (melt_ptr_t) &meltcdat->dstr_455__optimized; + /*_._VALSTR___V548*/ meltfptr[547] = (melt_ptr_t) &meltcdat->dstr_455__optimized; meltcdat->dstr_455__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_455__optimized.val, "optimized", sizeof (meltcdat->dstr_455__optimized.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_455__optimized.val, "optimized", sizeof (meltcdat->dstr_455__optimized.val)-1); meltcdat->dstr_455__optimized.val[9] = (char)0 ; meltcdat->dstr_455__optimized.slen = 9 ; /*inistring dstr_456__debugnoline*/ - /*_._VALSTR___V549*/ - meltfptr[548] = (melt_ptr_t) &meltcdat->dstr_456__debugnoline; + /*_._VALSTR___V549*/ meltfptr[548] = (melt_ptr_t) &meltcdat->dstr_456__debugnoline; meltcdat->dstr_456__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_456__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_456__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_456__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_456__debugnoline.val)-1); meltcdat->dstr_456__debugnoline.val[11] = (char)0 ; meltcdat->dstr_456__debugnoline.slen = 11 ; /*iniobj dsym_457__TRANSLATETOMODULE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V551*/ meltfptr[550]) + /*uniqueobj*/ if (!/*_._VALDATA___V551*/ meltfptr[550]) /*_._VALDATA___V551*/ meltfptr[550] = (melt_ptr_t )&meltcdat->dsym_457__TRANSLATETOMODULE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_457__TRANSLATETOMODULE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_457__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14392,19 +12942,16 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_458__TRANSLATETOMODULE_MODE*/ - /*_._VALSTR___V552*/ - meltfptr[551] = (melt_ptr_t) &meltcdat->dstr_458__TRANSLATETOMODULE_MODE; + /*_._VALSTR___V552*/ meltfptr[551] = (melt_ptr_t) &meltcdat->dstr_458__TRANSLATETOMODULE_MODE; meltcdat->dstr_458__TRANSLATETOMODULE_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_458__TRANSLATETOMODULE_MODE.val, "TRANSLATETOMODULE_MODE", sizeof (meltcdat->dstr_458__TRANSLATETOMODULE_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_458__TRANSLATETOMODULE_MODE.val, "TRANSLATETOMODULE_MODE", sizeof (meltcdat->dstr_458__TRANSLATETOMODULE_MODE.val)-1); meltcdat->dstr_458__TRANSLATETOMODULE_MODE.val[22] = (char)0 ; meltcdat->dstr_458__TRANSLATETOMODULE_MODE.slen = 22 ; MELT_LOCATION("warmelt-modes.melt:4522:/ iniobj"); /*iniobj dobj_459__TRANSLATETOMODULE_MODE*/ - /*_._VALDATA___V553*/ - meltfptr[552] = (melt_ptr_t )&meltcdat->dobj_459__TRANSLATETOMODULE_MODE; + /*_._VALDATA___V553*/ meltfptr[552] = (melt_ptr_t )&meltcdat->dobj_459__TRANSLATETOMODULE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_459__TRANSLATETOMODULE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_459__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_459__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14413,11 +12960,9 @@ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (meltcdat- /*inistring dstr_460__translate_a_melt_file_t*/ - /*_._VALSTR___V554*/ - meltfptr[553] = (melt_ptr_t) &meltcdat->dstr_460__translate_a_melt_file_t; + /*_._VALSTR___V554*/ meltfptr[553] = (melt_ptr_t) &meltcdat->dstr_460__translate_a_melt_file_t; meltcdat->dstr_460__translate_a_melt_file_t.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_460__translate_a_melt_file_t.val, "translate a .melt file to MELT_DYNLOADED_SUFFIX modules in quicklybuilt\ + /*small inistring*/ strncpy(meltcdat->dstr_460__translate_a_melt_file_t.val, "translate a .melt file to MELT_DYNLOADED_SUFFIX modules in quicklybuilt\ , optimized, debugnoline flavors;\ \n\n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUF\ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_melt_file_t.val)-1); @@ -14425,33 +12970,28 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel meltcdat->dstr_460__translate_a_melt_file_t.slen = 212 ; /*inirout drout_461__TRANSLATEDEBUG_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V555*/ - meltfptr[554] = (melt_ptr_t) &meltcdat->drout_461__TRANSLATEDEBUG_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V555*/ meltfptr[554] = (melt_ptr_t) &meltcdat->drout_461__TRANSLATEDEBUG_DOCMD; meltcdat->drout_461__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_461__TRANSLATEDEBUG_DOCMD.routdescr, "TRANSLATEDEBUG_DOCMD @warmelt-modes.melt:4532", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_461__TRANSLATEDEBUG_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_461__TRANSLATEDEBUG_DOCMD, meltrout_64_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD); /*iniclos dclo_462__TRANSLATEDEBUG_DOCMD*/ - /*_._VALCLO___V557*/ - meltfptr[556] = (melt_ptr_t) &meltcdat->dclo_462__TRANSLATEDEBUG_DOCMD; + /*_._VALCLO___V557*/ meltfptr[556] = (melt_ptr_t) &meltcdat->dclo_462__TRANSLATEDEBUG_DOCMD; meltcdat->dclo_462__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_462__TRANSLATEDEBUG_DOCMD.nbval = 0; /*inistring dstr_463__debugnoline*/ - /*_._VALSTR___V556*/ - meltfptr[555] = (melt_ptr_t) &meltcdat->dstr_463__debugnoline; + /*_._VALSTR___V556*/ meltfptr[555] = (melt_ptr_t) &meltcdat->dstr_463__debugnoline; meltcdat->dstr_463__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_463__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_463__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_463__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_463__debugnoline.val)-1); meltcdat->dstr_463__debugnoline.val[11] = (char)0 ; meltcdat->dstr_463__debugnoline.slen = 11 ; /*iniobj dsym_464__TRANSLATEDEBUG_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V558*/ meltfptr[557]) + /*uniqueobj*/ if (!/*_._VALDATA___V558*/ meltfptr[557]) /*_._VALDATA___V558*/ meltfptr[557] = (melt_ptr_t )&meltcdat->dsym_464__TRANSLATEDEBUG_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_464__TRANSLATEDEBUG_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_464__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14461,19 +13001,16 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel /*inistring dstr_465__TRANSLATEDEBUG_MODE*/ - /*_._VALSTR___V559*/ - meltfptr[558] = (melt_ptr_t) &meltcdat->dstr_465__TRANSLATEDEBUG_MODE; + /*_._VALSTR___V559*/ meltfptr[558] = (melt_ptr_t) &meltcdat->dstr_465__TRANSLATEDEBUG_MODE; meltcdat->dstr_465__TRANSLATEDEBUG_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_465__TRANSLATEDEBUG_MODE.val, "TRANSLATEDEBUG_MODE", sizeof (meltcdat->dstr_465__TRANSLATEDEBUG_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_465__TRANSLATEDEBUG_MODE.val, "TRANSLATEDEBUG_MODE", sizeof (meltcdat->dstr_465__TRANSLATEDEBUG_MODE.val)-1); meltcdat->dstr_465__TRANSLATEDEBUG_MODE.val[19] = (char)0 ; meltcdat->dstr_465__TRANSLATEDEBUG_MODE.slen = 19 ; MELT_LOCATION("warmelt-modes.melt:4547:/ iniobj"); /*iniobj dobj_466__TRANSLATEDEBUG_MODE*/ - /*_._VALDATA___V560*/ - meltfptr[559] = (melt_ptr_t )&meltcdat->dobj_466__TRANSLATEDEBUG_MODE; + /*_._VALDATA___V560*/ meltfptr[559] = (melt_ptr_t )&meltcdat->dobj_466__TRANSLATEDEBUG_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_466__TRANSLATEDEBUG_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_466__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_466__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14482,8 +13019,7 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel /*inistring dstr_467__translate_a_melt_file_t*/ - /*_._VALSTR___V561*/ - meltfptr[560] = (melt_ptr_t) &meltcdat->dstr_467__translate_a_melt_file_t; + /*_._VALSTR___V561*/ meltfptr[560] = (melt_ptr_t) &meltcdat->dstr_467__translate_a_melt_file_t; meltcdat->dstr_467__translate_a_melt_file_t.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*big inistring*/ /*really big chunk inistring*/ @@ -14496,41 +13032,35 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel "generates also *.cc and no MELT line number;\ \n\n\t Useful for runni", /*big*/ 256); - /*end big inistring*/ - strncpy(meltcdat->dstr_467__translate_a_melt_file_t.val + 256, "ng gdb on the module. MELT debugging (DEBUG,\ + /*end big inistring*/ strncpy(meltcdat->dstr_467__translate_a_melt_file_t.val + 256, "ng gdb on the module. MELT debugging (DEBUG,\ \nASSERT_MSG) is enabled", sizeof (meltcdat->dstr_467__translate_a_melt_file_t.val) - 257); meltcdat->dstr_467__translate_a_melt_file_t.val[323] = (char)0 ; meltcdat->dstr_467__translate_a_melt_file_t.slen = 323 ; /*inirout drout_468__TRANSLATEQUICKLY_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V562*/ - meltfptr[561] = (melt_ptr_t) &meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V562*/ meltfptr[561] = (melt_ptr_t) &meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD; meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD.routdescr, "TRANSLATEQUICKLY_DOCMD @warmelt-modes.melt:4560", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_468__TRANSLATEQUICKLY_DOCMD, meltrout_65_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD); /*iniclos dclo_469__TRANSLATEQUICKLY_DOCMD*/ - /*_._VALCLO___V564*/ - meltfptr[563] = (melt_ptr_t) &meltcdat->dclo_469__TRANSLATEQUICKLY_DOCMD; + /*_._VALCLO___V564*/ meltfptr[563] = (melt_ptr_t) &meltcdat->dclo_469__TRANSLATEQUICKLY_DOCMD; meltcdat->dclo_469__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_469__TRANSLATEQUICKLY_DOCMD.nbval = 0; /*inistring dstr_470__quicklybuilt*/ - /*_._VALSTR___V563*/ - meltfptr[562] = (melt_ptr_t) &meltcdat->dstr_470__quicklybuilt; + /*_._VALSTR___V563*/ meltfptr[562] = (melt_ptr_t) &meltcdat->dstr_470__quicklybuilt; meltcdat->dstr_470__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_470__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_470__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_470__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_470__quicklybuilt.val)-1); meltcdat->dstr_470__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_470__quicklybuilt.slen = 12 ; /*iniobj dsym_471__TRANSLATEQUICKLY_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V565*/ meltfptr[564]) + /*uniqueobj*/ if (!/*_._VALDATA___V565*/ meltfptr[564]) /*_._VALDATA___V565*/ meltfptr[564] = (melt_ptr_t )&meltcdat->dsym_471__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_471__TRANSLATEQUICKLY_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_471__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14540,19 +13070,16 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel /*inistring dstr_472__TRANSLATEQUICKLY_MODE*/ - /*_._VALSTR___V566*/ - meltfptr[565] = (melt_ptr_t) &meltcdat->dstr_472__TRANSLATEQUICKLY_MODE; + /*_._VALSTR___V566*/ meltfptr[565] = (melt_ptr_t) &meltcdat->dstr_472__TRANSLATEQUICKLY_MODE; meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.val, "TRANSLATEQUICKLY_MODE", sizeof (meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.val, "TRANSLATEQUICKLY_MODE", sizeof (meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.val)-1); meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.val[21] = (char)0 ; meltcdat->dstr_472__TRANSLATEQUICKLY_MODE.slen = 21 ; MELT_LOCATION("warmelt-modes.melt:4577:/ iniobj"); /*iniobj dobj_473__TRANSLATEQUICKLY_MODE*/ - /*_._VALDATA___V567*/ - meltfptr[566] = (melt_ptr_t )&meltcdat->dobj_473__TRANSLATEQUICKLY_MODE; + /*_._VALDATA___V567*/ meltfptr[566] = (melt_ptr_t )&meltcdat->dobj_473__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_473__TRANSLATEQUICKLY_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_473__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_473__TRANSLATEQUICKLY_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14561,11 +13088,9 @@ FIX; OUTPUTC= generated *.cc file.", sizeof (meltcdat->dstr_460__translate_a_mel /*inistring dstr_474__translate_quickly_a_mel*/ - /*_._VALSTR___V568*/ - meltfptr[567] = (melt_ptr_t) &meltcdat->dstr_474__translate_quickly_a_mel; + /*_._VALSTR___V568*/ meltfptr[567] = (melt_ptr_t) &meltcdat->dstr_474__translate_quickly_a_mel; meltcdat->dstr_474__translate_quickly_a_mel.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_474__translate_quickly_a_mel.val, "translate quickly a .melt file to .quicklybuilt module with MELT debugging\ + /*small inistring*/ strncpy(meltcdat->dstr_474__translate_quickly_a_mel.val, "translate quickly a .melt file to .quicklybuilt module with MELT debugging\ enabled (DEBUG, ASSERT_MSG...);\n\ \n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUFFI\ X; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_474__translate_quickly_a_mel.val)-1); @@ -14573,33 +13098,28 @@ X; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_474__translate_quick meltcdat->dstr_474__translate_quickly_a_mel.slen = 215 ; /*inirout drout_475__TRANSLATEOPTIMIZED_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V569*/ - meltfptr[568] = (melt_ptr_t) &meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V569*/ meltfptr[568] = (melt_ptr_t) &meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD; meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD.routdescr, "TRANSLATEOPTIMIZED_DOCMD @warmelt-modes.melt:4587", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_475__TRANSLATEOPTIMIZED_DOCMD, meltrout_66_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD); /*iniclos dclo_476__TRANSLATEOPTIMIZED_DOCMD*/ - /*_._VALCLO___V571*/ - meltfptr[570] = (melt_ptr_t) &meltcdat->dclo_476__TRANSLATEOPTIMIZED_DOCMD; + /*_._VALCLO___V571*/ meltfptr[570] = (melt_ptr_t) &meltcdat->dclo_476__TRANSLATEOPTIMIZED_DOCMD; meltcdat->dclo_476__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_476__TRANSLATEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_477__optimized*/ - /*_._VALSTR___V570*/ - meltfptr[569] = (melt_ptr_t) &meltcdat->dstr_477__optimized; + /*_._VALSTR___V570*/ meltfptr[569] = (melt_ptr_t) &meltcdat->dstr_477__optimized; meltcdat->dstr_477__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_477__optimized.val, "optimized", sizeof (meltcdat->dstr_477__optimized.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_477__optimized.val, "optimized", sizeof (meltcdat->dstr_477__optimized.val)-1); meltcdat->dstr_477__optimized.val[9] = (char)0 ; meltcdat->dstr_477__optimized.slen = 9 ; /*iniobj dsym_478__TRANSLATEOPTIMIZED_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V572*/ meltfptr[571]) + /*uniqueobj*/ if (!/*_._VALDATA___V572*/ meltfptr[571]) /*_._VALDATA___V572*/ meltfptr[571] = (melt_ptr_t )&meltcdat->dsym_478__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_478__TRANSLATEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_478__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14609,19 +13129,16 @@ X; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_474__translate_quick /*inistring dstr_479__TRANSLATEOPTIMIZED_MODE*/ - /*_._VALSTR___V573*/ - meltfptr[572] = (melt_ptr_t) &meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE; + /*_._VALSTR___V573*/ meltfptr[572] = (melt_ptr_t) &meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE; meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.val, "TRANSLATEOPTIMIZED_MODE", sizeof (meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.val, "TRANSLATEOPTIMIZED_MODE", sizeof (meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.val)-1); meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.val[23] = (char)0 ; meltcdat->dstr_479__TRANSLATEOPTIMIZED_MODE.slen = 23 ; MELT_LOCATION("warmelt-modes.melt:4604:/ iniobj"); /*iniobj dobj_480__TRANSLATEOPTIMIZED_MODE*/ - /*_._VALDATA___V574*/ - meltfptr[573] = (melt_ptr_t )&meltcdat->dobj_480__TRANSLATEOPTIMIZED_MODE; + /*_._VALDATA___V574*/ meltfptr[573] = (melt_ptr_t )&meltcdat->dobj_480__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_480__TRANSLATEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_480__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_480__TRANSLATEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14630,11 +13147,9 @@ X; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_474__translate_quick /*inistring dstr_481__translate_a_melt_file_*/ - /*_._VALSTR___V575*/ - meltfptr[574] = (melt_ptr_t) &meltcdat->dstr_481__translate_a_melt_file_; + /*_._VALSTR___V575*/ meltfptr[574] = (melt_ptr_t) &meltcdat->dstr_481__translate_a_melt_file_; meltcdat->dstr_481__translate_a_melt_file_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_481__translate_a_melt_file_.val, "translate a .melt file to an .optimized module without MELT debugging\ + /*small inistring*/ strncpy(meltcdat->dstr_481__translate_a_melt_file_.val, "translate a .melt file to an .optimized module without MELT debugging\ \ \n\n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUF\ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_melt_file_.val)-1); @@ -14642,23 +13157,20 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m meltcdat->dstr_481__translate_a_melt_file_.slen = 179 ; /*inirout drout_482__TRANSLATEFILE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V576*/ - meltfptr[575] = (melt_ptr_t) &meltcdat->drout_482__TRANSLATEFILE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V576*/ meltfptr[575] = (melt_ptr_t) &meltcdat->drout_482__TRANSLATEFILE_DOCMD; meltcdat->drout_482__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_482__TRANSLATEFILE_DOCMD.routdescr, "TRANSLATEFILE_DOCMD @warmelt-modes.melt:4615", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_482__TRANSLATEFILE_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_482__TRANSLATEFILE_DOCMD, meltrout_67_WARMELTmiMODES_TRANSLATEFILE_DOCMD); /*iniclos dclo_483__TRANSLATEFILE_DOCMD*/ - /*_._VALCLO___V577*/ - meltfptr[576] = (melt_ptr_t) &meltcdat->dclo_483__TRANSLATEFILE_DOCMD; + /*_._VALCLO___V577*/ meltfptr[576] = (melt_ptr_t) &meltcdat->dclo_483__TRANSLATEFILE_DOCMD; meltcdat->dclo_483__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_483__TRANSLATEFILE_DOCMD.nbval = 0; /*iniobj dsym_484__TRANSLATEFILE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V578*/ meltfptr[577]) + /*uniqueobj*/ if (!/*_._VALDATA___V578*/ meltfptr[577]) /*_._VALDATA___V578*/ meltfptr[577] = (melt_ptr_t )&meltcdat->dsym_484__TRANSLATEFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_484__TRANSLATEFILE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_484__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14668,19 +13180,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_485__TRANSLATEFILE_MODE*/ - /*_._VALSTR___V579*/ - meltfptr[578] = (melt_ptr_t) &meltcdat->dstr_485__TRANSLATEFILE_MODE; + /*_._VALSTR___V579*/ meltfptr[578] = (melt_ptr_t) &meltcdat->dstr_485__TRANSLATEFILE_MODE; meltcdat->dstr_485__TRANSLATEFILE_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_485__TRANSLATEFILE_MODE.val, "TRANSLATEFILE_MODE", sizeof (meltcdat->dstr_485__TRANSLATEFILE_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_485__TRANSLATEFILE_MODE.val, "TRANSLATEFILE_MODE", sizeof (meltcdat->dstr_485__TRANSLATEFILE_MODE.val)-1); meltcdat->dstr_485__TRANSLATEFILE_MODE.val[18] = (char)0 ; meltcdat->dstr_485__TRANSLATEFILE_MODE.slen = 18 ; MELT_LOCATION("warmelt-modes.melt:4659:/ iniobj"); /*iniobj dobj_486__TRANSLATEFILE_MODE*/ - /*_._VALDATA___V580*/ - meltfptr[579] = (melt_ptr_t )&meltcdat->dobj_486__TRANSLATEFILE_MODE; + /*_._VALDATA___V580*/ meltfptr[579] = (melt_ptr_t )&meltcdat->dobj_486__TRANSLATEFILE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_486__TRANSLATEFILE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_486__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_486__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14689,33 +13198,28 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_487__translate_a_melt_file_t*/ - /*_._VALSTR___V581*/ - meltfptr[580] = (melt_ptr_t) &meltcdat->dstr_487__translate_a_melt_file_t; + /*_._VALSTR___V581*/ meltfptr[580] = (melt_ptr_t) &meltcdat->dstr_487__translate_a_melt_file_t; meltcdat->dstr_487__translate_a_melt_file_t.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_487__translate_a_melt_file_t.val, "translate a .melt file to .cc;\n\n\t ARGUMENT= input file; OUTPUT=\ + /*small inistring*/ strncpy(meltcdat->dstr_487__translate_a_melt_file_t.val, "translate a .melt file to .cc;\n\n\t ARGUMENT= input file; OUTPUT=\ generated C++ file", sizeof (meltcdat->dstr_487__translate_a_melt_file_t.val)-1); meltcdat->dstr_487__translate_a_melt_file_t.val[82] = (char)0 ; meltcdat->dstr_487__translate_a_melt_file_t.slen = 82 ; /*inirout drout_488__TRANSLATEINIT_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V582*/ - meltfptr[581] = (melt_ptr_t) &meltcdat->drout_488__TRANSLATEINIT_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V582*/ meltfptr[581] = (melt_ptr_t) &meltcdat->drout_488__TRANSLATEINIT_DOCMD; meltcdat->drout_488__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_488__TRANSLATEINIT_DOCMD.routdescr, "TRANSLATEINIT_DOCMD @warmelt-modes.melt:4670", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_488__TRANSLATEINIT_DOCMD.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_488__TRANSLATEINIT_DOCMD, meltrout_68_WARMELTmiMODES_TRANSLATEINIT_DOCMD); /*iniclos dclo_489__TRANSLATEINIT_DOCMD*/ - /*_._VALCLO___V584*/ - meltfptr[583] = (melt_ptr_t) &meltcdat->dclo_489__TRANSLATEINIT_DOCMD; + /*_._VALCLO___V584*/ meltfptr[583] = (melt_ptr_t) &meltcdat->dclo_489__TRANSLATEINIT_DOCMD; meltcdat->dclo_489__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_489__TRANSLATEINIT_DOCMD.nbval = 0; /*iniobj dsym_490__LIST_EVERY*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V585*/ meltfptr[584]) + /*uniqueobj*/ if (!/*_._VALDATA___V585*/ meltfptr[584]) /*_._VALDATA___V585*/ meltfptr[584] = (melt_ptr_t )&meltcdat->dsym_490__LIST_EVERY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_490__LIST_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_490__LIST_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14725,17 +13229,14 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_491__LIST_EVERY*/ - /*_._VALSTR___V586*/ - meltfptr[585] = (melt_ptr_t) &meltcdat->dstr_491__LIST_EVERY; + /*_._VALSTR___V586*/ meltfptr[585] = (melt_ptr_t) &meltcdat->dstr_491__LIST_EVERY; meltcdat->dstr_491__LIST_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_491__LIST_EVERY.val, "LIST_EVERY", sizeof (meltcdat->dstr_491__LIST_EVERY.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_491__LIST_EVERY.val, "LIST_EVERY", sizeof (meltcdat->dstr_491__LIST_EVERY.val)-1); meltcdat->dstr_491__LIST_EVERY.val[10] = (char)0 ; meltcdat->dstr_491__LIST_EVERY.slen = 10 ; /*inirout drout_492__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V583*/ - meltfptr[582] = (melt_ptr_t) &meltcdat->drout_492__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V583*/ meltfptr[582] = (melt_ptr_t) &meltcdat->drout_492__LAMBDA_; meltcdat->drout_492__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_492__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4714", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_492__LAMBDA_.nbval = 4; @@ -14743,8 +13244,7 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*iniobj dsym_493__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V587*/ meltfptr[586]) + /*uniqueobj*/ if (!/*_._VALDATA___V587*/ meltfptr[586]) /*_._VALDATA___V587*/ meltfptr[586] = (melt_ptr_t )&meltcdat->dsym_493__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_493__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14754,18 +13254,15 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_494__COMPILE_FIRST_BOOTSTRAP_*/ - /*_._VALSTR___V588*/ - meltfptr[587] = (melt_ptr_t) &meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_; + /*_._VALSTR___V588*/ meltfptr[587] = (melt_ptr_t) &meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_; meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.val, "COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", sizeof (meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.val, "COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", sizeof (meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.val)-1); meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.val[34] = (char)0 ; meltcdat->dstr_494__COMPILE_FIRST_BOOTSTRAP_.slen = 34 ; /*iniobj dsym_495__TRANSLATEINIT_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V589*/ meltfptr[588]) + /*uniqueobj*/ if (!/*_._VALDATA___V589*/ meltfptr[588]) /*_._VALDATA___V589*/ meltfptr[588] = (melt_ptr_t )&meltcdat->dsym_495__TRANSLATEINIT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_495__TRANSLATEINIT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_495__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14775,19 +13272,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_496__TRANSLATEINIT_MODE*/ - /*_._VALSTR___V590*/ - meltfptr[589] = (melt_ptr_t) &meltcdat->dstr_496__TRANSLATEINIT_MODE; + /*_._VALSTR___V590*/ meltfptr[589] = (melt_ptr_t) &meltcdat->dstr_496__TRANSLATEINIT_MODE; meltcdat->dstr_496__TRANSLATEINIT_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_496__TRANSLATEINIT_MODE.val, "TRANSLATEINIT_MODE", sizeof (meltcdat->dstr_496__TRANSLATEINIT_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_496__TRANSLATEINIT_MODE.val, "TRANSLATEINIT_MODE", sizeof (meltcdat->dstr_496__TRANSLATEINIT_MODE.val)-1); meltcdat->dstr_496__TRANSLATEINIT_MODE.val[18] = (char)0 ; meltcdat->dstr_496__TRANSLATEINIT_MODE.slen = 18 ; MELT_LOCATION("warmelt-modes.melt:4733:/ iniobj"); /*iniobj dobj_497__TRANSLATEINIT_MODE*/ - /*_._VALDATA___V591*/ - meltfptr[590] = (melt_ptr_t )&meltcdat->dobj_497__TRANSLATEINIT_MODE; + /*_._VALDATA___V591*/ meltfptr[590] = (melt_ptr_t )&meltcdat->dobj_497__TRANSLATEINIT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_497__TRANSLATEINIT_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_497__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_497__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14796,33 +13290,28 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_498__translate_the_very_first*/ - /*_._VALSTR___V592*/ - meltfptr[591] = (melt_ptr_t) &meltcdat->dstr_498__translate_the_very_first; + /*_._VALSTR___V592*/ meltfptr[591] = (melt_ptr_t) &meltcdat->dstr_498__translate_the_very_first; meltcdat->dstr_498__translate_the_very_first.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_498__translate_the_very_first.val, "translate the very first (warmelt-first.melt) file for bootstrapping\ + /*small inistring*/ strncpy(meltcdat->dstr_498__translate_the_very_first.val, "translate the very first (warmelt-first.melt) file for bootstrapping\ ;\n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated file.", sizeof (meltcdat->dstr_498__translate_the_very_first.val)-1); meltcdat->dstr_498__translate_the_very_first.val[152] = (char)0 ; meltcdat->dstr_498__translate_the_very_first.slen = 152 ; /*inirout drout_499__TRANSLATEINIT_FLAVORED*/ - /*iniroutlocvar*/ /*_._VALROUT___V593*/ - meltfptr[592] = (melt_ptr_t) &meltcdat->drout_499__TRANSLATEINIT_FLAVORED; + /*iniroutlocvar*/ /*_._VALROUT___V593*/ meltfptr[592] = (melt_ptr_t) &meltcdat->drout_499__TRANSLATEINIT_FLAVORED; meltcdat->drout_499__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_499__TRANSLATEINIT_FLAVORED.routdescr, "TRANSLATEINIT_FLAVORED @warmelt-modes.melt:4745", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_499__TRANSLATEINIT_FLAVORED.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_499__TRANSLATEINIT_FLAVORED, meltrout_70_WARMELTmiMODES_TRANSLATEINIT_FLAVORED); /*iniclos dclo_500__TRANSLATEINIT_FLAVORED*/ - /*_._VALCLO___V595*/ - meltfptr[594] = (melt_ptr_t) &meltcdat->dclo_500__TRANSLATEINIT_FLAVORED; + /*_._VALCLO___V595*/ meltfptr[594] = (melt_ptr_t) &meltcdat->dclo_500__TRANSLATEINIT_FLAVORED; meltcdat->dclo_500__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_500__TRANSLATEINIT_FLAVORED.nbval = 0; /*inirout drout_501__LAMBDA_*/ - /*iniroutlocvar*/ /*_._VALROUT___V594*/ - meltfptr[593] = (melt_ptr_t) &meltcdat->drout_501__LAMBDA_; + /*iniroutlocvar*/ /*_._VALROUT___V594*/ meltfptr[593] = (melt_ptr_t) &meltcdat->drout_501__LAMBDA_; meltcdat->drout_501__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_501__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4789", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_501__LAMBDA_.nbval = 4; @@ -14830,8 +13319,7 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*iniobj dsym_502__COMPILE_LIST_SEXPR*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V596*/ meltfptr[595]) + /*uniqueobj*/ if (!/*_._VALDATA___V596*/ meltfptr[595]) /*_._VALDATA___V596*/ meltfptr[595] = (melt_ptr_t )&meltcdat->dsym_502__COMPILE_LIST_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_502__COMPILE_LIST_SEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_502__COMPILE_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14841,62 +13329,51 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_503__COMPILE_LIST_SEXPR*/ - /*_._VALSTR___V597*/ - meltfptr[596] = (melt_ptr_t) &meltcdat->dstr_503__COMPILE_LIST_SEXPR; + /*_._VALSTR___V597*/ meltfptr[596] = (melt_ptr_t) &meltcdat->dstr_503__COMPILE_LIST_SEXPR; meltcdat->dstr_503__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_503__COMPILE_LIST_SEXPR.val, "COMPILE_LIST_SEXPR", sizeof (meltcdat->dstr_503__COMPILE_LIST_SEXPR.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_503__COMPILE_LIST_SEXPR.val, "COMPILE_LIST_SEXPR", sizeof (meltcdat->dstr_503__COMPILE_LIST_SEXPR.val)-1); meltcdat->dstr_503__COMPILE_LIST_SEXPR.val[18] = (char)0 ; meltcdat->dstr_503__COMPILE_LIST_SEXPR.slen = 18 ; /*inirout drout_504__TRANSLATEINITMODULE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V598*/ - meltfptr[597] = (melt_ptr_t) &meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V598*/ meltfptr[597] = (melt_ptr_t) &meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD; meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD.routdescr, "TRANSLATEINITMODULE_DOCMD @warmelt-modes.melt:4839", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_504__TRANSLATEINITMODULE_DOCMD, meltrout_72_WARMELTmiMODES_TRANSLATEINITMODULE_DOCMD); /*iniclos dclo_505__TRANSLATEINITMODULE_DOCMD*/ - /*_._VALCLO___V602*/ - meltfptr[601] = (melt_ptr_t) &meltcdat->dclo_505__TRANSLATEINITMODULE_DOCMD; + /*_._VALCLO___V602*/ meltfptr[601] = (melt_ptr_t) &meltcdat->dclo_505__TRANSLATEINITMODULE_DOCMD; meltcdat->dclo_505__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_505__TRANSLATEINITMODULE_DOCMD.nbval = 0; /*inistring dstr_506__quicklybuilt*/ - /*_._VALSTR___V599*/ - meltfptr[598] = (melt_ptr_t) &meltcdat->dstr_506__quicklybuilt; + /*_._VALSTR___V599*/ meltfptr[598] = (melt_ptr_t) &meltcdat->dstr_506__quicklybuilt; meltcdat->dstr_506__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_506__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_506__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_506__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_506__quicklybuilt.val)-1); meltcdat->dstr_506__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_506__quicklybuilt.slen = 12 ; /*inistring dstr_507__debugnoline*/ - /*_._VALSTR___V600*/ - meltfptr[599] = (melt_ptr_t) &meltcdat->dstr_507__debugnoline; + /*_._VALSTR___V600*/ meltfptr[599] = (melt_ptr_t) &meltcdat->dstr_507__debugnoline; meltcdat->dstr_507__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_507__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_507__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_507__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_507__debugnoline.val)-1); meltcdat->dstr_507__debugnoline.val[11] = (char)0 ; meltcdat->dstr_507__debugnoline.slen = 11 ; /*inistring dstr_508__optimized*/ - /*_._VALSTR___V601*/ - meltfptr[600] = (melt_ptr_t) &meltcdat->dstr_508__optimized; + /*_._VALSTR___V601*/ meltfptr[600] = (melt_ptr_t) &meltcdat->dstr_508__optimized; meltcdat->dstr_508__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_508__optimized.val, "optimized", sizeof (meltcdat->dstr_508__optimized.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_508__optimized.val, "optimized", sizeof (meltcdat->dstr_508__optimized.val)-1); meltcdat->dstr_508__optimized.val[9] = (char)0 ; meltcdat->dstr_508__optimized.slen = 9 ; /*iniobj dsym_509__TRANSLATEINITMODULE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V603*/ meltfptr[602]) + /*uniqueobj*/ if (!/*_._VALDATA___V603*/ meltfptr[602]) /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t )&meltcdat->dsym_509__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__TRANSLATEINITMODULE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_509__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14906,19 +13383,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_510__TRANSLATEINITMODULE_MODE*/ - /*_._VALSTR___V604*/ - meltfptr[603] = (melt_ptr_t) &meltcdat->dstr_510__TRANSLATEINITMODULE_MODE; + /*_._VALSTR___V604*/ meltfptr[603] = (melt_ptr_t) &meltcdat->dstr_510__TRANSLATEINITMODULE_MODE; meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.val, "TRANSLATEINITMODULE_MODE", sizeof (meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.val, "TRANSLATEINITMODULE_MODE", sizeof (meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.val)-1); meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.val[24] = (char)0 ; meltcdat->dstr_510__TRANSLATEINITMODULE_MODE.slen = 24 ; MELT_LOCATION("warmelt-modes.melt:4848:/ iniobj"); /*iniobj dobj_511__TRANSLATEINITMODULE_MODE*/ - /*_._VALDATA___V605*/ - meltfptr[604] = (melt_ptr_t )&meltcdat->dobj_511__TRANSLATEINITMODULE_MODE; + /*_._VALDATA___V605*/ meltfptr[604] = (melt_ptr_t )&meltcdat->dobj_511__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_511__TRANSLATEINITMODULE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_511__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_511__TRANSLATEINITMODULE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14927,11 +13401,9 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_512__translate_the_very_first*/ - /*_._VALSTR___V606*/ - meltfptr[605] = (melt_ptr_t) &meltcdat->dstr_512__translate_the_very_first; + /*_._VALSTR___V606*/ meltfptr[605] = (melt_ptr_t) &meltcdat->dstr_512__translate_the_very_first; meltcdat->dstr_512__translate_the_very_first.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_512__translate_the_very_first.val, "translate the very first *.melt file into quicklybuilt, optimized,\ + /*small inistring*/ strncpy(meltcdat->dstr_512__translate_the_very_first.val, "translate the very first *.melt file into quicklybuilt, optimized,\ debugnoline falvors of modules;\n\ \n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (meltcdat->dstr_512__translate_the_very_first.val)-1); @@ -14939,33 +13411,28 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m meltcdat->dstr_512__translate_the_very_first.slen = 188 ; /*inirout drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V607*/ - meltfptr[606] = (melt_ptr_t) &meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V607*/ meltfptr[606] = (melt_ptr_t) &meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.routdescr, "TRANSLATEINITMODULEQUICKLYBUILT_DOCMD @warmelt-modes.melt:4858", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_513__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD, meltrout_73_WARMELTmiMODES_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD); /*iniclos dclo_514__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD*/ - /*_._VALCLO___V609*/ - meltfptr[608] = (melt_ptr_t) &meltcdat->dclo_514__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; + /*_._VALCLO___V609*/ meltfptr[608] = (melt_ptr_t) &meltcdat->dclo_514__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; meltcdat->dclo_514__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_514__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 0; /*inistring dstr_515__quicklybuilt*/ - /*_._VALSTR___V608*/ - meltfptr[607] = (melt_ptr_t) &meltcdat->dstr_515__quicklybuilt; + /*_._VALSTR___V608*/ meltfptr[607] = (melt_ptr_t) &meltcdat->dstr_515__quicklybuilt; meltcdat->dstr_515__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_515__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_515__quicklybuilt.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_515__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_515__quicklybuilt.val)-1); meltcdat->dstr_515__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_515__quicklybuilt.slen = 12 ; /*iniobj dsym_516__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V610*/ meltfptr[609]) + /*uniqueobj*/ if (!/*_._VALDATA___V610*/ meltfptr[609]) /*_._VALDATA___V610*/ meltfptr[609] = (melt_ptr_t )&meltcdat->dsym_516__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_516__TRANSLATEINITMODULEQUICKLYBUILT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_516__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -14975,19 +13442,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_517__TRANSLATEINITMODULEQUICK*/ - /*_._VALSTR___V611*/ - meltfptr[610] = (melt_ptr_t) &meltcdat->dstr_517__TRANSLATEINITMODULEQUICK; + /*_._VALSTR___V611*/ meltfptr[610] = (melt_ptr_t) &meltcdat->dstr_517__TRANSLATEINITMODULEQUICK; meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.val, "TRANSLATEINITMODULEQUICKLYBUILT_MODE", sizeof (meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.val, "TRANSLATEINITMODULEQUICKLYBUILT_MODE", sizeof (meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.val)-1); meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.val[36] = (char)0 ; meltcdat->dstr_517__TRANSLATEINITMODULEQUICK.slen = 36 ; MELT_LOCATION("warmelt-modes.melt:4865:/ iniobj"); /*iniobj dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ - /*_._VALDATA___V612*/ - meltfptr[611] = (melt_ptr_t )&meltcdat->dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE; + /*_._VALDATA___V612*/ meltfptr[611] = (melt_ptr_t )&meltcdat->dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_518__TRANSLATEINITMODULEQUICKLYBUILT_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -14996,44 +13460,37 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_519__translate_the_very_first*/ - /*_._VALSTR___V613*/ - meltfptr[612] = (melt_ptr_t) &meltcdat->dstr_519__translate_the_very_first; + /*_._VALSTR___V613*/ meltfptr[612] = (melt_ptr_t) &meltcdat->dstr_519__translate_the_very_first; meltcdat->dstr_519__translate_the_very_first.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_519__translate_the_very_first.val, "translate the very first *.melt file into quicklybuilt module;\ + /*small inistring*/ strncpy(meltcdat->dstr_519__translate_the_very_first.val, "translate the very first *.melt file into quicklybuilt module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (meltcdat->dstr_519__translate_the_very_first.val)-1); meltcdat->dstr_519__translate_the_very_first.val[152] = (char)0 ; meltcdat->dstr_519__translate_the_very_first.slen = 152 ; /*inirout drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V614*/ - meltfptr[613] = (melt_ptr_t) &meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V614*/ meltfptr[613] = (melt_ptr_t) &meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.routdescr, "TRANSLATEINITMODULEDEBUGNOLINE_DOCMD @warmelt-modes.melt:4875", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_520__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD, meltrout_74_WARMELTmiMODES_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD); /*iniclos dclo_521__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD*/ - /*_._VALCLO___V616*/ - meltfptr[615] = (melt_ptr_t) &meltcdat->dclo_521__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; + /*_._VALCLO___V616*/ meltfptr[615] = (melt_ptr_t) &meltcdat->dclo_521__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; meltcdat->dclo_521__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_521__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 0; /*inistring dstr_522__debugnoline*/ - /*_._VALSTR___V615*/ - meltfptr[614] = (melt_ptr_t) &meltcdat->dstr_522__debugnoline; + /*_._VALSTR___V615*/ meltfptr[614] = (melt_ptr_t) &meltcdat->dstr_522__debugnoline; meltcdat->dstr_522__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_522__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_522__debugnoline.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_522__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_522__debugnoline.val)-1); meltcdat->dstr_522__debugnoline.val[11] = (char)0 ; meltcdat->dstr_522__debugnoline.slen = 11 ; /*iniobj dsym_523__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V617*/ meltfptr[616]) + /*uniqueobj*/ if (!/*_._VALDATA___V617*/ meltfptr[616]) /*_._VALDATA___V617*/ meltfptr[616] = (melt_ptr_t )&meltcdat->dsym_523__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__TRANSLATEINITMODULEDEBUGNOLINE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_523__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15043,19 +13500,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_524__TRANSLATEINITMODULEDEBUG*/ - /*_._VALSTR___V618*/ - meltfptr[617] = (melt_ptr_t) &meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG; + /*_._VALSTR___V618*/ meltfptr[617] = (melt_ptr_t) &meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG; meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.val, "TRANSLATEINITMODULEDEBUGNOLINE_MODE", sizeof (meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.val, "TRANSLATEINITMODULEDEBUGNOLINE_MODE", sizeof (meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.val)-1); meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.val[35] = (char)0 ; meltcdat->dstr_524__TRANSLATEINITMODULEDEBUG.slen = 35 ; MELT_LOCATION("warmelt-modes.melt:4882:/ iniobj"); /*iniobj dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ - /*_._VALDATA___V619*/ - meltfptr[618] = (melt_ptr_t )&meltcdat->dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE; + /*_._VALDATA___V619*/ meltfptr[618] = (melt_ptr_t )&meltcdat->dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_525__TRANSLATEINITMODULEDEBUGNOLINE_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -15064,44 +13518,37 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_526__translate_the_very_first*/ - /*_._VALSTR___V620*/ - meltfptr[619] = (melt_ptr_t) &meltcdat->dstr_526__translate_the_very_first; + /*_._VALSTR___V620*/ meltfptr[619] = (melt_ptr_t) &meltcdat->dstr_526__translate_the_very_first; meltcdat->dstr_526__translate_the_very_first.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_526__translate_the_very_first.val, "translate the very first *.melt file into debugnoline module;\ + /*small inistring*/ strncpy(meltcdat->dstr_526__translate_the_very_first.val, "translate the very first *.melt file into debugnoline module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (meltcdat->dstr_526__translate_the_very_first.val)-1); meltcdat->dstr_526__translate_the_very_first.val[151] = (char)0 ; meltcdat->dstr_526__translate_the_very_first.slen = 151 ; /*inirout drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD*/ - /*iniroutlocvar*/ /*_._VALROUT___V621*/ - meltfptr[620] = (melt_ptr_t) &meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD; + /*iniroutlocvar*/ /*_._VALROUT___V621*/ meltfptr[620] = (melt_ptr_t) &meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD; meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD.routdescr, "TRANSLATEINITMODULEOPTIMIZED_DOCMD @warmelt-modes.melt:4892", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_527__TRANSLATEINITMODULEOPTIMIZED_DOCMD, meltrout_75_WARMELTmiMODES_TRANSLATEINITMODULEOPTIMIZED_DOCMD); /*iniclos dclo_528__TRANSLATEINITMODULEOPTIMIZED_DOCMD*/ - /*_._VALCLO___V623*/ - meltfptr[622] = (melt_ptr_t) &meltcdat->dclo_528__TRANSLATEINITMODULEOPTIMIZED_DOCMD; + /*_._VALCLO___V623*/ meltfptr[622] = (melt_ptr_t) &meltcdat->dclo_528__TRANSLATEINITMODULEOPTIMIZED_DOCMD; meltcdat->dclo_528__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_528__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_529__optimized*/ - /*_._VALSTR___V622*/ - meltfptr[621] = (melt_ptr_t) &meltcdat->dstr_529__optimized; + /*_._VALSTR___V622*/ meltfptr[621] = (melt_ptr_t) &meltcdat->dstr_529__optimized; meltcdat->dstr_529__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_529__optimized.val, "optimized", sizeof (meltcdat->dstr_529__optimized.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_529__optimized.val, "optimized", sizeof (meltcdat->dstr_529__optimized.val)-1); meltcdat->dstr_529__optimized.val[9] = (char)0 ; meltcdat->dstr_529__optimized.slen = 9 ; /*iniobj dsym_530__TRANSLATEINITMODULEOPTIMIZED_MODE*/ - /*uniqueobj*/ - if (!/*_._VALDATA___V624*/ meltfptr[623]) + /*uniqueobj*/ if (!/*_._VALDATA___V624*/ meltfptr[623]) /*_._VALDATA___V624*/ meltfptr[623] = (melt_ptr_t )&meltcdat->dsym_530__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_530__TRANSLATEINITMODULEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_530__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); @@ -15111,19 +13558,16 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_531__TRANSLATEINITMODULEOPTIM*/ - /*_._VALSTR___V625*/ - meltfptr[624] = (melt_ptr_t) &meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM; + /*_._VALSTR___V625*/ meltfptr[624] = (melt_ptr_t) &meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM; meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.val, "TRANSLATEINITMODULEOPTIMIZED_MODE", sizeof (meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.val)-1); + /*small inistring*/ strncpy(meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.val, "TRANSLATEINITMODULEOPTIMIZED_MODE", sizeof (meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.val)-1); meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.val[33] = (char)0 ; meltcdat->dstr_531__TRANSLATEINITMODULEOPTIM.slen = 33 ; MELT_LOCATION("warmelt-modes.melt:4899:/ iniobj"); /*iniobj dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE*/ - /*_._VALDATA___V626*/ - meltfptr[625] = (melt_ptr_t )&meltcdat->dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE; + /*_._VALDATA___V626*/ meltfptr[625] = (melt_ptr_t )&meltcdat->dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) (/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_532__TRANSLATEINITMODULEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); @@ -15132,11 +13576,9 @@ FIX; COUTPUT= generated *.cc file\n.", sizeof (meltcdat->dstr_481__translate_a_m /*inistring dstr_533__translate_the_very_first*/ - /*_._VALSTR___V627*/ - meltfptr[626] = (melt_ptr_t) &meltcdat->dstr_533__translate_the_very_first; + /*_._VALSTR___V627*/ meltfptr[626] = (melt_ptr_t) &meltcdat->dstr_533__translate_the_very_first; meltcdat->dstr_533__translate_the_very_first.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); - /*small inistring*/ - strncpy(meltcdat->dstr_533__translate_the_very_first.val, "translate the very first *.melt file into optimized module;\ + /*small inistring*/ strncpy(meltcdat->dstr_533__translate_the_very_first.val, "translate the very first *.melt file into optimized module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (meltcdat->dstr_533__translate_the_very_first.val)-1); meltcdat->dstr_533__translate_the_very_first.val[149] = (char)0 ; @@ -15180,8 +13622,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) debugeprintf("sizeof Melt_InitialFrame in melt_start_this_module=%d", (int) sizeof(Melt_InitialFrame)); - /* classy initial frame melt_start_this_module fromline 1773*/ - Melt_InitialFrame + /* classy initial frame melt_start_this_module fromline 1773*/ Melt_InitialFrame meltfram__ /*declfrastruct fromline 1780*/ /*classyinitroutinearg melt_start_this_module fromline 1819*/ #if ENABLE_CHECKING @@ -15195,14 +13636,12 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) /**COMMENT: get previous environment **/; /*^compute*/ - /*_._PREVENV___V4*/ - meltfptr[3] = /*getprevenv*/ (melt_ptr_t) modargp_; + /*_._PREVENV___V4*/ meltfptr[3] = /*getprevenv*/ (melt_ptr_t) modargp_; /*^comment*/ /**COMMENT: compute boxloc **/; /*^cond*/ - /*cond*/ - if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ + /*cond*/ if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ { } else /*^cond.else*/ @@ -15238,8 +13677,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", (long) MELT_GET); - /*_._VALDATA___V95*/ - meltfptr[94] = (melt_ptr_t) meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; + /*_._VALDATA___V95*/ meltfptr[94] = (melt_ptr_t) meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; } /*endgetnamedsym HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ @@ -15252,8 +13690,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_DEBUG_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_DEBUG_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_DEBUG_FUN", (long) MELT_GET); - /*_._VALDATA___V99*/ - meltfptr[98] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; + /*_._VALDATA___V99*/ meltfptr[98] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; } /*endgetnamedsym MELT_DEBUG_FUN*/ @@ -15266,8 +13703,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_MELT_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_MELT_MODE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_MELT_MODE", (long) MELT_GET); - /*_._VALDATA___V101*/ - meltfptr[100] = (melt_ptr_t) meltsy_CLASS_MELT_MODE; + /*_._VALDATA___V101*/ meltfptr[100] = (melt_ptr_t) meltsy_CLASS_MELT_MODE; } /*endgetnamedsym CLASS_MELT_MODE*/ @@ -15280,8 +13716,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_ASSERT_FAILURE_FUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_ASSERT_FAILURE_FUN = melthookproc_HOOK_NAMED_SYMBOL ("MELT_ASSERT_FAILURE_FUN", (long) MELT_GET); - /*_._VALDATA___V103*/ - meltfptr[102] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; + /*_._VALDATA___V103*/ meltfptr[102] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; } /*endgetnamedsym MELT_ASSERT_FAILURE_FUN*/ @@ -15294,8 +13729,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol INITIAL_SYSTEM_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INITIAL_SYSTEM_DATA = melthookproc_HOOK_NAMED_SYMBOL ("INITIAL_SYSTEM_DATA", (long) MELT_GET); - /*_._VALDATA___V105*/ - meltfptr[104] = (melt_ptr_t) meltsy_INITIAL_SYSTEM_DATA; + /*_._VALDATA___V105*/ meltfptr[104] = (melt_ptr_t) meltsy_INITIAL_SYSTEM_DATA; } /*endgetnamedsym INITIAL_SYSTEM_DATA*/ @@ -15308,8 +13742,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SYSTEM_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SYSTEM_DATA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SYSTEM_DATA", (long) MELT_GET); - /*_._VALDATA___V107*/ - meltfptr[106] = (melt_ptr_t) meltsy_CLASS_SYSTEM_DATA; + /*_._VALDATA___V107*/ meltfptr[106] = (melt_ptr_t) meltsy_CLASS_SYSTEM_DATA; } /*endgetnamedsym CLASS_SYSTEM_DATA*/ @@ -15322,8 +13755,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_NAMED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NAMED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NAMED", (long) MELT_GET); - /*_._VALDATA___V109*/ - meltfptr[108] = (melt_ptr_t) meltsy_CLASS_NAMED; + /*_._VALDATA___V109*/ meltfptr[108] = (melt_ptr_t) meltsy_CLASS_NAMED; } /*endgetnamedsym CLASS_NAMED*/ @@ -15336,8 +13768,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_STRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_STRING = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRING", (long) MELT_GET); - /*_._VALDATA___V111*/ - meltfptr[110] = (melt_ptr_t) meltsy_DISCR_STRING; + /*_._VALDATA___V111*/ meltfptr[110] = (melt_ptr_t) meltsy_DISCR_STRING; } /*endgetnamedsym DISCR_STRING*/ @@ -15350,8 +13781,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol INSTALL_MELT_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INSTALL_MELT_MODE = melthookproc_HOOK_NAMED_SYMBOL ("INSTALL_MELT_MODE", (long) MELT_GET); - /*_._VALDATA___V113*/ - meltfptr[112] = (melt_ptr_t) meltsy_INSTALL_MELT_MODE; + /*_._VALDATA___V113*/ meltfptr[112] = (melt_ptr_t) meltsy_INSTALL_MELT_MODE; } /*endgetnamedsym INSTALL_MELT_MODE*/ @@ -15364,8 +13794,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol INITIAL_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INITIAL_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("INITIAL_ENVIRONMENT", (long) MELT_GET); - /*_._VALDATA___V121*/ - meltfptr[120] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; + /*_._VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; } /*endgetnamedsym INITIAL_ENVIRONMENT*/ @@ -15378,8 +13807,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ENVIRONMENT", (long) MELT_GET); - /*_._VALDATA___V123*/ - meltfptr[122] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; + /*_._VALDATA___V123*/ meltfptr[122] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; } /*endgetnamedsym CLASS_ENVIRONMENT*/ @@ -15392,8 +13820,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol ERROR_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ERROR_AT = melthookproc_HOOK_NAMED_SYMBOL ("ERROR_AT", (long) MELT_GET); - /*_._VALDATA___V125*/ - meltfptr[124] = (melt_ptr_t) meltsy_ERROR_AT; + /*_._VALDATA___V125*/ meltfptr[124] = (melt_ptr_t) meltsy_ERROR_AT; } /*endgetnamedsym ERROR_AT*/ @@ -15406,8 +13833,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATE_TO_CC_MODULE_MELT_SOURCES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATE_TO_CC_MODULE_MELT_SOURCES = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATE_TO_CC_MODULE_MELT_SOURCES", (long) MELT_GET); - /*_._VALDATA___V127*/ - meltfptr[126] = (melt_ptr_t) meltsy_TRANSLATE_TO_CC_MODULE_MELT_SOURCES; + /*_._VALDATA___V127*/ meltfptr[126] = (melt_ptr_t) meltsy_TRANSLATE_TO_CC_MODULE_MELT_SOURCES; } /*endgetnamedsym TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ @@ -15427,8 +13853,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RUNFILE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RUNFILE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("RUNFILE_MODE", (long) MELT_GET); - /*_._VALDATA___V129*/ - meltfptr[128] = (melt_ptr_t) meltsy_RUNFILE_MODE; + /*_._VALDATA___V129*/ meltfptr[128] = (melt_ptr_t) meltsy_RUNFILE_MODE; } /*endgetnamedsym RUNFILE_MODE*/ @@ -15441,8 +13866,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RUNDEBUG_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RUNDEBUG_MODE = melthookproc_HOOK_NAMED_SYMBOL ("RUNDEBUG_MODE", (long) MELT_GET); - /*_._VALDATA___V137*/ - meltfptr[136] = (melt_ptr_t) meltsy_RUNDEBUG_MODE; + /*_._VALDATA___V137*/ meltfptr[136] = (melt_ptr_t) meltsy_RUNDEBUG_MODE; } /*endgetnamedsym RUNDEBUG_MODE*/ @@ -15455,8 +13879,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_MAP_OBJECTS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MAP_OBJECTS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_OBJECTS", (long) MELT_GET); - /*_._VALDATA___V145*/ - meltfptr[144] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; + /*_._VALDATA___V145*/ meltfptr[144] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; } /*endgetnamedsym DISCR_MAP_OBJECTS*/ @@ -15469,8 +13892,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol FRESH_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FRESH_ENV = melthookproc_HOOK_NAMED_SYMBOL ("FRESH_ENV", (long) MELT_GET); - /*_._VALDATA___V147*/ - meltfptr[146] = (melt_ptr_t) meltsy_FRESH_ENV; + /*_._VALDATA___V147*/ meltfptr[146] = (melt_ptr_t) meltsy_FRESH_ENV; } /*endgetnamedsym FRESH_ENV*/ @@ -15483,8 +13905,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol EVAL-MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVALmiMODE = melthookproc_HOOK_NAMED_SYMBOL ("EVAL-MODE", (long) MELT_GET); - /*_._VALDATA___V142*/ - meltfptr[141] = (melt_ptr_t) meltsy_EVALmiMODE; + /*_._VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) meltsy_EVALmiMODE; } /*endgetnamedsym EVAL-MODE*/ @@ -15497,8 +13918,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATE_RUN_MELT_EXPRESSIONS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATE_RUN_MELT_EXPRESSIONS = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATE_RUN_MELT_EXPRESSIONS", (long) MELT_GET); - /*_._VALDATA___V149*/ - meltfptr[148] = (melt_ptr_t) meltsy_TRANSLATE_RUN_MELT_EXPRESSIONS; + /*_._VALDATA___V149*/ meltfptr[148] = (melt_ptr_t) meltsy_TRANSLATE_RUN_MELT_EXPRESSIONS; } /*endgetnamedsym TRANSLATE_RUN_MELT_EXPRESSIONS*/ @@ -15511,8 +13931,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DEBUG_OUTPUT_INFORMATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEBUG_OUTPUT_INFORMATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEBUG_OUTPUT_INFORMATION", (long) MELT_GET); - /*_._VALDATA___V151*/ - meltfptr[150] = (melt_ptr_t) meltsy_CLASS_DEBUG_OUTPUT_INFORMATION; + /*_._VALDATA___V151*/ meltfptr[150] = (melt_ptr_t) meltsy_CLASS_DEBUG_OUTPUT_INFORMATION; } /*endgetnamedsym CLASS_DEBUG_OUTPUT_INFORMATION*/ @@ -15525,8 +13944,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol ADD2OUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ADD2OUT = melthookproc_HOOK_NAMED_SYMBOL ("ADD2OUT", (long) MELT_GET); - /*_._VALDATA___V153*/ - meltfptr[152] = (melt_ptr_t) meltsy_ADD2OUT; + /*_._VALDATA___V153*/ meltfptr[152] = (melt_ptr_t) meltsy_ADD2OUT; } /*endgetnamedsym ADD2OUT*/ @@ -15539,8 +13957,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DBG_OUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DBG_OUT = melthookproc_HOOK_NAMED_SYMBOL ("DBG_OUT", (long) MELT_GET); - /*_._VALDATA___V155*/ - meltfptr[154] = (melt_ptr_t) meltsy_DBG_OUT; + /*_._VALDATA___V155*/ meltfptr[154] = (melt_ptr_t) meltsy_DBG_OUT; } /*endgetnamedsym DBG_OUT*/ @@ -15553,8 +13970,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol EVAL_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVAL_MODE = melthookproc_HOOK_NAMED_SYMBOL ("EVAL_MODE", (long) MELT_GET); - /*_._VALDATA___V157*/ - meltfptr[156] = (melt_ptr_t) meltsy_EVAL_MODE; + /*_._VALDATA___V157*/ meltfptr[156] = (melt_ptr_t) meltsy_EVAL_MODE; } /*endgetnamedsym EVAL_MODE*/ @@ -15567,8 +13983,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol EVAL-FILE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVALmiFILE = melthookproc_HOOK_NAMED_SYMBOL ("EVAL-FILE", (long) MELT_GET); - /*_._VALDATA___V162*/ - meltfptr[161] = (melt_ptr_t) meltsy_EVALmiFILE; + /*_._VALDATA___V162*/ meltfptr[161] = (melt_ptr_t) meltsy_EVALmiFILE; } /*endgetnamedsym EVAL-FILE*/ @@ -15581,8 +13996,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_CONSTANT_INTEGER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_CONSTANT_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_CONSTANT_INTEGER", (long) MELT_GET); - /*_._VALDATA___V165*/ - meltfptr[164] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; + /*_._VALDATA___V165*/ meltfptr[164] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; } /*endgetnamedsym DISCR_CONSTANT_INTEGER*/ @@ -15595,8 +14009,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol EVALFILE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVALFILE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("EVALFILE_MODE", (long) MELT_GET); - /*_._VALDATA___V167*/ - meltfptr[166] = (melt_ptr_t) meltsy_EVALFILE_MODE; + /*_._VALDATA___V167*/ meltfptr[166] = (melt_ptr_t) meltsy_EVALFILE_MODE; } /*endgetnamedsym EVALFILE_MODE*/ @@ -15609,8 +14022,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_READ_EVAL_PRINT_LOOP_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_READ_EVAL_PRINT_LOOP_DATA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_READ_EVAL_PRINT_LOOP_DATA", (long) MELT_GET); - /*_._VALDATA___V171*/ - meltfptr[170] = (melt_ptr_t) meltsy_CLASS_READ_EVAL_PRINT_LOOP_DATA; + /*_._VALDATA___V171*/ meltfptr[170] = (melt_ptr_t) meltsy_CLASS_READ_EVAL_PRINT_LOOP_DATA; } /*endgetnamedsym CLASS_READ_EVAL_PRINT_LOOP_DATA*/ @@ -15623,8 +14035,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_PROPED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PROPED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PROPED", (long) MELT_GET); - /*_._VALDATA___V173*/ - meltfptr[172] = (melt_ptr_t) meltsy_CLASS_PROPED; + /*_._VALDATA___V173*/ meltfptr[172] = (melt_ptr_t) meltsy_CLASS_PROPED; } /*endgetnamedsym CLASS_PROPED*/ @@ -15637,8 +14048,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REPL_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REPL_ENV = melthookproc_HOOK_NAMED_SYMBOL ("REPL_ENV", (long) MELT_GET); - /*_._VALDATA___V187*/ - meltfptr[186] = (melt_ptr_t) meltsy_REPL_ENV; + /*_._VALDATA___V187*/ meltfptr[186] = (melt_ptr_t) meltsy_REPL_ENV; } /*endgetnamedsym REPL_ENV*/ @@ -15651,8 +14061,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REPL_COUNTER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REPL_COUNTER = melthookproc_HOOK_NAMED_SYMBOL ("REPL_COUNTER", (long) MELT_GET); - /*_._VALDATA___V189*/ - meltfptr[188] = (melt_ptr_t) meltsy_REPL_COUNTER; + /*_._VALDATA___V189*/ meltfptr[188] = (melt_ptr_t) meltsy_REPL_COUNTER; } /*endgetnamedsym REPL_COUNTER*/ @@ -15665,8 +14074,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REPL_CONTREF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REPL_CONTREF = melthookproc_HOOK_NAMED_SYMBOL ("REPL_CONTREF", (long) MELT_GET); - /*_._VALDATA___V191*/ - meltfptr[190] = (melt_ptr_t) meltsy_REPL_CONTREF; + /*_._VALDATA___V191*/ meltfptr[190] = (melt_ptr_t) meltsy_REPL_CONTREF; } /*endgetnamedsym REPL_CONTREF*/ @@ -15679,8 +14087,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REPL_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REPL_DATA = melthookproc_HOOK_NAMED_SYMBOL ("REPL_DATA", (long) MELT_GET); - /*_._VALDATA___V193*/ - meltfptr[192] = (melt_ptr_t) meltsy_REPL_DATA; + /*_._VALDATA___V193*/ meltfptr[192] = (melt_ptr_t) meltsy_REPL_DATA; } /*endgetnamedsym REPL_DATA*/ @@ -15693,8 +14100,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_INPUT_CHANNEL_HANDLER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INPUT_CHANNEL_HANDLER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INPUT_CHANNEL_HANDLER", (long) MELT_GET); - /*_._VALDATA___V197*/ - meltfptr[196] = (melt_ptr_t) meltsy_CLASS_INPUT_CHANNEL_HANDLER; + /*_._VALDATA___V197*/ meltfptr[196] = (melt_ptr_t) meltsy_CLASS_INPUT_CHANNEL_HANDLER; } /*endgetnamedsym CLASS_INPUT_CHANNEL_HANDLER*/ @@ -15707,8 +14113,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V199*/ - meltfptr[198] = (melt_ptr_t) meltsy_CLASS_REFERENCE; + /*_._VALDATA___V199*/ meltfptr[198] = (melt_ptr_t) meltsy_CLASS_REFERENCE; } /*endgetnamedsym CLASS_REFERENCE*/ @@ -15721,8 +14126,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DEBUG_INFORMATION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DEBUG_INFORMATION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DEBUG_INFORMATION", (long) MELT_GET); - /*_._VALDATA___V201*/ - meltfptr[200] = (melt_ptr_t) meltsy_CLASS_DEBUG_INFORMATION; + /*_._VALDATA___V201*/ meltfptr[200] = (melt_ptr_t) meltsy_CLASS_DEBUG_INFORMATION; } /*endgetnamedsym CLASS_DEBUG_INFORMATION*/ @@ -15735,8 +14139,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_INTEGER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_INTEGER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_INTEGER", (long) MELT_GET); - /*_._VALDATA___V220*/ - meltfptr[219] = (melt_ptr_t) meltsy_DISCR_INTEGER; + /*_._VALDATA___V220*/ meltfptr[219] = (melt_ptr_t) meltsy_DISCR_INTEGER; } /*endgetnamedsym DISCR_INTEGER*/ @@ -15749,8 +14152,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol GET_POLLING_INPUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_POLLING_INPUT = melthookproc_HOOK_NAMED_SYMBOL ("GET_POLLING_INPUT", (long) MELT_GET); - /*_._VALDATA___V222*/ - meltfptr[221] = (melt_ptr_t) meltsy_GET_POLLING_INPUT; + /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) meltsy_GET_POLLING_INPUT; } /*endgetnamedsym GET_POLLING_INPUT*/ @@ -15763,8 +14165,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol HOOK_POLL_INPUTS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HOOK_POLL_INPUTS = melthookproc_HOOK_NAMED_SYMBOL ("HOOK_POLL_INPUTS", (long) MELT_GET); - /*_._VALDATA___V224*/ - meltfptr[223] = (melt_ptr_t) meltsy_HOOK_POLL_INPUTS; + /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) meltsy_HOOK_POLL_INPUTS; } /*endgetnamedsym HOOK_POLL_INPUTS*/ @@ -15777,8 +14178,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_VALUE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VALUE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VALUE_BINDING", (long) MELT_GET); - /*_._VALDATA___V226*/ - meltfptr[225] = (melt_ptr_t) meltsy_CLASS_VALUE_BINDING; + /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) meltsy_CLASS_VALUE_BINDING; } /*endgetnamedsym CLASS_VALUE_BINDING*/ @@ -15791,8 +14191,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CONTINUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CONTINUE = melthookproc_HOOK_NAMED_SYMBOL ("CONTINUE", (long) MELT_GET); - /*_._VALDATA___V208*/ - meltfptr[207] = (melt_ptr_t) meltsy_CONTINUE; + /*_._VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) meltsy_CONTINUE; } /*endgetnamedsym CONTINUE*/ @@ -15805,8 +14204,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol WAIT-REPL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WAITmiREPL = melthookproc_HOOK_NAMED_SYMBOL ("WAIT-REPL", (long) MELT_GET); - /*_._VALDATA___V210*/ - meltfptr[209] = (melt_ptr_t) meltsy_WAITmiREPL; + /*_._VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) meltsy_WAITmiREPL; } /*endgetnamedsym WAIT-REPL*/ @@ -15819,8 +14217,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol PUT_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_ENV = melthookproc_HOOK_NAMED_SYMBOL ("PUT_ENV", (long) MELT_GET); - /*_._VALDATA___V228*/ - meltfptr[227] = (melt_ptr_t) meltsy_PUT_ENV; + /*_._VALDATA___V228*/ meltfptr[227] = (melt_ptr_t) meltsy_PUT_ENV; } /*endgetnamedsym PUT_ENV*/ @@ -15833,8 +14230,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", (long) MELT_GET); - /*_._VALDATA___V230*/ - meltfptr[229] = (melt_ptr_t) meltsy_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER; + /*_._VALDATA___V230*/ meltfptr[229] = (melt_ptr_t) meltsy_REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER; } /*endgetnamedsym REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER*/ @@ -15847,8 +14243,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REGISTER_ALL_PASSES_END_FIRST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REGISTER_ALL_PASSES_END_FIRST = melthookproc_HOOK_NAMED_SYMBOL ("REGISTER_ALL_PASSES_END_FIRST", (long) MELT_GET); - /*_._VALDATA___V232*/ - meltfptr[231] = (melt_ptr_t) meltsy_REGISTER_ALL_PASSES_END_FIRST; + /*_._VALDATA___V232*/ meltfptr[231] = (melt_ptr_t) meltsy_REGISTER_ALL_PASSES_END_FIRST; } /*endgetnamedsym REGISTER_ALL_PASSES_END_FIRST*/ @@ -15861,8 +14256,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol AT_FINISH_UNIT_FIRST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AT_FINISH_UNIT_FIRST = melthookproc_HOOK_NAMED_SYMBOL ("AT_FINISH_UNIT_FIRST", (long) MELT_GET); - /*_._VALDATA___V234*/ - meltfptr[233] = (melt_ptr_t) meltsy_AT_FINISH_UNIT_FIRST; + /*_._VALDATA___V234*/ meltfptr[233] = (melt_ptr_t) meltsy_AT_FINISH_UNIT_FIRST; } /*endgetnamedsym AT_FINISH_UNIT_FIRST*/ @@ -15875,8 +14269,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol AT_EXIT_LAST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AT_EXIT_LAST = melthookproc_HOOK_NAMED_SYMBOL ("AT_EXIT_LAST", (long) MELT_GET); - /*_._VALDATA___V236*/ - meltfptr[235] = (melt_ptr_t) meltsy_AT_EXIT_LAST; + /*_._VALDATA___V236*/ meltfptr[235] = (melt_ptr_t) meltsy_AT_EXIT_LAST; } /*endgetnamedsym AT_EXIT_LAST*/ @@ -15889,8 +14282,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol REPL_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_REPL_MODE = melthookproc_HOOK_NAMED_SYMBOL ("REPL_MODE", (long) MELT_GET); - /*_._VALDATA___V238*/ - meltfptr[237] = (melt_ptr_t) meltsy_REPL_MODE; + /*_._VALDATA___V238*/ meltfptr[237] = (melt_ptr_t) meltsy_REPL_MODE; } /*endgetnamedsym REPL_MODE*/ @@ -15903,8 +14295,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_MAKEDOC_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_MAKEDOC_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_MAKEDOC_MODULE_CONTEXT", (long) MELT_GET); - /*_._VALDATA___V242*/ - meltfptr[241] = (melt_ptr_t) meltsy_CLASS_MAKEDOC_MODULE_CONTEXT; + /*_._VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) meltsy_CLASS_MAKEDOC_MODULE_CONTEXT; } /*endgetnamedsym CLASS_MAKEDOC_MODULE_CONTEXT*/ @@ -15917,8 +14308,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_ANY_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_MODULE_CONTEXT", (long) MELT_GET); - /*_._VALDATA___V244*/ - meltfptr[243] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; + /*_._VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; } /*endgetnamedsym CLASS_ANY_MODULE_CONTEXT*/ @@ -15931,8 +14321,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_PRIMITIVES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_PRIMITIVES = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_PRIMITIVES", (long) MELT_GET); - /*_._VALDATA___V282*/ - meltfptr[281] = (melt_ptr_t) meltsy_MKDOC_PRIMITIVES; + /*_._VALDATA___V282*/ meltfptr[281] = (melt_ptr_t) meltsy_MKDOC_PRIMITIVES; } /*endgetnamedsym MKDOC_PRIMITIVES*/ @@ -15945,8 +14334,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_FUNCTIONS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_FUNCTIONS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_FUNCTIONS", (long) MELT_GET); - /*_._VALDATA___V284*/ - meltfptr[283] = (melt_ptr_t) meltsy_MKDOC_FUNCTIONS; + /*_._VALDATA___V284*/ meltfptr[283] = (melt_ptr_t) meltsy_MKDOC_FUNCTIONS; } /*endgetnamedsym MKDOC_FUNCTIONS*/ @@ -15959,8 +14347,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_CITERATORS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_CITERATORS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_CITERATORS", (long) MELT_GET); - /*_._VALDATA___V286*/ - meltfptr[285] = (melt_ptr_t) meltsy_MKDOC_CITERATORS; + /*_._VALDATA___V286*/ meltfptr[285] = (melt_ptr_t) meltsy_MKDOC_CITERATORS; } /*endgetnamedsym MKDOC_CITERATORS*/ @@ -15973,8 +14360,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_CMATCHERS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_CMATCHERS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_CMATCHERS", (long) MELT_GET); - /*_._VALDATA___V288*/ - meltfptr[287] = (melt_ptr_t) meltsy_MKDOC_CMATCHERS; + /*_._VALDATA___V288*/ meltfptr[287] = (melt_ptr_t) meltsy_MKDOC_CMATCHERS; } /*endgetnamedsym MKDOC_CMATCHERS*/ @@ -15987,8 +14373,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_SELECTORS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_SELECTORS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_SELECTORS", (long) MELT_GET); - /*_._VALDATA___V290*/ - meltfptr[289] = (melt_ptr_t) meltsy_MKDOC_SELECTORS; + /*_._VALDATA___V290*/ meltfptr[289] = (melt_ptr_t) meltsy_MKDOC_SELECTORS; } /*endgetnamedsym MKDOC_SELECTORS*/ @@ -16001,8 +14386,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_FIELDS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_FIELDS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_FIELDS", (long) MELT_GET); - /*_._VALDATA___V292*/ - meltfptr[291] = (melt_ptr_t) meltsy_MKDOC_FIELDS; + /*_._VALDATA___V292*/ meltfptr[291] = (melt_ptr_t) meltsy_MKDOC_FIELDS; } /*endgetnamedsym MKDOC_FIELDS*/ @@ -16015,8 +14399,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_CLASSES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_CLASSES = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_CLASSES", (long) MELT_GET); - /*_._VALDATA___V294*/ - meltfptr[293] = (melt_ptr_t) meltsy_MKDOC_CLASSES; + /*_._VALDATA___V294*/ meltfptr[293] = (melt_ptr_t) meltsy_MKDOC_CLASSES; } /*endgetnamedsym MKDOC_CLASSES*/ @@ -16029,8 +14412,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_INSTANCES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_INSTANCES = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_INSTANCES", (long) MELT_GET); - /*_._VALDATA___V296*/ - meltfptr[295] = (melt_ptr_t) meltsy_MKDOC_INSTANCES; + /*_._VALDATA___V296*/ meltfptr[295] = (melt_ptr_t) meltsy_MKDOC_INSTANCES; } /*endgetnamedsym MKDOC_INSTANCES*/ @@ -16043,8 +14425,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_MACROS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_MACROS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_MACROS", (long) MELT_GET); - /*_._VALDATA___V298*/ - meltfptr[297] = (melt_ptr_t) meltsy_MKDOC_MACROS; + /*_._VALDATA___V298*/ meltfptr[297] = (melt_ptr_t) meltsy_MKDOC_MACROS; } /*endgetnamedsym MKDOC_MACROS*/ @@ -16057,8 +14438,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_PATMACROS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_PATMACROS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_PATMACROS", (long) MELT_GET); - /*_._VALDATA___V300*/ - meltfptr[299] = (melt_ptr_t) meltsy_MKDOC_PATMACROS; + /*_._VALDATA___V300*/ meltfptr[299] = (melt_ptr_t) meltsy_MKDOC_PATMACROS; } /*endgetnamedsym MKDOC_PATMACROS*/ @@ -16071,8 +14451,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_HOOKS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_HOOKS = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_HOOKS", (long) MELT_GET); - /*_._VALDATA___V302*/ - meltfptr[301] = (melt_ptr_t) meltsy_MKDOC_HOOKS; + /*_._VALDATA___V302*/ meltfptr[301] = (melt_ptr_t) meltsy_MKDOC_HOOKS; } /*endgetnamedsym MKDOC_HOOKS*/ @@ -16085,8 +14464,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_FORMALOCCMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_FORMALOCCMAP = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_FORMALOCCMAP", (long) MELT_GET); - /*_._VALDATA___V304*/ - meltfptr[303] = (melt_ptr_t) meltsy_MKDOC_FORMALOCCMAP; + /*_._VALDATA___V304*/ meltfptr[303] = (melt_ptr_t) meltsy_MKDOC_FORMALOCCMAP; } /*endgetnamedsym MKDOC_FORMALOCCMAP*/ @@ -16099,8 +14477,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_PREDEFMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_PREDEFMAP = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_PREDEFMAP", (long) MELT_GET); - /*_._VALDATA___V306*/ - meltfptr[305] = (melt_ptr_t) meltsy_MKDOC_PREDEFMAP; + /*_._VALDATA___V306*/ meltfptr[305] = (melt_ptr_t) meltsy_MKDOC_PREDEFMAP; } /*endgetnamedsym MKDOC_PREDEFMAP*/ @@ -16113,8 +14490,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_DOCSYMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_DOCSYMAP = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_DOCSYMAP", (long) MELT_GET); - /*_._VALDATA___V308*/ - meltfptr[307] = (melt_ptr_t) meltsy_MKDOC_DOCSYMAP; + /*_._VALDATA___V308*/ meltfptr[307] = (melt_ptr_t) meltsy_MKDOC_DOCSYMAP; } /*endgetnamedsym MKDOC_DOCSYMAP*/ @@ -16127,8 +14503,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_SUBCLASSMAP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_SUBCLASSMAP = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_SUBCLASSMAP", (long) MELT_GET); - /*_._VALDATA___V310*/ - meltfptr[309] = (melt_ptr_t) meltsy_MKDOC_SUBCLASSMAP; + /*_._VALDATA___V310*/ meltfptr[309] = (melt_ptr_t) meltsy_MKDOC_SUBCLASSMAP; } /*endgetnamedsym MKDOC_SUBCLASSMAP*/ @@ -16141,8 +14516,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MKDOC_BOXCOUNTER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MKDOC_BOXCOUNTER = melthookproc_HOOK_NAMED_SYMBOL ("MKDOC_BOXCOUNTER", (long) MELT_GET); - /*_._VALDATA___V312*/ - meltfptr[311] = (melt_ptr_t) meltsy_MKDOC_BOXCOUNTER; + /*_._VALDATA___V312*/ meltfptr[311] = (melt_ptr_t) meltsy_MKDOC_BOXCOUNTER; } /*endgetnamedsym MKDOC_BOXCOUNTER*/ @@ -16155,8 +14529,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SYMBOL", (long) MELT_GET); - /*_._VALDATA___V321*/ - meltfptr[320] = (melt_ptr_t) meltsy_CLASS_SYMBOL; + /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) meltsy_CLASS_SYMBOL; } /*endgetnamedsym CLASS_SYMBOL*/ @@ -16169,8 +14542,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FORMAL_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FORMAL_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FORMAL_BINDING", (long) MELT_GET); - /*_._VALDATA___V323*/ - meltfptr[322] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; + /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; } /*endgetnamedsym CLASS_FORMAL_BINDING*/ @@ -16183,8 +14555,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFINITION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINITION = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINITION", (long) MELT_GET); - /*_._VALDATA___V325*/ - meltfptr[324] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION; + /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION; } /*endgetnamedsym CLASS_SOURCE_DEFINITION*/ @@ -16197,8 +14568,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_ANY_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_BINDING", (long) MELT_GET); - /*_._VALDATA___V327*/ - meltfptr[326] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; + /*_._VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; } /*endgetnamedsym CLASS_ANY_BINDING*/ @@ -16211,8 +14581,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_LIST = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_LIST", (long) MELT_GET); - /*_._VALDATA___V329*/ - meltfptr[328] = (melt_ptr_t) meltsy_DISCR_LIST; + /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) meltsy_DISCR_LIST; } /*endgetnamedsym DISCR_LIST*/ @@ -16225,8 +14594,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFCLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCLASS", (long) MELT_GET); - /*_._VALDATA___V331*/ - meltfptr[330] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCLASS; + /*_._VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCLASS; } /*endgetnamedsym CLASS_SOURCE_DEFCLASS*/ @@ -16239,8 +14607,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SEXPR", (long) MELT_GET); - /*_._VALDATA___V333*/ - meltfptr[332] = (melt_ptr_t) meltsy_CLASS_SEXPR; + /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t) meltsy_CLASS_SEXPR; } /*endgetnamedsym CLASS_SEXPR*/ @@ -16253,8 +14620,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CLASS_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CLASS_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLASS_BINDING", (long) MELT_GET); - /*_._VALDATA___V335*/ - meltfptr[334] = (melt_ptr_t) meltsy_CLASS_CLASS_BINDING; + /*_._VALDATA___V335*/ meltfptr[334] = (melt_ptr_t) meltsy_CLASS_CLASS_BINDING; } /*endgetnamedsym CLASS_CLASS_BINDING*/ @@ -16267,8 +14633,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CLASS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CLASS = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLASS", (long) MELT_GET); - /*_._VALDATA___V337*/ - meltfptr[336] = (melt_ptr_t) meltsy_CLASS_CLASS; + /*_._VALDATA___V337*/ meltfptr[336] = (melt_ptr_t) meltsy_CLASS_CLASS; } /*endgetnamedsym CLASS_CLASS*/ @@ -16281,8 +14646,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_FIELD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIELD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIELD", (long) MELT_GET); - /*_._VALDATA___V339*/ - meltfptr[338] = (melt_ptr_t) meltsy_CLASS_FIELD; + /*_._VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) meltsy_CLASS_FIELD; } /*endgetnamedsym CLASS_FIELD*/ @@ -16295,8 +14659,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFSELECTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFSELECTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFSELECTOR", (long) MELT_GET); - /*_._VALDATA___V341*/ - meltfptr[340] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFSELECTOR; + /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFSELECTOR; } /*endgetnamedsym CLASS_SOURCE_DEFSELECTOR*/ @@ -16309,8 +14672,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFINSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINSTANCE", (long) MELT_GET); - /*_._VALDATA___V343*/ - meltfptr[342] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINSTANCE; + /*_._VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINSTANCE; } /*endgetnamedsym CLASS_SOURCE_DEFINSTANCE*/ @@ -16323,8 +14685,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFPRIMITIVE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFPRIMITIVE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFPRIMITIVE", (long) MELT_GET); - /*_._VALDATA___V345*/ - meltfptr[344] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; + /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_DEFPRIMITIVE*/ @@ -16337,8 +14698,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFMACRO", (long) MELT_GET); - /*_._VALDATA___V347*/ - meltfptr[346] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO; + /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFMACRO; } /*endgetnamedsym CLASS_SOURCE_DEFMACRO*/ @@ -16351,8 +14711,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFUN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFUN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFUN", (long) MELT_GET); - /*_._VALDATA___V349*/ - meltfptr[348] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUN; + /*_._VALDATA___V349*/ meltfptr[348] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFUN; } /*endgetnamedsym CLASS_SOURCE_DEFUN*/ @@ -16365,8 +14724,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFCITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCITERATOR", (long) MELT_GET); - /*_._VALDATA___V351*/ - meltfptr[350] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; + /*_._VALDATA___V351*/ meltfptr[350] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; } /*endgetnamedsym CLASS_SOURCE_DEFCITERATOR*/ @@ -16379,8 +14737,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFCMATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFCMATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFCMATCHER", (long) MELT_GET); - /*_._VALDATA___V353*/ - meltfptr[352] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; + /*_._VALDATA___V353*/ meltfptr[352] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFCMATCHER*/ @@ -16393,8 +14750,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_PATMACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_PATMACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_PATMACRO", (long) MELT_GET); - /*_._VALDATA___V355*/ - meltfptr[354] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_PATMACRO; + /*_._VALDATA___V355*/ meltfptr[354] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_PATMACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_PATMACRO*/ @@ -16407,8 +14763,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_MACRO", (long) MELT_GET); - /*_._VALDATA___V357*/ - meltfptr[356] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_MACRO; + /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_MACRO*/ @@ -16421,8 +14776,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFHOOK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFHOOK", (long) MELT_GET); - /*_._VALDATA___V359*/ - meltfptr[358] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFHOOK; + /*_._VALDATA___V359*/ meltfptr[358] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFHOOK; } /*endgetnamedsym CLASS_SOURCE_DEFHOOK*/ @@ -16435,8 +14789,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol INFORM_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_INFORM_AT = melthookproc_HOOK_NAMED_SYMBOL ("INFORM_AT", (long) MELT_GET); - /*_._VALDATA___V361*/ - meltfptr[360] = (melt_ptr_t) meltsy_INFORM_AT; + /*_._VALDATA___V361*/ meltfptr[360] = (melt_ptr_t) meltsy_INFORM_AT; } /*endgetnamedsym INFORM_AT*/ @@ -16449,8 +14802,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol WARNING_AT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WARNING_AT = melthookproc_HOOK_NAMED_SYMBOL ("WARNING_AT", (long) MELT_GET); - /*_._VALDATA___V363*/ - meltfptr[362] = (melt_ptr_t) meltsy_WARNING_AT; + /*_._VALDATA___V363*/ meltfptr[362] = (melt_ptr_t) meltsy_WARNING_AT; } /*endgetnamedsym WARNING_AT*/ @@ -16463,8 +14815,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_LOCATED without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LOCATED = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LOCATED", (long) MELT_GET); - /*_._VALDATA___V367*/ - meltfptr[366] = (melt_ptr_t) meltsy_CLASS_LOCATED; + /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t) meltsy_CLASS_LOCATED; } /*endgetnamedsym CLASS_LOCATED*/ @@ -16477,8 +14828,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_QUASI_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_QUASI_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_QUASI_CTYPE", (long) MELT_GET); - /*_._VALDATA___V371*/ - meltfptr[370] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE; + /*_._VALDATA___V371*/ meltfptr[370] = (melt_ptr_t) meltsy_CLASS_QUASI_CTYPE; } /*endgetnamedsym CLASS_QUASI_CTYPE*/ @@ -16491,8 +14841,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol LIST_TO_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_TO_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("LIST_TO_MULTIPLE", (long) MELT_GET); - /*_._VALDATA___V377*/ - meltfptr[376] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; + /*_._VALDATA___V377*/ meltfptr[376] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; } /*endgetnamedsym LIST_TO_MULTIPLE*/ @@ -16505,8 +14854,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_MULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MULTIPLE", (long) MELT_GET); - /*_._VALDATA___V379*/ - meltfptr[378] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; + /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; } /*endgetnamedsym DISCR_MULTIPLE*/ @@ -16519,8 +14867,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MULTIPLE_SORT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_SORT = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_SORT", (long) MELT_GET); - /*_._VALDATA___V381*/ - meltfptr[380] = (melt_ptr_t) meltsy_MULTIPLE_SORT; + /*_._VALDATA___V381*/ meltfptr[380] = (melt_ptr_t) meltsy_MULTIPLE_SORT; } /*endgetnamedsym MULTIPLE_SORT*/ @@ -16533,8 +14880,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol COMPARE_NAMED_ALPHA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPARE_NAMED_ALPHA = melthookproc_HOOK_NAMED_SYMBOL ("COMPARE_NAMED_ALPHA", (long) MELT_GET); - /*_._VALDATA___V383*/ - meltfptr[382] = (melt_ptr_t) meltsy_COMPARE_NAMED_ALPHA; + /*_._VALDATA___V383*/ meltfptr[382] = (melt_ptr_t) meltsy_COMPARE_NAMED_ALPHA; } /*endgetnamedsym COMPARE_NAMED_ALPHA*/ @@ -16547,8 +14893,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_EXPORT_ANY_MACRO without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_EXPORT_ANY_MACRO", (long) MELT_GET); - /*_._VALDATA___V388*/ - meltfptr[387] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO; + /*_._VALDATA___V388*/ meltfptr[387] = (melt_ptr_t) meltsy_CLASS_SOURCE_EXPORT_ANY_MACRO; } /*endgetnamedsym CLASS_SOURCE_EXPORT_ANY_MACRO*/ @@ -16561,8 +14906,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_SOURCE_DEFINITION_FORMAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SOURCE_DEFINITION_FORMAL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SOURCE_DEFINITION_FORMAL", (long) MELT_GET); - /*_._VALDATA___V404*/ - meltfptr[403] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION_FORMAL; + /*_._VALDATA___V404*/ meltfptr[403] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFINITION_FORMAL; } /*endgetnamedsym CLASS_SOURCE_DEFINITION_FORMAL*/ @@ -16575,8 +14919,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CITERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CITERATOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CITERATOR", (long) MELT_GET); - /*_._VALDATA___V417*/ - meltfptr[416] = (melt_ptr_t) meltsy_CLASS_CITERATOR; + /*_._VALDATA___V417*/ meltfptr[416] = (melt_ptr_t) meltsy_CLASS_CITERATOR; } /*endgetnamedsym CLASS_CITERATOR*/ @@ -16589,8 +14932,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_ANY_MATCHER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ANY_MATCHER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ANY_MATCHER", (long) MELT_GET); - /*_._VALDATA___V422*/ - meltfptr[421] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; + /*_._VALDATA___V422*/ meltfptr[421] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; } /*endgetnamedsym CLASS_ANY_MATCHER*/ @@ -16603,8 +14945,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_STRBUF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_STRBUF = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_STRBUF", (long) MELT_GET); - /*_._VALDATA___V429*/ - meltfptr[428] = (melt_ptr_t) meltsy_DISCR_STRBUF; + /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t) meltsy_DISCR_STRBUF; } /*endgetnamedsym DISCR_STRBUF*/ @@ -16617,8 +14958,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol STRING4OUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STRING4OUT = melthookproc_HOOK_NAMED_SYMBOL ("STRING4OUT", (long) MELT_GET); - /*_._VALDATA___V431*/ - meltfptr[430] = (melt_ptr_t) meltsy_STRING4OUT; + /*_._VALDATA___V431*/ meltfptr[430] = (melt_ptr_t) meltsy_STRING4OUT; } /*endgetnamedsym STRING4OUT*/ @@ -16631,8 +14971,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol BASE-DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BASEmiDOC = melthookproc_HOOK_NAMED_SYMBOL ("BASE-DOC", (long) MELT_GET); - /*_._VALDATA___V434*/ - meltfptr[433] = (melt_ptr_t) meltsy_BASEmiDOC; + /*_._VALDATA___V434*/ meltfptr[433] = (melt_ptr_t) meltsy_BASEmiDOC; } /*endgetnamedsym BASE-DOC*/ @@ -16645,8 +14984,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MACRO-DOC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROmiDOC = melthookproc_HOOK_NAMED_SYMBOL ("MACRO-DOC", (long) MELT_GET); - /*_._VALDATA___V436*/ - meltfptr[435] = (melt_ptr_t) meltsy_MACROmiDOC; + /*_._VALDATA___V436*/ meltfptr[435] = (melt_ptr_t) meltsy_MACROmiDOC; } /*endgetnamedsym MACRO-DOC*/ @@ -16659,8 +14997,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DISCR_MAP_STRINGS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_MAP_STRINGS = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_MAP_STRINGS", (long) MELT_GET); - /*_._VALDATA___V439*/ - meltfptr[438] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; + /*_._VALDATA___V439*/ meltfptr[438] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; } /*endgetnamedsym DISCR_MAP_STRINGS*/ @@ -16673,8 +15010,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol DEBUG_LESS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DEBUG_LESS = melthookproc_HOOK_NAMED_SYMBOL ("DEBUG_LESS", (long) MELT_GET); - /*_._VALDATA___V441*/ - meltfptr[440] = (melt_ptr_t) meltsy_DEBUG_LESS; + /*_._VALDATA___V441*/ meltfptr[440] = (melt_ptr_t) meltsy_DEBUG_LESS; } /*endgetnamedsym DEBUG_LESS*/ @@ -16687,8 +15023,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MELT_MODE_REFERENCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_MODE_REFERENCE = melthookproc_HOOK_NAMED_SYMBOL ("MELT_MODE_REFERENCE", (long) MELT_GET); - /*_._VALDATA___V443*/ - meltfptr[442] = (melt_ptr_t) meltsy_MELT_MODE_REFERENCE; + /*_._VALDATA___V443*/ meltfptr[442] = (melt_ptr_t) meltsy_MELT_MODE_REFERENCE; } /*endgetnamedsym MELT_MODE_REFERENCE*/ @@ -16701,8 +15036,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol LIST_APPEND2LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_APPEND2LIST = melthookproc_HOOK_NAMED_SYMBOL ("LIST_APPEND2LIST", (long) MELT_GET); - /*_._VALDATA___V445*/ - meltfptr[444] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; + /*_._VALDATA___V445*/ meltfptr[444] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; } /*endgetnamedsym LIST_APPEND2LIST*/ @@ -16715,8 +15049,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MACROEXPAND_TOPLEVEL_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROEXPAND_TOPLEVEL_LIST = melthookproc_HOOK_NAMED_SYMBOL ("MACROEXPAND_TOPLEVEL_LIST", (long) MELT_GET); - /*_._VALDATA___V447*/ - meltfptr[446] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; + /*_._VALDATA___V447*/ meltfptr[446] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; } /*endgetnamedsym MACROEXPAND_TOPLEVEL_LIST*/ @@ -16729,8 +15062,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MACROEXPAND_1 without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROEXPAND_1 = melthookproc_HOOK_NAMED_SYMBOL ("MACROEXPAND_1", (long) MELT_GET); - /*_._VALDATA___V449*/ - meltfptr[448] = (melt_ptr_t) meltsy_MACROEXPAND_1; + /*_._VALDATA___V449*/ meltfptr[448] = (melt_ptr_t) meltsy_MACROEXPAND_1; } /*endgetnamedsym MACROEXPAND_1*/ @@ -16743,8 +15075,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol MAKEDOC_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MAKEDOC_MODE = melthookproc_HOOK_NAMED_SYMBOL ("MAKEDOC_MODE", (long) MELT_GET); - /*_._VALDATA___V451*/ - meltfptr[450] = (melt_ptr_t) meltsy_MAKEDOC_MODE; + /*_._VALDATA___V451*/ meltfptr[450] = (melt_ptr_t) meltsy_MAKEDOC_MODE; } /*endgetnamedsym MAKEDOC_MODE*/ @@ -16757,8 +15088,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol FIND_ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FIND_ENV = melthookproc_HOOK_NAMED_SYMBOL ("FIND_ENV", (long) MELT_GET); - /*_._VALDATA___V457*/ - meltfptr[456] = (melt_ptr_t) meltsy_FIND_ENV; + /*_._VALDATA___V457*/ meltfptr[456] = (melt_ptr_t) meltsy_FIND_ENV; } /*endgetnamedsym FIND_ENV*/ @@ -16771,8 +15101,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol HELP_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_HELP_MODE = melthookproc_HOOK_NAMED_SYMBOL ("HELP_MODE", (long) MELT_GET); - /*_._VALDATA___V461*/ - meltfptr[460] = (melt_ptr_t) meltsy_HELP_MODE; + /*_._VALDATA___V461*/ meltfptr[460] = (melt_ptr_t) meltsy_HELP_MODE; } /*endgetnamedsym HELP_MODE*/ @@ -16785,8 +15114,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol NOP_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NOP_MODE = melthookproc_HOOK_NAMED_SYMBOL ("NOP_MODE", (long) MELT_GET); - /*_._VALDATA___V467*/ - meltfptr[466] = (melt_ptr_t) meltsy_NOP_MODE; + /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t) meltsy_NOP_MODE; } /*endgetnamedsym NOP_MODE*/ @@ -16799,8 +15127,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol EVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVAL = melthookproc_HOOK_NAMED_SYMBOL ("EVAL", (long) MELT_GET); - /*_._VALDATA___V473*/ - meltfptr[472] = (melt_ptr_t) meltsy_EVAL; + /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t) meltsy_EVAL; } /*endgetnamedsym EVAL*/ @@ -16813,8 +15140,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol LIST_NTH_ELEMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_NTH_ELEMENT = melthookproc_HOOK_NAMED_SYMBOL ("LIST_NTH_ELEMENT", (long) MELT_GET); - /*_._VALDATA___V475*/ - meltfptr[474] = (melt_ptr_t) meltsy_LIST_NTH_ELEMENT; + /*_._VALDATA___V475*/ meltfptr[474] = (melt_ptr_t) meltsy_LIST_NTH_ELEMENT; } /*endgetnamedsym LIST_NTH_ELEMENT*/ @@ -16827,8 +15153,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_VALUE_DESCRIPTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VALUE_DESCRIPTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VALUE_DESCRIPTOR", (long) MELT_GET); - /*_._VALDATA___V480*/ - meltfptr[479] = (melt_ptr_t) meltsy_CLASS_VALUE_DESCRIPTOR; + /*_._VALDATA___V480*/ meltfptr[479] = (melt_ptr_t) meltsy_CLASS_VALUE_DESCRIPTOR; } /*endgetnamedsym CLASS_VALUE_DESCRIPTOR*/ @@ -16841,8 +15166,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CTYPE_GTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CTYPE_GTY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CTYPE_GTY", (long) MELT_GET); - /*_._VALDATA___V482*/ - meltfptr[481] = (melt_ptr_t) meltsy_CLASS_CTYPE_GTY; + /*_._VALDATA___V482*/ meltfptr[481] = (melt_ptr_t) meltsy_CLASS_CTYPE_GTY; } /*endgetnamedsym CLASS_CTYPE_GTY*/ @@ -16855,8 +15179,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CTYPE", (long) MELT_GET); - /*_._VALDATA___V491*/ - meltfptr[490] = (melt_ptr_t) meltsy_CLASS_CTYPE; + /*_._VALDATA___V491*/ meltfptr[490] = (melt_ptr_t) meltsy_CLASS_CTYPE; } /*endgetnamedsym CLASS_CTYPE*/ @@ -16869,8 +15192,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_VARISIZED_VALUE_DESCRIPTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_VARISIZED_VALUE_DESCRIPTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_VARISIZED_VALUE_DESCRIPTOR", (long) MELT_GET); - /*_._VALDATA___V493*/ - meltfptr[492] = (melt_ptr_t) meltsy_CLASS_VARISIZED_VALUE_DESCRIPTOR; + /*_._VALDATA___V493*/ meltfptr[492] = (melt_ptr_t) meltsy_CLASS_VARISIZED_VALUE_DESCRIPTOR; } /*endgetnamedsym CLASS_VARISIZED_VALUE_DESCRIPTOR*/ @@ -16883,8 +15205,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol SOME_STRING_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SOME_STRING_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("SOME_STRING_VALUE", (long) MELT_GET); - /*_._VALDATA___V515*/ - meltfptr[514] = (melt_ptr_t) meltsy_SOME_STRING_VALUE; + /*_._VALDATA___V515*/ meltfptr[514] = (melt_ptr_t) meltsy_SOME_STRING_VALUE; } /*endgetnamedsym SOME_STRING_VALUE*/ @@ -16897,8 +15218,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_DISCRIMINANT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_DISCRIMINANT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_DISCRIMINANT", (long) MELT_GET); - /*_._VALDATA___V517*/ - meltfptr[516] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT; + /*_._VALDATA___V517*/ meltfptr[516] = (melt_ptr_t) meltsy_CLASS_DISCRIMINANT; } /*endgetnamedsym CLASS_DISCRIMINANT*/ @@ -16911,8 +15231,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol CLASS_HOOK_DESCRIPTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_HOOK_DESCRIPTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_HOOK_DESCRIPTOR", (long) MELT_GET); - /*_._VALDATA___V527*/ - meltfptr[526] = (melt_ptr_t) meltsy_CLASS_HOOK_DESCRIPTOR; + /*_._VALDATA___V527*/ meltfptr[526] = (melt_ptr_t) meltsy_CLASS_HOOK_DESCRIPTOR; } /*endgetnamedsym CLASS_HOOK_DESCRIPTOR*/ @@ -16925,8 +15244,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RETRIEVE_DICTIONNARY_CTYPE_GTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETRIEVE_DICTIONNARY_CTYPE_GTY = melthookproc_HOOK_NAMED_SYMBOL ("RETRIEVE_DICTIONNARY_CTYPE_GTY", (long) MELT_GET); - /*_._VALDATA___V532*/ - meltfptr[531] = (melt_ptr_t) meltsy_RETRIEVE_DICTIONNARY_CTYPE_GTY; + /*_._VALDATA___V532*/ meltfptr[531] = (melt_ptr_t) meltsy_RETRIEVE_DICTIONNARY_CTYPE_GTY; } /*endgetnamedsym RETRIEVE_DICTIONNARY_CTYPE_GTY*/ @@ -16939,8 +15257,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RETRIEVE_DICTIONNARY_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETRIEVE_DICTIONNARY_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("RETRIEVE_DICTIONNARY_CTYPE", (long) MELT_GET); - /*_._VALDATA___V534*/ - meltfptr[533] = (melt_ptr_t) meltsy_RETRIEVE_DICTIONNARY_CTYPE; + /*_._VALDATA___V534*/ meltfptr[533] = (melt_ptr_t) meltsy_RETRIEVE_DICTIONNARY_CTYPE; } /*endgetnamedsym RETRIEVE_DICTIONNARY_CTYPE*/ @@ -16953,8 +15270,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", (long) MELT_GET); - /*_._VALDATA___V536*/ - meltfptr[535] = (melt_ptr_t) meltsy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; + /*_._VALDATA___V536*/ meltfptr[535] = (melt_ptr_t) meltsy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; } /*endgetnamedsym GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ @@ -16967,8 +15283,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RETRIEVE_VALUE_DESCRIPTOR_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETRIEVE_VALUE_DESCRIPTOR_LIST = melthookproc_HOOK_NAMED_SYMBOL ("RETRIEVE_VALUE_DESCRIPTOR_LIST", (long) MELT_GET); - /*_._VALDATA___V538*/ - meltfptr[537] = (melt_ptr_t) meltsy_RETRIEVE_VALUE_DESCRIPTOR_LIST; + /*_._VALDATA___V538*/ meltfptr[537] = (melt_ptr_t) meltsy_RETRIEVE_VALUE_DESCRIPTOR_LIST; } /*endgetnamedsym RETRIEVE_VALUE_DESCRIPTOR_LIST*/ @@ -16981,8 +15296,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol RUNTYPESUPPORT_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RUNTYPESUPPORT_MODE = melthookproc_HOOK_NAMED_SYMBOL ("RUNTYPESUPPORT_MODE", (long) MELT_GET); - /*_._VALDATA___V540*/ - meltfptr[539] = (melt_ptr_t) meltsy_RUNTYPESUPPORT_MODE; + /*_._VALDATA___V540*/ meltfptr[539] = (melt_ptr_t) meltsy_RUNTYPESUPPORT_MODE; } /*endgetnamedsym RUNTYPESUPPORT_MODE*/ @@ -16995,8 +15309,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATETOMODULE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATETOMODULE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATETOMODULE_MODE", (long) MELT_GET); - /*_._VALDATA___V551*/ - meltfptr[550] = (melt_ptr_t) meltsy_TRANSLATETOMODULE_MODE; + /*_._VALDATA___V551*/ meltfptr[550] = (melt_ptr_t) meltsy_TRANSLATETOMODULE_MODE; } /*endgetnamedsym TRANSLATETOMODULE_MODE*/ @@ -17009,8 +15322,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEDEBUG_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEDEBUG_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEDEBUG_MODE", (long) MELT_GET); - /*_._VALDATA___V558*/ - meltfptr[557] = (melt_ptr_t) meltsy_TRANSLATEDEBUG_MODE; + /*_._VALDATA___V558*/ meltfptr[557] = (melt_ptr_t) meltsy_TRANSLATEDEBUG_MODE; } /*endgetnamedsym TRANSLATEDEBUG_MODE*/ @@ -17023,8 +15335,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEQUICKLY_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEQUICKLY_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEQUICKLY_MODE", (long) MELT_GET); - /*_._VALDATA___V565*/ - meltfptr[564] = (melt_ptr_t) meltsy_TRANSLATEQUICKLY_MODE; + /*_._VALDATA___V565*/ meltfptr[564] = (melt_ptr_t) meltsy_TRANSLATEQUICKLY_MODE; } /*endgetnamedsym TRANSLATEQUICKLY_MODE*/ @@ -17037,8 +15348,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEOPTIMIZED_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEOPTIMIZED_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEOPTIMIZED_MODE", (long) MELT_GET); - /*_._VALDATA___V572*/ - meltfptr[571] = (melt_ptr_t) meltsy_TRANSLATEOPTIMIZED_MODE; + /*_._VALDATA___V572*/ meltfptr[571] = (melt_ptr_t) meltsy_TRANSLATEOPTIMIZED_MODE; } /*endgetnamedsym TRANSLATEOPTIMIZED_MODE*/ @@ -17051,8 +15361,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEFILE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEFILE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEFILE_MODE", (long) MELT_GET); - /*_._VALDATA___V578*/ - meltfptr[577] = (melt_ptr_t) meltsy_TRANSLATEFILE_MODE; + /*_._VALDATA___V578*/ meltfptr[577] = (melt_ptr_t) meltsy_TRANSLATEFILE_MODE; } /*endgetnamedsym TRANSLATEFILE_MODE*/ @@ -17065,8 +15374,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol LIST_EVERY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("LIST_EVERY", (long) MELT_GET); - /*_._VALDATA___V585*/ - meltfptr[584] = (melt_ptr_t) meltsy_LIST_EVERY; + /*_._VALDATA___V585*/ meltfptr[584] = (melt_ptr_t) meltsy_LIST_EVERY; } /*endgetnamedsym LIST_EVERY*/ @@ -17079,8 +15387,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", (long) MELT_GET); - /*_._VALDATA___V587*/ - meltfptr[586] = (melt_ptr_t) meltsy_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; + /*_._VALDATA___V587*/ meltfptr[586] = (melt_ptr_t) meltsy_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; } /*endgetnamedsym COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ @@ -17093,8 +15400,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEINIT_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEINIT_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEINIT_MODE", (long) MELT_GET); - /*_._VALDATA___V589*/ - meltfptr[588] = (melt_ptr_t) meltsy_TRANSLATEINIT_MODE; + /*_._VALDATA___V589*/ meltfptr[588] = (melt_ptr_t) meltsy_TRANSLATEINIT_MODE; } /*endgetnamedsym TRANSLATEINIT_MODE*/ @@ -17107,8 +15413,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol COMPILE_LIST_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_LIST_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_LIST_SEXPR", (long) MELT_GET); - /*_._VALDATA___V596*/ - meltfptr[595] = (melt_ptr_t) meltsy_COMPILE_LIST_SEXPR; + /*_._VALDATA___V596*/ meltfptr[595] = (melt_ptr_t) meltsy_COMPILE_LIST_SEXPR; } /*endgetnamedsym COMPILE_LIST_SEXPR*/ @@ -17121,8 +15426,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEINITMODULE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEINITMODULE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEINITMODULE_MODE", (long) MELT_GET); - /*_._VALDATA___V603*/ - meltfptr[602] = (melt_ptr_t) meltsy_TRANSLATEINITMODULE_MODE; + /*_._VALDATA___V603*/ meltfptr[602] = (melt_ptr_t) meltsy_TRANSLATEINITMODULE_MODE; } /*endgetnamedsym TRANSLATEINITMODULE_MODE*/ @@ -17135,8 +15439,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEINITMODULEQUICKLYBUILT_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEINITMODULEQUICKLYBUILT_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEINITMODULEQUICKLYBUILT_MODE", (long) MELT_GET); - /*_._VALDATA___V610*/ - meltfptr[609] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEQUICKLYBUILT_MODE; + /*_._VALDATA___V610*/ meltfptr[609] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEQUICKLYBUILT_MODE; } /*endgetnamedsym TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ @@ -17149,8 +15452,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEINITMODULEDEBUGNOLINE_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEINITMODULEDEBUGNOLINE_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEINITMODULEDEBUGNOLINE_MODE", (long) MELT_GET); - /*_._VALDATA___V617*/ - meltfptr[616] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEDEBUGNOLINE_MODE; + /*_._VALDATA___V617*/ meltfptr[616] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEDEBUGNOLINE_MODE; } /*endgetnamedsym TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ @@ -17163,8 +15465,7 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) #error MELT getting named symbol TRANSLATEINITMODULEOPTIMIZED_MODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATEINITMODULEOPTIMIZED_MODE = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATEINITMODULEOPTIMIZED_MODE", (long) MELT_GET); - /*_._VALDATA___V624*/ - meltfptr[623] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEOPTIMIZED_MODE; + /*_._VALDATA___V624*/ meltfptr[623] = (melt_ptr_t) meltsy_TRANSLATEINITMODULEOPTIMIZED_MODE; } /*endgetnamedsym TRANSLATEINITMODULEOPTIMIZED_MODE*/ @@ -17172,364 +15473,274 @@ void* MELT_LOW_OPTIMIZATION melt_start_this_module (void* modargp_) /**COMMENT: before getting imported values thru hook **/; MELT_LOCATION("warmelt-modes.melt:3:/ compute"); - /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ - meltfptr[4] = + /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:43:/ compute"); - /*_.MELT_DEBUG_FUN__V6*/ - meltfptr[5] = + /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_DEBUG_FUN", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:44:/ compute"); - /*_.CLASS_MELT_MODE__V7*/ - meltfptr[6] = + /*_.CLASS_MELT_MODE__V7*/ meltfptr[6] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_MELT_MODE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.MELT_ASSERT_FAILURE_FUN__V8*/ - meltfptr[7] = + /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_ASSERT_FAILURE_FUN", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:45:/ compute"); - /*_.INITIAL_SYSTEM_DATA__V9*/ - meltfptr[8] = + /*_.INITIAL_SYSTEM_DATA__V9*/ meltfptr[8] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_SYSTEM_DATA", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.CLASS_SYSTEM_DATA__V10*/ - meltfptr[9] = + /*_.CLASS_SYSTEM_DATA__V10*/ meltfptr[9] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYSTEM_DATA", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:46:/ compute"); - /*_.CLASS_NAMED__V11*/ - meltfptr[10] = + /*_.CLASS_NAMED__V11*/ meltfptr[10] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NAMED", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:49:/ compute"); - /*_.DISCR_STRING__V12*/ - meltfptr[11] = + /*_.DISCR_STRING__V12*/ meltfptr[11] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRING", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:78:/ compute"); - /*_.INITIAL_ENVIRONMENT__V13*/ - meltfptr[12] = + /*_.INITIAL_ENVIRONMENT__V13*/ meltfptr[12] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_ENVIRONMENT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:86:/ compute"); - /*_.CLASS_ENVIRONMENT__V14*/ - meltfptr[13] = + /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ENVIRONMENT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:103:/ compute"); - /*_.ERROR_AT__V15*/ - meltfptr[14] = + /*_.ERROR_AT__V15*/ meltfptr[14] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ERROR_AT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:113:/ compute"); - /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V16*/ - meltfptr[15] = + /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V16*/ meltfptr[15] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "TRANSLATE_TO_CC_MODULE_MELT_SOURCES", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:209:/ compute"); - /*_.DISCR_MAP_OBJECTS__V17*/ - meltfptr[16] = + /*_.DISCR_MAP_OBJECTS__V17*/ meltfptr[16] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_OBJECTS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:223:/ compute"); - /*_.FRESH_ENV__V18*/ - meltfptr[17] = + /*_.FRESH_ENV__V18*/ meltfptr[17] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FRESH_ENV", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:227:/ compute"); - /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V19*/ - meltfptr[18] = + /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V19*/ meltfptr[18] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "TRANSLATE_RUN_MELT_EXPRESSIONS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:228:/ compute"); - /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V20*/ - meltfptr[19] = + /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V20*/ meltfptr[19] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DEBUG_OUTPUT_INFORMATION", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:234:/ compute"); - /*_.ADD2OUT__V21*/ - meltfptr[20] = + /*_.ADD2OUT__V21*/ meltfptr[20] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ADD2OUT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:235:/ compute"); - /*_.DBG_OUT__V22*/ - meltfptr[21] = + /*_.DBG_OUT__V22*/ meltfptr[21] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DBG_OUT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:282:/ compute"); - /*_.DISCR_CONSTANT_INTEGER__V23*/ - meltfptr[22] = + /*_.DISCR_CONSTANT_INTEGER__V23*/ meltfptr[22] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_INTEGER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:304:/ compute"); - /*_.CLASS_PROPED__V24*/ - meltfptr[23] = + /*_.CLASS_PROPED__V24*/ meltfptr[23] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PROPED", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:313:/ compute"); - /*_.CLASS_INPUT_CHANNEL_HANDLER__V25*/ - meltfptr[24] = + /*_.CLASS_INPUT_CHANNEL_HANDLER__V25*/ meltfptr[24] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INPUT_CHANNEL_HANDLER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:330:/ compute"); - /*_.CLASS_REFERENCE__V26*/ - meltfptr[25] = + /*_.CLASS_REFERENCE__V26*/ meltfptr[25] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_REFERENCE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:351:/ compute"); - /*_.CLASS_DEBUG_INFORMATION__V27*/ - meltfptr[26] = + /*_.CLASS_DEBUG_INFORMATION__V27*/ meltfptr[26] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DEBUG_INFORMATION", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:387:/ compute"); - /*_.DISCR_INTEGER__V28*/ - meltfptr[27] = + /*_.DISCR_INTEGER__V28*/ meltfptr[27] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_INTEGER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:402:/ compute"); - /*_.GET_POLLING_INPUT__V29*/ - meltfptr[28] = + /*_.GET_POLLING_INPUT__V29*/ meltfptr[28] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "GET_POLLING_INPUT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:419:/ compute"); - /*_.HOOK_POLL_INPUTS__V30*/ - meltfptr[29] = + /*_.HOOK_POLL_INPUTS__V30*/ meltfptr[29] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_POLL_INPUTS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:423:/ compute"); - /*_.CLASS_VALUE_BINDING__V31*/ - meltfptr[30] = + /*_.CLASS_VALUE_BINDING__V31*/ meltfptr[30] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VALUE_BINDING", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:430:/ compute"); - /*_.PUT_ENV__V32*/ - meltfptr[31] = + /*_.PUT_ENV__V32*/ meltfptr[31] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "PUT_ENV", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:433:/ compute"); - /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V33*/ - meltfptr[32] = + /*_.REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER__V33*/ meltfptr[32] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "REGISTER_PARAGRAPH_INPUT_CHANNEL_HANDLER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:435:/ compute"); - /*_.REGISTER_ALL_PASSES_END_FIRST__V34*/ - meltfptr[33] = + /*_.REGISTER_ALL_PASSES_END_FIRST__V34*/ meltfptr[33] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "REGISTER_ALL_PASSES_END_FIRST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:446:/ compute"); - /*_.AT_FINISH_UNIT_FIRST__V35*/ - meltfptr[34] = + /*_.AT_FINISH_UNIT_FIRST__V35*/ meltfptr[34] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "AT_FINISH_UNIT_FIRST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:457:/ compute"); - /*_.AT_EXIT_LAST__V36*/ - meltfptr[35] = + /*_.AT_EXIT_LAST__V36*/ meltfptr[35] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "AT_EXIT_LAST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:480:/ compute"); - /*_.CLASS_ANY_MODULE_CONTEXT__V37*/ - meltfptr[36] = + /*_.CLASS_ANY_MODULE_CONTEXT__V37*/ meltfptr[36] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MODULE_CONTEXT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:534:/ compute"); - /*_.CLASS_SYMBOL__V38*/ - meltfptr[37] = + /*_.CLASS_SYMBOL__V38*/ meltfptr[37] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYMBOL", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:556:/ compute"); - /*_.CLASS_FORMAL_BINDING__V39*/ - meltfptr[38] = + /*_.CLASS_FORMAL_BINDING__V39*/ meltfptr[38] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FORMAL_BINDING", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:557:/ compute"); - /*_.CLASS_SOURCE_DEFINITION__V40*/ - meltfptr[39] = + /*_.CLASS_SOURCE_DEFINITION__V40*/ meltfptr[39] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFINITION", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:558:/ compute"); - /*_.CLASS_ANY_BINDING__V41*/ - meltfptr[40] = + /*_.CLASS_ANY_BINDING__V41*/ meltfptr[40] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_BINDING", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:563:/ compute"); - /*_.DISCR_LIST__V42*/ - meltfptr[41] = + /*_.DISCR_LIST__V42*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_LIST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:578:/ compute"); - /*_.CLASS_SOURCE_DEFCLASS__V43*/ - meltfptr[42] = + /*_.CLASS_SOURCE_DEFCLASS__V43*/ meltfptr[42] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFCLASS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:582:/ compute"); - /*_.CLASS_SEXPR__V44*/ - meltfptr[43] = + /*_.CLASS_SEXPR__V44*/ meltfptr[43] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:586:/ compute"); - /*_.CLASS_CLASS_BINDING__V45*/ - meltfptr[44] = + /*_.CLASS_CLASS_BINDING__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS_BINDING", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:589:/ compute"); - /*_.CLASS_CLASS__V46*/ - meltfptr[45] = + /*_.CLASS_CLASS__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:598:/ compute"); - /*_.CLASS_FIELD__V47*/ - meltfptr[46] = + /*_.CLASS_FIELD__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:621:/ compute"); - /*_.CLASS_SOURCE_DEFSELECTOR__V48*/ - meltfptr[47] = + /*_.CLASS_SOURCE_DEFSELECTOR__V48*/ meltfptr[47] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFSELECTOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:637:/ compute"); - /*_.CLASS_SOURCE_DEFINSTANCE__V49*/ - meltfptr[48] = + /*_.CLASS_SOURCE_DEFINSTANCE__V49*/ meltfptr[48] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFINSTANCE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:654:/ compute"); - /*_.CLASS_SOURCE_DEFPRIMITIVE__V50*/ - meltfptr[49] = + /*_.CLASS_SOURCE_DEFPRIMITIVE__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFPRIMITIVE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:672:/ compute"); - /*_.CLASS_SOURCE_DEFMACRO__V51*/ - meltfptr[50] = + /*_.CLASS_SOURCE_DEFMACRO__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFMACRO", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:690:/ compute"); - /*_.CLASS_SOURCE_DEFUN__V52*/ - meltfptr[51] = + /*_.CLASS_SOURCE_DEFUN__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFUN", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:708:/ compute"); - /*_.CLASS_SOURCE_DEFCITERATOR__V53*/ - meltfptr[52] = + /*_.CLASS_SOURCE_DEFCITERATOR__V53*/ meltfptr[52] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFCITERATOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:726:/ compute"); - /*_.CLASS_SOURCE_DEFCMATCHER__V54*/ - meltfptr[53] = + /*_.CLASS_SOURCE_DEFCMATCHER__V54*/ meltfptr[53] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFCMATCHER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:744:/ compute"); - /*_.CLASS_SOURCE_EXPORT_PATMACRO__V55*/ - meltfptr[54] = + /*_.CLASS_SOURCE_EXPORT_PATMACRO__V55*/ meltfptr[54] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_EXPORT_PATMACRO", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:758:/ compute"); - /*_.CLASS_SOURCE_EXPORT_MACRO__V56*/ - meltfptr[55] = + /*_.CLASS_SOURCE_EXPORT_MACRO__V56*/ meltfptr[55] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_EXPORT_MACRO", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:772:/ compute"); - /*_.CLASS_SOURCE_DEFHOOK__V57*/ - meltfptr[56] = + /*_.CLASS_SOURCE_DEFHOOK__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFHOOK", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:792:/ compute"); - /*_.INFORM_AT__V58*/ - meltfptr[57] = + /*_.INFORM_AT__V58*/ meltfptr[57] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INFORM_AT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:793:/ compute"); - /*_.WARNING_AT__V59*/ - meltfptr[58] = + /*_.WARNING_AT__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "WARNING_AT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:807:/ compute"); - /*_.CLASS_LOCATED__V60*/ - meltfptr[59] = + /*_.CLASS_LOCATED__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LOCATED", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:838:/ compute"); - /*_.CLASS_QUASI_CTYPE__V61*/ - meltfptr[60] = + /*_.CLASS_QUASI_CTYPE__V61*/ meltfptr[60] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_QUASI_CTYPE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:986:/ compute"); - /*_.LIST_TO_MULTIPLE__V62*/ - meltfptr[61] = + /*_.LIST_TO_MULTIPLE__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_TO_MULTIPLE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.DISCR_MULTIPLE__V63*/ - meltfptr[62] = + /*_.DISCR_MULTIPLE__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MULTIPLE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:987:/ compute"); - /*_.MULTIPLE_SORT__V64*/ - meltfptr[63] = + /*_.MULTIPLE_SORT__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_SORT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.COMPARE_NAMED_ALPHA__V65*/ - meltfptr[64] = + /*_.COMPARE_NAMED_ALPHA__V65*/ meltfptr[64] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPARE_NAMED_ALPHA", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1045:/ compute"); - /*_.CLASS_SOURCE_EXPORT_ANY_MACRO__V66*/ - meltfptr[65] = + /*_.CLASS_SOURCE_EXPORT_ANY_MACRO__V66*/ meltfptr[65] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_EXPORT_ANY_MACRO", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1304:/ compute"); - /*_.CLASS_SOURCE_DEFINITION_FORMAL__V67*/ - meltfptr[66] = + /*_.CLASS_SOURCE_DEFINITION_FORMAL__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFINITION_FORMAL", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1470:/ compute"); - /*_.CLASS_CITERATOR__V68*/ - meltfptr[67] = + /*_.CLASS_CITERATOR__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1529:/ compute"); - /*_.CLASS_ANY_MATCHER__V69*/ - meltfptr[68] = + /*_.CLASS_ANY_MATCHER__V69*/ meltfptr[68] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MATCHER", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1655:/ compute"); - /*_.DISCR_STRBUF__V70*/ - meltfptr[69] = + /*_.DISCR_STRBUF__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRBUF", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1741:/ compute"); - /*_.STRING4OUT__V71*/ - meltfptr[70] = + /*_.STRING4OUT__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "STRING4OUT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1790:/ compute"); - /*_.DISCR_MAP_STRINGS__V72*/ - meltfptr[71] = + /*_.DISCR_MAP_STRINGS__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_STRINGS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1826:/ compute"); - /*_.DEBUG_LESS__V73*/ - meltfptr[72] = + /*_.DEBUG_LESS__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_LESS", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1833:/ compute"); - /*_.MELT_MODE_REFERENCE__V74*/ - meltfptr[73] = + /*_.MELT_MODE_REFERENCE__V74*/ meltfptr[73] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_MODE_REFERENCE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1847:/ compute"); - /*_.LIST_APPEND2LIST__V75*/ - meltfptr[74] = + /*_.LIST_APPEND2LIST__V75*/ meltfptr[74] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_APPEND2LIST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1848:/ compute"); - /*_.MACROEXPAND_TOPLEVEL_LIST__V76*/ - meltfptr[75] = + /*_.MACROEXPAND_TOPLEVEL_LIST__V76*/ meltfptr[75] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MACROEXPAND_TOPLEVEL_LIST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ - /*_.MACROEXPAND_1__V77*/ - meltfptr[76] = + /*_.MACROEXPAND_1__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MACROEXPAND_1", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:1897:/ compute"); - /*_.FIND_ENV__V78*/ - meltfptr[77] = + /*_.FIND_ENV__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FIND_ENV", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2017:/ compute"); - /*_.LIST_NTH_ELEMENT__V79*/ - meltfptr[78] = + /*_.LIST_NTH_ELEMENT__V79*/ meltfptr[78] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_NTH_ELEMENT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2021:/ compute"); - /*_.EVAL__V80*/ - meltfptr[79] = + /*_.EVAL__V80*/ meltfptr[79] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "EVAL", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2071:/ compute"); - /*_.CLASS_VALUE_DESCRIPTOR__V81*/ - meltfptr[80] = + /*_.CLASS_VALUE_DESCRIPTOR__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VALUE_DESCRIPTOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2095:/ compute"); - /*_.CLASS_CTYPE_GTY__V82*/ - meltfptr[81] = + /*_.CLASS_CTYPE_GTY__V82*/ meltfptr[81] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE_GTY", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2211:/ compute"); - /*_.CLASS_CTYPE__V83*/ - meltfptr[82] = + /*_.CLASS_CTYPE__V83*/ meltfptr[82] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:2275:/ compute"); - /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V84*/ - meltfptr[83] = + /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_VARISIZED_VALUE_DESCRIPTOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:3488:/ compute"); - /*_.SOME_STRING_VALUE__V85*/ - meltfptr[84] = + /*_.SOME_STRING_VALUE__V85*/ meltfptr[84] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "SOME_STRING_VALUE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:3494:/ compute"); - /*_.CLASS_DISCRIMINANT__V86*/ - meltfptr[85] = + /*_.CLASS_DISCRIMINANT__V86*/ meltfptr[85] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_DISCRIMINANT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4166:/ compute"); - /*_.CLASS_HOOK_DESCRIPTOR__V87*/ - meltfptr[86] = + /*_.CLASS_HOOK_DESCRIPTOR__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_HOOK_DESCRIPTOR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4319:/ compute"); - /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V88*/ - meltfptr[87] = + /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "RETRIEVE_DICTIONNARY_CTYPE_GTY", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4321:/ compute"); - /*_.RETRIEVE_DICTIONNARY_CTYPE__V89*/ - meltfptr[88] = + /*_.RETRIEVE_DICTIONNARY_CTYPE__V89*/ meltfptr[88] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "RETRIEVE_DICTIONNARY_CTYPE", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4328:/ compute"); - /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V90*/ - meltfptr[89] = + /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4349:/ compute"); - /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V91*/ - meltfptr[90] = + /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "RETRIEVE_VALUE_DESCRIPTOR_LIST", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4713:/ compute"); - /*_.LIST_EVERY__V92*/ - meltfptr[91] = + /*_.LIST_EVERY__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_EVERY", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4725:/ compute"); - /*_.COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR__V93*/ - meltfptr[92] = + /*_.COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-modes.melt:4803:/ compute"); - /*_.COMPILE_LIST_SEXPR__V94*/ - meltfptr[93] = + /*_.COMPILE_LIST_SEXPR__V94*/ meltfptr[93] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE_LIST_SEXPR", "warmelt-modes", /*_._PREVENV___V4*/ meltfptr[3]) ; /**COMMENT: after getting imported values **/; @@ -26541,13 +24752,11 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V629*/ meltfptr[628] = /*hookcall*/ melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4], /*_._PREVENV___V4*/ meltfptr[3], "warmelt-modes") ;; /*^compute*/ - /*_.OR___V628*/ - meltfptr[627] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V629*/ meltfptr[628];; + /*_.OR___V628*/ meltfptr[627] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V629*/ meltfptr[628];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3:/ clear"); - /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V629*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V629*/ meltfptr[628] = 0 ; } ; } @@ -26567,15 +24776,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram meltgc_touch(/*_._VALROUT___V433*/ meltfptr[432]); ; /*^compute*/ - /*_._CONTENV___V2*/ - meltfptr[1] = /*_.OR___V628*/ meltfptr[627];; + /*_._CONTENV___V2*/ meltfptr[1] = /*_.OR___V628*/ meltfptr[627];; }/*com.end block:upd.cur.mod.env.cont : at very start*/ ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.OR___V628*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.OR___V628*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:70:/ initchunk"); @@ -26607,15 +24814,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "runfile"; - /*_.INSTALL_MELT_MODE__V630*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V630*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V131*/ meltfptr[130]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V630*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V630*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:197:/ initchunk"); @@ -26633,15 +24838,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "rundebug"; - /*_.INSTALL_MELT_MODE__V631*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V139*/ meltfptr[138]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V631*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V139*/ meltfptr[138]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V631*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V631*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:246:/ initchunk"); @@ -26659,15 +24862,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "eval"; - /*_.INSTALL_MELT_MODE__V632*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V159*/ meltfptr[158]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V632*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V159*/ meltfptr[158]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V632*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V632*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:298:/ initchunk"); @@ -26685,15 +24886,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "evalfile"; - /*_.INSTALL_MELT_MODE__V633*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V169*/ meltfptr[168]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V633*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V169*/ meltfptr[168]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V633*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V633*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:476:/ initchunk"); @@ -26711,15 +24910,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "repl"; - /*_.INSTALL_MELT_MODE__V634*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V634*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V240*/ meltfptr[239]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V634*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V634*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:1881:/ initchunk"); @@ -26737,15 +24934,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "makedoc"; - /*_.INSTALL_MELT_MODE__V635*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V453*/ meltfptr[452]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V635*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V453*/ meltfptr[452]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V635*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V635*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:1883:/ initchunk"); @@ -26760,117 +24955,101 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram (/*_._CONTENV___V2*/ meltfptr[1]) ) ; - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V282*/ meltfptr[281], /*_._VALDATA___V249*/ meltfptr[248], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PRIMITIVES*/ - /* check quasi.cur.mod.env.ref 817934762 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V284*/ meltfptr[283], /*_._VALDATA___V251*/ meltfptr[250], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FUNCTIONS*/ - /* check quasi.cur.mod.env.ref 150730007 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V286*/ meltfptr[285], /*_._VALDATA___V253*/ meltfptr[252], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CITERATORS*/ - /* check quasi.cur.mod.env.ref 205564498 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V288*/ meltfptr[287], /*_._VALDATA___V255*/ meltfptr[254], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CMATCHERS*/ - /* check quasi.cur.mod.env.ref 311489246 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V290*/ meltfptr[289], /*_._VALDATA___V257*/ meltfptr[256], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_SELECTORS*/ - /* check quasi.cur.mod.env.ref 469474843 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V292*/ meltfptr[291], /*_._VALDATA___V259*/ meltfptr[258], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FIELDS*/ - /* check quasi.cur.mod.env.ref 95639795 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V294*/ meltfptr[293], /*_._VALDATA___V261*/ meltfptr[260], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CLASSES*/ - /* check quasi.cur.mod.env.ref 733042885 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V296*/ meltfptr[295], /*_._VALDATA___V263*/ meltfptr[262], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_INSTANCES*/ - /* check quasi.cur.mod.env.ref 740142847 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V298*/ meltfptr[297], /*_._VALDATA___V265*/ meltfptr[264], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_MACROS*/ - /* check quasi.cur.mod.env.ref 237888773 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V300*/ meltfptr[299], /*_._VALDATA___V267*/ meltfptr[266], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PATMACROS*/ - /* check quasi.cur.mod.env.ref 184718185 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V302*/ meltfptr[301], /*_._VALDATA___V269*/ meltfptr[268], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_HOOKS*/ - /* check quasi.cur.mod.env.ref 380101881 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V304*/ meltfptr[303], /*_._VALDATA___V271*/ meltfptr[270], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FORMALOCCMAP*/ - /* check quasi.cur.mod.env.ref 568170469 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V306*/ meltfptr[305], /*_._VALDATA___V273*/ meltfptr[272], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PREDEFMAP*/ - /* check quasi.cur.mod.env.ref 591068266 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V308*/ meltfptr[307], /*_._VALDATA___V275*/ meltfptr[274], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_DOCSYMAP*/ - /* check quasi.cur.mod.env.ref 894439042 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V310*/ meltfptr[309], /*_._VALDATA___V277*/ meltfptr[276], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_SUBCLASSMAP*/ - /* check quasi.cur.mod.env.ref 587621170 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; - - /*hookcall*/ - melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V312*/ meltfptr[311], /*_._VALDATA___V279*/ meltfptr[278], - /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_BOXCOUNTER*/ - /* check quasi.cur.mod.env.ref 928082707 */ - (/*_._CONTENV___V2*/ meltfptr[1]) - ) ; + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V282*/ meltfptr[281], /*_._VALDATA___V249*/ meltfptr[248], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PRIMITIVES*/ + /* check quasi.cur.mod.env.ref 817934762 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V284*/ meltfptr[283], /*_._VALDATA___V251*/ meltfptr[250], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FUNCTIONS*/ + /* check quasi.cur.mod.env.ref 150730007 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V286*/ meltfptr[285], /*_._VALDATA___V253*/ meltfptr[252], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CITERATORS*/ + /* check quasi.cur.mod.env.ref 205564498 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V288*/ meltfptr[287], /*_._VALDATA___V255*/ meltfptr[254], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CMATCHERS*/ + /* check quasi.cur.mod.env.ref 311489246 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V290*/ meltfptr[289], /*_._VALDATA___V257*/ meltfptr[256], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_SELECTORS*/ + /* check quasi.cur.mod.env.ref 469474843 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V292*/ meltfptr[291], /*_._VALDATA___V259*/ meltfptr[258], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FIELDS*/ + /* check quasi.cur.mod.env.ref 95639795 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V294*/ meltfptr[293], /*_._VALDATA___V261*/ meltfptr[260], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_CLASSES*/ + /* check quasi.cur.mod.env.ref 733042885 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V296*/ meltfptr[295], /*_._VALDATA___V263*/ meltfptr[262], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_INSTANCES*/ + /* check quasi.cur.mod.env.ref 740142847 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V298*/ meltfptr[297], /*_._VALDATA___V265*/ meltfptr[264], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_MACROS*/ + /* check quasi.cur.mod.env.ref 237888773 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V300*/ meltfptr[299], /*_._VALDATA___V267*/ meltfptr[266], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PATMACROS*/ + /* check quasi.cur.mod.env.ref 184718185 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V302*/ meltfptr[301], /*_._VALDATA___V269*/ meltfptr[268], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_HOOKS*/ + /* check quasi.cur.mod.env.ref 380101881 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V304*/ meltfptr[303], /*_._VALDATA___V271*/ meltfptr[270], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_FORMALOCCMAP*/ + /* check quasi.cur.mod.env.ref 568170469 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V306*/ meltfptr[305], /*_._VALDATA___V273*/ meltfptr[272], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_PREDEFMAP*/ + /* check quasi.cur.mod.env.ref 591068266 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V308*/ meltfptr[307], /*_._VALDATA___V275*/ meltfptr[274], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_DOCSYMAP*/ + /* check quasi.cur.mod.env.ref 894439042 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V310*/ meltfptr[309], /*_._VALDATA___V277*/ meltfptr[276], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_SUBCLASSMAP*/ + /* check quasi.cur.mod.env.ref 587621170 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; + + /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V312*/ meltfptr[311], /*_._VALDATA___V279*/ meltfptr[278], + /*quasi.cur.mod.env.ref norm.exp.val : MKDOC_BOXCOUNTER*/ + /* check quasi.cur.mod.env.ref 928082707 */ + (/*_._CONTENV___V2*/ meltfptr[1]) + ) ; /*epilog*/ } @@ -26889,15 +25068,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "help"; - /*_.INSTALL_MELT_MODE__V636*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V636*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V636*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V636*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:1983:/ initchunk"); @@ -26915,15 +25092,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "nop"; - /*_.INSTALL_MELT_MODE__V637*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V637*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V637*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V637*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4450:/ initchunk"); @@ -26941,15 +25116,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "runtypesupport"; - /*_.INSTALL_MELT_MODE__V638*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V542*/ meltfptr[541]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V638*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V542*/ meltfptr[541]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V638*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V638*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4528:/ initchunk"); @@ -26967,15 +25140,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translatetomodule"; - /*_.INSTALL_MELT_MODE__V639*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V639*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V553*/ meltfptr[552]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V639*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V639*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4557:/ initchunk"); @@ -26993,15 +25164,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translatedebug"; - /*_.INSTALL_MELT_MODE__V640*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V640*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V640*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V640*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4583:/ initchunk"); @@ -27019,15 +25188,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translatequickly"; - /*_.INSTALL_MELT_MODE__V641*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V567*/ meltfptr[566]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V641*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V567*/ meltfptr[566]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V641*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V641*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4610:/ initchunk"); @@ -27045,15 +25212,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateoptimized"; - /*_.INSTALL_MELT_MODE__V642*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V574*/ meltfptr[573]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V642*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V574*/ meltfptr[573]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V642*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V642*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4665:/ initchunk"); @@ -27071,15 +25236,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translatefile"; - /*_.INSTALL_MELT_MODE__V643*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V580*/ meltfptr[579]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V643*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V580*/ meltfptr[579]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V643*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V643*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4739:/ initchunk"); @@ -27097,15 +25260,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateinit"; - /*_.INSTALL_MELT_MODE__V644*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V591*/ meltfptr[590]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V644*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V591*/ meltfptr[590]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V644*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V644*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4854:/ initchunk"); @@ -27123,15 +25284,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateinitmodule"; - /*_.INSTALL_MELT_MODE__V645*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V645*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V605*/ meltfptr[604]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V645*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V645*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4871:/ initchunk"); @@ -27149,15 +25308,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateinitmodulequicklybuilt"; - /*_.INSTALL_MELT_MODE__V646*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V646*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V612*/ meltfptr[611]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V646*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V646*/ meltfptr[628] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4888:/ initchunk"); @@ -27175,15 +25332,13 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateinitmoduledebugnoline"; - /*_.INSTALL_MELT_MODE__V647*/ - meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V647*/ meltfptr[627] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V619*/ meltfptr[618]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V647*/ - meltfptr[627] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V647*/ meltfptr[627] = 0 ; } MELT_LOCATION("warmelt-modes.melt:4905:/ initchunk"); @@ -27201,23 +25356,20 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_11 (meltinitial_frame_t* meltfram memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "translateinitmoduleoptimized"; - /*_.INSTALL_MELT_MODE__V648*/ - meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V626*/ meltfptr[625]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.INSTALL_MELT_MODE__V648*/ meltfptr[628] = melt_apply ((meltclosure_ptr_t)(/*_._VALCLO___V98*/ meltfptr[97]), (melt_ptr_t)(/*_._VALDATA___V626*/ meltfptr[625]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.INSTALL_MELT_MODE__V648*/ - meltfptr[628] = 0 ; + /*clear*/ /*_.INSTALL_MELT_MODE__V648*/ meltfptr[628] = 0 ; } /**COMMENT: after toplevel body **/; /**COMMENT: compute boxloc again **/; - /*cond*/ - if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ + /*cond*/ if (/*_._CONTENV___V2*/ meltfptr[1]) /*then*/ { } else /*^cond.else*/ @@ -27686,8 +25838,7 @@ void meltmod__WARMELTmiMODES__initialmeltchunk_13 (meltinitial_frame_t* meltfram /**COMMENT: set retinit from boxloc **/; - /*_._RETINIT___V1*/ - meltfptr[0] = + /*_._RETINIT___V1*/ meltfptr[0] = /* finalsetretinit */ melt_reference_value((melt_ptr_t)(/*_._CONTENV___V2*/ meltfptr[1])); /**COMMENT: end the initproc **/; |